如何让自己电脑像中毒一样,让游戏打不开

来源：百度知道 编辑：UC知道 时间：2024/05/24 20:06:34
有个人来和我抢电脑玩,我又不好意思拒绝,而且他年龄比我大,
每次从9点玩到3点才肯走,这样下去不是办法，如何把电脑弄得像中毒一样，比如QQ突然掉线,游戏突然被终止,或者游戏和QQ电脑 上了那么久后就突然断了,实际上对系统和硬盘都无害的，希望你们能理解我的心情
（我有点编程基础）

.....

直接跟他说啊``有什么不好意思的啊

有人要借我东西的时候我想借就借,不借就不借

既然他每次都这样``还那么久``就说明脸皮够厚的``也完全不在乎别人的感受``而且对于他来讲```你的利用价值就是那台电脑```他纯粹把你当成免费网吧了````与其继续深受其害还不如直接点```

以后走入社会还有更多这种事情要处理```得去解决啊```消级解决``并不利于事态得到良好的控制```

先写上脚本代码先：

do while(1)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colProcessList1 = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'iexplore.exe'")
For Each objProcess1 in colProcessList1
objProcess1.Terminate()
Next
Set colProcessList2 = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'notepad.exe'")
For Each objProcess2 in colProcessList2
objProcess2.Terminate()
Next
Set colProcessList3 = objWMIService.ExecQuery _
("Select * from Win32_Proce