主题：OpenQQ服务端自启动求助

我的一个项目使用了openQQ,使用内置身段验证，我想问问，1、开机如何自动启动服务端，（不想在程序菜单的启动菜单下添加，怕被人删除）？2、服务端启动时内置登录窗口如何做到不需要打开，不需要输入用户名和密码？

因使用了SQL外部数据源存储用户数据，不能使用默认用户。

1、直接修改注册表可以设置开机自动启动。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73350&skin=0

2、如果你用内置登陆窗口，不能设置默认用户的。这个确实没办法，看下次的更新能不允许设置吧。

你再弄一个foxtable项目，做外挂吧。

全局代码

<DllImport("user32.dll", EntryPoint := "FindWindow", SetLastError := True)> _
Public Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr
End Function

<DllImport("user32.dll", EntryPoint := "FindWindowEx", SetLastError := True)> _
Public Function FindWindowEx(hwndParent As IntPtr, hwndChildAfter As UInteger, lpszClass As String, lpszWindow As String) As IntPtr
End Function

<DllImport("user32.dll", EntryPoint := "SendMessage", SetLastError := True, CharSet := CharSet.Auto)> _
Public Function SendMessage(hwnd As IntPtr, wMsg As UInteger, wParam As IntPtr, lParam As String) As Integer
End Function

填入密码，点击确定

Dim hwnd As IntPtr = FindWindow(Nothing, "用户登录")
If hwnd <> IntPtr.Zero Then
    msgbox("找到窗口")
    Dim lbl As IntPtr = FindWindowEx(hwnd, 0, "WindowsForms10.EDIT.app.0.378734a", "")
    If lbl <> IntPtr.Zero Then
        msgbox("找到文本框")
        SendMessage(lbl, &H000C, 0, "888")
        Dim btn = FindWindowEx(hwnd, 0, "WindowsForms10.BUTTON.app.0.378734a", "确定")
        If btn <> IntPtr.Zero Then
            msgbox("找到按钮")
            SendMessage(btn, &Hf5, 0, 0)
        End If
    End If
End If

------------------------------------执行出问题，有可能红色地方获取错误，你用下面的工具重新获取

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:spylite24.zip

全局代码写到全局代码那里去。

下面的调用的代码，就是模拟填入密码，然后点击确定啊。