按键精灵PC端脚本

Posted 2021-03-21 longxinyv

定义变量的时候不需要定义类型 ，由于是易语言，变量名可以是中文

文本路径 = "C:UsersAdministratorDesktop1.txt"//改成自己的文本路径

Text = Plugin.File.ReadFileEx(文本路径)

MyArray = Split(Text, "|")//以行为单位分拆，已数组形式存放 

//RunApp "电脑的文件路径"   如下面的打开浏览器
call RunApp ("C:UsersAdministratorDesktop2345加速浏览器.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:UsersAdministratorDesktop2345加速浏览器.lnk"

End If

Next

End If

---------------------------------

Text1 = Plugin.File.ReadFileEx("C:UsersAdministratorDesktop1.txt")
Text2 = Plugin.File.ReadFileEx("C:UsersAdministratorDesktop2.txt")

MyArray1 = Split(Text1, "|")//以行为单位分拆
MyArray2 = Split(Text2, "|")//以行为单位分拆

//RunApp "电脑的文件路径"
call RunApp ("C:UsersAdministratorAppDataLocalGoogleChromeApplicationchrome.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