请问如何向163拨号连接发送回车键？

[developerworks]

首先调用shell函数打开163拨号连接对话框，请问如果利用api函数发送一个回车键？我试过以下代码不知怎么没用？
请高手指点一下，谢谢
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int16
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Int16
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Object) As Int16
Private Const BM_CLICK = &HF5
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Public wnd As Int16

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
wnd = FindWindow(Nothing, "连接 163")
Dim rw As Int16
rw = FindWindowEx(wnd, 0, "Edit", Nothing)
SendMessage(rw, BM_CLICK, 0, 0)
'SendMessage(rw, WM_KEYDOWN, 32, &H11C0001)
'SendMessage(rw, WM_KEYUP, 32, &H11C0001)

End Sub

[developerworks]

这样也不行，还是起不到效果，郁闷
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
wnd = FindWindow(Nothing, "连接 163")
Dim rw As Int16
rw = FindWindowEx(wnd, 0, "Button", Nothing)
SendMessage(rw, BM_CLICK, 0, 0)
'SendMessage(rw, WM_KEYDOWN, 32, &H11C0001)
'SendMessage(rw, WM_KEYUP, 32, &H11C0001)

End Sub

[NET00001]

关注一下