继续教育网按键精灵源码

If a - aa > 60000 Then
aa = a
randomize
MoveTo int(Rnd*1366),int(Rnd*768)
End If
End if
Call FindPic(0,0,1365,767,"Attachment:\q.bmp",0.9,x,y)
Delay 100
LeftClick 1
KeyPress "Right", 1
SayString m(2)'"134034"
Delay 100
Goto xunzhao3
Else
MoveTo 1360,286'1060, 190'下边的密码输入框
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
Call Plugin.Media.Play("C:\Users\Administrator\Desktop\梨花又开放.mp3")
End If
Call FindPic(0,0,1365,767,"Attachment:\100.bmp",0.9,x,y)
Goto xunzhao1
Else
goto xuexi
End If
Rem xunzhao1
Call FindPic(0, 0, 1365, 767, "Attachment:\yonghuming1.bmp", 0.9, x, y)
If x>=0 and y>=0 Then
MoveTo x+60,y'1055, 690''上边的帐号输入框
MoveTo x, y
Delay 500
LeftClick 1
Delay 500
End If
Goto xuexi
'Rem 等待
'key=WaitKey()
//<>=====================可以提前启动程序，直到按回车键即可“离开”
'If key=13 Then
' Goto 离开
'End If
'Goto 等待
'Rem 离开
'以上代码将只运行一次
IsFile = Plugin.File.IsFileExist(".\Log.txt")
Delay 100
LeftClick 1
Delay 100
End If
Call FindPic(0,0,1365,767,"Attachment:\gg1.bmp",0.9,x,y)
If x>=0 and y>=0 Then
MoveTo x, y
Delay 100
If x>=0 and y>=0 Then
MoveTo x, y
Delay 500
LeftClick 1
Delay 500
End If
Call FindPic(0,0,1365,767,"Attachment:\bofang.bmp",0.9,x,y)
If x>=0 and y>=0 Then
'Call Plugin.Web.HtmlClick("id:btnSubmit")
'Sub OnScriptExit()
'Call Plugin.Web.Tips("登录成功了！")
'MessageBox "脚本已经停止！"
'End Sub
'MsgBox "网页打开后请按回车键！"
End If
Goto xunzhao2
Rem xunzhao3
Call FindPic(0,0,1365,767,"Attachment:\denglu.bmp",0.9,x,y)
If x>=0 and y>=0 Then
MoveTo x,y'下边的登录按钮
Delay 100
LeftClick 1
MoveTo x, y
Delay 500
LeftClick 1
Delay 500
End if
Call FindPic(0,0,1365,767,"Attachment:\start.bmp",0.9,x,y)
If x>=0 and y>=0 Then
MoveTo x, y
Goto xuexi
End if
Goto xunzhao3'以上代码将只运行一次
Rem xuexi'以下代码将重复运行
Call FindPic(0,0,1365,767,"Attachment:\bz.bmp",0.9,x,y)
If x>=0 and y>=0 Then
a = Plugin.Sys.GetTime()
'PutAttachment "c:\", "*.bmp"
'Call Plugin.Web.HtmlInput("410522197604185813","id:txtUserName")
'Call Plugin.Web.HtmlInput("7604185813","idick 1
Delay 100
End If
Call FindPic(0,0,1365,767,"Attachment:\gb3.bmp",0.9,x,y)
If x>=0 and y>=0 Then
MoveTo x, y
Delay 100
LeftClick 1
Call FindPic(0,0,1365,767,"Attachment:\gg1.bmp",0.9,x,y)
If x>=0 and y>=0 Then
MoveTo x, y
Delay 100
LeftClick 1
Delay 100
End If
Call FindPic(0,0,1365,767,"Attachment:\laba.bmp",0.9,x,y)
If x>=0 and y>=0 Then
Call Plugin.Media.Stop()
End If
Call FindPic(0,0,1365,767,"Attachment:\gb1.bmp",0.9,x,y)
If x>=0 and y>=0 Then
MoveTo x, y
End If
Goto xunzhao1
Rem xunzhao2
Call FindPic(0, 0, 1365, 767, "Attachment:\mima1.bmp", 0.9, x, y)
If x>=0 and y>=0 Then
MoveTo x+60,y'1360, 456'右边的下滚动条
Call Plugin.Window.Max(Hwnd)
//推荐用以下代码（你的IE路径用右键打开属性，查看，一般都C盘。所以有通用性）
//RunApp "你的IE路径"
//delay 2000
//Hwnd = Plugin.Window.Foreground()
//delay 200
//Call Plugin.Window.Max(Hwnd)
'PID=Plugin.Web.Bind("wqm.exe")
'Call Plugin.Web.Go("/")
'RunApp "C:\Program Files (x86)\Internet Explorer\iexplore.exe"
//将附件中所有后缀是bmp的文件释放到c盘 ，很有用处的
If x>=0 and y>=0 Then
MoveTo x, y
Delay 500
LeftClick 1
Delay 500
End if
Call FindPic(0,0,1365,767,"Attachment:\qd.bmp",0.9,x,y)
If x>=0 and y>=0 Then
Goto xuexi
'EndScript'强制退出
End If
Else
msgbox "没有发现写有帐号和密码的文本文件！将直接监控学习界面！"
Goto xuexi
End If
RunApp ""
Delay 3000
hwnd=Plugin.Window.Foreground
Delay 100
LeftClick 1
Delay 100
End If
Call FindPic(0,0,1365,767,"Attachment:\gb2.bmp",0.9,x,y)