求救,代码问题.我快疯了!!!!
Private Declare Function SendMessage& Lib "user32 " Alias "SendMessageA " (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Declare Function FindWindow Lib "user32 " Alias "FindWindowA " (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32 " Alias "FindWindowExA " (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Const WM_SETTEXT = &HC
Private Sub Command1_Click()
Dim Name As String
Name = Text1.Text
Dim dHwnd As Long
Dim tHwnd As Long
dHwnd = FindWindow( "#32770 ", "热血江湖 ")
tHwnd = FindWindowEx(dHwnd, 0, "#32770 ", "登陆 ")
tHwnd = FindWindowEx(tHwnd, 0, "ComboBox ", vbNullString)
tHwnd = FindWindowEx(tHwnd, 0, "Edit ", vbNullString)
SendMessage tHwnd, WM_SETTEXT, 0, ByVal CStr(Name)
End Sub
通过程序,将Text1里的文本传输到热血江湖的登陆框中的帐号里.
前天测试还是可以的,为什么现在不可以,哪里出错了吗?我找不到哪错,我快要疯了,谁来帮帮我?
[解决办法]
遍历子控件吧
用EnumChildWindows吧
