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