• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.5.3
软件大小:41.4M
更新时间:12-14

按键精灵iOS版
立即下载

软件版本:1.7.3
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[江中游] 【江中游插件分享】雷电模拟器全家桶支持免费分享 [复制链接]

1#

江中游插件5.0测试版


江中游插件5.0版本开始支持雷电模拟器:
雷电模拟器3.X
雷电模拟器4.X
雷电模拟器4.X 64位版
雷神模拟器
雷神模拟器64位版

本次放送为插件5.0测试版本,放送为免费命令且在5.0测试版本中
因为兼容命令要修改很多,也要为多线程测试,所以稳定版本将在本月内放送给内部会员。
如果只做一些简单的应用,那么我放送给大家的命令也够用了。



如有解压密码则是:1234
插件下载:
jzyvip.rar (, 下载次数:64)

源码打包:
COODE.rar (, 下载次数:43)

下面是源码,说明一下源码不是拿来就用的,一定要看的明白
  1. Global path'做一个全局变量来放资源文件的,如大漠插件
  2. Dimenv 全局句柄
  3. 全局句柄 = 0'全局不行时就要用环境变量,注意要清空
  4. Dim 模拟器类型
  5. 模拟器类型 = Form1.ComboBox1.Listindex
  6. path = Form1.Label5.Caption
  7. Call 启动模拟器(模拟器类型)
  8. Event Form1.Load
  9. Form1.ComboBox1.ListIndex = 0 '加载下拉框
  10. path = "c:\jzy\dm\"'建议放到其它盘符,因为很多人只有C盘所以我这里放到C盘,注意要把系统 优化好
  11. Form1.Label5.Caption = path'很多人说全局路径不好传送,因为界面是先加载的,启动是后加载的,所以脚本前定义什么变量也不容易传送,这里使用标签方式就行了
  12. PutAttachment ".\plugin", "jzyvip.dll"'因为我的插件是第三方插件,所以有可能商业版本不被释放,如果不能释放那么就改一下扩展名,就目前按键版本而言,释放是没问题的
  13. Plugin.jzyvip.CreateFolder path'本命令未做收费
  14. If Plugin.JzyVIP.JzyReg() >= 1 Then
  15. Form1.Label2.Caption = "江中游插件注册成功"
  16. Else
  17. Form1.Label2.Caption = "江中游插件注册失败"
  18. EndScript
  19. End If
  20. 大漠 = 大漠插件注册(path)
  21. If 大漠 = 1 Then
  22. Form1.Label2.Caption = Form1.Label2.Caption & ";大漠成功"
  23. Else
  24. Form1.Label2.Caption = Form1.Label2.Caption & ";大漠还是有点问题"
  25. End If
  26. Call 判断加载雷电模拟器()
  27. Call 模拟器信息()
  28. End Event
  29. Function 大漠插件注册(path)
  30. PutAttachment path, "dm.dll"'大漠插件
  31. PutAttachment path, "DmReg.dll"'大漠插件
  32. TracePrint Plugin.jzyvip.DmRegEx("C:\jzy\dm\DmReg.dll", "SetDllPathA", path & "dm.dll", 0)
  33. Set dm = createobject("dm.dmsoft")
  34. TracePrint dm.ver()
  35. 收费注册 = dm.reg("jiangzhongyou2bf8e2c90078b4b698f33db62cbc09fb", "0001")
  36. If 收费注册 = 1 Then
  37. 大漠插件注册 = 1
  38. Else
  39. 大漠插件注册=0
  40. End If
  41. End Function
  42. Event Form1.ComboBox1.SelectChange
  43. Call 判断加载雷电模拟器()
  44. Call 模拟器信息()
  45. End Event
  46. Function 判断加载雷电模拟器()
  47. 模拟器类型数组 = split(Form1.ComboBox1.List,"|")
  48. Form1.Label4.Caption = 模拟器类型数组(Form1.ComboBox1.Listindex)
  49. If Form1.Label4.Caption = "雷电3" Then
  50. If Plugin.JzyVIP.LoadPathMEx(0, 3) = 1 Then
  51. Form1.Label8.Caption = Form1.Label4.Caption & "模拟器加载成功"
  52. End If
  53. ElseIf Form1.Label4.Caption = "雷电4" Then
  54. If Plugin.JzyVIP.LoadPathMEx(0, 4) = 1 Then
  55. Form1.Label8.Caption = Form1.Label4.Caption & "模拟器加载成功"
  56. End If
  57. ElseIf Form1.Label4.Caption = "雷电4-64位" Then
  58. If Plugin.JzyVIP.LoadPathMEx(0, 5) = 1 Then
  59. Form1.Label8.Caption = Form1.Label4.Caption & "模拟器加载成功"
  60. End If
  61. ElseIf Form1.Label4.Caption = "雷神" Then
  62. If Plugin.JzyVIP.LoadPathMEx(0, 6) = 1 Then
  63. Form1.Label8.Caption = Form1.Label4.Caption & "模拟器加载成功"
  64. End If
  65. ElseIf Form1.Label4.Caption = "雷神-64位" Then
  66. If Plugin.JzyVIP.LoadPathMEx(0, 7) = 1 Then
  67. Form1.Label8.Caption = Form1.Label4.Caption & "模拟器加载成功"
  68. End If
  69. End If
  70. End Function
  71. Function 启动模拟器(模拟器类型)
  72. If 模拟器类型 = 0 Then '雷电3
  73. Call 启动()
  74. ElseIf 模拟器类型 = 1 Then'雷电4
  75. Call 启动()
  76. ElseIf 模拟器类型 = 2 Then'雷电4-64
  77. Call 启动()
  78. ElseIf 模拟器类型 = 3 Then'雷神
  79. Call 启动()
  80. ElseIf 模拟器类型 = 4 Then'雷神-64
  81. Call 启动()
  82. End If
  83. BeginThread 监视线程
  84. End Function
  85. Function 监视线程()
  86. Dim 索引数组, 独立模拟器信息, arr, 窗口数组
  87. Dim 逻辑,i'如果i不声明为子程序变量那么会跟随调用其它子程序中的变量而变化*****
  88. 索引数组 = 表格取模拟器类别数组(0)'0列为索引,1列为标题,2列为顶级窗口句柄,3列为可绑定窗口句柄
  89. Do
  90. 逻辑=False
  91. For i = 0 To ubound(索引数组)
  92. // TracePrint 索引数组(i)
  93. 独立模拟器信息 = Plugin.jzyvip.IsAndroidExM(索引数组(i), 1000)'是否进入安卓系统
  94. TracePrint "i:"&i
  95. TracePrint 独立模拟器信息
  96. arr = split(独立模拟器信息, ",")'分割为数组
  97. If arr(4) = 1 Then '这个是判断是否进入到安卓系统
  98. TracePrint arr(3)'可绑定窗口句柄
  99. 窗口数组 = 表格取模拟器类别数组(0)'0列为索引,1列为标题,2列为顶级窗口句柄,3列为可绑定窗口句柄
  100. TracePrint "i:"&i
  101. For ii = 0 To UBound(窗口数组)'遍历表格中的窗口句柄数组与即时取回的窗口句柄对比,如果一致代表线程已经启动,否则就要启动线程
  102. If 窗口数组(ii) = arr(3) Then
  103. 逻辑 = True
  104. Exit For
  105. End If
  106. Next
  107. If 逻辑 = False Then '如果表格中没有这个窗口句柄那么就要启动线程
  108. 全局句柄 = arr(3)
  109. TracePrint arr(3)
  110. BeginThread 多线程
  111. Delay 200
  112. End If
  113. End If
  114. TracePrint ubound(索引数组)
  115. TracePrint "i:---"&i
  116. Call 写表格(索引数组(i),独立模拟器信息)
  117. Next
  118. Loop
  119. End Function
  120. Function 启动()
  121. Dim 索引数组,独立模拟器信息,i
  122. 索引数组 = 表格取模拟器类别数组(0)'0列为索引,1列为标题,2列为顶级窗口句柄,3列为可绑定窗口句柄
  123. For i = 0 To ubound(索引数组)
  124. // TracePrint 索引数组(i)
  125. 独立模拟器信息 = Plugin.jzyvip.StartIndexM(索引数组(i), 1000)
  126. // TracePrint 独立模拟器信息
  127. 'Call 写表格(索引数组(i),独立模拟器信息)
  128. Next
  129. End Function
  130. Function 表格取模拟器类别数组(列)
  131. Dim temp, index,i
  132. For i = 0 To 10
  133. index = Form1.Grid1.GetItemText(i + 1, 列)
  134. If index = "" Then
  135. Exit For
  136. End If
  137. temp = temp & index & ","
  138. Next
  139. temp = left(temp, len(temp) - 1)
  140. 表格取模拟器类别数组=split(temp,",")'返回数组
  141. End Function
  142. Function 模拟器信息()
  143. Dim 全部模拟器, 独立模拟器数组, arr,i
  144. Form1.Grid1.DeleteAllItems '先清空列表
  145. 全部模拟器 = Plugin.JzyVIP.GetAllM()
  146. TracePrint 全部模拟器
  147. arr = split(全部模拟器, "|")
  148. For i = 0 To UBound(arr)
  149. // Form1.Grid1.InsertRow i + 1
  150. 独立模拟器数组 = split(arr(i), ",")
  151. For ii = 0 To UBound(独立模拟器数组)
  152. Form1.Grid1.SetItemText i+1, ii, 独立模拟器数组(ii)'索引
  153. Next
  154. Next
  155. End Function
  156. Function 写表格(索引,info)'
  157. Dim 独立模拟器数组
  158. TracePrint info
  159. TracePrint 索引
  160. 独立模拟器数组 = split(info, ",")
  161. For i = 0 To 10
  162. index = Form1.Grid1.GetItemText(i + 1, 0)
  163. TracePrint index
  164. If clng(index) = clng(索引) Then
  165. Form1.Grid1.SetItemText i + 1, 2, 独立模拟器数组(2)
  166. Form1.Grid1.SetItemText i + 1, 3, 独立模拟器数组(3)
  167. Form1.Grid1.SetItemText i + 1, 4, 独立模拟器数组(4)
  168. Form1.Grid1.SetItemText i + 1, 5, 独立模拟器数组(5)
  169. Form1.Grid1.SetItemText i + 1, 6, 独立模拟器数组(6)
  170. Delay 500
  171. Exit For
  172. End If
  173. Next
  174. End Function
  175. Event Form1.Button1.Click'关闭全部
  176. Dim 索引数组
  177. 索引数组=表格取模拟器类别数组(0)'0列为索引,1列为标题,2列为顶级窗口句柄,3列为可绑定窗口句柄
  178. For i = 0 To ubound(索引数组)
  179. Plugin.JzyVIP.CloseIndexM 索引数组(i)
  180. Next
  181. End Event
  182. Function 多线程()
  183. Dim Hwnd
  184. Hwnd = 全局句柄
  185. TracePrint "多线程已经启动,窗口句柄为:"&Hwnd
  186. End Function
复制代码

最后编辑江中游 最后编辑于 2022-01-08 21:05:08
2#

坐个沙发

3#

厉害了

amp;noupdate=yes" border="0" alt="" />
4#

老师牛牛牛

5#

活了大半辈子,终于抢到一会沙发了

6#

该用户帖子内容已被屏蔽

发新话题 回复该主题