快速鍵 (自行研發出來的..)

1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
   
2. Private Function MyHotKey(vKeyCode) As Boolean
   
3. MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
   
4. End Function
   
5. Private Sub Check1_Click()
   
6. If Check1.Value = 1 Then
   
7. dwFlagAllocId = EnableScript(Text1.Text)
   
8. Else
   
9. Call DisableScript(Text1.Text, dwFlagAllocId)
   
10. End If
    
11. End Sub
    
12. 
    
13. Private Sub Form_Load()
    
14. 
    
15. End Sub
    
16. 
    
17. Private Sub Timer3_Timer()
    
18. If MyHotKey(vbKeyTab) = True Then
    
19.        Check1.Value = 0
    
20.        Check2.Value = 0
    
21. End If
    
22. End Sub
    
23. Private Sub Timer1_Timer()
    
24. If MyHotKey(vbKeyA) = True Then
    
25.         If Check1.Value = 1 Then
    
26.        Check1.Value = 0
    
27.     Else
    
28.        Check1.Value = 1
    
29.         End If
    
30. End If
    
31. End Sub
    
32. Private Sub Timer2_Timer()
    
33. If MyHotKey(vbKeyS) = True Then
    
34.         If Check2.Value = 1 Then
    
35.        Check2.Value = 0
    
36.     Else
    
37.        Check2.Value = 1
    
38.         End If
    
39. End If
    
40. End Sub

複製代碼

------ 加入模組

1. Option Explicit
   
2. 
   
3. 
   
4. '
   
5. ' Global Variables
   
6. '
   
7. Global dwProcId             As Long     '// ProcId Of Process
   
8. Global bInitialized         As Boolean  '// Global AutoAsm Init Check
   
9. 
   
10. '
    
11. ' API Constants
    
12. '
    
13. Private Const MAX_PATH = 260
    
14. Private Const TH32CS_SNAPPROCESS = &H2
    
15. Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
    
16. 
    
17. '
    
18. ' Process Entry Structure
    
19. '
    
20. Private Type PROCESSENTRY32
    
21.     dwSize As Long
    
22.     cntUsage As Long
    
23.     th32ProcessID As Long
    
24.     th32DefaultHeapID As Long
    
25.     th32ModuleID As Long
    
26.     cntThreads As Long
    
27.     th32ParentProcessID As Long
    
28.     pcPriClassBase As Long
    
29.     dwFlags As Long
    
30.     szexeFile As String * MAX_PATH
    
31. End Type
    
32. 
    
33. '
    
34. ' Win32 Standard API
    
35. '
    
36. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    
37. Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
    
38. Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
    
39. Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As Any) As Boolean
    
40. Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As Any) As Boolean
    
41. 
    
42. '
    
43. ' VBProxy Calls (Written By Wiccaan)
    
44. '
    
45. Private Declare Function vbCEInitAsm Lib "VBProxy.dll" _
    
46. (ByVal ProcId As Long, ByRef bPassFail As Boolean) As Boolean
    
47. 
    
48. Private Declare Function vbCEDisableScript Lib "VBProxy.dll" _
    
49. (ByVal strScript As String, ByRef dwAllocId As Long) As Boolean
    
50. 
    
51. Private Declare Function vbCEEnableScript Lib "VBProxy.dll" _
    
52. (ByVal strScript As String, ByRef dwAllocId As Long) As Boolean
    
53. 
    
54. 
    
55. 
    
56. '
    
57. ' InitAutoAsm
    
58. '
    
59. '
    
60. Public Sub InitAutoAsm(dwProcId As Long)
    
61. On Error Resume Next
    
62. 
    
63.     If dwProcId = 0 Then Exit Sub
    
64.    
    
65.     'Dim pInitialized As Boolean
    
66.     Dim pInitialized As Long
    
67.     vbCEInitAsm dwProcId, CBool(pInitialized)
    
68.    
    
69.     bInitialized = VarPtr(pInitialized)
    
70. 
    
71. End Sub
    
72. 
    
73. '
    
74. ' EnableScript
    
75. '
    
76. '
    
77. Public Function EnableScript(strScript As String) As Long
    
78.     If strScript = "" Then Exit Function
    
79.     If bInitialized = False Then Exit Function
    
80.     Dim dwAllocatedId As Long
    
81.     Call vbCEEnableScript(strScript, dwAllocatedId)
    
82.     EnableScript = dwAllocatedId
    
83. End Function
    
84. 
    
85. '
    
86. ' DisableScript
    
87. '
    
88. '
    
89. Public Sub DisableScript(strScript As String, ByVal dwAllocId As Long)
    
90.     If strScript = "" Then Exit Sub
    
91.     If bInitialized = False Then Exit Sub
    
92.     Call vbCEDisableScript(strScript, dwAllocId)
    
93. End Sub
    
94. 
    
95. 
    
96. 
    
97. 
    
98. 
    
99. '
    
100. ' FindGame
     
101. '
     
102. Public Function FindGame(ByVal strGameName As String) As Boolean
     
103.     Dim pe32        As PROCESSENTRY32
     
104.     Dim hSnapshot   As Long
     
105.     Dim bProcFound  As Boolean
     
106.     Dim bFoundGame  As Boolean
     
107.    
     
108.     hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
     
109.     pe32.dwSize = Len(pe32)
     
110.    
     
111.     bProcFound = Process32First(hSnapshot, pe32)
     
112.     Do While bProcFound
     
113.         If Right$(LCase$(Left$(pe32.szexeFile, InStr(1, pe32.szexeFile, Chr(0)) - 1)), Len(strGameName)) = LCase$(strGameName) Then
     
114.             dwProcId = pe32.th32ProcessID
     
115.             bFoundGame = True
     
116.         End If
     
117.         bProcFound = Process32Next(hSnapshot, pe32)
     
118.     Loop
     
119.     CloseHandle hSnapshot
     
120.     FindGame = bFoundGame
     
121. End Function

複製代碼

Timer 創 3個

Timer1 設 120
Timer2 設 130
Timer3 設 1   

自行調整 。


如果覺得我發佈的對你有幫助  請幫忙加分 !!
...

瀏覽完整內容，請先 註冊 或 登入會員

qwas0514

這模組很眼熟= =
就是AutoASM的模組麻
這個不是要DLL嗎
我記得要
ceautoassembler.dll   跟
VBProxy.dll
P.S  頭香= =

darkjack

要全局熱鍵根本不需要用到 上面的兩個DLL
在 Vb.net 下 也完全不需要 Vbproxy.dll