TC官方合作论坛

标题: 大神帮我看下脚本运行的时候TC为什么会显示未响应? [打印本页]

---

作者: qq911186371    时间: 2016-11-5 14:21
标题: 大神帮我看下脚本运行的时候TC为什么会显示未响应?


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脚本运行一切正常  就是脚本运行到结束一直显示未响应

DUFX6F5IW$X(FAGNWY$V9K7.png (23.25 KB, 下载次数: 5)

下载附件

2016-11-5 14:20 上传

---

作者: cjxdn    时间: 2016-11-5 14:42
按钮_点击里面的命令全部用线程开启

---

作者: 言术    时间: 2016-11-5 15:21
var dm,dm_ret,hwnd,hwnds
//开始按钮_点击操作
function start_click()
    线程开启("main","")
end

function main()
    大漠注册()  
    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()
    //下面的代码省略
end

---

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)

Powered by Discuz! X3.1