按键精灵多窗体自动审核PB指令

金融it

以下代码是实现了按键精灵自动点击 投资建议查询中的 查找按钮 ，点击审核按钮原理一样，大家自己修改即可。
点击的前提是需要手工打开 投资建议查询 菜单，这样才能寻找到句柄，也可以程序自动打开该菜单，那样修改下代码即可。
恒生PB 0429G以上版本可以命令行启动， 配置上按键精灵就可以完全无人操作了
   大体原理都给出来了，有问题大家交流。 具体实现代码就不给出了，大家自己实现吧

   当然代码优化下 可以多线程操作，速度更快

1. 
   
2. 
   
3. 
   
4. //下面这句是按查找方式(模糊)，遍历符合窗口类名(0)且标题("机构经纪投资管理")的句柄，保存到数组(HwndEx)里   欢迎加入[url]www.jrit.club[/url]  讨论
   
5. Hwndbt = Plugin.Window.Search("机构经纪投资管理")
   
6. MyArray1 = Split(Hwndbt, "|")
   
7. //将所有的窗口句柄肢解获取所有窗口句柄
   
8. If   UBound(MyArray1)>=0 Then   //进行循环
   
9. i=0
   
10. For UBound(MyArray1)//进行循环
    
11. //获取第一个窗口句柄   欢迎加入[url]www.jrit.club[/url]  讨论
    
12. Hwnd = Plugin.Window.FindEx(MyArray1(i), 0, 0, 0)
    
13. // 以下3句是讲窗体置前   欢迎加入[url]www.jrit.club[/url]  讨论
    
14. Call Plugin.Window.Active(Hwnd)   
    
15. Call Plugin.Window.Show(Hwnd)
    
16. Call Plugin.Window.Top(Hwnd, 0)// 0 表示 是置顶 1是取消置顶    欢迎加入[url]www.jrit.club[/url]  讨论
    
17. 
    
18. //下面这句是查找窗口类名("Notepad")或者标题(0),返回找到的句柄Hwnd
    
19. Hwnd = Plugin.Window.Find("TfrmMain", 0)
    
20. 
    
21. //MsgBox "查找到的父窗口句柄为："& Hwnd
    
22. 
    
23. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TPanel","")
    
24. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
25. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TRzPageControl","")
    
26. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
27. 
    
28. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TRzTabSheet","投资建议查询")
    
29. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
30. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TfrmEntrustApproveMain","投资建议查询")
    
31. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
32. 
    
33. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TfrmUnapprovedEntrustsQryFrame","")
    
34. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
35. 
    
36. 
    
37. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TPanel","pnl2")
    
38. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
39. //Hwnd = Plugin.Window.FindEx(Hwnd,0,"TPanel",0)
    
40. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
41. Dim Hwnds(99)
    
42. For n = 1 To 2
    
43.     Hwnds(n) = Plugin.Window.FindEx(Hwnd, Hwnds(n - 1), "TPanel", 0)
    
44.      
    
45.     //text=text&"第"&n&"个子句柄："&Hwnds(n)&vbcrlf
    
46.     Hwndsj=Plugin.Window.FindEx(Hwnds(n),0,"THsBitBtn","查询")
    
47.     If Hwndsj>0  Then
    
48.     //MsgBox "sss" & Hwndsj
    
49.     //得到句柄位置    欢迎加入[url]www.jrit.club[/url]  讨论
    
50.     sRect = Plugin.Window.GetClientRect(Hwndsj)
    
51.     MsgBox "得到窗口句柄的客户区大小为：" & sRect
    
52.      dim MyArray   
    
53. MyArray = Split(sRect, "|")   
    
54. //下面这句将字符串转换成数值      欢迎加入[url]www.jrit.club[/url]  讨论
    
55. x = Clng(MyArray(0)) : y = Clng(MyArray(1))
    
56. //鼠标移动到相关位置左键点击   欢迎加入[url]www.jrit.club[/url]  讨论
    
57. MoveTo x, y
    
58. LeftClick(1)
    
59.     End If
    
60.     //text=text&Hwnds(n)&"|"
    
61. Next
    
62. i = i + 1
    
63. Next
    
64. End If
    
65. 
    

复制代码

金融it

以下代码是实现了按键精灵自动点击 投资建议查询中的 查找按钮 ，点击审核按钮原理一样，大家自己修改即可。
点击的前提是需要手工打开 投资建议查询 菜单，这样才能寻找到句柄，也可以程序自动打开该菜单，那样修改下代码即可。
恒生PB 0429G以上版本可以命令行启动， 配置上按键精灵就可以完全无人操作了
   大体原理都给出来了，有问题大家交流。 具体实现代码就不给出了，大家自己实现吧

   当然代码优化下 可以多线程操作，速度更快

1. 
   
2. 
   
3. 
   
4. //下面这句是按查找方式(模糊)，遍历符合窗口类名(0)且标题("机构经纪投资管理")的句柄，保存到数组(HwndEx)里   欢迎加入[url]www.jrit.club[/url]  讨论
   
5. Hwndbt = Plugin.Window.Search("机构经纪投资管理")
   
6. MyArray1 = Split(Hwndbt, "|")
   
7. //将所有的窗口句柄肢解获取所有窗口句柄
   
8. If   UBound(MyArray1)>=0 Then   //进行循环
   
9. i=0
   
10. For UBound(MyArray1)//进行循环
    
11. //获取第一个窗口句柄   欢迎加入[url]www.jrit.club[/url]  讨论
    
12. Hwnd = Plugin.Window.FindEx(MyArray1(i), 0, 0, 0)
    
13. // 以下3句是讲窗体置前   欢迎加入[url]www.jrit.club[/url]  讨论
    
14. Call Plugin.Window.Active(Hwnd)   
    
15. Call Plugin.Window.Show(Hwnd)
    
16. Call Plugin.Window.Top(Hwnd, 0)// 0 表示 是置顶 1是取消置顶    欢迎加入[url]www.jrit.club[/url]  讨论
    
17. 
    
18. //下面这句是查找窗口类名("Notepad")或者标题(0),返回找到的句柄Hwnd
    
19. Hwnd = Plugin.Window.Find("TfrmMain", 0)
    
20. 
    
21. //MsgBox "查找到的父窗口句柄为："& Hwnd
    
22. 
    
23. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TPanel","")
    
24. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
25. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TRzPageControl","")
    
26. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
27. 
    
28. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TRzTabSheet","投资建议查询")
    
29. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
30. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TfrmEntrustApproveMain","投资建议查询")
    
31. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
32. 
    
33. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TfrmUnapprovedEntrustsQryFrame","")
    
34. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
35. 
    
36. 
    
37. Hwnd = Plugin.Window.FindEx(Hwnd, 0, "TPanel","pnl2")
    
38. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
39. //Hwnd = Plugin.Window.FindEx(Hwnd,0,"TPanel",0)
    
40. //MsgBox "查找到的子窗口句柄为：" & Hwnd
    
41. Dim Hwnds(99)
    
42. For n = 1 To 2
    
43.     Hwnds(n) = Plugin.Window.FindEx(Hwnd, Hwnds(n - 1), "TPanel", 0)
    
44.      
    
45.     //text=text&"第"&n&"个子句柄："&Hwnds(n)&vbcrlf
    
46.     Hwndsj=Plugin.Window.FindEx(Hwnds(n),0,"THsBitBtn","查询")
    
47.     If Hwndsj>0  Then
    
48.     //MsgBox "sss" & Hwndsj
    
49.     //得到句柄位置    欢迎加入[url]www.jrit.club[/url]  讨论
    
50.     sRect = Plugin.Window.GetClientRect(Hwndsj)
    
51.     MsgBox "得到窗口句柄的客户区大小为：" & sRect
    
52.      dim MyArray   
    
53. MyArray = Split(sRect, "|")   
    
54. //下面这句将字符串转换成数值      欢迎加入[url]www.jrit.club[/url]  讨论
    
55. x = Clng(MyArray(0)) : y = Clng(MyArray(1))
    
56. //鼠标移动到相关位置左键点击   欢迎加入[url]www.jrit.club[/url]  讨论
    
57. MoveTo x, y
    
58. LeftClick(1)
    
59.     End If
    
60.     //text=text&Hwnds(n)&"|"
    
61. Next
    
62. i = i + 1
    
63. Next
    
64. End If
    
65. 
    

复制代码