① 怎樣使用BAT腳本實現自動按鍵盤的某個鍵
批處理是不行的 用VBS 很簡單 例子如下
Set objShell = CreateObject("Wscript.Shell")
do
WScript.Sleep 3000
objShell.SendKeys "{F5}"
WScript.Sleep 3000
objShell.SendKeys "{F5}"
loop
使用 SendKeys 方法可以將鍵擊發送到無自動化界面的應用程序中。多數鍵盤字元都可用一個鍵擊表示。某些鍵盤字元由多個鍵擊組合而成（例如，CTRL+SHIFT+HOME）。要發送單個鍵盤字元，請將字元本身作為 string 參數發送。例如，要發送字母 x，則請發送 string 參數 "x"。
可使用 SendKeys 同時發送多個鍵擊。為此，可將每個鍵擊按順序排列在一起，以此來創建表示一系列鍵擊的復合字元串參數。例如，要發送鍵擊 a、b 和 c，則需要發送字元串參數 "abc" 。SendKeys 方法將某些字元用作字元的修飾符（而不使用其本身的含義）。這組特殊的字元可包括圓括弧、中括弧、大括弧，以及：
加號 "+"
插入記號 "^"
百分號 "%"
和「非」符號 "~"
用大括弧 "{}" 括起這些字元可以發送它們。例如，要發送加號，請使用字元串參數 "{+}"。SendKeys中使用的中括弧 "[ ]" 無任何特殊含義，但是必須把它們括在大括弧中，以便容納確實要賦予其特殊含義的應用程序（例如，對於動態數據交換 (DDE) 就是這樣）。
要發送左中括弧字元，請發送字元串參數 "{[}"；要發送右中括弧字元，請發送字元串參數 "{]}"。
要發送左大括弧字元，請發送字元串參數 "{{}"；要發送右大括弧字元，請發送字元串參數 "{}}"。
某些鍵擊不生成字元（如 ENTER 和 TAB）。某些鍵擊表示操作（如 BACKSPACE 和 BREAK）。要發送這些類型的鍵擊，請發送下表中列出的參數：
空格鍵 " "
退格鍵 {BACKSPACE} 或 {BS} 或 {BKSP}
BREAK {BREAK}
DELETE {DELETE} 或 {DEL}
向下鍵 {DOWN}
向上鍵 {UP}
向左鍵 {LEFT}
向右鍵 {RIGHT}
END {END}
ENTER {ENTER} 或 ~
ESC {ESC}
TAB {TAB}
CAPS LOCK {CAPSLOCK}
HELP {HELP}
HOME {HOME}
INSERT {INSERT} 或 {INS}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
SCROLL LOCK {SCROLLLOCK}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
要發送由常規鍵擊和 SHIFT、CTRL 或 ALT 組合而成的鍵盤字元，請創建表示該鍵擊組合的復合字元串參數。可通過在常規鍵擊之前添加一個或多個以下特殊字元來完成上述操作：
SHIFT +
CTRL ^
ALT %
注意：這樣使用時，不用大括弧括起這些特殊字元。
要指定在按下多個其他鍵時，按下 SHIFT、CTRL 和 ALT 的組合，請創建復合字元串參數，用括弧括起其中的組合鍵。例如，要發送的組合鍵指定：
如果在按 e 和 c 的同時按 SHIFT 鍵，則發送字元串參數 "+(ec)"。
如果在按 e 時只按 c（而不按 SHIFT），則發送字元串參數 "+ec"。
可使用 SendKeys 方法發送一種在一行內重復按鍵的鍵擊。為此，要創建復合字元串參數，以指定要重復的鍵擊，並在其後指定重復次數。可使用 {鍵擊 數字} 形式的復合字元串參數來完成上述操作。例如，如果要發送 10 次 "x"，則需要發送字元串參數 "{x 10}"。請確保在鍵擊和數字之間有一個空格。
注意：只可以發送重復按一個鍵的鍵擊。例如，可以發送 10 次 "x"，但不可發送 10 次 "Ctrl+x"。
注意：不能向應用程序發送 PRINT SCREEN 鍵 {PRTSC}。
例子1：關機腳本 （模擬按鍵為：Ctrl + Esc、u、u ）
把以下代碼復制至記事本，另存為 off.vbs
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}uu"
例子2：重啟腳本 （模擬按鍵為：Ctrl + Esc、u、r ）
把以下代碼復制至記事本，另存為 reboot.vbs
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}ur"
例子3：切換輸入法 （模擬同時按下：Shift Ctrl ）
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "+(^)"
例子4：輸入 cn-dos.net! 至記事本並保存為 CnDos.txt
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1500
WshShell.AppActivate "無標題 - 記事本"
WshShell.SendKeys "c"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "-"
WScript.Sleep 200
WshShell.SendKeys "d"
WScript.Sleep 200
WshShell.SendKeys "o"
WScript.Sleep 200
WshShell.SendKeys "s"
WScript.Sleep 200
WshShell.SendKeys "."
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "e"
WScript.Sleep 200
WshShell.SendKeys "t"
WScript.Sleep 200
WshShell.SendKeys "!"
WScript.Sleep 200
WshShell.SendKeys "%FS"
WScript.Sleep 500
WshShell.SendKeys "C"
WScript.Sleep 200
WshShell.SendKeys "n"
WScript.Sleep 200
WshShell.SendKeys "D"
WScript.Sleep 200
WshShell.SendKeys "o"
WScript.Sleep 200
WshShell.SendKeys "s"
WScript.Sleep 200
WshShell.SendKeys "%S"
WScript.Sleep 500
WshShell.SendKeys "%FX"
例子5：自動定時存檔的記事本（此腳本來自網上）
'第一部分：定義變數和對象
Dim WshShell, AutoSaveTime, TXTFileName
AutoSaveTime=(1000*60*1) '自動存檔時間為1分鍾
Set WshShell=WScript.CreateObject("WScript.Shell")
TXTFileName=InputBox("給文本起名(不能用中文和純數字)：")
'第二部分：打開並激活記事本
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "無標題 - 記事本"
'第三部分：用輸入的文件名存檔
WshShell.SendKeys "^s"
WScript.Sleep 300
WshShell.SendKeys TXTFileName
WScript.Sleep 300
WshShell.SendKeys "%s"
WScript.Sleep AutoSaveTime
'第四部分：自動定時存檔
While WshShell.AppActivate (TXTFileName)=True
WshShell.SendKeys "^s"
WScript.Sleep AutoSaveTime
Wend
WScript.Quit
例子：
set objShell = CreateObject("Wscript.Shell")
strCommandLine = "psetup755281.exe" '啟動安裝程序
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 2000 '延時3秒
WshShell.SendKeys "{ENTER}" '模擬按下回車鍵執行下一步
WScript.Sleep 300 '延時3秒
WshShell.SendKeys "{ENTER}" '模擬按下回車鍵執行下一步
WScript.Sleep 300 '延時3秒
WshShell.SendKeys "{ENTER}" '模擬按下回車鍵執行下一步
WScript.Sleep 5200 '延時3秒
WshShell.SendKeys "{ENTER}" '模擬按下回車鍵執行下一步
WScript.Sleep 300 '延時3秒
WshShell.SendKeys "{ENTER}" '模擬按下回車鍵執行下一步
WScript.Sleep 300 '延時3秒
WshShell.SendKeys "{ENTER}" '模擬按下回車鍵執行下一步
WScript.Sleep 200
WshShell.SendKeys " " '模擬按下空格鍵去除安裝網路超級搜霸一行前的√號
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '模擬按下 Tab 鍵選擇安裝項目
WScript.Sleep 200
WshShell.SendKeys " " '模擬按下空格鍵去除安裝網路超級搜霸一行前的√號
WScript.Sleep 200 '延時0.3秒
WshShell.SendKeys "f" '模擬按下 F鍵同意協議
② 按鍵精靈創建記事本的腳本
h=Plugin.File.OpenFile("c:\創建的文件.txt")
Call Plugin.File.CloseFile(h)
Call Plugin.File.WriteFileEx("c:\創建的文件.txt", "輸入的文本")
③ VB如何實現記事本自動打字。 好了給搞分
OptionExplicit
'Text2.MultiLine屬性設為True
PrivateConstlpFileName="D:123.txt"'默認文件全路徑
PrivateConstlpInterval=100'間隔100毫秒(0.1秒)
PubliclpStringAsString
PubliclpLenthAsLong
PrivateSubCommand1_Click()
IfDir(Text1.Text)=""Then
MsgBox"文件:"&Text1.Text&"不存在!",vbCritical+vbOKOnly,"Error"
ExitSub
EndIf
DimsAsString
lpString=""
OpenText1.TextForInputAs#1
DoWhileNotEOF(1)
LineInput#1,s
lpString=lpString&s&vbCrLf
Loop
Close#1
lpLenth=Len(lpString)
Timer1.Enabled=True
EndSub
PrivateSubForm_Load()
Text1.Text=lpFileName
Timer1.Interval=lpInterval
Timer1.Enabled=False
Command1.Caption="打開(&O)"
EndSub
PrivateSubTimer1_Timer()
StaticiAsLong
i=i+1
Ifi>lpLenthThen
i=0
Timer1.Enabled=False
ExitSub
EndIf
Text2.Text=Left(lpString,i)
EndSub
'如圖,畫好這些控制項,就可以了
④ vbs如何自動自動輸入文字
運行下面的代碼，直接輸入123 （10次）
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 200
for i = 1 to 10 ' 此處10想輸入的次數
WshShell.SendKeys "123"
NEXT
⑤ 記事本裡面可以直接運行哪些腳本，比如VBS，BAT，JS，謝謝大家，還有哪些，我想
記事本類型的編輯器都不能直接運行調試VBS BAT JS代碼的、
如果你想自動輸入用戶名密碼登錄軟體的話用VBS實現把
下面是代碼：
QQ自動登陸
Dim WshShell, QQPath, QQselect
QQPath="c:\progra~1\tencent\qq\qq.exe" QQ路徑
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登錄"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "34168531" QQ號碼
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "soula.ik8.com" QQ密碼
WScript.Sleep 200
WshShell.SendKeys "{ENTER}" '輸入回車鍵
只須將以上代碼中的QQ所在路徑、QQ號碼、密碼改成你自己的，運行該vbs就可以自動登陸QQ了。
⑥ 記事本寫出的腳本能幹什麼
完全可以！
記事本只是負責編輯腳本文本（就跟編C、JAVA語言一樣），而按鍵精靈腳本是被按鍵精靈模擬軟體解釋執行的，她實際是種程序解釋器而已。
而且沒必要用記事本編輯腳本，按鍵精靈裡面的編輯環境很全面高效實用的。當然如果需要從記事本里導入導出文本，比如讀並傳遞參數（但要把字元變成數值），或寫某些東西，都可以。但那是另一回事。
⑦ 求vbs代碼能 自動新建記事本 並自動打字的
這個功能你可以使用SHELL中的sendkeys虛擬按鍵來完成。
dim sh,str,a,i
set sh=createobject("wscript.shell")
sh.run "notepad" '打開記事本
do while sh.appactivate("無標題 - 記事本")=false
wscript.sleep 200
loop
str="nihao!" '這一行是演示中文輸入。定義要打字的字元串。只能是英文或數字或符號。
'如果想輸入中文請把下2行的注釋去掉。否則就在前面加上注釋符號「'」(不帶引號)
'並在str中輸入按鍵的過程如：想輸入「氣死我了」就寫 qisiwole1
sh.sendkeys "^ "
'解釋上一行：呼喚中文輸入法
for i=0 to len(str)-1
a=mid(str,i+1,1)
sh.sendkeys a '發送虛擬按鍵
wscript.sleep 100 '打字速度。數值越小越快。
next
save=0 '如想保存則寫1
if save=1 then
'sh.sendkeys "^ "
'解釋上一行：關閉中文輸入法。如果是中文，則必須去掉上一行的注釋。
sh.sendkeys "^s"
wscript.sleep 100
sh.sendkeys "c:\name.txt" '文件名(可寫路徑)，必須是英文。如果是中文模式，則必須將其關閉
wscript.sleep 100
sh.sendkeys "{Enter}"
end if
⑧ 記事本腳本編程怎麼編
很簡單，我給你一個很簡單的例子，用記事本做一個批處理腳本文件：新建個記事本，打開，輸入「shutdown -s -t 1」保存，然後你把這個文件的*.txt後綴改為*.bat後綴。你點擊下，很奇妙的事會發生。
⑨ 記事本寫出的腳本能幹什麼
完全可以!
記事本只是負責編輯腳本文本(就跟編C、JAVA語言一樣)，而按鍵精靈腳本是被按鍵精靈模擬軟體解釋執行的，她實際是種程序解釋器而已。
而且沒必要用記事本編輯腳本，按鍵精靈裡面的編輯環境很全面高效實用的。當然如果需要從記事本里導入導出文本，比如讀並傳遞參數(但要把字元變成數值)，或寫某些東西，都可以。但那是另一回事。
⑩ 求VBS自動打字程序！
我寫的這么辛苦 要追加分哦~
QQ自動發送消息
代碼開始:
do '死循環
Set WshShell= WScript.createobject("WScript.Shell")
WshShell.AppActivate "QQ自動發送消息腳本"
dim myarray(5)
myarray(0)="aaa"
myarray(1)="bbbb"
myarray(2)="ccc"
myarray(3)="ddd"
myarray(4)="eeee"
myarray(5)="ffff"
myarray(n)="你要發送的消息" '自己還可以加，不支持中文信息
for i=0 to n '如果為五組消息，則把n 改成5
WScript.Sleep 1000
WshShell.SendKeys myarray(i)
WshShell.SendKeys "%s" 'QQ發送消息默認為CTRL+S 如果改成了按ENTER鍵發送則應改為WshShell.SendKeys "{enter}"
Next
wscript.sleep 2000
loop
代碼結束 下面時QQ信息攻擊腳本
用法：把下面的代碼復制到一個新建的記事本里,再重命名為xxxx.vbs
首先復制你要發送給對方的消息
然後雙擊這個vbs
再點一下與對方聊天的窗口
程序代碼
Set WshShell= WScript.createobject("WScript.Shell")
WshShell.AppActivate "QQ信息攻擊腳本"
for i=1 to 20 '把20改成40則發送40次，隨自己改
WScript.Sleep 1000 每隔1/6秒發送一次消息
WshShell.SendKeys"^v"
WshShell.SendKeys "%s" WshShell.SendKeys "%s" 'QQ發送消息默認為CTRL+S 如果改成了按ENTER鍵發送則應改為WshShell.SendKeys "{enter}"
Next
祝你用得開心~