如何使用VBS代码实现恶搞关机功能并显示提示信息?
恶搞的魅力在于意外的惊喜,来看看这两个创意十足的VBS代码片段,让你的电脑体验一段独特的互动吧!
首先,让我们来玩一个小游戏,这段代码巧妙地利用了on error resume next语句和InputBox函数,创建了一个“爱的挑战”:
- 通过WSHshell对象,程序启动命令提示符,命令行中隐藏的信息仿佛在催促:“如果你说‘我爱你’,我就饶你一命,不然30秒后,bye-bye了哦。”
- 循环中,程序等待用户输入“我爱你”,每一次对话框弹出,仿佛是电脑在期待着你的回答。当你输入正确时,它会温柔地告诉你:“虽然你爱我,但我还是要执行任务。”
但别以为这样就结束了,第二个恶搞程序更狡猾:
- “毒气”来袭,一个狡猾的MsgBox弹出,戏谑道:“哈哈,你中毒了,尽管试图关闭我,但我掌控全局。”
- 最后,程序以一个神秘的“loo”结束,留下悬念,让人忍不住想要解开它的秘密。
这些恶搞代码充满了趣味性,它们或许会给你日常生活中的计算机操作增添一点轻松与幽默。虽然简单,却能让你的电脑成为一个会说话、有个性的朋友。
让我们一起探索更多编程的乐趣,这些代码片段只是冰山一角,期待你的创新与改编。希望这些小恶搞能为你的编程世界增添一抹亮色!
绛旓細棣栧厛锛岃鎴戜滑鏉ョ帺涓涓皬娓告垙锛岃繖娈浠g爜宸у鍦鍒╃敤浜唎n error resume next璇彞鍜孖nputBox鍑芥暟锛屽垱寤轰簡涓涓滅埍鐨勬寫鎴樷濓細閫氳繃WSHshell瀵硅薄锛岀▼搴忓惎鍔ㄥ懡浠ゆ彁绀虹锛屽懡浠よ涓殣钘忕殑淇℃伅浠夸經鍦ㄥ偓淇冿細鈥滃鏋滀綘璇粹樻垜鐖变綘鈥欙紝鎴戝氨楗朵綘涓鍛斤紝涓嶇劧30绉掑悗锛宐ye-bye浜嗗摝銆傗 寰幆涓紝绋嬪簭绛夊緟鐢ㄦ埛杈撳叆鈥滄垜鐖变綘...
绛旓細鏂板缓鏂囨湰鏂囨。锛屽鍒浠g爜銆備唬鐮佸涓: on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""璇存垜鏄尓锛屼笉璇存垜鏄尓灏变竴鍒嗛挓鍏充綘鏈猴紝涓嶄俊锛屼綘璇曡瘯路路路"" ...
绛旓細1銆侀鍏堟垜浠湪妗岄潰涓婃柊寤轰竴涓猼xt鏂囨湰鏂囦欢锛屽涓嬪浘鎵绀猴紝瀵逛簬涓嶅鏉傜殑VBS灏忕▼搴忔潵璇达紝鐢鏂囨湰鏂囦欢瀹屽叏鍙互瀹炵幇鍔熻兘 2銆佺劧鍚庢垜浠墦寮鏂囨湰鏂囦欢锛屽湪鍏朵腑缂栧啓鑷姩鍏虫満鐨勭▼搴忥紝濡備笅鍥炬墍绀猴紝涓昏鏄鐢ㄦ埛杈撳叆涓涓叧鏈烘椂闂达紝鐒跺悗鍒版椂闂寸洿鎺ュ叧鏈 3銆佹帴涓嬫潵鎴戜滑鍥炲埌妗岄潰锛屽皢txt鏂囨湰鏂囦欢淇敼涓vbs鏂囦欢锛屽涓嬪浘鎵绀猴紝vbs...
绛旓細浠g爜涓锛氭棤闄愬脊鍑轰俊鎭 鍙屽紩鍙峰唴鍙互鑷淇敼 do msgbox "鐖遍偙鍝ョ埍鐢熸椿"loop 浠g爜浜岋細鎵撳紑N涓绠楀櫒锛屽埌鐢佃剳姝绘満 et wsh=createobject("wscript.shell")do wsh.run "calc"loop 浠g爜涓夛細鐢佃剳鍏虫満 dim WSHshell set WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s ...
绛旓細Msgbox("鎮ㄧ殑绯荤粺宸插彈鍒颁繚鎶わ紝灏嗗湪5绉掑悗鑷姩閲嶅惎锛岃绋嶅欓噸缃")</濡傛灉杩欒繕涓嶈兘婊¤冻鎮ㄧ殑闇姹傦紝鎮ㄥ彲浠ュ皢杩欐浠g爜灏佽涓哄紑鏈哄惎鍔ㄩ」锛岃瀹冩垚涓烘偍鏃ュ父鐢佃剳鐨勫畧鎶よ呫傛兂瑕佹洿杩涗竴姝ワ紵璁╂垜浠湅鐪濡備綍鍒╃敤VBS瀹炵幇涓涓畝鍗曠殑鍏虫満鎿嶄綔:WScript.Shell("cmd /c shutdown -s -t 5").Run "Windows瀹夊叏璀︽姤",...
绛旓細vbs鏁翠汉浠g爜澶ч泦鍚堬紝鏀堕泦鐨勬瘮杈冨叏锛屽枩娆㈢殑鏈嬪弸鍙互鍙傝冧笅銆備笉瑕佹悶鐮村潖锛屽涔爒bs鐨勬湅鍙嬮潪甯告湁甯姪锛屾寰幆鐨浣跨敤姣旇緝澶氥傛柊寤轰竴涓浜嬫湰 鎶婁笅闈㈢殑浠g爜澶嶅埗杩涘幓 鍙﹀瓨涓篤BE鏍煎紡鐨勫氨鍙互浜 锛氫竴銆佹垜灏辩敤杩欎釜绋嬪簭鏀惧湪瀛︽牎鍥句功棣嗘煡璇功鍒婄殑鏈哄櫒涓婏紝濂藉浜洪兘閭e畠娌″姙娉曪紝鍝堝搱 do msgbox "You are foolish!"lo...
绛旓細set WSHshellA = wscript.createobject("wscript.shell") '缁欏彉閲忚祴鍊 WSHshellA.run "cmd.exe /c shutdown -r -t 600 -c ""閫熷害鍔犲皬璐盦Q锛1960226055闂粬瑙i櫎鏂规硶銆佸湪杞彂浜斾釜QQ缇ゃ佷笉鐒朵綘涔熷埆鎯冲叧鎺夈佷竴灏忔椂鍚嶤鐩樺叏閮ㄦ枃浠跺皢浼氳鍒犻櫎锛屼笉淇′綘璇曡瘯路路路"" ",0 ,true '鍚姩鍏虫満鍛戒护銆
绛旓細浣犵殑杩欎釜鏄vbs鑴氭湰锛屼互鍓嶅埆浜哄彂鎴戠殑锛婧愪唬鐮鏄繖鏍风殑锛歰n error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c ""璇存垜鏄暅鐢燂紝涓嶈灏20绉掑叧浣犳満锛屼笉淇★紝璇曡瘯路路路"" ",0 ,true dim a do while(a ...
绛旓細on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""鍙垍锛屼笉鍙叧浣犳満锛屼笉淇★紝璇曡瘯路路路"" ",0 ,true dim a do while(a <> "鑸")a = inputbox ("鍙垍,灏变笉鍏虫満锛屽揩鎾掞紝鍙 ""鑸""...
绛旓細浠g爜涓:鏃犻檺寮瑰嚭淇℃伅妗 鍙屽紩鍙峰唴鍙互鑷淇敼do msgbox "鐖遍偙鍝ョ埍鐢熸椿" loop 浠g爜浜:鎵撳紑N涓绠楀櫒,鍒扮數鑴戞鏈篹t wsh=createobject("wscript.shell") do wsh.run "calc" loop 浠g爜涓:鐢佃剳鍏虫満dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ...