按键精灵里边自动逐行读取文本中的内容，并自动输入到某处

就是把已经申请好的游戏账号登录到游戏里边，然后做完任务再自动换下一个号，请高手帮忙，我都弄了一宿了，到现在也没弄明白。

举报该问题

第1个回答 2012-10-05

Text = Plugin.File.ReadFileEx(文件路径)【把汉字替换为文件路径】
While text > "" //循环，直至读完所有内容为止
qa = InStr(text, "|")
qs = Len(text)
本行内容 = Left(text, qa - 1)【一行一行读取，文本里只有账号就可以了，密码可以改成统一的】
text = right(text, qs - qa)
【执行，此处自己插入命令，你要的变量名为：本行内容】
Wend追问

不好意思哈，因为我是新手，能留个联系方式，教教我么？

追答

名字就QQ

本回答被网友采纳

相似回答

按键精灵 按行读取复制txt文本中的内容,并输入到指定软件内容框中。答：//使用方法点击指定软件内容框使之为出入状态按f10启动软件之后每按一次f11输入下一行内容 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 ...

按键精灵怎么逐行自动读取文本中的文字,并自动输入某处?答：那个使用比较繁琐，我们是用的图形化脚本工具软件（无敌点击狗）就一键自动化搞定了，能自动输入录入的。网上有无敌点击狗软件的很多使用范例，操作就是简单的添加几个任务即可，你只需把一次输入录入的过程编排，无敌点击狗就能批量自动化帮你执行了。

按键精灵读取TXT某一行(自己输入数字),然后输入到某处,细节如下:答：End Event Call Plugin.Office.OpenXls("C:\Users\huangwei\Desktop\新建 Microsoft Excel 工作表.xlsx")If Form1.InputBox1.Text = "" Then MsgBox "请输入行数"Else For i = 0 To 1 Text = Plugin.Office.ReadXls(1, Form1.InputBox1.Text, Y)//MessageBox "读出内容为：" & Text S...

按键精灵怎么循环读取txt中的每一行账号,并输入到指定地方?答：ReadFileEx(文件路径)TracePrint Text 分割内容 = Split(Text, "|")For i = 0 To UBound(分割内容) - 1 TracePrint "第 " & i & " 行, 内容为:" & 分割内容(i)SayString 分割内容(i) & vbcr Next //设置好要读取的文件路径,打开一个空文档,在可输入状态(热键F10)运行按键精灵 ...

用按键精灵,自动输入txt文本的脚本。答：在使用按键精灵时，可以通过编写脚本来自动读取并输入TXT文本文件中的内容。假设你已经将TXT文本文件放置在C:\Users\zen\Desktop\文章.txt路径下，可以通过以下步骤实现这一目标。首先，定义一个变量I用于循环计数，并读取文件内容。代码如下：I=0 Test=Plugin.File.ReadFileEx("C:\Users\zen\Desktop\文章...

按键精灵怎么逐行自动读取文本中的文字,并自动输入某处...答：txt = Plugin.File.ReadFileEx("路径")a = split(txt, "|")

把以上代码改成符合如下要求:按键精灵怎么逐⾏读取⽂本第一行,然后...答：以下是按键精灵脚本的修改版本，满足你的要求。这个脚本会逐行读取文本文件的每一行，然后将每行的内容复制到指定的目标文本框，并按回车键。首次运行时，它会提示你用鼠标点击一次输入框，然后自动执行后续的复制粘贴操作，直到文本内容为空。文档路径 = "C:\demo.txt" ' 设置文档路径 Text = Plugin....

如何让按键精灵自动输入文档内的文本答：1、打开按键精灵，新建一个空白脚本，这个方法要配合输入法，使用于字数较少的输入。2、插入按键“N”和“H”。3、再插入按键“space”。4、在设置好启动热键和循环次数，就编写完成了。5、可以用命令直接输入文字，在编写时使用【saystring】语句。6.例如输入”你好“，在按键精灵中输入【saystring "...

按键精灵怎么读取txt文本的内容,并以间隔1秒为单位”逐字”输入到某处...答：//下面这句是读出文本("C:\Config.txt")的内容到变量(Text)Text = Plugin.File.ReadFileEx("C:\1.txt")MyArray = Split(Text, "|")If UBound(MyArray)>=0 Then For i = 0 To UBound(MyArray)-1 长度=len(MyArray(i))For ii=1 to 长度 SayString (mid(MyArray(i), ii, 1))D...

大家正在搜

按键精灵读取指定行文本内容按键精灵读取文本输入按键精灵读取文本内容按键精灵输入文本内容按键精灵怎么按顺序读取文本按键精灵逐行写入文本按键精灵自动输入文字按键精灵读取文本按键精灵读取复制内容