用VB做自动登录QQ程序

'模拟按键盘

Private Sub Command1_Click()

Shell "C:\Program Files\Tencent\QQ\QQ.exe", vbNormalFocus

Dim longTimer As Long

longTimer = Timer

Do Until Timer - longTimer >= 5 '延时岁正5秒，sendkeys必须等顷洞QQ窗口打开

DoEvents

Loop

SendKeys "+{tab}"乎乎悔 '相当于按键盘alt+tab

SendKeys "52051459"

SendKeys "{tab}"

SendKeys "password"

SendKeys "{enter}"

End Sub

SetFocus 的api你肯定写错了，是SetFocus，而不是 setfocus，记培冲住Api是必须区分大小写的。

还有，SetFocus这个函数名在vb里是已经有的，必须指定其他的函数名，如下

Private Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

请用SetFocusAPI替如中销换掉所渣游有的setfocus

步骤：

1、 工欲善其事，必先利其器。用到的工具有ResourceHacker、eXeScope。可以搜索下载。替换的背景图片，大小可以不和原来的一样，默认大小是324×214，当然你也可以自定义。如果要更换按钮图片，则需要制作4张图片，分别是鼠标滑过、鼠标按下、普通状态、“登陆QQ”按钮状态。其他图片类似。

2、 到QQ安装目录下查找LoginCtrl.dll文件（2007版本之后是 LoginCtrlRes.dll文件），做好备份，以便发生错误时恢复。

3、 使用ResHacker打开LoginCtrl.dll文件，在左侧资源中的“位图”中替换相应图片：替换16050为你想要的背景图片。如果你设置图片想原来默认图片一样是上下2张分开的，则需要替换963和16050两个图片。

4、 打开“对话框”→450，这时会看到右边的预览对话框：

5、 右键点击上面的图片（QQ2006图片），选择“编辑控件”，打开“控件编辑器”，在风格中选择最下面的“WS_CLIPSIBLINGS”，这个选项的功能是隐藏控件，但是能点击到，在下面缓稿升的按钮修改中还要用到。

6、 右键点击下面的图片，就是你换的那个图片，选择“编辑控件”，在控件坐标的左、上都填上“0”，确定后这样界面改成这样：

7、 修改代码窗口中背景图片对应的一行代码，将控件ID修改为0或者其他没有用到的数字（在修改过程中我没有修改，导致登陆框下方总是存在一行白条，调节下方的竖长条也不行，现在还没有搞明白），一般使用0或者-1等。

8、 为什么我的图片不能完全显示呢（如果你的图片是规则的324×214则不会出现问题，为了全面介绍，我使用的图片是432×228）？和上面最终效果比较一下，右边一部分没有出现。测试发现，上图右下角的“取消”按钮是控制右边界的（聪明的你是不是想到网上流传的超小登陆界面是怎么制作的了？）。在ResHacker代码窗口最上面一行中，修改对话框宽度为图片宽度288。点击“编译脚本”，看看右边预览窗口是不是变了？

这时用鼠标或者键盘将“取消”按钮移动到右边框左侧一点：

9、 右边界搞定了，下面来确定下边界。经测试，下边界通过下面的竖长条确定：

10、 调整竖长条上边界到上面图片的下边界，然后调整右侧的控件位置，然后确保竖长条的下边界能包含住右边的控件：

11、 回到主界面。用鼠标调整按钮等控件到合适位置。然后编辑控件，选择上边扰老第5步中的“WS_CLIPSIBLINGS”项，让按钮隐藏，但是能够起作用。对于其他的控件可以这样处理：“忘记密码”、“QQ号码”“QQ密码”等可以使用上述方式隐藏，也可以将大小设置为长为0或者宽为0来隐藏。“自动登陆”和“隐身登陆”前面的复选框这样设置：右键编辑控件，大小设置为8×8，取消风格中的“BS_FLAT”项，这样没有黑边。

12、 这样设置后，基本上就OK了。这样做出来的只是界面更换了，其他的没有改变，下面我们来去掉它的边框和标题栏：在预览窗口中右键选择“编辑对话”，取消风格中的“WS_CAPTION”（去标题栏）和“DS_MODALFRAME”（去边框）即可。

注：去掉标题栏后无法关闭界面，可以将下面的“取消”按钮（不是控制右边界的那个取消，下面还有一个）挪上来，放置到合适位置，如本例中的右上角位置。

13、 到这一步应该就结束了，回头看看其实也没有什么难的，困难的就是背景图片的选择制作。在整个过程中只要细敬知心、小心，一般是没有问题的。当然为了方便起见可以完成一个或者一套修改后备份一次，测试一次，这样如果哪一步出错了，可以恢复到前一步的 *** 作中来，不用从头来了。

14、 网上还流传着这样的教程，重命名位图→963为1111（或者其他没有重复的数字），替换位图→1111为你想要的背景图片，修改删除位图→16050。然后在右侧预览窗口中删除下面的位图控件（原来的位图→16050），将上面的位图控件（位图→1111）的ID修改为1，这样在代码窗口中原来的963行出成为第一行，复制第一行，粘贴到第二行之前，这样前2行是一样的。修改第二行的963数字为1111，点击“编译脚本”，这样珊瑚虫版的界面也可以正常显示。

---