MSGBOX可有可无

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

最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容