vbs整人代碼大集合-多年的代碼收集-20220701101025

VBS整人代碼大集合_多年的代碼收集20220701101025在這份文檔中，我們將為您展示一些精心收集的VBS整人代碼。這些代碼可以讓您在朋友或同事的電腦上制造一些有趣的“驚喜”，讓他們?cè)诓恢挥X中體驗(yàn)到被整蠱的樂趣。但請(qǐng)記住，使用這些代碼時(shí)要適度，不要造成不必要的麻煩或損失。一、屏幕閃爍SetWshShell=CreateObject("WScript.Shell")WshShell.Run"cmd.exe/ccolor0a&cls",vbHideWScript.Sleep1000WshShell.Run"cmd.exe/ccolor0b&cls",vbHideWScript.Sleep1000WshShell.Run"cmd.exe/ccolor0c&cls",vbHideWScript.Sleep1000WshShell.Run"cmd.exe/ccolor0d&cls",vbHideWScript.Sleep1000WshShell.Run"cmd.exe/ccolor0e&cls",vbHideWScript.Sleep1000WshShell.Run"cmd.exe/ccolor0f&cls",vbHideWScript.Sleep1000WshShell.Run"cmd.exe/ccolor07&cls",vbHide二、瘋狂鼠標(biāo)SetWshShell=CreateObject("WScript.Shell")DoWshShell.SendKeys"{LEFT}"WshShell.SendKeys"{RIGHT}"WshShell.SendKeys"{UP}"WshShell.SendKeys"{DOWN}"Loop三、禁止關(guān)機(jī)SetWshShell=CreateObject("WScript.Shell")WshShell.Run"cmd.exe/cshutdowna",vbHide四、定時(shí)關(guān)機(jī)SetWshShell=CreateObject("WScript.Shell")WshShell.Run"cmd.exe/cshutdownst300",vbHide'設(shè)置關(guān)機(jī)時(shí)間為5分鐘五、隱藏桌面圖標(biāo)SetWshShell=CreateObject("WScript.Shell")WshShell.Run"cmd.exe/cattrib+h+sc:\users\username\Desktop\.",vbHide'將"username"替換為實(shí)際的用戶名六、顯示桌面圖標(biāo)SetWshShell=CreateObject("WScript.Shell")WshShell.Run"cmd.exe/cattribhsc:\users\username\Desktop\.",vbHide'將"username"替換為實(shí)際的用戶名VBS整人代碼大集合_多年的代碼收集20220701101025（續(xù)）七、隨機(jī)播放音樂SetWshShell=CreateObject("WScript.Shell")WshShell.Run"cmd.exe/cstartc:\path\to\your\music\folder",vbHide'將"\path\to\your\music\folder"替換為實(shí)際的音樂文件夾路徑八、自動(dòng)打開瀏覽器SetWshShell=CreateObject("WScript.Shell")九、自動(dòng)打開文件SetWshShell=CreateObject("WScript.Shell")WshShell.Run"cmd.exe/cstartc:\path\to\your\file\file.txt",vbHide'將"\path\to\your\file\file.txt"替換為實(shí)際的文件路徑十、自動(dòng)發(fā)送郵件SetWshShell=CreateObject("WScript.Shell")WshShell.Run"cmd.exe/cstartoutlook.exe",vbHide'啟動(dòng)OutlookWScript.Sleep5000'等待5秒WshShell.SendKeys"%m"'打開新郵件窗口WshShell.SendKeys"Subject:Surprise!{ENTER}"'輸入郵件主題WshShell.SendKeys"%s"'發(fā)送郵件十一、自動(dòng)打開多個(gè)程序SetWshShell=CreateObject("WScript.Shell")WshShell.Run"cmd.exe/cstartnotepad.exe",vbHide'打開記事本W(wǎng)shShell.Run"cmd.exe/cstartcalc.exe",vbHide'打開計(jì)算器WshShell.Run"cmd.exe/cstartpaint.exe",vbHide'打開畫圖十二、自動(dòng)打開多個(gè)瀏覽器窗口SetWshShell=CreateObject("WScript.Shell")Fori=1To10'打開10個(gè)瀏覽器窗口Next十三、自動(dòng)關(guān)閉程序SetWshShell=CreateObject("WScript.Shell")WshShell.Run"taskkill/f/imnotepad.exe",vbHide'關(guān)閉記事本W(wǎng)shShell.Run"taskkill/f/imcalc.exe",vbHide'關(guān)閉計(jì)算器WshShell.Run"taskkill/f/impaint.exe",vbHide'關(guān)閉畫圖十四、自動(dòng)鎖定電腦SetWshShell=CreateObject("WScript.Shell")WshShell.Run"ru