|
- 按键认证导师
- 374328
- 1577
- 42
- 3800 朵
- 4196 个
- 1116 个
- 104560
- 2010-03-19
|
1#
t
T
发表于 2022-01-08 15:00
|
|只看楼主
江中游插件5.0测试版 江中游插件5.0版本开始支持雷电模拟器：
雷电模拟器3.X
雷电模拟器4.X
雷电模拟器4.X 64位版
雷神模拟器
雷神模拟器64位版
本次放送为插件5.0测试版本，放送为免费命令且在5.0测试版本中
因为兼容命令要修改很多，也要为多线程测试，所以稳定版本将在本月内放送给内部会员。
如果只做一些简单的应用，那么我放送给大家的命令也够用了。
 
如有解压密码则是：1234
插件下载：  - jzyvip.rar (, 下载次数:774)
源码打包：
- COODE.rar (, 下载次数:591)
下面是源码，说明一下源码不是拿来就用的，一定要看的明白- Global path'做一个全局变量来放资源文件的，如大漠插件
- Dimenv 全局句柄
- 全局句柄 = 0'全局不行时就要用环境变量，注意要清空
- Dim 模拟器类型
- 模拟器类型 = Form1.ComboBox1.Listindex
- path = Form1.Label5.Caption
- Call 启动模拟器(模拟器类型)
- Event Form1.Load
- Form1.ComboBox1.ListIndex = 0 '加载下拉框
- path = "c:\jzy\dm\"'建议放到其它盘符，因为很多人只有C盘所以我这里放到C盘，注意要把系统 优化好
- Form1.Label5.Caption = path'很多人说全局路径不好传送，因为界面是先加载的，启动是后加载的，所以脚本前定义什么变量也不容易传送，这里使用标签方式就行了
- PutAttachment ".\plugin", "jzyvip.dll"'因为我的插件是第三方插件，所以有可能商业版本不被释放，如果不能释放那么就改一下扩展名，就目前按键版本而言，释放是没问题的
- Plugin.jzyvip.CreateFolder path'本命令未做收费
- If Plugin.JzyVIP.JzyReg() >= 1 Then
- Form1.Label2.Caption = "江中游插件注册成功"
- Else
- Form1.Label2.Caption = "江中游插件注册失败"
- EndScript
- End If
- 大漠 = 大漠插件注册(path)
- If 大漠 = 1 Then
- Form1.Label2.Caption = Form1.Label2.Caption & "；大漠成功"
- Else
- Form1.Label2.Caption = Form1.Label2.Caption & "；大漠还是有点问题"
- End If
- Call 判断加载雷电模拟器()
- Call 模拟器信息()
- End Event
- Function 大漠插件注册(path)
- PutAttachment path, "dm.dll"'大漠插件
- PutAttachment path, "DmReg.dll"'大漠插件
- TracePrint Plugin.jzyvip.DmRegEx("C:\jzy\dm\DmReg.dll", "SetDllPathA", path & "dm.dll", 0)
- Set dm = createobject("dm.dmsoft")
- TracePrint dm.ver()
- 收费注册 = dm.reg("jiangzhongyou2bf8e2c90078b4b698f33db62cbc09fb", "0001")
- If 收费注册 = 1 Then
- 大漠插件注册 = 1
- Else
- 大漠插件注册=0
- End If
- End Function
- Event Form1.ComboBox1.SelectChange
- Call 判断加载雷电模拟器()
- Call 模拟器信息()
- End Event
- Function 判断加载雷电模拟器()
- 模拟器类型数组 = split(Form1.ComboBox1.List,"|")
- Form1.Label4.Caption = 模拟器类型数组(Form1.ComboBox1.Listindex)
- If Form1.Label4.Caption = "雷电3" Then
- If Plugin.JzyVIP.LoadPathMEx(0, 3) = 1 Then
- Form1.Label8.Caption = Form1.Label4.Caption & "模拟器加载成功"
- End If
- ElseIf Form1.Label4.Caption = "雷电4" Then
- If Plugin.JzyVIP.LoadPathMEx(0, 4) = 1 Then
- Form1.Label8.Caption = Form1.Label4.Caption & "模拟器加载成功"
- End If
- ElseIf Form1.Label4.Caption = "雷电4-64位" Then
- If Plugin.JzyVIP.LoadPathMEx(0, 5) = 1 Then
- Form1.Label8.Caption = Form1.Label4.Caption & "模拟器加载成功"
- End If
- ElseIf Form1.Label4.Caption = "雷神" Then
- If Plugin.JzyVIP.LoadPathMEx(0, 6) = 1 Then
- Form1.Label8.Caption = Form1.Label4.Caption & "模拟器加载成功"
- End If
- ElseIf Form1.Label4.Caption = "雷神-64位" Then
- If Plugin.JzyVIP.LoadPathMEx(0, 7) = 1 Then
- Form1.Label8.Caption = Form1.Label4.Caption & "模拟器加载成功"
- End If
- End If
- End Function
- Function 启动模拟器(模拟器类型)
- If 模拟器类型 = 0 Then '雷电3
- Call 启动()
- ElseIf 模拟器类型 = 1 Then'雷电4
- Call 启动()
- ElseIf 模拟器类型 = 2 Then'雷电4-64
- Call 启动()
- ElseIf 模拟器类型 = 3 Then'雷神
- Call 启动()
- ElseIf 模拟器类型 = 4 Then'雷神-64
- Call 启动()
- End If
- BeginThread 监视线程
- End Function
- Function 监视线程()
- Dim 索引数组, 独立模拟器信息, arr, 窗口数组
- Dim 逻辑,i'如果i不声明为子程序变量那么会跟随调用其它子程序中的变量而变化*****
- 索引数组 = 表格取模拟器类别数组(0)'0列为索引，1列为标题，2列为顶级窗口句柄，3列为可绑定窗口句柄
- Do
- 逻辑=False
- For i = 0 To ubound(索引数组)
- // TracePrint 索引数组(i)
- 独立模拟器信息 = Plugin.jzyvip.IsAndroidExM(索引数组(i), 1000)'是否进入安卓系统
- TracePrint "i:"&i
- TracePrint 独立模拟器信息
- arr = split(独立模拟器信息, ",")'分割为数组
- If arr(4) = 1 Then '这个是判断是否进入到安卓系统
- TracePrint arr(3)'可绑定窗口句柄
- 窗口数组 = 表格取模拟器类别数组(0)'0列为索引，1列为标题，2列为顶级窗口句柄，3列为可绑定窗口句柄
- TracePrint "i:"&i
- For ii = 0 To UBound(窗口数组)'遍历表格中的窗口句柄数组与即时取回的窗口句柄对比，如果一致代表线程已经启动，否则就要启动线程
- If 窗口数组(ii) = arr(3) Then
- 逻辑 = True
- Exit For
- End If
- Next
- If 逻辑 = False Then '如果表格中没有这个窗口句柄那么就要启动线程
- 全局句柄 = arr(3)
- TracePrint arr(3)
- BeginThread 多线程
- Delay 200
- End If
- End If
- TracePrint ubound(索引数组)
- TracePrint "i:---"&i
- Call 写表格(索引数组(i),独立模拟器信息)
- Next
- Loop
- End Function
- Function 启动()
- Dim 索引数组,独立模拟器信息,i
- 索引数组 = 表格取模拟器类别数组(0)'0列为索引，1列为标题，2列为顶级窗口句柄，3列为可绑定窗口句柄
- For i = 0 To ubound(索引数组)
- // TracePrint 索引数组(i)
- 独立模拟器信息 = Plugin.jzyvip.StartIndexM(索引数组(i), 1000)
- // TracePrint 独立模拟器信息
- 'Call 写表格(索引数组(i),独立模拟器信息)
- Next
- End Function
- Function 表格取模拟器类别数组(列)
- Dim temp, index,i
- For i = 0 To 10
- index = Form1.Grid1.GetItemText(i + 1, 列)
- If index = "" Then
- Exit For
- End If
- temp = temp & index & ","
- Next
- temp = left(temp, len(temp) - 1)
- 表格取模拟器类别数组=split(temp,",")'返回数组
- End Function
- Function 模拟器信息()
- Dim 全部模拟器, 独立模拟器数组, arr,i
- Form1.Grid1.DeleteAllItems '先清空列表
- 全部模拟器 = Plugin.JzyVIP.GetAllM()
- TracePrint 全部模拟器
- arr = split(全部模拟器, "|")
- For i = 0 To UBound(arr)
- // Form1.Grid1.InsertRow i + 1
- 独立模拟器数组 = split(arr(i), ",")
- For ii = 0 To UBound(独立模拟器数组)
- Form1.Grid1.SetItemText i+1, ii, 独立模拟器数组(ii)'索引
- Next
- Next
- End Function
- Function 写表格(索引,info)'
- Dim 独立模拟器数组
- TracePrint info
- TracePrint 索引
- 独立模拟器数组 = split(info, ",")
- For i = 0 To 10
- index = Form1.Grid1.GetItemText(i + 1, 0)
- TracePrint index
- If clng(index) = clng(索引) Then
- Form1.Grid1.SetItemText i + 1, 2, 独立模拟器数组(2)
- Form1.Grid1.SetItemText i + 1, 3, 独立模拟器数组(3)
- Form1.Grid1.SetItemText i + 1, 4, 独立模拟器数组(4)
- Form1.Grid1.SetItemText i + 1, 5, 独立模拟器数组(5)
- Form1.Grid1.SetItemText i + 1, 6, 独立模拟器数组(6)
- Delay 500
- Exit For
- End If
- Next
- End Function
- Event Form1.Button1.Click'关闭全部
- Dim 索引数组
- 索引数组=表格取模拟器类别数组(0)'0列为索引，1列为标题，2列为顶级窗口句柄，3列为可绑定窗口句柄
- For i = 0 To ubound(索引数组)
- Plugin.JzyVIP.CloseIndexM 索引数组(i)
- Next
- End Event
- Function 多线程()
- Dim Hwnd
- Hwnd = 全局句柄
- TracePrint "多线程已经启动，窗口句柄为："&Hwnd
- End Function
|
闽公网安备 35010002000112号