東川印記

一本東川，笑看爭龍斗虎；寰茫兦者，度橫佰昧人生。
senRsl

按键精灵01

2014年6月4日星期三



按键精灵
 桌面版  安卓版

关键字
    
 关键字 意义 关键字 意义 关键字 意义
Const 常数 Sub 子程序 Me 我 
Dim  定义变量 Function 函数 Private 私有
As为 Do 开始循环 Public 公共
Mod 取模 Loop 循环 Set 赋值
And 并且 Until 到...为止 Goto 跳转
Or 或者 While 当 EndScript 结束脚本
Not 非 Wend 循环结束 IfColor 判断颜色
If如果 EndWhile 循环结束 UserVar 自定义变量
Then 那么 Next 循环结束 Import 导入
Else 否则 EndFor 循环结束 VBSBegin VBS块开始
Stop 停止 Let 让 VBSEnd VBS块结束
End 结束 Call 调用 DimEnv 定义环境变量
Exit退出 Rem 标记 Erase 初始化数组
Select 选择 Integer 整数 Randomize 初始化随机
Case 条件 Long长整数 ReDim 重新定义
Is 是 Single 单精度 Return 返回
For 循环 Double双精度 Each 每个
To 到 Boolean 布尔 Class 类
Step 步长 String 字符串 True 真
Byref 传址 New 创建 False 假
Byval 传值 Plugin 插件 Lib 库
*如果在按键精灵中命名时，名字与上表列出的关键字相同，在调试或运行时会提示标识符或符号错误。


突然发现用这个做QQ自动打招呼啊，微信自动打招呼啊什么的太简单了。。。。
从0基础到做完花了不到半天。。。。

代码
  1. Delay 2000
  2. Dim logonName,logonPwd,send_context
  3. Call readCustomConfig()
  4. Delay 3000
  5. KeyPress "Home"
  6. Delay 1000
  7. //base params
  8. Dim screenX,screenY,deviceID,colorDep,shijian
  9. screenX = GetScreenX()
  10. screenY = GetScreenY()
  11. colorDep = GetScreenColorDep()
  12. deviceID = GetDeviceID()
  13. shijian=Now()
  14. ShowMessage "手机分辨率是："&screenX&"*"&screenY&Chr(10)&"手机色深是："&colorDep&"位"&Chr(10)&"手机IMEI号是："&deviceID&Chr(10)&"当前时间是是："&shijian
  15. Delay 3000
  16. //app start
  17. RunApp "com.tencent.qqlite"
  18. Delay 2000
  19. //input id&pwd
  20. //假设为自动登录
  21. //非自动登陆情况
  22. //变量intX, intY需要预先定义。如果您还没有定义该变量，请取消下面一行的注释
  23. Dim intX, intY,intListX,intListY,intBackY
  24. FindPic 0, 0, screenX, screenY, "Attachment:logon_position_1.png", 0, 0.9, intX, intY
  25. //FindColor 0, 0, 0, 0, "FFFFFF", 3, 0.9, intX, intY
  26. ShowMessage "寻找输入帐号结果："&intX&"y："&intY
  27. Delay 1000
  28. //如果没有找到，intX和intY的值都会被置为-1
  29. If intX > 0 And intY > 0 Then
  30.     ShowMessage "找到帐号位置："&intX&intY
  31.     Touch intX,intY+45,1000
  32.     InputText logonName
  33.     //InputText "2592483463"
  34.    
  35.     //FindPic 0, 0, screenX, screenY, "Attachment:logon_position_1.png", 0, 0.9, intX, intY
  36.     Delay 1000
  37.     //If intX > 0 And intY > 0 Then
  38.     Touch intX,intY+100,1000
  39.     //InputText "whds2014,"
  40.     InputText logonPwd
  41.     Delay 2000
  42.    
  43.     FindPic 0, 0, screenX, screenY, "Attachment:logon_position_3.png", 0, 0.9, intX, intY
  44.     Touch intX,intY,1000
  45.     Delay 2000
  46.     ShowMessage "登陆已执行"
  47. Else
  48.     ShowMessage "没有找到输入帐号位置"
  49. End If
  50. //第一次登陆导入通讯录关闭
  51. FindPic 0, 0, screenX, screenY, "Attachment:logon_init_close.png", 0, 0.9, intX, intY
  52. Delay 1000
  53. //如果没有找到，intX和intY的值都会被置为-1
  54. If intX > 0 And intY > 0 Then
  55.    
  56.     Touch intX,intY,1000
  57.     Delay 2000
  58.     ShowMessage "关闭通讯录页"
  59. Else
  60.     ShowMessage "无需关闭通讯录页"
  61. End If
  62. FindPic 0, 0, screenX, screenY, "Attachment:main_01.png", 2, 0.9, intX, intY
  63. Delay 2000
  64. //如果没有找到，intX和intY的值都会被置为-1
  65. If intX > 0 And intY > 0 Then
  66.     Touch intX,intY,1000
  67.     Delay 2000
  68.     ShowMessage "点击设置"
  69. Else
  70.     ShowMessage "未找到设置按钮"
  71. End If
  72. Sub clickNearUsrModel()
  73.     FindPic 0, 0, screenX, screenY, "Attachment:main_02.png", 1, 0.9, intX, intY
  74.     Delay 2000
  75.     //如果没有找到，intX和intY的值都会被置为-1
  76.     If intX > 0 And intY > 0 Then
  77.         Touch intX,intY,1000
  78.         Delay 2000
  79.         ShowMessage "点击附近的人"
  80.     Else
  81.         ShowMessage "未找到附近的人模块"
  82.     End If
  83. End Sub
  84. Call clickNearUsrModel()
  85. Call getListBackY()
  86. Do While true
  87.     Call auto_hi()
  88. Loop
  89. Sub clickNearUsr()
  90.     FindPic 0, 0, screenX, screenY, "Attachment:near_usr_m.png", 0, 0.9, intListX, intListY
  91.     Delay 1000
  92.     //如果没有找到，intX和intY的值都会被置为-1
  93.     If intListX > 0 And intListY > 0 Then
  94.         Touch intListX,intListY,1000
  95.         Delay 1000
  96.         ShowMessage "点开一个用户"
  97.        
  98.     Else
  99.         ShowMessage "未找到附近用户"
  100.     End If
  101. End Sub
  102. Sub near_usr_send_click()
  103.     FindPic 0, 0, screenX, screenY, "Attachment:near_usr_send.png", 2, 0.9, intX, intY
  104.     Delay 1000
  105.     //如果没有找到，intX和intY的值都会被置为-1
  106.     If intX > 0 And intY > 0 Then
  107.         Touch intX,intY,1000
  108.         Delay 1000
  109.         ShowMessage "点开一个用户的对话"
  110.     Else
  111.         ShowMessage "未找到附近用户的对话按钮"
  112.     End If
  113. End Sub
  114. Sub near_usr_send_input()
  115.     FindPic 0, 0, screenX, screenY, "Attachment:near_usr_send_input.png", 3, 0.9, intX, intY
  116.     Delay 1000
  117.     //如果没有找到，intX和intY的值都会被置为-1
  118.     If intX > 0 And intY > 0 Then
  119.         Touch intX+10,intY+10,1000
  120.         Delay 1000
  121.         ShowMessage "输入对话内容"
  122.         //InputText "你好。。"
  123.         InputText send_context
  124.         Call sendMsg()
  125.     Else
  126.         ShowMessage "未找到输入对话内容框"
  127.     End If
  128. End Sub
  129. Sub sendMsg()
  130.     FindPic 0, 0, screenX, screenY, "Attachment:near_usr_send_msg.png", 2, 0.9, intX, intY
  131.     Delay 1000
  132.     //如果没有找到，intX和intY的值都会被置为-1
  133.     If intX > 0 And intY > 0 Then
  134.         Touch intX,intY,1000
  135.         Delay 1000
  136.         ShowMessage "向附近人发送信息"
  137.        
  138.         Call back()
  139.         Call back()
  140.         //Call auto_hi()
  141.     Else
  142.         ShowMessage "未找到发送信息按钮"
  143.     End If
  144. End Sub
  145. Sub back()
  146.     FindPic 0, 0, screenX, screenY, "Attachment:back_01.png", 0, 0.9, intX, intY
  147.     Delay 1000
  148.     //如果没有找到，intX和intY的值都会被置为-1
  149.     If intX > 0 And intY > 0 Then
  150.         Touch intX,intY,1000
  151.         Delay 1000
  152.         ShowMessage "返回"
  153.     Else
  154.         ShowMessage "未找到返回按钮"
  155.     End If
  156. End Sub
  157. Sub getListBackY()
  158.     FindPic 0, 0, screenX, screenY, "Attachment:back_01.png", 0, 0.9, intX, intBackY
  159.     Delay 1000
  160.     //如果没有找到，intX和intY的值都会被置为-1
  161.     If intX > 0 And intBackY > 0 Then
  162.         ShowMessage "存储backY"
  163.     Else
  164.         ShowMessage "未找到BackY"
  165.     End If
  166. End Sub
  167. Sub haveLoadMore()
  168.     FindPic 0, 0, screenX, screenY, "Attachment:near_usr_load_more.png", 3, 0.9, intX, intY
  169.     Delay 1000
  170.     //如果没有找到，intX和intY的值都会被置为-1
  171.     If intX > 0 And intY > 0 Then
  172.         Touch intX,intY,1000
  173.         ShowMessage "点击加载更多"
  174.     Else
  175.         ShowMessage "没有加载更多"
  176.     End If
  177. End Sub
  178. Sub auto_hi()
  179.     Swipe intListX,intListY,intListX,intBackY
  180.     ShowMessage "滑动坐标"
  181.     Call haveLoadMore()
  182.     Call clickNearUsr()
  183.     Call near_usr_send_click()
  184.     Call near_usr_send_input()
  185. End Sub
  186. //界面
  187. Sub readCustomConfig()
  188.     logonName = ReadUIConfig("logonName","2592483463")
  189.     logonPwd = ReadUIConfig("logonPwd","whds2014,")
  190.     send_context = ReadUIConfig("send_context","你好")
  191.     ShowMessage "初始数据设置\n\t帐号:"&logonName&"\n\t密码："&logonPwd&"\n\t打招呼内容"&send_context
  192. End sub
界面

  1. 界面1:
  2. {
  3.     水平布局:
  4.     {
  5.         注释:"用于将多个控件放在同一行",
  6.         文字框:
  7.         {
  8.             注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
  9.             名称:"文字框1",
  10.             显示内容:"QQ帐号：",
  11.             文字大小:0,
  12.             高度:0,
  13.             宽度:0
  14.         },   
  15.         输入框:
  16.         {
  17.             注释:"文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
  18.             名称:"logonName",
  19.             提示内容:"自动输入的QQ号",
  20.             仅输入数字:true,
  21.             文字大小:0,
  22.             最大输入长度:0,
  23.             高度:0,
  24.             宽度:0
  25.         },   
  26.     },   
  27.     水平布局:
  28.     {
  29.         注释:"用于将多个控件放在同一行",
  30.         文字框:
  31.         {
  32.             注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
  33.             名称:"文字框1",
  34.             显示内容:"QQ密码：",
  35.             文字大小:0,
  36.             高度:0,
  37.             宽度:0
  38.         },   
  39.         输入框:
  40.         {
  41.             注释:"文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
  42.             名称:"logonPwd",
  43.             提示内容:"自动输入的QQ密码",
  44.             仅输入数字:false,
  45.             文字大小:0,
  46.             最大输入长度:0,
  47.             高度:0,
  48.             宽度:0
  49.         },   
  50.     },   
  51.     文字框:
  52.     {
  53.         注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
  54.         名称:"文字框1",
  55.         显示内容:"打招呼内容：",
  56.         文字大小:0,
  57.         高度:0,
  58.         宽度:0
  59.     },   
  60.     输入框:
  61.     {
  62.         注释:"文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性",
  63.         名称:"send_context",
  64.         提示内容:"你好",
  65.         仅输入数字:false,
  66.         文字大小:0,
  67.         最大输入长度:0,
  68.         高度:0,
  69.         宽度:0
  70.     },   
  71.    
  72.    
  73.    
  74.    
  75.    
  76.    
  77.    
  78. }
脚本+界面，导出。


--
senRsl
2014年6月4日


senRsl 18:37:00

没有评论 :

发表评论

订阅： 博文评论 ( Atom )