帮忙把按键精灵命令转换成TC命令,拜托了,万分感谢

zh249883717

//号码
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.命令与精灵有出入,还不会.请各位大神帮忙转换下.只要转换一下命令格式就可以了,拜托了.只要主要的几个语句.

rainshine

qq1472750668 加我 我可以帮你写。

zh249883717

rainshine 发表于 2013-12-14 21:03
qq1472750668 加我 我可以帮你写。

谢谢大神,太感谢了.

wgzht2003

支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持