365在线

当前位置: > 365在线 >

监控并停顿QQ及QQgame经过 的vbs 脚丫儿子本

时间:2018-10-08 04:05来源:未知 作者:admin 点击:
监控并停顿QQ及QQgame经过,异样却以用于中缀其他以次经过,条需将经过的name写入stop_qq.txt '此脚丫儿子本由?wscript.exe?脚丫儿子本松析以次担负松析实行. '此脚丫儿子本是死循环以次,

  监控并停顿QQ及QQgame经过,异样却以用于中缀其他以次经过,条需将经过的name写入stop_qq.txt

  '此脚丫儿子本由?wscript.exe?脚丫儿子本松析以次担负松析实行.

  '此脚丫儿子本是死循环以次,要中缀此脚丫儿子本条需寻求在STOP_QQ.TXT?中堵入含拥有?“WSCRIPT.EXE”?情节的记载并管(Ctrl+S),脚丫儿子本会将本身中缀。

  '当以次中缀以后又删摒除?"wscript.exe"?数据,以确保下次却以正日发挥动干用。

  on?error?resumenext

  Set?os0=createobject("shell.application")

  Set?os=CreateObject("wscript.shell")

  Set?fs=CreateObject("scripting.filesystemobject")

  Set?wmi=GetObject("winmgmts://.")

  pathx=fs.GetFile(WScript.scriptFullName).ParentFolder.Path

  path0=fs.GetFile(WScript.scriptFullName).Path

  Set?path1=fs.GetSpecialFolder(1)

  '--------------------------------------------------------------------------------

  '----------------MAIN?DO?LOOP?--------------------------------------------------

  Do?

  'create_boot

  Set?d0=createobject("scripting.dictionary")

  edit_d

  stop_p

  WScript.Sleep?5000

  Loop

  '---------------------------------------------------------------------------------

  '-------装置展触动项

  Sub?create_boot

  If?fs.FolderExists(path1&"/vbs")?=?False?Then?fs.CreateFolder?path1&"/vbs"

  fs.CopyFile?path0?,?path1&"/vbs/boot.vbs",True

  If?fs.FileExists(pathx&"/stop_qq.txt")Then?fs.CopyFile?pathx&"/vbs/stop_qq.txt"?,?path1&"/stop_qq.txt",true

  os.RegWrite?"HKLM/Software/Microsoft/Windows/CurrentVersion/Run/stop_qq",?Chr(34)&path1&"/vbs/BOOT.vbs"+Chr(34)

  End?Sub

  '---------------------------------------------------------------------------------

  '----------将数据文件中的数据带入dictionary?d0

  subedit_d

  If?fs.FileExists(pathx&"/stop_qq.txt")?=?False?Then?

  build_f

  End?If

  Set?file1=fs.OpenTextFile(pathx&"/stop_qq.txt",1,false)

  n=0

  Do?Until?file1.AtEndOfLine

  l1=Trim(file1.readline)

  If?l1?<>?""?Then?

  d0.Add?n,l1?'d0为公用?dictionary?因此在尽以次中定义

  n=n+1

  End?If

  Loop

  If?n=0?Then?build_f

  End?Sub

  '---------------------------------------------------------------------------------

  '-------创立数据文件

  Sub?build_f

  Set?file1=fs.OpenTextFile(pathx&"/stop_qq.txt",2,True)

  file1.WriteLine?"qq.exe"

  file1.WriteLine?"qqgame.exe" (责任编辑:admin)

顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
推荐内容