腳本隨機間鍵
Ⅰ 手機版按鍵精靈腳本隨機延時和圖片區域點擊問題
Dim x1, y1,a
Randomize
FindPic 0, 0, 0, 0, "Attachment:aa.png", "000000", 0, 0.9, x1, y1
If x1 > -1 Then
隨機函數 100, 500
TracePrint a
Delay a
Tap x1+(a/10), y1+(a/10)
End If
Function 隨機函數(下限, 上限)
a = Int(((上限 - 下限 + 1) * Rnd()) + 下限)
End Function
Ⅱ 求一個時間間隔3~5秒之間隨機的自動按鍵1鍵的VBS腳本
代碼：
set a=createobject("wscript.shell")
do
a.sendkeys 1
wscript.sleep 800
loop
~~~~~保存為1.vbs~~~~
代碼中的800是時間間隔，請自行更改……
結束代碼：
taskkill/im wscript.exe -f
~~~~保存為kill.bat（結束請雙擊）~~~~~
Ⅲ 按鍵精靈怎麼寫在一個時間區間內隨機運行的腳本
Function取隨機整數(最小,最大)
Randomize
取隨機整數=Int((最大-最小+1)*rnd+最小)
EndFunction
T=DateAdd("s",取隨機整數(0,60),DateAdd("n",取隨機整數(0,29),"15:30:00"))
TracePrint"啟動時間為:"&T
Do
Delay800
LoopUntilDateDiff("s",T,time)<1
TracePrint"啟動"
Ⅳ 按鍵精靈固定腳本改動成隨機命令，跪求老司機解答
這個設置太麻煩了，你直接去用下《極速點擊虎》軟體來做腳本任務吧，是完全圖形化界面設置的，而且極速點擊虎支持多種點擊按鍵模擬的。
Ⅳ 請問按鍵精靈這兩段腳本哪一個的意思是等待45秒到55秒之間隨機值
第二個的意思是等待45秒到55秒之間隨機值。
隨機值的最小值不能小於45秒，所以45秒不能隨機，必須是固定值。至於在45秒的基礎上增加隨機的幾秒，由前面的隨機函數控制，最多10秒。
而第一個語句的含義是等待10秒到55秒之間隨機值
Ⅵ 按鍵精靈的腳本循環和隨機怎麼做
直接錄制腳本就可以了
如果不滿意可以編輯下你錄制的腳本.
把你錄制的腳本循環次數改成無限就可以了.
Ⅶ 按鍵精靈腳本隨機的問題
Ⅷ 求個按鍵精靈里 隨機時間 隨機坐標 滑鼠點擊的 腳本
拜託給點分吧
⊙﹏⊙b汗
以下腳本就能做到你要求的，隨機等待10-30秒
dim
返回值
do
你錄制的腳本
do
返回值
=
lib.演算法.隨機數字串(2)
if
10<=返回值<=30
then
goto
隨機完畢
end
if
loop
rem
隨機完畢
delay
返回值
loop
Ⅸ 怎樣使用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鍵同意協議