|
|
马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
本帖最后由 qq911186371 于 2016-11-5 14:24 编辑
var dm,dm_ret,hwnd,hwnds
//开始按钮_点击操作
function start_click()
大漠注册()
var id = getprocesshandle("丹尼斯中原店管理系统 中原店")
closeprocess(id)
openprocess("D:\\TotappsDennis\\totappsrs.exe")
//----------------检测程序是否已经启动--------------//
while(true)
hwnd = dm.FindWindow("FNWNS370", "登录...")
if(hwnd > 0)
traceprint("同城系统登录父句柄为:"&hwnd)
break
end
end
//----------------获得登录程序父句柄--------------//
hwnds = dm.EnumWindow(hwnd,"","ComboBox",2+4+16)
traceprint("登录子句柄为:"&hwnds)
strsplit(hwnds, ",",hwnds)
traceprint(hwnds)
//----------------输入账号--------------//
var hwnd_username = dm.GetWindow(hwnds[1],1)
traceprint(hwnd_username)
dm_ret = dm.BindWindowEx(hwnd_username, "gdi2", "windows", "windows", "", 0)
sleep(200)
dm.MoveTo(2, 2)
dm.RightClick()
dm.KeyPress(65)
dm.KeyPress(8)
dm.SendString(hwnd_username, "017673")
**criptExit()
//----------------输入密码--------------//
var hwnd_password = dm.FindWindowEx(hwnd, "Edit", "")
traceprint("密码句柄为:"&hwnd_password)
dm_ret = dm.BindWindowEx(hwnd_password,"gdi2", "windows", "windows", "", 0)
sleep(200)
dm.MoveTo(2,2)
dm.RightClick()
dm.KeyPress(65)
dm.KeyPress(8)
dm.SendString(hwnd_password,"793146")
**criptExit()
//----------------输入服务器--------------//
var hwnd_fwq = dm.GetWindow(hwnds[0],1)
traceprint("服务器句柄为:"&hwnd_fwq)
dm_ret = dm.BindWindowEx(hwnd_fwq,"gdi2", "windows", "windows", "", 0)
sleep(200)
dm.MoveTo(2,2)
dm.RightClick()
dm.KeyPress(65)
dm.KeyPress(8)
dm.SendString(hwnd_fwq,"1003 中原店")
**criptExit()
//----------------开始登录--------------//
var hwnd_login = dm.GetWindow(hwnd_password,5)
dm_ret = dm.BindWindowEx(hwnd_login,"gdi2","windows", "windows", "", 0)
sleep(200)
dm.MoveTo(2.2)
dm.LeftClick()
**criptExit()
下面的代码省略
运行到最后一段代码登录的 TC就显示
TC脚本运行一切正常 就是脚本运行到结束一直显示未响应
|
-
|
/2 
发表于 2016-11-5 14:21:56
