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

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

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

 

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

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

点击浏览该文件:外挂_例子.zip