如何通过API发送翻页按键给控件？

[progame]

.

[lihonggen0]

Const VK_H = 72
Const VK_E = 69
Const VK_L = 76
Const VK_O = 79
Const VK_PAGE_DOWN = 33
Const VK_PAGE_UP = 34

[lihonggen0]

Const VK_PAGE_DOWN = 34
Const VK_PAGE_UP = 33

Const VK_H = 72
Const VK_E = 69
Const VK_L = 76
Const VK_O = 79
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

[lihonggen0]

?nVirtKey
Specifies a virtual key. If the desired virtual key is a letter or digit (A through Z, a through z, or 0 through 9), nVirtKey must be set to the ASCII value of that character. For other keys, it must be a virtual-key code.
If a non-English keyboard layout is used, virtual keys with values in the range ASCII A through Z and 0 through 9 are used to specify most of the character keys. For example, for the German keyboard layout, the virtual key of value ASCII O (0x4F) refers to the 搊?key, whereas VK_OEM_1 refers to the 搊 with umlaut?key.

[progame]

你是从哪查到的

[lihonggen0]

'In a module
Const VK_PAGE_DOWN = 34
Const VK_PAGE_UP = 33

Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public hHook As Long
Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If idHook < 0 Then
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
Else
If (GetKeyState(VK_PAGE_DOWN) And &HF0000000) Then
Form1.Print "VK_PAGE_DOWN pressed ..."
End If
If (GetKeyState(VK_PAGE_UP) And &HF0000000) Then
Form1.Print "VK_PAGE_UP pressed ..."
End If
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End If
End Function





---------------------------------


'In a form, called Form1
Private Sub Form_Load()
'set a keyboard hook
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
'remove the windows-hook
UnhookWindowsHookEx hHook
End Sub

[progame]

OK SendMessage grid.hwnd, WM_VSCROLL, SB_PAGEDOWN, 0

[lihonggen0]

www.allapi.net
的一个API浏览器

我根据经验得来的值，试了试，没问题

[lihonggen0]

CSDN真慢！

C# builder的聊天也进不去！

to： progame()

还是用.net吧，以后的主流！我已经用了快一年了！！

[progame]

HOOK 我尽量不用的 不方便调试

[progame]

不是我想用就用啊

C#我已经接触了 但现在做东西还是VB6

[rappercn]

嗬嗬嗬，哈哈哈，又学会一招，原来都不用VK_xxxx，直接vbkey就行了，感谢二位的讨论。

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_KEYDOWN = &H100


Private Sub Command1_Click()

Call SendMessage(Text1.hwnd, WM_KEYDOWN, vbKeyPageDown, 0)

End Sub

[lihonggen0]

对，我也是，上面是一个小例子而已！

[progame]

rappercn(rapper) 最近老见到 什么时候成星啊

[lihonggen0]

我也发觉我上CSDN成瘾了!

哎！
好久没有以下朋友来了
playyuer、foolishtiger、songyangk、amoon、巴顿、jinesc、uguess、zyl910 ..............

还有好多的朋友，VB版的好兄弟，常回来看看，VB版----一个交流的好天地！

[rappercn]

我最近迷上csdn了，主要是发现自己要学的东西太多太多了，听了李大侠的一席话，再看看你们之间的问题讨论，发现自己简直就不是一个水平的。不行了，我明天就去买C#的书，从头开始，一年搞定C#。

至于猩猩，惭愧惭愧，我才刚变成5个三角，顶多是只大猴子。

路漫漫其修远兮，后面什么什么来着？

嘿嘿嘿，求啊，索啊，抢分阿。

[rappercn]

to lihonggen0(李洪根,用.NET，标准答案来了):
VB里面你哪个方面最强？数据库？API？

progame呢？

我觉得我什么都不强， :'(

[rappercn]

Pinging chat.csdn.net [211.157.102.23] with 32 bytes of data:

Reply from 211.157.102.23: bytes=32 time=697ms TTL=118
Reply from 211.157.102.23: bytes=32 time=707ms TTL=118
Reply from 211.157.102.23: bytes=32 time=836ms TTL=118
Reply from 211.157.102.23: bytes=32 time=648ms TTL=118

Ping statistics for 211.157.102.23:
Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 648ms, Maximum = 836ms, Average = 722ms


这都打不开。

[lihonggen0]

to ： rappercn(rapper)

我很泛泛，什么都会一点！也谈不上什么高手！只是喜欢技术、喜欢和大家交流，我以前用VB6的，现在用VB.NET了，还有asp.net，感觉.net很好，我建议大家还是以后转向.net

VB论坛里大家都很好，总的来说比以前要好，这对大家的学习和工作交流都很有益！
但愿大家继续下去！

[progame]

不好意思 我不迷CSDN了早就 有问题就上来问问 所以是永远的5个三角

[rappercn]

不行，我得等到变成猩猩了再考虑换地儿