set objShell = CreateObject(" Wscript。外殼”)
StrCommandLine = "ttpsetup.exe " '啟動安裝程序。
objShell。運行(strCommandLine)
set wsh shell = CreateObject(" WScript。外殼”)
WScript。睡眠3000 '延時3秒。
WshShell。模擬按下S鍵開始安裝。
WScript。睡眠300 '延時0.3秒。
WshShell。SendKeys“A”模擬按下A鍵同意協議。
WScript。睡眠300
WshShell。SendKeys“{ ENTER }”模擬按ENTER執行下壹步。
WScript。睡眠300
WshShell。SendKeys“{ ENTER }”模擬按ENTER執行下壹步。
WScript。睡眠300
WshShell。SendKeys“{ ENTER }”模擬按ENTER執行下壹步。
WScript。睡眠2000
WshShell。SendKeys“{ TAB }”模擬按TAB鍵選擇安裝項目。
WScript。睡眠300
WshShell。發送鍵“{TAB}”
WScript。睡眠300
WshShell。' SendKeys " " '模擬安裝百度超級搜索欄前按空格鍵去掉√號。
WScript。睡眠300
WshShell。SendKeys“{ ENTER }”模擬按ENTER鍵來完成最後壹步。
將上面的代碼復制到記事本中(右邊的文字是說明，壹起復制不會影響)，然後保存為AutoSetup.vbs，將這個文件保存在千千聽課安裝執行程序(ttpsetup.exe)的同壹個目錄下，雙擊AutoSetup.vbs自動完成千千聽課的安裝。成功的關鍵是，妳必須安裝千千聽力壹次，然後記住每個步驟中的按鈕是什麽，以便這個文件可以被帶到另壹臺計算機上執行。
發送鍵的參數描述:
使用SendKeys方法向沒有自動界面的應用程序發送擊鍵。大多數鍵盤字符可以用壹次擊鍵來表示。有些鍵盤字符由多次擊鍵組成(例如，CTRL+SHIFT+HOME)。若要發送單個鍵盤字符，請將字符本身作為字符串參數發送。例如，要發送字母x，請發送字符串參數“x”。
SendKeys可用於同時發送多個按鍵。為此，您可以將每個擊鍵排列在壹起，以便創建壹個表示壹系列擊鍵的復合字符串參數。例如，要發送擊鍵A、B和C，需要發送字符串參數“abc”。SendKeys方法使用某些字符作為字符的修飾符(不使用它們自己的含義)。這組特殊的字符可以包括圓括號、方括號、大括號和:
加號“+”
插入符號""
百分號“%”
還有那個“不是”符號“~”
用大括號“{}”將這些字符括起來以發送它們。例如，要發送加號，請使用字符串參數“{+}”。SendKeys中使用的方括號“[]”沒有任何特殊含義，但是必須用大括號括起來，以適應真正需要賦予特殊含義的應用程序(例如，對於動態數據交換(DDE))。
要發送左括號字符，請發送字符串參數“{[}”；要發送右括號字符，請發送字符串參數“{]}”。
若要發送左大括號字符，請發送字符串參數“{ { }”；若要發送右大括號字符，請發送字符串參數“{}}”。
有些擊鍵不生成字符(如ENTER和TAB)。有些擊鍵代表操作(如退格和BREAK)。要發送這些類型的擊鍵，請發送下表中列出的參數:
空格鍵""
退格鍵{退格}或{BS}或{BKSP}
BREAK {BREAK}
刪除{DELETE}或{DEL}
向下鍵{向下}
向上鍵{UP}
向左鍵{LEFT}
向右箭頭{RIGHT}
結束{END}
輸入{ENTER}或~
ESC {ESC}
選項卡{TAB}
大寫鎖定{大寫鎖定}
幫助{HELP}
HOME {HOME}
插入{INSERT}或{INS}
NUM LOCK {NUMLOCK}
向下翻頁{PGDN}
向上翻頁{PGUP}
打印屏幕{PRTSC}
滾動鎖定{SCROLLLOCK}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
f 11 { f 11 }
F12 {F12}
若要發送由常規擊鍵和SHIFT、CTRL或ALT鍵組合而成的鍵盤字符，請創建壹個表示擊鍵組合的復合字符串參數。您可以通過在常規擊鍵前添加壹個或多個以下特殊字符來實現這壹點:
SHIFT +
計算機的Ctrl按鍵(控制鍵)
ALT %
註意:以這種方式使用時，這些特殊字符不會用大括號括起來。
若要指定在按下多個其他鍵時按下SHIFT、CTRL和ALT的組合，請創建壹個復合字符串參數並將該組合鍵括在括號中。例如，要發送的組合鍵指定:
如果在按下E和C的同時按下SHIFT鍵，則會發送字符串參數“+(ec)”。
如果按E時只按C(而不是SHIFT)，則發送字符串參數“+ec”。
您可以使用SendKeys方法發送在壹行中重復按鍵的擊鍵。為此，創建壹個復合字符串參數來指定要重復的擊鍵，然後指定重復次數。可以使用{擊鍵數}形式的復合字符串參數來完成上述操作。比如要發送“x”10次，需要發送字符串參數“{x 10}”。請確保擊鍵和數字之間有壹個空格。
註意:只能發送重復按鍵的擊鍵。例如，可以發送“x”10次，但不能發送“Ctrl+x”10次。
註意:您不能將打印屏幕鍵{PRTSC}發送到應用程序。
示例1:關機腳本(模擬鍵:Ctrl+Esc，U，U)
將以下代碼復制到記事本，並另存為off.vbs。
set wsh shell = CreateObject(" WScript。外殼”)
WshShell。仙客來“^{ESC}uu”
示例2:重啟腳本(模擬鍵有:Ctrl+Esc，U，R)
將以下代碼復制到記事本，並另存為reboot.vbs
set wsh shell = CreateObject(" WScript。外殼”)
WshShell。仙客來“^{ESC}ur”
例3:切換輸入法(模擬同時按Shift Ctrl)
set wsh shell = CreateObject(" WScript。外殼”)
WshShell。sendkeys“+(^)”
例4:進入cn-dos.net！轉到記事本，將其另存為CnDos.txt
昏暗的WshShell
設置WshShell=WScript。CreateObject("WScript。外殼”)
WshShell。運行“記事本”
WScript。睡眠1500
WshShell。AppActivate“無標題-記事本”
WshShell。發送鍵“c”
WScript。睡眠200
WshShell。發送鍵“n”
WScript。睡眠200
WshShell。發送鍵“-”
WScript。睡眠200
WshShell。發送鍵“d”
WScript。睡眠200
WshShell。發送鍵“o”
WScript。睡眠200
WshShell。發送鍵“s”
WScript。睡眠200
WshShell。發送鍵。
WScript。睡眠200
WshShell。發送鍵“n”
WScript。睡眠200
WshShell。發送鍵“e”
WScript。睡眠200
WshShell。發送鍵“t”
WScript。睡眠200
WshShell。發送鍵"！"
WScript。睡眠200
WshShell。發送密鑰“%FS”
WScript。睡眠500
WshShell。發送鍵“C”
WScript。睡眠200
WshShell。發送鍵“n”
WScript。睡眠200
WshShell。發送鍵“D”
WScript。睡眠200
WshShell。發送鍵“o”
WScript。睡眠200
WshShell。發送鍵“s”
WScript。睡眠200
WshShell。發送鍵“%S”
WScript。睡眠500
WshShell。發送鍵“%FX”
示例5:自動節省時間的記事本(該腳本來自互聯網)
第壹部分:定義變量和對象
Dim WshShell，AutoSaveTime，TXTFileName
Auto save time =(1000 * 60 * 1)'自動保存時間為1分鐘。
設置WshShell=WScript。CreateObject("WScript。外殼”)
TXTFileName=InputBox("命名文本(不允許使用中文和純數字):")
第二部分:打開並激活記事本
WshShell。運行“記事本”
WScript。睡眠200
WshShell。AppActivate“無標題-記事本”
第三部分:用輸入的文件名保存。
WshShell。仙客來“^s”
WScript。睡眠300
WshShell。SendKeys TXTFileName
WScript。睡眠300
WshShell。發送鍵“%s”
WScript。睡眠自動保存時間
第四部分:自動定時保存
而WshShell。AppActivate (TXTFileName)=True
WshShell。仙客來“^s”
WScript。睡眠自動保存時間
行
WScript。放棄
示例:
set objShell = CreateObject(" Wscript。外殼”)
Str命令行= "p setup 755281。啟動安裝程序。
objShell。運行(strCommandLine)
set wsh shell = CreateObject(" WScript。外殼”)
WScript。睡眠2000 '延時3秒。
WshShell。SendKeys“{ ENTER }”模擬按ENTER執行下壹步。
WScript。睡眠300 '延時3秒。
WshShell。SendKeys“{ ENTER }”模擬按ENTER執行下壹步。
WScript。睡眠300 '延時3秒。
WshShell。SendKeys“{ ENTER }”模擬按ENTER執行下壹步。
WScript。睡眠5200 '延時3秒。
WshShell。SendKeys“{ ENTER }”模擬按ENTER執行下壹步。
WScript。睡眠300 '延時3秒。
WshShell。SendKeys“{ ENTER }”模擬按ENTER執行下壹步。
WScript。睡眠300 '延時3秒。
WshShell。SendKeys“{ ENTER }”模擬按ENTER執行下壹步。
WScript。睡眠200
WshShell。' SendKeys " " '模擬安裝百度超級搜索欄前按空格鍵去掉√號。
WScript。睡眠100
WshShell。SendKeys“{ TAB }”模擬按TAB鍵選擇安裝項目。
WScript。睡眠200
WshShell。' SendKeys " " '模擬安裝百度超級搜索欄前按空格鍵去掉√號。
WScript。睡眠200 '延時0.3秒。
WshShell。SendKeys "f " '模擬按下f鍵同意協議。