看见有人发个QQ临时聊天工具贴要邀请码，还美其名曰强聊……
晚间有空，写了一个，大家看看。

.386
.model flat,stdcall
option casemap:none

include           windows.inc
include           user32.inc
include           shell32.inc
include           kernel32.inc
include           comctl32.inc
includelib        user32.lib
includelib        kernel32.lib
includelib        comctl32.lib
includelib        shell32.lib

IDD_DLG1 equ 1000
IDC_EDT1 equ 1001
IDC_BTN1 equ 1002
IDC_STC1 equ 1003

.data
QQ                    db           'http://wpa.qq.com/msgrd?V=1&Uin=10000     ',0

.const
open                  db           'open',0
caption               db           'xvirus,0
text                  db           '请输入你想交谈的QQ号码！！',0         

.data?
_hinstance            dd           ?

.code

_callback       proc              uses ebx esi edi hwnd,umsg,wparam,lparam
       
                mov              eax,umsg
                .if              eax == WM_COMMAND
                mov              eax,wparam
                                 .if              ax == IDC_BTN1
                                 lea               eax,QQ
                                 add               eax,20H
                                 invoke           GetDlgItemText,hwnd,IDC_EDT1,eax,sizeof QQ
                                                 .if              eax >0
                                                 invoke           ShellExecute,hwnd,offset open,offset QQ,NULL,NULL,SW_HIDE
                                                 .else
                                                 invoke           MessageBox,hwnd,offset text,offset caption,MB_OK
                                                 .endif
                                 .endif
                .elseif          eax == WM_CLOSE
                invoke           EndDialog,hwnd,NULL
                .else
                xor              eax,eax
                ret
                .endif
                mov              eax,TRUE
        ret

_callback endp

start:          invoke            InitCommonControls
                invoke            GetModuleHandle,NULL
                mov               _hinstance,eax
                invoke            DialogBoxParam,_hinstance,IDD_DLG1,NULL,offset _callback,NULL
                invoke            ExitProcess,NULL
                end               start

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
IDD_DLG1 DIALOGEX -2,-16,259,97
CAPTION "xvirus"
FONT 8,"MS Sans Serif",0,0,0
STYLE WS_VISIBLE|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX
EXSTYLE WS_EX_OVERLAPPEDWINDOW|WS_EX_DLGMODALFRAME
BEGIN
  CONTROL

"",IDC_EDT1,"Edit",WS_CHILD|WS_VISIBLE|WS_TABSTOP|ES_NUMBER,57,39,1

11,15,WS_EX_CLIENTEDGE
  CONTROL "聊

天",IDC_BTN1,"Button",WS_CHILD|WS_VISIBLE|WS_TABSTOP,189,39,45,15
  CONTROL "对方QQ

号：",IDC_STC1,"Static",WS_CHILD|WS_VISIBLE,9,42,43,9
END
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\各位修改下编译就能用了。
下面的是批处理实现的

@echo off
title QQ强制聊天工具
color b
cls
echo --------------
echo By:xvirus
echo --------------
echo 2007-05-16
echo --------------
echo 请先打开QQ
pause
:q
set /p qq=请输入你想聊天的QQ号：
if /i "%qq%"=="n" exit
start tencent://message/?uin=%qq%
pause
goto q

[课程]FART 脱壳王！加量不加价！FART作者讲授！