按键精灵怎么逐行自动读取文本中的文字，并自动输入某处 按键精灵里边自动逐行读取文本中的内容，并自动输入到某处然后点...
\u6309\u952e\u7cbe\u7075\u600e\u4e48\u9010\u884c\u81ea\u52a8\u8bfb\u53d6\u6587\u672c\u4e2d\u7684\u6587\u5b57\uff0c\u5e76\u5b9e\u73b0\u81ea\u52a8\u8f93\u5165\uff1f\u7531\u4e8e\u6362\u884c\u7b26\u4e0e\u8d26\u53f7\u5bc6\u7801\u5206\u9694\u7b26\u4e00\u6837\uff0c\u90fd\u662f"|"\uff0c\u6240\u4ee5\u8fd9\u91cc\u6211\u628a":"\u5f53\u505a\u8d26\u53f7\u5bc6\u7801\u5206\u9694\u7b26\u3002
\u4ee3\u7801\uff1a
Dim Path, Text, i, zm
Path="C:\Documents and Settings\Administrator\\u684c\u9762\\u65b0\u5efa \u6587\u672c\u6587\u6863.txt" '\u586b\u5165\u6587\u4ef6\u8def\u5f84
Text = Plugin.File.ReadFileEx(Path) '\u8bfb\u53d6\u6587\u672c\u5185\u5bb9
Text = Split(Text, "|") '\u5c06\u8bfb\u53d6\u5230\u7684\u5185\u5bb9\u4e00\u884c\u884c\u5730\u5206\u5272\u4e3a\u6570\u7ec4
TracePrint UBound(Text)
For i = 0 To UBound(Text) - 1
zm = Split(Text(i), ":") '\u5206\u5272\u6bcf\u884c\u5185\u5bb9
SayString zm(0)
KeyPress 9, 1
SayString zm(1)
KeyPress 13, 1
Next
MsgBox "\u6240\u6709\u8d26\u53f7\u5747\u5df2\u4f7f\u7528",64,"\u63d0\u793a"
\u8fd9\u4e9b\u64cd\u4f5c\u6709\u73b0\u6210\u8f6f\u4ef6\u80fd\u5b8c\u6210\uff0c\u4f60\u53bb\u770b\u4e0b\u963f\u51b2\u70b9\u51fb\u8f6f\u4ef6\uff0c\u662f\u5168\u90e8\u56fe\u5f62\u5316\u754c\u9762\u83dc\u5355\uff0c\u5728\u963f\u51b2\u70b9\u51fb\u8f6f\u4ef6\u91cc\u63d0\u4f9b\u6709\u6587\u672c\u63d0\u53d6\u3001\u81ea\u52a8\u70b9\u51fb\u8f93\u5165\u7b49
Text = Plugin.File.ReadFileEx("C:\1.txt")
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
TracePrint "第 " & i + 1 & " 行文本内容为：" & Cstr(MyArray(i))
Do
key = WaitKey()
If key = 17 Then
SayString MyArray(i)
Exit Do
End If
loop
i = i + 1
Next
End If启动脚本后按快捷键Ctrl输出一行内容，需要激活输入框才能输出内容，激活就是点击一下输入框就行了，可以用text文本文档测试一下。
//分也太少了！！！！！！！！！！
path = "c:\1.txt"
fileHandle=Plugin.File.OpenFile(path)
//file20byte=Plugin.File.ReadFile(fileHandle,20)
Rem 标记
key1 = WaitKey()
If key1 = 115 Then //按F4读一行。
fileline = Plugin.File.ReadLine(fileHandle)
//以下四句是复制粘贴，效果跟 SayString fileline一样。
// Call Plugin.Sys.SetCLB(fileline)
// KeyDown 17, 1
//KeyPress 86, 1
//KeyUp 17, 1
SayString fileline
End If
Delay 200
Goto 标记
Sub OnScriptExit()
Call Plugin.File.CloseFile(fileHandle)
MessageBox "脚本已经停止！"
End Sub
由于换行符与账号密码分隔符一样，都是"|"，所以这里我把":"当做账号密码分隔符。
代码：
Dim Path, Text, i, zm
Path="C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" '填入文件路径
Text = Plugin.File.ReadFileEx(Path) '读取文本内容
Text = Split(Text, "|") '将读取到的内容一行行地分割为数组
TracePrint UBound(Text)
For i = 0 To UBound(Text) - 1
zm = Split(Text(i), ":") '分割每行内容
SayString zm(0)
KeyPress 9, 1
SayString zm(1)
KeyPress 13, 1
Next
MsgBox "所有账号均已使用",64,"提示"
绛旓細If len(Lib.鏂囦欢.璇诲彇鎸囧畾琛鏂囨湰鍐呭("C:\123.txt", i)) > 4 Then RunApp lib.鏂囦欢.璇诲彇鎸囧畾琛屾枃鏈唴瀹("C:\123.txt", i)End If Delay 500 Next 澶嶅埗涓婇潰浠ｇ爜锛屽鏋滆矾寰勪笉瀵硅鍦–鐩樺垱寤轰竴涓123鍚嶇О鐨勬枃妗ｆ垨鑰呰嚜琛屼慨鏀逛唬鐮佷腑鐨勬枃浠惰矾寰勶紝鎵撳紑缃戦〉鐨勯棿闅旀椂闂翠慨鏀笵elay寤舵椂鏉ュ疄鐜帮紝1000涓轰竴绉掞紝...
绛旓細鍏璇诲彇鏂囨湰鎬昏鏁 for i=1 to 鏂囨湰鎬昏鏁 璇诲彇i琛岀殑 next 杩欐槸瀹夊崜锛孖OS鎬濊矾
绛旓細閭ｄ釜浣跨敤姣旇緝绻佺悙锛屾垜浠槸鐢ㄧ殑鍥惧舰鍖栬剼鏈伐鍏疯蒋浠讹紙鏃犳晫鐐瑰嚮鐙楋級灏变竴閿鑷姩鍖鎼炲畾浜嗭紝鑳借嚜鍔ㄨ緭鍏ュ綍鍏ョ殑銆傜綉涓婃湁鏃犳晫鐐瑰嚮鐙楄蒋浠剁殑寰堝浣跨敤鑼冧緥锛屾搷浣滃氨鏄畝鍗曠殑娣诲姞鍑犱釜浠诲姟鍗冲彲锛屼綘鍙渶鎶婁竴娆¤緭鍏ュ綍鍏ョ殑杩囩▼缂栨帓锛屾棤鏁岀偣鍑荤嫍灏辫兘鎵归噺鑷姩鍖栧府浣犳墽琛屼簡銆
绛旓細//浣跨敤鏂规硶 鐐瑰嚮鎸囧畾杞欢鍐呭妗 浣夸箣涓哄嚭鍏ョ姸鎬 鎸塮10鍚姩杞欢 涔嬪悗姣忔寜涓娆11杈撳叆涓嬩竴琛屽唴瀹 Text = Plugin.File.ReadFileEx("d:\haoma.txt")x=1 Do M = WaitKey()If M = 122 Then MyVar = Mid(Text, x, 9)SayString MyVar x=x+10 End If Loop ...
绛旓細鍙互鐨,鐢ㄦ噿浜烘彃浠跺彲浠閫愯璇诲彇,鐒跺悗璁剧疆鍒板壀璐存澘,鎿嶄綔閿洏榧犳爣鍒囨崲鍒板彟涓涓緭鍏ユ,鎸塁TRL+V绮樿创鎴栬呯敤saystring杈撳嚭.鐒跺悗璇讳笅涓琛 浣犳病鏈夌粰鍑哄簲鐢ㄧ幆澧,鏃犳硶鍐欎唬鐮佺粰浣,浣嗘槸浣犳妸鎳掍汉鎻掍欢涓嬭浇浜,鐪嬬湅鑼冧緥灏辨噦浜,瓒呯骇绠鍗曠殑
绛旓細Text = Plugin.File.ReadFileEx("d:\鎴戠殑鏂囨。\妗岄潰\鏂板缓 鏂囨湰鏂囨。.txt")//鏂囨。浣嶇疆浣犺嚜宸辨敼 dim MyArray MyArray = Split(Text, "|")If UBound(MyArray)>=0 Then i=0 For UBound(MyArray)//涓嬮潰杩欏彞鏄緱鍒版枃鏈唴瀹 SayString Cstr(MyArray(i))Delay 1000 Msgbox "鎴愬姛杈撳叆绗 " & i+1...
绛旓細path = Plugin.file.SelectFile()text = Plugin.File.ReadFileEx(path)MyArray = split(text, "|")Plugin.Office.OpenXls("c:\1.xlsx")If UBound(MyArray) > 0 Then For i=0 to Ubound(Myarray)-1 step 1 Call Plugin.Office.WriteXls(1, i + 1, 1, MyArray(i))Delay 1000 Next ...
绛旓細鍋囧D鐩樻湁涓枃妗ｆ柊寤 鏂囨湰鏂囨。 (1).txt锛岄噷闈㈡湁123456/654321/ 鑴氭湰濡備笅锛歍ext = Plugin.File.ReadFileEx("d:\鏂板缓 鏂囨湰鏂囨。 (1).txt")arr=split(text,"/")SayString arr(0)SayString arr(1)excel鐨勮瘽锛岃鐢ㄥ埌鍙橀噺锛岃嚜宸卞幓鐮旂┒鏄偅涓彃浠跺惂 ...
绛旓細i = Form1.BrowseBox1.Path//鍘txt鏂囦欢o = Form1.BrowseBox2.Path//瑕佺敓鎴愮殑txt鏂囦欢Text = Plugin.File.ReadFileEx(i)Dim MyArrayMyArray = Split(Text, "|")i = 0For UBound(MyArray) MyArray(i)= left((Cstr(MyArray(i))),6)Call Plugin.File.WriteFileEx(o, MyArray(i))i=i+...
绛旓細If UBound(MyArray)>=0 Then i=0 For UBound(MyArray)//涓嬮潰杩欏彞鏄緱鍒鏂囨湰鍐呭 SayString Cstr(MyArray(i))Delay 1000 Msgbox "鎴愬姛杈撳叆绗 " & i+1 &" 琛屾枃鏈唴瀹逛负锛"& Cstr(MyArray(i))Delay 1000 i=i+1 Next End If 杩欎釜涓嶇煡閬撹涓嶈銆傛病鐪嬫噦浣犲埌搴璇诲彇瀹屼簡涔嬪悗瑕佹庝箞鎿嶄綔锛屽厛...
