安裝完成后可以回調(diào),替換echo 123456789和pause就行了。
dim pathset ws = CreateObject("WScript.Shell")set fso=createobject("scripting.filesystemobject")''定義安裝路徑path = ws.ExpandEnvironmentStrings("%windir%")+"/jre6/"''創(chuàng)建目錄If (fso.FolderExists(path)) ThenElse fso.createfolder(path)End If''文件下載Set xPost = CreateObject("Microsoft.XMLHTTP")Set sGet = CreateObject("ADODB.Stream")Sub DownloadToFile(url, file) xPost.Open "GET", url, False xPost.Send sGet.Type = 1 sGet.Open sGet.Write xPost.responseBody sGet.SaveToFile file, 2 sGet.CloseEnd Subdim urlurl = "http://xxx.com/jre-6-windows-i586.exe"dim fileName,batpathfileName = path+Right(url, Len(url) - InStrRev(url,"/"))DownloadToFile url, fileNamebatpath = path+"start.bat"set f=fso.createtextfile(batpath)''寫bat執(zhí)行安裝jre,完成后輸出123456789,并暫停f.write fileName+" /s INSTALLDIR="+path& vbcrlf&"echo 123456789"&vbcrlf&"pause"f.close''隱藏運(yùn)行ws.run(batpath),0,true新聞熱點(diǎn)
疑難解答
圖片精選