转帖：用汇编语言写QQ任我聊(页 1) - 编程语言学习 - 星星电脑技术论坛电脑技术|QQ|DIY|网络|程序设计|l软件下载|病毒安全|电影|音乐|笑话|美女图片|广告

ZPengxin 发表于 2007-7-26 14:05

转帖：用汇编语言写QQ任我聊

[url=http://bbs.cfan.com.cn/thread-384930-1-1.html][size=3][color=red]用汇编语言写QQ任我聊[/color][/size][/url],u.o+e oE5Y

j^,uq5T6g:w#U
转自电脑爱好者论坛，作者：zhangke
原帖和可执行文件下载地址:　[url=http://bbs.cfan.com.cn/thread-384930-1-1.html][color=#0000ff]http://bbs.cfan.com.cn/thread-384930-1-1.html[/color][/url]　$m/O%t a O,s}uU
nH-h-V'VHj

［注意］原创，转载请注明!!!

呵呵！一个小工具而已，就是没加为好友也可以和别人聊天，临时会话！跟群里的和网站上的那种原理是一样的！
[img]http://bbs.cfan.com.cn/bbs-ad/luntan/tiezi/qq.jpg[/img]6{z$_,xj6J
原理解析：
在Tencent的互动服务里面（[url=http://imis.qq.com/][color=#0000ff]http://imis.qq.com/[/color][/url]）可以为你生成网页代码放到自己的网页中，让别人在网站上点一下就可以给你留言！^$g V6oRR i
程序就是利用的这个生成的代码,直接在浏览器中输入l-_o}}+z5b6E
tencent://message/?uin=你想聊天的QQ号码&Site=im.qq.com&Menu=yes

就可以和别人聊天了，取消临时会话的用户不行（这个就是临时会话嘛！）s}j`Wv
下面是汇编程序源代码:1a.p;|r8OTe$K*F\6n
'@%Tv$D+[@
.386mv(c;K\p-R(s2U!Tx
.model flat,stdcall
option casemap:none  G4ya!eg-X4P
DlgProc proto :DWORD,:DWORD,:DWORD,:DWORD
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc2_ig0Q%NA7G
include \masm32\include\masm32.inc6U;^2PeH7e|6u
include \masm32\include\shell32.inc
k3B#esWj{
includelib \masm32\lib\kernel32.libA_-De:b)ok#B
includelib \masm32\lib\user32.lib
includelib \masm32\lib\masm32.lib)`0s+j*K;Z(GH
includelib \masm32\lib\shell32.lib
.data?;C},Ys*v'n
QQnum db ?
hInstance HINSTANCE ?6CsO;^-k
swidth  dd ?
sheight dd ?e$])C0XNZj e
dwidth  dd ?    C%N)~)v(_"y$h
dheight dd ?gpw8_5B"qH
rect RECT <>
mystr db ?
szTemp1 db ?
szTemp2 db ?
.data
str1 db "tencent://message/?uin=",0
str2 db "&Site=im.qq.com&Menu=yes",0
MainDialog db "MyDialog",0
szMutex db "zhangkesqqtalker",0
ErrorText db "Program already run...",0
ErrorTitle db "Warning!!!",0
N/{ |(Y G o
.const
BTNSTART equ 1003
EDITNUM  equ 1002(a-xW}'q)G;~-w%I
.codecwL;v-\#kZ)U%e`

start:1p&H`*\&_"h"a

Main proc
invoke GetModuleHandle,NULL
mov hInstance,eax
invoke DialogBoxParam,hInstance,addr MainDialog,NULL,addr DlgProc,NULL
invoke ExitProcess,0nC(o@YN T
Main endp
DlgProc proc hWnd:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM+tb&oJ6T SI
.if uMsg==WM_INITDIALOG
      invoke CreateMutex,NULL,FALSE,addr szMutexcpU5k![+w0T@
      invoke GetLastError
      .IF eax == ERROR_ALREADY_EXISTS
         invoke MessageBox,NULL,addr ErrorText,addr ErrorTitle,MB_ICONWARNING
         invoke ExitProcess,NULLjx~/afhxF
      .ENDIF)iSXIf
      ;上面几行代码的作用的防止程序多开(即只能运行一个实例)
      invoke GetSystemMetrics,SM_CXSCREEN    ;
      mov swidth,eax                         ;
      invoke GetSystemMetrics,SM_CYSCREEN    ;
      mov sheight,eax                      ; !Y7GoX5hHD3G-K
      invoke GetWindowRect,hWnd,addr rect    ;Rv;C4Mlzuq
      mov eax,rect.right                   ;这几行是为下面invoke SetWindowPos做准备9A4|1M&G{-[|N5O.t"{*\
      sub eax,rect.left                      ; ~lpeQ*]
      mov dwidth,eax                         ;.m%O;dlc9J8[
      sub swidth,eax                         ;使窗体出现在屏幕中心
      mov eax,rect.bottom                   ;W&yL cI2P-E8??I%p
      sub eax,rect.top                      ;
      mov dheight,eax                      ;其中不明白的地方看一下Platform SDK就可以了 3hp9[S7wN
      sub sheight,eax                      ;.`9_Fu Oy+G!r
      shr sheight,1                         ;"nZ3j7V,Oa
      shr swidth,1                         ;`K%n*^$d^H6R.?e+k,O
      invoke SetWindowPos,hWnd,HWND_NOTOPMOST,swidth,sheight,dwidth,dheight,SWP_SHOWWINDOW
.elseif uMsg==WM_COMMAND
      mov eax,wParamh;|/Q-c_
      .if ax==BTNSTART
         invoke szCopy,addr str1,addr mystr
            invoke GetDlgItemText,hWnd,EDITNUM,addr QQnum,11
         invoke szCatStr,addr mystr,addr QQnum
            invoke szCatStr,addr mystr,addr str2
            invoke ShellExecute,NULL,NULL,addr mystr,NULL,NULL,SW_HIDE3b3G#E2dj|(L(a
      .endif9RO;N#U;I9X
.elseif uMsg==WM_CLOSEt E+^(w-wHY0L
      invoke EndDialog,hWnd,0/z`3t RBv6zn
.else+pd?J2QM{$S+lMJ
      mov eax,FALSE7o ~qx3P
      ret
.endif
mov eax,TRUETor(Z/p(U
ret
DlgProc endp
j$C6^X2Bm
end start
%Q%T$UH t9`7z
忘了说！补充一句，使用工具为MASM32!!!i(@&E6cW^

有任何问题请与我联系:zk_invincible@163.com

页: [1]

星星电脑技术论坛's Archiver

转帖：用汇编语言写QQ任我聊