一段vb程序，谁能帮忙调试一下

来源：百度知道编辑：UC知道时间：2024/06/17 16:55:45

Private Sub Form_Load()
Declare Function PostMessage Lib "user32" Alias "ostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_CHAR = &H102
Public Const VK_A = &H41
Function MakeKeyLparam(ByVal VirtualKey As Long, ByVal flag As Long) As Long
Dim s As String
Dim Firstbyte As String 'lparam参数的24-31位
If flag = WM_KEYDOWN Then '如果是按下键
Firstbyte = "00"
Else
Firstbyte = "C0" '如果是释放键
End If
Dim Scancode As Long
'获得键的扫描码
Scancode = MapVirtualKey(VirtualKey, 0)
Dim Secondbyte As String 'lparam参数的16-23位，即虚拟键扫描码
Secondby

几个问题：
1、hwnd = 722718 '722718表示记事本编辑框的句柄，这个Hwnd的值是怎么得到的？
2、在vb中过程不能嵌套，一个过程不能包含其他过程体。form_load也是一个和其他过程一样的过程。
3、Declare Function PostMessage Lib "user32" Alias "ostMessageA" , 少了一个“P”，应该是Declare Function PostMessage Lib "user32" Alias "PostMessageA" 。
4、几个“，”应是“,”。

帮忙调试一段ASP程序简单VB程序的一段代码，请大侠帮忙一下帮忙解释一段vb程序帮忙解释一段VB程序 VB程序调试不成功帮忙调试一下程序~~~~谢谢,在线等待 C++程序调试请帮忙看一下谁帮忙设计一下这个VB程序谁能调试JAVA程序? 帮忙做一段VB程序，谢谢！