（學寫外掛課程一）最基本的必要認知及基礎

感謝大大的分享~
雖然我連程式怎麼寫都不懂~
我看我還是先學怎麼寫程式開始吧

-v-............................................................................YCT66B

不要再想你，不要再愛你
讓時間悄悄的飛逝，抹去我倆的回憶
對于你的名字，從今不會再提起YCT13B

原來是這樣.那就先來學寫程式了

还想看课程2  最好有更多的课程

第二篇的所要權限太高了吧......... 想看示範都不行

VB 6 自動按鍵模組 keysend + API FindWindows
[code]
Private Const VK_CONTROL = &H11
Private Const VK_SHIFT = &H10
Private Const VK_RETURN = &HD
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const VK_1 = &H31
Private Const VK_2 = &H32
Private Const VK_3 = &H33
Private Const VK_tab = &H9
Private Const VK_a = &H41
Dim x As Single


Private Sub Command1_Click()
x = FindWindow(vbNullString, "AikaClient")
Print x
End Sub
Private Sub Command2_Click()
PostMessage x, WM_KEYDOWN, VK_2, MapVirtualKey(VK_2, WM_KEYDOWN)
End Sub
[/code]
模組:

1. 
   
2. Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
3. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
4. 
   
5. Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
   

複製代碼

這裡有個頭緒 (For VB6)

1. 
   
2. Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
3. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
4. 
   
5. Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
   

複製代碼

1. 
   
2. Private Const VK_CONTROL = &H11
   
3. Private Const VK_SHIFT = &H10
   
4. Private Const VK_RETURN = &HD
   
5. Private Const WM_KEYDOWN = &H100
   
6. Private Const WM_KEYUP = &H101
   
7. Private Const VK_1 = &H31
   
8. Private Const VK_2 = &H32
   
9. Private Const VK_3 = &H33
   
10. Private Const VK_tab = &H9
    
11. Private Const VK_a = &H41
    
12. Dim x As Single
    
13. 
    
14. 
    
15. Private Sub Command1_Click()
    
16. x = FindWindow(vbNullString, "AikaClient")
    
17. Print x
    
18. End Sub
    
19. Private Sub Command2_Click()
    
20. PostMessage x, WM_KEYDOWN, VK_2, MapVirtualKey(VK_2, WM_KEYDOWN)
    
21. End Sub
    
22. 
    
23. 
    

複製代碼

寫過外掛的人都說，你的實力已足夠了

但還是沒個作品出來 = =''

推一下拿積分~好看第二篇權限...YCT45B

繼續推推拿積分..........YCT16B