按键精灵问题，怎样用数组输入不同的账号 按键精灵 循环输入帐号密码的问题
\u6309\u952e\u7cbe\u7075\u7528\u6570\u7ec4\u8f93\u5165\u591a\u4e2a\u5e10\u53f7Dim MyString, MyArray
MyString = Split("VBScriptXisXfun!","X")
TracePrint MyString(0)
TracePrint MyString(1)
TracePrint MyString(2)
Text = Plugin.File.ReadFileEx("C:\Documents and Settings\Administrator\\u684c\u9762\\u8d26\u5bc6.txt")\u8d26\u5bc6\u6570\u7ec4 = split(Text, "|")For i = 0 To (UBound(\u8d26\u5bc6\u6570\u7ec4) + 1) / 2+1 Step 2 \u8d26\u53f7 = \u8d26\u5bc6\u6570\u7ec4(i) \u5bc6\u7801 = \u8d26\u5bc6\u6570\u7ec4(i + 1)TracePrint \u8d26\u53f7TracePrint \u5bc6\u7801//\u8f93\u51faNext
Text = Plugin.File.ReadFileEx("d:\新建 文本文档 (2).txt")//文档位置你自己改，QQ帐号跟密码一句一行。dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)/2
Call Lib.API.运行程序("C:\Program Files\Tencent\QQ\Bin\QQ.exe")//QQ位置
Delay 10000
//QQ登陆输入帐号坐标位置，没用找字找图，系统不一样，不好用，坐标自己找。
MoveTo 761,246
Delay 500
LeftClick 1
Delay 500
//下面这句是得到文本内容
SayString Cstr(MyArray(i))
Delay 300
KeyPress "Tab", 1
Delay 300
KeyPress "BackSpace", 20
Delay 300
//分隔密码，逐个模拟输出，密码里不能有组合键。
str = Cstr(MyArray(i+1))
//MessageBox str
For j = 1 To Len(str)
k= Mid(str,j,1)
KeyPress k,1
Next
Delay 200
moveto 861,343
Delay 200
LeftClick 1
Delay 1000
i=i+2
Next
End If
没试过，有点逻辑小错误可能，密码不能有组合键。加你QQ了，叫仙豆，有问题再问。
绛旓細dim MyArray MyArray = Split(Text, "|")If UBound(MyArray)>=0 Then i=0 For UBound(MyArray)/2 Call Lib.API.杩愯绋嬪簭("C:\Program Files\Tencent\QQ\Bin\QQ.exe")//QQ浣嶇疆 Delay 10000 //QQ鐧婚檰杈撳叆甯愬彿鍧愭爣浣嶇疆锛屾病鐢ㄦ壘瀛楁壘鍥撅紝绯荤粺涓嶄竴鏍凤紝涓嶅ソ鐢紝鍧愭爣鑷繁鎵俱侻oveTo 761,246 ...
绛旓細1銆佸彲浠ョ敤鑴氭湰锛屼綘鎻愪緵鐨勫浘鐗囦綅缃笂鐨勬暟瀛楅棶棰樸傚鏋滆繖涓暟瀛楁槸绫讳技楠岃瘉鐮侀偅涓绫荤殑寮傛у瓧绗︼紝閭ｈ繖鑴氭湰鐨勯毦搴﹀氨鏈夌偣澶с傚鏋滃彧鏄崟绾殑鏅氭枃瀛楋紝閭ｈ繖鑴氭湰骞朵笉澶嶆潅銆傚鏋滄槸妗岄潰鍒嗚鲸鐜1024锛768灏卞涓嬶紝鑷繁鍙互鏍规嵁鍒嗚鲸鐜囨敼銆2銆侊細鍋氬瓧搴1-9锛2锛氬浐瀹歑鍧愭爣涓婇檺鍜屼笅闄愭壘瀛楋紝鎵惧埌浜嗗氨鐐瑰嚮锛屽苟淇濆瓨Y鍧愭爣+鍋...
绛旓細涓嶉噸澶嶄笉鑳界畻鏄滈殢鏈衡濓紝瑕佹兂涓嶉噸澶嶅氨鎶婁綘鎵鏈夌殑鏁板瓧涔辨帓涓娆″氨琛屼簡锛岀劧鍚庢娊鍙栦緷娆℃暟缁勭殑搴忓彿鍗冲彲瀹炵幇涓嶉噸澶嶇幇璞锛屼唬鐮佸涓嬶細锛堟敞鎰忥紝閲嶇偣鎺у埗D鐨勫煎氨涓嶄細閲嶅浜嗭級UserVar i=20 "璁剧疆鐢熸垚鐨勯殢鏈烘暟鏁伴噺"//鐢ㄦ埛鑷畾涔夊彉閲 For a=1 to i b=b&a&","Next u=Split(鎶婃暟瀛楁贩鎺掍竴娆(b), ",")Me...
绛旓細鎸夐敭绮剧伒鍙互杩欐牱鎶婂潗鏍囧瓨鍏鏁扮粍锛1銆佸０鏄庢暟缁勫彉閲忥紝瀹氫箟鏁扮粍澶у皬鍙婄被鍨嬶紝濡傦細DimmyArray(10,1)AsInteger锛岃〃绀哄０鏄庝簡涓涓ぇ灏忎负11琛2鍒楃殑鏁村瀷鏁扮粍銆2銆佸湪绋嬪簭涓皢鍧愭爣瀛樺叆鏁扮粍涓傚彲浠ヤ娇鐢ㄥ惊鐜鍙ユ垨鑰呴愪釜璧嬪肩殑鏂瑰紡灏嗗潗鏍囧瓨鍏ユ暟缁勪腑銆3銆佸皢鏁扮粍myArray涓殑x鍧愭爣鍜寉鍧愭爣渚濇璧嬪肩粰鍙橀噺x鍜寉锛岀劧鍚庡彲浠ユ牴...
绛旓細Dim MyString, MyArray MyString = Split("VBScriptXisXfun!","X")TracePrint MyString(0)TracePrint MyString(1)TracePrint MyString(2)
绛旓細妤间笂1鍒嗛挓鍚庡埛鏂,鍐嶈繃涓鍒嗛挓Alt+Tab,杩欎釜璺熸ゼ涓绘病鍏崇郴鐨勫惂~~~涓嶇煡閬撴ゼ涓绘槸涓嶆槸瑕侀殢鏈烘暟?,濡傛灉鏄殑璇濆氨娣诲姞涓嬮潰鐨勮鍙 Dim A(999)i=0 for 1000 randomize(timer)A(i)=Int(1000*rnd)//杩欎釜鏄0~1000鐨勯殢鏈烘暣鏁,濡傞渶鍏朵粬鐨勬暟瀛楀彲浠ョ敤绫讳技鐨勫叕寮忔崲绠 i=i+1 next ...
绛旓細鍛戒腑璁板綍0,鍛戒腑璁板綍1,鍛戒腑璁板綍2,鍛戒腑璁板綍3,鍛戒腑璁板綍4,鍛戒腑璁板綍5,娆℃暟 鍛戒腑璁板綍0=0 娆℃暟 = 0 i = 1 For 6 绠鍖=array(鍛戒腑璁板綍0,鍛戒腑璁板綍1,鍛戒腑璁板綍2,鍛戒腑璁板綍3,鍛戒腑璁板綍4,鍛戒腑璁板綍5)绠鍖(娆℃暟)=绠鍖(娆℃暟)+i TracePrint 绠鍖(娆℃暟)i=i+1 Next 姣忓惊鐜竴娆 绠鍖(娆℃暟)鐨勫奸兘+1 杈撳嚭锛
绛旓細鏉庡洓鐨勯キ鐩掕繖涓暟缁勪綘瀹氫箟浜嗘槸闀垮害涓1鐨勬暣鏁板瀷鏁扮粍锛鑰屽紶涓夌殑鐩掗キ瀹氫箟鐨勬槸闀垮害涓5鐨勫瓧绗﹀瀷鏁扮粍銆傚彲浠ュ涓嬪畾涔夛細dim 鏉庡洓鐨勭洅楗(4)鎴栬呬娇鐢╮edim preserve 鏉庡洓鐨勭洅楗紙N锛塏涓轰慨鏀圭殑鏁扮粍闀垮害
绛旓細鍙橀噺鏄渶鍩烘湰鐨勶紝鎵炬繃绋嬶紝鎶婃殑璇嗗埆鐮杈撳叆鍙橀噺A涓紝鎵剧涓涓狽PC浠ｇ爜杈撳叆B涓璉F A=B then 鎵惧埌鎬狤SLE 娌℃壘鍒癊nd If 濡傛灉浣犺鎵10涓綘閲嶅涓婇潰閭ｆ灏辨樉寰楀お涓嶄笓涓氫簡锛岄偅灏卞彲浠ョ敤鍒板彉閲忎簡銆侫锛0锛=A1 //绗竴涓殑璇嗗埆鐮佸瓨鍏鏁扮粍A锛0锛堿锛1锛=A2 //绗簩涓殑璇嗗埆鐮佸瓨鍏ユ暟缁凙锛1锛...
绛旓細'渚嬪瓙1--鍦鎸夐敭绮剧伒鍐呯洿鎺ラ噸瀹氫箟鏁扮粍 Dim AR(),i i=10 Redim AR(i)MessageBox UBound(AR)'渚嬪瓙2 -- 鍦ㄦ寜閿簿鐏靛唴閿欒鐨勫啓娉:Function 瀛愬嚱鏁()Dim AR(),i //鍒犻櫎姝よ浠ｇ爜鍙В鍐 i=9 Redim AR(i)MessageBox UBound(AR)End Function '渚嬪瓙3 -- 鍦╒BS鍧楀唴鎵ц鏍囧噯VBS璇彞 VBSBegin dim ...
