|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 zh249883717 于 2013-12-14 20:37 编辑
//号码
Dim SFZH
SFZH = Form1.SFZHBox1.Text
//密码
Dim MM
MM = Form1.MMBox2.Text
//循环时间定义变量
Dim time
time = 0
//===========================================================================
BBHM = "0.38"
返回值 = Lib.网络.获得网页源文件("???")
Delay 2000
BBH = InStr(返回值, "【版本】")
If BBH = 0 Then //(1)
msgbox "无法连接服务器,自动跳过", 64, "友情提示"
版本 = mid(返回值, BBH + 4, 4)
//===========================================================================
Rem 开始
//设置桌面分辨率为1024*768
//获得屏幕分辨率宽度
ScreenX = Plugin.Sys.GetScRX()
//获得屏幕分辨率高度
ScreenY = Plugin.Sys.GetScRY()
//获得屏幕色深度(颜色质量)
Dev = Plugin.Sys.GetScDep()
If ScreenX<>1024 or ScreenY<>768 Then//(1)
MessageBox "因您的屏幕分辨率不符合要求,系统自动将您的屏幕分辨率设置为:1024 x 768 "
Call Plugin.Sys.SetSc(1024,768,32)
msgbox "请按ESC,恢复您的屏幕分辨率", 64 , "友情提示"
ESC = GetLastKey()
if ESC="27"//(2)
Call Plugin.Sys.SetSc(ScreenX, ScreenY, Dev)
msgbox "屏幕分辨率改回来" , 64 , "友情提示"
End If//(2)
End If//(1)
//===========================================================================
Delay 2000
//Find 查找窗口
Call RunApp("iexplore.exe")
Delay 1500
//下面这句是查找窗口类名("IEFrame")或者标题(0),返回找到的句柄Hwnd
//IE打开窗口句柄
Hwnd = Plugin.Window.Find("IEFrame", 0)
//0表示忽略
//Hwnd1 = Plugin.Window.Foreground()
//Hwnd2 = Plugin.Window.GetKeyFocusWnd()
Hwnd2 = Plugin.Window.FindEx(Hwnd, 0, "WorkerW", 0)
Hwnd2 = Plugin.Window.FindEx(Hwnd2, 0, "ReBarWindow32", 0)
Hwnd2 = Plugin.Window.FindEx(Hwnd2, 0, "Address Band Root", 0)
Hwnd2 = Plugin.Window.FindEx(Hwnd2, 0, "Edit", 0)
//得到鼠标所在窗口的句柄,所以运行按键精灵先,先用鼠标点击一下窗口
//Hwnd3 = Plugin.Window.MousePoint()
//Hwnd=Hwnd1=Hwnd3<>Hwnd2
//IsWindow 判断窗口
//下面这句是判断窗口是否打开
Window1 = Plugin.Window.IsWindow(Hwnd)
If Window1 = 1 Then //(1)
//后台命令
//下面这句是最大化窗口
Call Plugin.Window.Max(Hwnd)
//输入网址
Delay 3000
Call Plugin.Bkgnd.SendString(Hwnd2, "???")
//打开网页
Call Plugin.Bkgnd.KeyPress(Hwnd2, 13)
Delay 2000
msgbox "请确认地址栏是否输入网址,等待网页完全打开后点确定,如发现问题后按F12停止在按F9重试" , 64 , "友情提示"
//获取当前网页窗口句柄
Hwnd1 = Plugin.Window.FindEx(Hwnd, 0, "Frame Tab", 0)
Hwnd1 = Plugin.Window.FindEx(Hwnd1, 0, "TabWindowClass", 0)
Hwnd1 = Plugin.Window.FindEx(Hwnd1, 0, "Shell DocObject View", 0)
Hwnd1 = Plugin.Window.FindEx(Hwnd1, 0, "Internet Explorer_Server", 0)
Delay 100
Call Plugin.msg.Tips("等待窗口自动调试.过程中请勿进行任何操作")
//判断网页登入界面是否标准
Delay 1000
FindPic 0, 0, 1024, 768, "Attachment:\登入验证.bmp", 1, intX, intY
If intX > 0 And intY > 0 Then //(2)
//当循环条件成立的时候,离开循环体
GOTO 找图
Else
//按下CTRL键
Delay 100
KeyDown "Ctrl", 1
//鼠标滚轮缩小10
Delay 100
MouseWheel - 10
//弹起CTRL键
Delay 100
KeyUp "Ctrl", 1
//点击窗口左侧空白
Delay 100
MoveTo 36, 400
Delay 100
LeftClick 1
End If //(2)
Rem 登录
Delay 100
//移动到登录
Call Plugin.Bkgnd.LeftClick(Hwnd1, 871, 206)
//输入号码
//向后台窗口句柄(变量:Hwnd1)发送一个键盘(扫描码:Tab)按键
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd1, 9)
Call Plugin.Bkgnd.SendString(Hwnd1, SFZH)
//输入密码
//向后台窗口句柄(变量:Hwnd1)发送一个键盘(扫描码:Tab)按键
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd1, 9)
Call Plugin.Bkgnd.SendString(Hwnd1, MM)
Event Form1.HFButton1.Click
//恢复屏幕分辨率
Call Plugin.Sys.SetSc(ScreenX, ScreenY, Dev)
End Event
因为刚刚接触TC.命令与精灵有出入,还不会.请各位大神帮忙转换下.只要转换一下命令格式就可以了,拜托了.只要主要的几个语句. |
|