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ı
Sunucular 1 hafta önce
Ultima Online 1 hafta önce
Ultima Online 1 hafta önce
Ultima Online 1 hafta önce
Ultima Online 2 hafta önce
Sunucular 3 hafta önce
Sunucular 3 hafta önce
Ultima Online 3 hafta önce
Sunucular 1 ay önce
2024-04-09 16:53
2024-04-06 18:20
2024-04-06 17:43
2024-04-06 17:21
2024-03-28 17:47
2024-03-25 02:51
2024-03-22 18:08
2024-03-22 14:46