اجراي يه فايل exe يا هرچيز ديگه با يه كد در VB.net

[ALI TT]

با سلام لطفا كمكم كنيد
چه جوري ميشه با يه كد در vb.net يه فابل exe را اجرا كرد . براي مثال مديا پلير , internet explorer يا هر چيز ديگه .
قبلا بلد بودم ولي كدش يادم رفته . خواهش ميكنم كمكم كنيد .

يه سوال ديگه در مورد فايلهايي با پسوند big كه باهاش فايلها را نگه داري ميكنن. نام برنامه سازنده اين فايلها Final Big هستش
مثلا توي يه بازي شايد هزاران فايل صوتي ، تصويري و ... وجود داشته باشه . براي اينكه اونا رو توي پوشه‌ها قرار ندهند و توي اين فايلها نگه ميدارن و هزار فايل به يك فايل تبديل ميشه !!
مثلا بازي Command & Conquer(tm) Generals Zero Hour رو اينطوري كردند
يا مثلا Call of Duty 2 كه فايلها شو ميشه با Winrar باز كرد
حلا ميخواستم بدونم از فايلهاي توش چه جوري استفاده ميكنن .
مثلا من 10 تا آهنگ دارم و اونارو ميكنم توي فايل Music.big و مي‌خواهم از توي VB آدرس بدم تا فايل توش رو اجرا كنه .

اگه دوستان اين روش را بلد نيستن ميشه خودشون يه راهكار پيشنهاد كنن كه 10 فايل بشه يه فايل يا ....

مرسي اگه جوابمو بدين

[eyes_shut_number1]

با دستورات shell و process.start میتونی فایل اگزه رو اجرا کنی


proces.tart("Notepad.exe")

[amirsajjadi]

با سلام
میتونی اون 10 فایل رو فشرده کنی
یا اینکه محتویات اون ده فایل رو توی یک فایل بنویس به این صورت که فایل اول رو بنویس سپس یک جدا کننده (مثلا SPLT) رو توی فایل بنویس بعد فایل دیگه رو بنویس به همین ترتیب
ولی روش فشرده سازی بهتره (یک سرچ بزنی مطالب مفیدی گیرت میاد)

[ALI TT]

مرسي ميرم امتحان كنم

[ALI TT]

سلام و تشكر فراوان


میتونی اون 10 فایل رو فشرده کنی

خوب فشرده كنم چه جوري از فايله استفاده كنم(تو وي بي)


یا اینکه محتویات اون ده فایل رو توی یک فایل بنویس

منظورت نوشتن نامشان است ! يكم بيشتر توضيح ميدي


جدا کننده اس پي ال تي

ببخشيد دارم اذيت ميكنم
خيلي حرفه اي توضيح ميدي

يكم مبتدي تر كمكم كن
ممنون

[drwatson]

شاید بتونی به عنوان resource اضافشون کنی

[ALI TT]

شاید بتونی به عنوان resource اضافشون کنی

سلام
چه جوري

[amirsajjadi]

برای قرار دادن چند فایل توی یک فایل :


Const SPLT As String = "SPLIT FILE("
Const MAX As Long = 1048576 '1 Megabyte

Private Sub Get_Set_File(ByVal address_get As String, ByVal address_save As String)
Dim a() As Byte
Dim flen As Long = 0
FileOpen(1, address_get, OpenMode.Binary, OpenAccess.Read)
FileOpen(2, address_save, OpenMode.Binary, OpenAccess.Write)
flen = LOF(2)
If flen > 0 Then Seek(2, flen + 1)
flen = LOF(1)
If flen > MAX Then ReDim a(MAX - 1)
While flen > MAX
FileGet(1, a)
FilePut(2, a)
flen -= MAX
End While
ReDim a(flen - 1)
FileGet(1, a)
FilePut(2, a)
FilePut(2, SPLT & FileIO.FileSystem.GetName(address_get) & ")")
FileClose(1, 2)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "All Files|*.*"
OpenFileDialog1.Multiselect = True
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
If OpenFileDialog1.FileName <> "" AndAlso SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
For Each s As String In OpenFileDialog1.FileNames
Get_Set_File(s, SaveFileDialog1.FileName)
Next
End If
End If
End Sub


برای فشرده سازی :
http://barnamenevis.org/forum/showpost.php?p=301119&postcount=1

[ALI TT]

ولی روش فشرده سازی بهتره (یک سرچ بزنی مطالب مفیدی گیرت میاد)

من مىخوام كسي نتونه بدون برنامه اي كه مي نويسم بازشون كنه اگه زيپ شن ميشه بازشون كرد


برای قرار دادن چند فایل توی یک فایل :

اقا اين راهي كه دادي واقعا عال بود خيلي توپ بود ديگه كسي نميتونه فايلها رو باز كنه

حالا مااين اين طوريشون كرديم چه جوري بازشون كنيم بخدا اين ديگه آخرين سوال بود !

كمكم كنيد