基于clswindow for vb开发的qq登录器源码

clswindow是vb下控制外部程序的一个框架，封装了很多简单使用的操作函数。

clswindow的详细介绍：https://blog.csdn.net/sysdzw/article/details/9083313

QQ登录器完整源码下载地址：https://download.csdn.net/download/sysdzw/10622938

看到网上某豪的登录器，用了下完全就是操作外部程序嘛，这个我们用clswindow也可以做，于是花了几分钟编写了一个，主要代码如下：

Private Sub Command1_Click()
    loginQQ Text1.Text, Text2.Text
End Sub
'登陆qq发送账号密码的函数
Private Sub loginQQ(ByVal strName$, ByVal strMsg$)
    Dim w As New clsWindow
    Shell "G:\Program Files (x86)\Tencent\QQ\Bin\qq.exe", 1
    Do While w.Width <> 495
        w.GetWindowByTitle "QQ", 1
    Loop
    w.Focus
    w.ClickPoint 163, 242, , , 200, 200
    SendKeys "{DEL}"
    SendKeys Text1.Text
    SendKeys "{TAB}"
    SendKeys Text2.Text
    SendKeys "{ENTER}"
    Set w = Nothing
End Sub