vb findwindow用法，，，入门。

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
k = FindWindow(0, "登陆")
If k = 0 Then
MsgBox " 未找到窗口", 48, "提示"
Else
MsgBox "找到窗口，请确认", 48, "提示"
End If
End Sub

为什么总是返回的是0，那个登陆程序是我自己做的。里面就加了一句me.caption="登陆"
为什么呢？麻烦解答。

k = FindWindow(vbnollstring, "登陆")

k = FindWindow(vbNullString, "登陆") ======================================= 示例： Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long Private Sub Command1_Click() Dim hw& hw& = FindWindow(vbNullString, "计算器") If hw Then SetWindowText hw, "这样不好吧！" End Sub

k = FindWindow(vbNullString, "登陆") 不能用0，要使用vbNullString

给你个例子,但实际可能对qq不管用，因为qq用的可能是特殊窗体类 public frmhwnd as long frmhwnd = findwindow(vbnullstring, "qq2001") if frmhwnd <> 0 then send frmhwnd, wm_settext, 0, "123456789 123456789", 1 end if 建议你用 spy++ 观察下 qq的窗体