Private Sub Form_Load()
Open App.Path & "\Temp.exe" For Binary As #1
Dim i() As Byte
i = LoadResData(101, "CUSTOM") '101是资源号
Put #1, , i
Close #1
Shell App.Path & "\Temp.exe" '运行程序
End Sub
Private Sub Form_Unload(Cancel As Integer)
Kill App.Path & "\Temp.exe" '删除程序
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024