|
定义变量的时候不需要定义类型 ，由于是易语言，变量名可以是中文 文本路径 = 'C:\Users\Administrator\Desktop\1.txt'//改成自己的文本路径 Text = Plugin.File.ReadFileEx(文本路径) MyArray = Split(Text, '|')//以行为单位分拆，已数组形式存放
//RunApp '电脑的文件路径' 如下面的打开浏览器
call RunApp ('C:\Users\Administrator\Desktop\2345加速浏览器.lnk')
Delay 200
Hwnd = Plugin.Window.Foreground() //获得当前窗口的句柄
//Hwnd = Plugin.Window.MousePoint()//获得鼠标指向窗口句柄
delay 200
Call Plugin.Window.Max(Hwnd) //最大化窗口
Delay 200
Dim a //创建一个新变量
a = 0
//UBOUND 函数返回一个数组的最大下标
If UBound(MyArray)>=0 Then //then前面if的条件
For i=0 to UBound(MyArray)-1 //下面这句是得到文本内容 TracePrint '第 ' & i + 1 & ' 行文本内容为：' & Cstr(MyArray(i)) MoveTo 550,74//点击网页某个地方.自己获取坐标 Delay 10 LeftClick 1
Delay 1000 MoveTo 805,642 //弹出对话窗,输入框的坐标.自己获取 Delay 10 LeftClick 1 Delay 500
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1 SayString MyArray(i)//输入
Delay 500
KeyPress 9,2 Delay 10 KeyPress 13,1 Delay 1000
If i - a >= 20 Then
MoveTo 29,1056 //点击网页某个地方.自己获取坐标 Delay 10 LeftClick 1
Delay 1000
MoveTo 111,551//弹出对话窗,输入框的坐标.自己获取 Delay 10 LeftClick 1 Delay 1500
a = i
End If //结束if语句
//i Mod 80表示：i模80取余数（i%80=i/80的余数）
If i Mod 80 = 0 and i<>0 Then //i<>0 表示：i 不等于 0
Delay 5500000
Call Lib.系统.结束进程('2345Explorer.exe') //关闭所有关于这个的进程
Delay 3000
RunApp 'C:\Users\Administrator\Desktop\2345加速浏览器.lnk'
End If Next End If ---------------------------------
Text1 = Plugin.File.ReadFileEx('C:\Users\Administrator\Desktop\1.txt')
Text2 = Plugin.File.ReadFileEx('C:\Users\Administrator\Desktop\2.txt')
MyArray1 = Split(Text1, '|')//以行为单位分拆
MyArray2 = Split(Text2, '|')//以行为单位分拆
//RunApp '电脑的文件路径'
call RunApp ('C:\Users\Administrator\AppData\Local\Google\Chrome\Application\chrome.exe')
Delay 200
Hwnd = Plugin.Window.Foreground() //获得当前窗口的句柄
//Hwnd = Plugin.Window.MousePoint()//获得鼠标指向窗口句柄
delay 200
Call Plugin.Window.Max(Hwnd) //最大化窗口
Delay 200 For i = 0 To 19
KeyDown 17, 1
KeyPress 84, 1
KeyUp 17, 1
Delay 500
SayString MyArray1(i) & '/dadadadada'
KeyPress 'Enter', 1 Delay 4000
KeyPress 'Tab', 2 Delay 10
SayString'admin'//输入账号 Delay 500
KeyPress 'Tab', 1 Delay 500
SayString'ckxytea!@'//输入密码
//遇到waitkey暂停指令 需要任意按一下键盘 才继续执行
key = 0
Do Until key = 13 //循环必须找到 key=回车键 才继续执行
key = WaitKey()
Loop
KeyPress 'Enter', 1
Delay 8000
MoveTo 16,222//模块位置 自己获取
Delay 500
LeftClick 1
Delay 2000
KeyPress 9, 7
Delay 500
KeyDown 13, 1
Delay 3000
For i1 = 0 To 19
If i1 = i Then
i1=i+1
End If
MoveTo 1500,160 Delay 500
LeftClick 1
Delay 500
KeyPress 9, 1
Delay 500
KeyDown 13, 1
Delay 3000
KeyPress 9, 2
Delay 500
SayString 'http://'& MyArray1(i1)
Delay 500
KeyPress 9, 1
Delay 500
SayString MyArray2(i1)
Delay 500
KeyPress 9, 7
Delay 500
KeyPress 39, 1
Delay 500
KeyPress 13, 1
Delay 3000
Next
Next
|
