TC官方合作论坛

标题: 想实现加载完成后不需要点击开始按钮程序就自动运行，但是无法实现 [打印本页]

作者: sbmwl2010 时间: 2013-1-8 18:54
标题: 想实现加载完成后不需要点击开始按钮程序就自动运行，但是无法实现
空间自动登录WEBQQ
//默认空间
变量窗口句柄,图片序号,图片X坐标,图片Y坐标,dm,账号,密码
功能初始化()
辅助.注册插件("rc:dm.dll",真)
dm=com("dm.dmsoft")
dm.SetPath(辅助.获取资源路径("rc:"))
窗口句柄=窗口.找到窗口("自动登录WEBQQ")
账号=自动登录WEBQQ.读配置("账号")
密码=自动登录WEBQQ.读配置("密码")
线程.开启("自动登录WEBQQ.正式开始","")
功能结束
功能读配置(字段名)
      保存文件=系统.获取程序路径()&"param.ini"
      内容=辅助.读配置("配置",字段名,保存文件)
      如果(字符串.长度(内容)<=0)
  辅助.消息框("读取配置文件出错,请重新设置")
如果结束
      返回内容
功能结束
功能正式开始()
变量返回屏幕x坐标,返回屏幕y坐标
如果(网页.加载完成("浏览器0"))
图片序号= dm.FindPic(0,0,1440,900,"qq.bmp","102030",0.8,0,图片X坐标,图片Y坐标)
辅助.等待(200)
如果(图片X坐标>0)
  鼠标.移动(图片X坐标+10,图片Y坐标+10)
  辅助.等待(400)
  鼠标.左键单击(1)
  辅助.等待(800)
            循环(真)
            图片序号=图像.找图(0,0,1440,900,"rc:账号.bmp",000000,0.8,0,图片X坐标,图片Y坐标)
      辅助.等待(500)
如果(图片X坐标>0)
鼠标.移动(图片X坐标+70,图片Y坐标+10)
辅助.等待(200)
鼠标.左键单击(1)
辅助.等待(200)
                              跳出
如果结束
            循环结束
            键盘.按下(17)
            辅助.等待(100)
            键盘.按键(65,1)
            辅助.等待(100)
            键盘.弹起(17)
            辅助.等待(200)
  键盘.发送字符串(账号)
            辅助.等待(200)
            键盘.按键(9,1)
            辅助.等待(200)
  键盘.发送字符串(密码)
            辅助.等待(200)
            键盘.按键(9,1)
            辅助.等待(200)
            键盘.按键(13,1)
否则
  辅助.消息框("没有找到窗口")
如果结束
否则
辅助.消息框("未完成")
如果结束
功能结束
功能按钮0_点击()
//线程.开启("自动登录WEBQQ.正式开始","")
功能结束
空间结束

作者: 冷月无痕 时间: 2013-1-8 19:06
亲,你添加了窗口初始化事件了没?

作者: 964430272 时间: 2013-1-8 19:21
也可以用线程哦，亲~

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