求一个按键精灵代码,每一个操作循环从文本逐行复制一条信息 按键精灵怎么逐行自动读取文本中的文字,并实现自动输入?

作者&投稿:爱贞 (若有异议请与网页底部的电邮联系)
text = Plugin.File.ReadFileEx("C:\Users\lenovo\Desktop\1.txt")dim ... Then i=0 For UBound(MyArray) //下面这句是得到文本内容 SayString Cstr(MyArray(i)) Delay ...

你说发帖A用TXT第一行,B用第二行,C用第三行,但你又说不是那种一次性逐行复制。我怎么被你说的有点懵呢。

按键精灵如何实现如下操作:从记事本中逐行提取信息,并逐行输入到指定的一个位置。~

源码缺少i的赋值,应先给i定一个变化的值,如按键官方例子:
//下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)
Text = Plugin.File.ReadFileEx("C:\Config.txt")
Msgbox "向目标文件读出文本内容为:"& Text
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
Msgbox "第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))
i=i+1
Next
End If

由于换行符与账号密码分隔符一样,都是"|",所以这里我把":"当做账号密码分隔符。
代码:
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,"提示"

如何实现按键精灵脚本的无限循环?
答:按键精灵的无限循环,有多种实现方式。常见的是设为while句式、goto句式、Do 循环句式。针对脚本本身的无限循环,在“脚本循环”中,选择“循环到按中止键为止”。以按键精灵9脚本为例:1、while句式。i=0 While i=0 Msgbox "我停不下来啦!!快住手"Wend //当循环条件成立的时候,反复执行循环体 2...

如何编写按键精灵每循环一次,数字+1。 运行第一次,数字是01,运行第二...
答:For 90//循环90次 //如果要强制成为2位数就是这样 if i<10 then SayString "0"//不知道LZ要干嘛 我猜是输出文本 Delay 50 SayString i else SayString i end if KeyPress 13, 1//输出一个数换行回车 i = i + 1//数字+1 EndFor//循环结束 //以上为脚本 我的按键精灵8 版本不同...

按键精灵后台代码 每隔45毫秒按一下5 无限循环
答:while true Call Plugin.Bkgnd.KeyPress(hwnd,101)Delay 45 wend 指定窗口方法:打开"按键精灵"-打开"抓抓"-在"按键抓抓辅助工具"左下角点击"句柄"-按"F8"-把鼠标移动到你要执行后台操作的窗口上面(不需要点击)-按"F8"-在"按键抓抓辅助工具"右边找到"类名"-复制类名到代码"窗口类名"处即可....

求按键精灵一个简单脚本,每8秒按一次 1 ,循环2000次后,每8秒按一次2...
答:代码如下:For 50 For 40 KeyPress 49, 1 Delay 8000 Next Next For 40 For 10 KeyPress 50, 1 Delay 8000 Next Next For 80 KeyPress 51, 1 Delay 8000 Next 新建脚本,复制上去,保存退出即可。

按键精灵如何使执行完一系列命令后每次循环都将初始位置向下移一定距离...
答:For i = 0 To 9 //每次循环i的值都会增加1,所以坐标X的值每次会增加 坐标X = 起始坐标X + i * 每次偏移量 : 坐标Y = 起始坐标Y TracePrint "坐标X= " & 10 + i * 5 & " ,坐标Y= " & 起始坐标Y MoveTo 坐标X, 坐标Y '移动到对应坐标 Delay 300 Call 执行操作()'执行重复...

按键精灵循环动作问题?
答:For 50MoveTo 320, 293LeftClick 1Delay 600MoveTo 988, 584LeftClick 1NextFor 50MoveTo 320, 333LeftClick 1Delay 600MoveTo 988, 584LeftClick 1NextFor 50MoveTo 320, 353LeftClick 1Delay 600MoveTo 988, 584LeftClick 1NextFor 50MoveTo 320, 373LeftClick 1Delay 600MoveTo 988, 584...

按键精灵,这样点击怎么编,每一次循环后【每个账号运行同样的动作...
答:for i=0 to 须执行的次数 MoveTo 账号的横坐标,第一个账号的纵坐标+i*相邻两个账号之间的纵坐标差 LeftClick 1 要执行的相同内容 next

按键精灵,怎么每循环一次,鼠标左键就多点击一次,比如第一次循环点击一次...
答://用变量来控制就可以,比如循环十次代码 a = 1 For 10 LeftClick a a = a +1 Next

按键精灵怎样设置成这样~~~每秒一次1按键,每三秒一次Tab按键,不断循环...
答:BeginThread 按键1 BeginThread 按键2 Sub 按键1 Rem 按键1 KeyPress 49,1 Delay 1000 Goto 按键1 End Sub Sub 按键2 Rem 按键2 KeyDown 9,1 Delay 3000 Goto 按键2 End sub

求高手给我个按键精灵9的网页后台脚本每1秒按一下e键连按10次再按一下...
答://按键精灵9 >新建>源文件>复制下面的代码>保存运行即可 //wqm.exe是按键精灵9自带浏览器 PID=Plugin.Web.Bind("wqm.exe")Do Delay 1000 Loop While PID<1 Do For 12 Call Plugin.Web.KeyPress(69)Delay 1000 Next Call Plugin.Web.KeyPress(49)Delay 100 Loop ...