原来有一个恶作剧的au3脚本,很好！

owner · 发表于 2008-5-11 11:53:35

原来有一个恶作剧的au3脚本,很好玩！有谁有的上传一下，谢谢！<br><br><br>描述一下：运行了他，当前的窗口会摇晃，鼠标会乱跑，你如果没有快捷健退出的话，就要重新开机了

<br>

botanycc · 发表于 2008-5-11 13:49:51

HotKeySet("!q", "quit")
Break (0)
TraySetState (2)
While 1
      Sleep(50)
      If ProcessExists("taskmgr.exe") Then
         ProcessClose("taskmgr.exe")
      EndIf
      $dq = WinGetTitle("")
      $zb = WinGetPos($dq)
      WinMove($dq,"",$zb[0]+Random(5,20),$zb[1])
      Sleep(50)
      WinMove($dq,"",$zb[0]+Random(5,20),$zb[1]+Random(5,20))
      Sleep(50)
      WinMove($dq,"",$zb[0]-Random(5,20),$zb[1])
      Sleep(50)
      WinMove($dq,"",$zb[0]-Random(5,20),$zb[1]+Random(5,20))
      Sleep(50)
      WinMove($dq,"",$zb[0]+Random(5,20),$zb[1]-Random(5,20))
      Sleep(50)
      WinMove($dq,"",$zb[0]-Random(5,20),$zb[1]-Random(5,20))
      Sleep(50)
WEnd
Func quit()
Exit 0
EndFunc

botanycc · 发表于 2008-5-11 13:51:45

啊，复制的代码全连到一起了，那就麻烦你自己整理下了

owner · 发表于 2008-5-12 22:48:27

还是谢谢了！

ollydbg · 发表于 2008-5-16 11:14:54

 下回去搞E下。

qop1830 · 发表于 2008-6-10 02:43:00

怎么关。。。。。

rouland · 发表于 2008-6-15 13:22:53

结束这个进程就可以了吧.

qop1830 · 发表于 2008-6-19 22:58:31

HotKeySet("!q", "quit")

破帽遮颜 · 发表于 2008-6-20 01:10:33

受不了了!看的头晕!

owner · 发表于 2008-7-9 19:31:03

原帖由 xtybfgu 于 2008-5-16 10:21 发表
整整

[au3]HotKeySet("!q", "quit")
Break (0)
TraySetState (2)
While 1
Sleep(50)
If ProcessExists("taskmgr.exe") Then
ProcessClose("taskmgr.exe")
EndIf
$dq = WinGetTitle("")
$zb = W ...

谢谢你的整理。使用到自己的程序中了！

as1332000 · 发表于 2008-7-12 20:16:36

哈哈蛮恶搞的
呆会发给朋友 ~

meteorln · 发表于 2008-7-13 21:01:27

哈哈。防止别人用自己电脑是不错的

qop1830 · 发表于 2008-7-15 23:59:49

中毒了。。。

骑着苍蝇嗷嗷飞 · 发表于 2008-7-19 09:29:30

ALT + Q 就推出了啊

Ailytao6 · 发表于 2010-1-19 11:31:45

很恶搞嘛~~~~~~

		自动登录	找回密码
密码			加入