之前發過乙個 但是指令碼丟了 ，正好有個粉絲需要 就花了點時間 搞了一下。
之前的寫法完全忘記了 o(╥﹏╥)o 只好重新開始 ，不過應該是優化了寫法（印象中之前用的是個笨方法）
這次用上了ascii碼 並對特殊符號進行了分析。不多說 **很易讀。
(不知道這是 lua 還是 vb 所以我就隨便傳了 下 大家將就看 複製到 指令碼精靈就好了)
//讀取txtword = plugin.file.readfileex("d:\007\1.txt")
//traceprint word
mydelay = 20
//等待2s 將滑鼠放到定義位置
delay 2000
traceprint asc("`")
traceprint asc("'")
for i = 0 to len(word)
//大寫字母
if (asc(mid(word, i, 1))>=65 and asc(mid(word, i, 1)) <= 90) then
input_ua(mid(word, i, 1))
//小寫字母
elseif (asc(mid(word, i, 1)) >= 97 and asc(mid(word, i, 1)) <= 122) or (asc(mid(word, i, 1)) >= 44 and asc(mid(word, i, 1)) <= 57) or (asc(mid(word, i, 1)) = 39) or (asc(mid(word, i, 1)) = 59) or (asc(mid(word, i, 1)) = 61) or (asc(mid(word, i, 1)) = 96) or (asc(mid(word, i, 1)) >= 91 and asc(mid(word, i, 1)) <= 93) then
input_sa(mid(word, i, 1))
else
symbols(asc(mid(word, i, 1)))
end if
next
function symbols(num)
if num = 32 then
keydown "space", 1
delay mydelay
keyup "space", 1
elseif num = 33 then
keydown "shift", 1
keydown "1", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "1", 1
elseif num = 34 then
keydown "shift", 1
keydown "'", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "'", 1
elseif num = 35 then
keydown "shift", 1
keydown "3", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "3", 1
elseif num = 36 then
keydown "shift", 1
keydown "4", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "4", 1
elseif num = 37 then
keydown "shift", 1
keydown "5", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "5", 1
elseif num = 38 then
keydown "shift", 1
keydown "7", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "7", 1
elseif num = 40 then
keydown "shift", 1
keydown "9", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "9", 1
elseif num = 41 then
keydown "shift", 1
keydown "0", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "0", 1
elseif num = 42 then
keydown "shift", 1
keydown "8", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "8", 1
elseif num = 43 then
keydown "shift", 1
keydown "=", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "=", 1
elseif num = 58 then
keydown "shift", 1
keydown ";", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup ";", 1
elseif num = 60 then
keydown "shift", 1
keydown ",", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup ",", 1
elseif num = 62 then
keydown "shift", 1
keydown ".", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup ".", 1
elseif num = 63 then
keydown "shift", 1
keydown "/", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "/", 1
elseif num = 64 then
keydown "shift", 1
keydown "2", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "2", 1
elseif num = 94 then
keydown "shift", 1
keydown "6", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "6", 1
elseif num = 95 then
keydown "shift", 1
keydown "-", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "-", 1
elseif num = 126 then
keydown "shift", 1
keydown "`", 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup "`", 1
end if
end function
//小寫輸入
function input_sa(str)
keydown str, 1
delay mydelay
keyup str, 1
end function
//大寫輸入
function input_ua(str)
keydown "shift", 1
keydown str, 1
delay mydelay
keyup "shift", 1
delay mydelay
keyup str, 1
end function
//定義乙個函式,可以在指令碼中呼叫這個函式，支援引數和返回值
//返回值 = lib.演算法.中文漢字轉拼音
按鍵精靈高階指令碼
下面給出幾個利用vbscript訪問外部檔案的例子 rem 在當前盤根目錄下建立 測試.txt 並寫入乙個字串 vbs dim fso,file,filename vbs filename 測試.txt vbs const forwriting 2 vbs set fso createobject ...
觸動精靈 觸動精靈指令碼編輯器
觸動精靈 ide 指令碼編輯器使用手冊 小注意 可能的話 不要放到中文目錄下 省事 accesskey 小知識 註冊賬號成功 個人資訊下查到 小知識 乙個accesskey能連線多個裝置 但是 有數量上限一旦出現提示達到上限 新建工程 連線裝置廣播開關 usb 模擬器 小知識 如何檢視當前裝置的各種...
熱血江湖按鍵精靈遊戲指令碼
做這些指令碼，起初是給自己用的。後來在網上發現不少朋友在到處尋找,更有甚者,竟然把簡單的指令碼 真是黑到頭啊。為了讓更多喜歡熱血的朋友輕鬆遊戲，先放上來.指令碼有什麼用?讓你的雙手有更多的時間去做其他的事.為什麼要用按鍵精靈的指令碼?外怪有封號的危險,簡單遊的木馬橫行,封號好象也存在，雖然簡單遊跟1...