Private Sub Command1_Click()
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Dim no As Byte
no = FreeFile
Open App.Path & "deneme.exe" For Binary As #no
Put #no, , resbytes
Close #no
Shell App.Path & "deneme.exe", vbNormalFocus
End Sub
1 Kullanıcı
Ultima Online 22 saat önce
Sunucular 1 hafta önce
Sunucular 2 hafta önce
Sohbet & Geyik 2 hafta önce
Sunucular 3 hafta önce
Ultima Online 3 hafta önce
Ultima Online 1 ay önce
Sunucular 1 ay önce
Sphere Scripting 1 ay önce
Ultima Online 1 ay önce
Sunucular 2 ay önce
Diğer Oyunlar 2 ay önce
2024-10-31 22:47
2024-10-14 17:45
2024-09-26 14:21
2024-07-08 22:50
2024-07-08 22:34
2024-06-19 22:05
2024-06-01 02:19
2024-05-31 21:17