|
楼主 |
发表于 2016-12-27 23:55:25
|
显示全部楼层
- 变量 线程ID ,A,句柄=数组(),dm_ret=数组(),dm0=数组(),字符串=数组(),cmc=数组(),鼠标移动点击线程=数组(),dm1=数组(),dm
- 变量 自动登录线程=数组(),行号=数组() ,列号=数组(), a=数组(),b=数组(),输入字符串线程=数组()
- 功能 启动_热键()
- RegCom()
- 获取窗口句柄数组()
- 绑定才1()
- 遍历(变量 i = 0; i < A; i++)
- 输入字符串线程[i]=线程开启("输入账号",i)
- 调试输出(输入字符串线程)
- 结束
- 等待(5000)
- 结束
- 功能 终止_热键()
- 线程关闭(线程ID)
- 结束
- 功能 按钮0_点击()
- RegCom()
- 输入账号(a)
- 结束
- 功能 RegCom()
- 变量 AppPath
- 变量 regPath = 获取资源路径(AppPath&"com\\DmReg.dll")
- 变量 dmPath = 获取资源路径(AppPath&"com\\dm.dll")
- 变量 ret = 动态库调用(regPath,"int","SetDllPathA","char *",dmPath,"int",0)
- 变量 rdm = 插件("dm.dmsoft")
-
- 变量 reg_dm = rdm.Reg("assxassx1bf8502ca6550e1fd9153fb5b1ce1c51d","")
- 如果(reg_dm!=1)
- 调试输出("成功了"®_dm)
- 返回 假
- 否则
- 调试输出("单选框获取文本(单选框0)"®_dm)
- 返回 真
- 结束
- 结束
- 功能 获取窗口句柄数组()
- 变量 返回值,句柄2,句柄1
- 句柄 = 数组()
- dm=com("dm.dmsoft")
- dm=dm.EnumWindow(0,"新倩女幽魂","",1+4+8+16)
- 调试输出(dm&"|")
- A = 字符串分割(dm,",",句柄)
- 返回值 = A
- 调试输出(句柄)
- 遍历(变量 i = 0; i <A; i++)
-
- 调试输出(句柄[i])
- 结束
- 结束
- 功能 绑定才1()
- 遍历( 变量 i = 0; i < A; i++)
- dm0[i]=com("dm.dmsoft")
- dm_ret = dm0[i].BindWindowEx(句柄[i],"gdi","normal","windows","",0)
- 调试输出(dm_ret)
- 结束
- 结束
- 功能 输入字符串(下标)
- 调试输出(下标)
- // 遍历(变量 i = 0; i < A; i++)
- 等待(100)
- dm0[下标].KeyPressStr("123,456",20)
- 调试输出("输入成功")
- // 结束
- 结束
- 功能 测试1()
- 变量 句柄2,dm123
- dm123=com("dm.cmsoft")
- 句柄2=dm123.BindWindowEx(264490,"gdi","normal","windows","",0)
- dm.KeyPressStr("123,456",20)
- 结束
- 功能 鼠标移动单击(小晨晨)
- 遍历(变量 i = 0; i < A; i++)
- 窗口激活(句柄[i])
- dm0[i].MoveTo(364,402)
- dm0[i].LeftClick()
- 等待(2000)
- 结束
- 结束
- 功能 编辑框0_内容改变()
- //这里添加你要执行的代码
- 结束
- 功能 浏览框0_选择改变()
- 变量 文本,文本1
- 文本 = 浏览框获取文本("浏览框0")
- 调试输出(文本)
- 文本1=字符串替换(文本,"\","/")
- 调试输出(文本1)
- 变量 file = 文件读取内容(文本1),账号,账号个数
- 字符串分割(file,",",账号)
- 调试输出(账号)
- 账号个数 = 数组大小(账号)
- 调试输出(账号个数)
- 变量 位置=1 ,已写入=0
- 循环(已写入!=账号个数*2)
- 表格设置内容("表格0",位置,0,账号[已写入])
- 表格设置内容("表格0",位置,1,账号[已写入+1])
- 已写入=已写入+2
- 位置=位置+1
- 调试输出(已写入)
- 结束
- 结束
- 功能 获取账号数组()
- 遍历(变量 i = 0; i <A; i++)
- a[i] = 表格获取内容("表格0",i+1,0)
- b[i] = 表格获取内容("表格0",i+1,1)
- 结束
- 结束
- 功能 输入账号(上班)
- 调试输出(上班)
- dm0[上班]=com("dm.dmsoft")
- 遍历(变量 i = 0; i <A; i++)
- a[i] = 表格获取内容("表格0",i+1,0)
- b[i] = 表格获取内容("表格0",i+1,1)
- 结束
- dm0[上班].KeyPressStr(a[上班],50)
- 调试输出(dm0)
- 等待(500)
- dm0[上班].KeyDown(9)
- dm0[上班].KeyPressStr(b[上班],50)
- 调试输出(a[上班])
-
- 结束
复制代码 |
|