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
温馨提示:内容为网友见解,仅供参考