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 2 gün önce
Ultima Online 1 hafta önce
Sunucular 3 hafta önce
Counter-Strike 1 ay önce
Sunucular 1 ay önce
Counter-Strike 2 2 ay önce
2023-10-19 02:28
2023-10-18 21:20
2023-10-18 17:59
2023-10-12 02:30
2023-08-05 04:49
2023-08-04 21:01
2023-08-04 15:22
2017-06-30 17:45