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
October 22, 2006
January 01, 1970
August 11, 2005
July 26, 2006
July 18, 2007
Sunucular 4 days önce
Sunucular 2 weeks önce
Sphere Scripting 3 weeks önce
Sunucular 3 weeks önce
Sunucular 1 months önce
Sunucular 2 months önce
Sunucular 2 months önce
Sunucular 2 months önce
June 30, 2017
June 24, 2017
June 22, 2017
June 18, 2017
June 03, 2017
May 28, 2017
May 09, 2017
March 31, 2017
Yorumlar (0)