vbs基础入门

Dim ExcelSheet As Object

Set ExcelSheet = CreateObject("Excel.Sheet")

MsgBox WScript.FullName
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("clip")
Set oIn = oExec.stdIn
oIn.WriteLine "哈哈哈哈哈哈哈"
oIn.Close

dim name,msg
name="请输入要刷屏的文字:"
msg=Inputbox("请输入要刷屏文字(在刷屏期间不要将光标移出聊天框，不然会打开光标所在的程序)")
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "无标题记事本"
num=2
sleeptime=400
for i=1 to num
    caution="，总共有"&num&"条刷屏，当前是第"&i&"条刷屏;总共需要"&sleeptime/1000*num&"秒"&"，还有"&sleeptime/1000*num-sleeptime/1000*i&"秒完成刷屏"
    WshShell.Run "cmd.exe /c echo "&msg&caution&"| clip.exe", vbHide
    WScript.Sleep sleeptime
    WshShell.SendKeys "^v"
    'WshShell.SendKeys "{ENTER}"
next

dim WshShell, oExec
set WshShell = WScript.CreateObject("Wscript.Shell")
set oExec = WshShell.Exec("""C:\windows\system32\SnippingTool.exe""")
WScript.Sleep 150
WshShell.SendKeys "^n"

Set WshShell=WScript.CreateObject("WScript.Shell") 
WScript.Sleep 2000 
Set fso=wscript.createobject("scripting.filesystemobject") 
set f=fso.opentextfile("sendkey.vbs",2,true) 
f.Write("Set WshShell=WScript.CreateObject(" & Chr(34) & "WScript.Shell" & chr(34) & ")") 
f.WriteBlankLines(1) 
f.Write("WScript.Sleep 1800") 
f.WriteBlankLines(1) 
f.Write("Wshshell.appactivate " & chr(34) & "提示" & chr(34)) 
f.WriteBlankLines(1) 
f.Write("Wshshell.Sendkeys " & chr(34) & "^v" & chr(34)) 
f.WriteBlankLines(1) 
f.Close 
Wshshell.Run ("sendkey.vbs") 
InputBox "请输入","提示","" 
fso.DeleteFile ("sendkey.vbs")