0929509129m 發表於 2010-7-15 22:22:43

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

b0212300 發表於 2010-8-14 22:00:30

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

a0923686172 發表於 2010-9-4 15:26:53

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

bingbang 發表於 2010-9-21 11:22:51

本帖最後由 bingbang 於 2010-9-21 11:23 編輯

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

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

kira923 發表於 2010-10-19 09:16:02

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

n4chen 發表於 2010-12-12 13:30:09

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

模組:

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
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

n4chen 發表於 2010-12-12 13:36:31

這裡有個頭緒 (For VB6)
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
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

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


afa510 發表於 2011-1-12 15:07:05

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

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

sonkus 發表於 2011-2-16 11:40:53

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

sonkus 發表於 2011-2-17 09:39:11

繼續推推拿積分..........YCT16B
頁: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 14 15
查看完整版本: (學寫外掛課程一)最基本的必要認知及基礎