怎样用VB自动的往某一个窗口里填数据啊？比如说QQ的登陆框

LOAD 代码

假设你所说的是：

效果1: 在QQ登陆时用户名输入框里可以自动出现QQ号
做法：肯定要使用数据库，QQ号事前存储在数据库的表内，登陆窗口出现时自动从数据库中读出号码字段。

效果2:登陆时QQ号码处的下拉框，单击菜单内的任一项，其内容自动出现在用户名输入框内
做法：不一定使用数据库。可以在下拉框控件内输入几个候选值，等登陆窗口运行时点击下拉框中的下拉选项，则自动将选中的值填入用户名输入对话框。

当然还有其他做法，根据你的需求来确定。

以QQ2009为例

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 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC

Private Sub Command1_Click()
Dim hwnd As Long, T As Long
hwnd = FindWindow("TXGuiFoundation&q