win32汇编环境,网络编程入门之十七

最新推荐文章于 2025-04-08 17:59:43 发布

一品人家

最新推荐文章于 2025-04-08 17:59:43 发布

阅读量582

点赞数 9

分类专栏： win32汇编网络编程入门教程文章标签：汇编

本文链接：https://blog.youkuaiyun.com/iltokyo/article/details/146750960

版权

win32汇编网络编程入门教程专栏收录该内容

18 篇文章

订阅专栏

;win32汇编环境,网络编程入门之十七
;在这一教程里，学习一下，如何多线程大规模搜索可访问的域名，即搜索可用网址
;本示例是，启动3条同步线程循环访问生成的网址，看其结果是否200.搜索的是abc0000.com,abc0001.com,abc0002.com至abc1000.com之内的1000个域名
;同步线程的意思，即调用函数后不是马上返回，需等函数有结果了才返回。
;多条线程进行，则每条线程结束的时间并不相同，有可能先运行的后结束，也可能后运行的先结束。
;所以，假如需要共享全局变量时，谨慎面对全局变量。
;比如A线程改变了全局变量，本来轮到B线程改变全局变量，但它还未结束，A线程第2次结束了，马上又改变了全局变量，这将导致一团糟。
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.386
.model flat,stdcall
option casemap:none

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Include 文件定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include windows.inc
include user32.inc
include kernel32.inc
include wininet.inc ;需要添加的wininet头文件

includelib user32.lib
includelib kernel32.lib
includelib wininet.lib ;需要添加的wininet库文件

; 自定义函数声明
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
DlgProc proto :DWORD,:DWORD,:DWORD,:DWORD ;对话框窗口函数

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Equ 等值定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
MAINDIALOG equ 1
ICO_MAIN equ 1000 ;图标

ID_BUTTON01   equ 41
ID_EDIT01   equ 11
ID_EDIT02   equ 12
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 数据段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.data

szMsg db "提示",0
szErr db "错误",0
szFrm01 db "www.abc000%d.com",0
szFrm02 db "www.abc00%d.com",0
szFrm03 db "www.abc0%d.com",0
szRecCodeFrm db " 网站返回值是 %s",0

szEnter db 13,10,0 ;回车换行符

szAgent db "Microsoft Internet Explorer",0 ;骗网站说自已是IE浏览器
szUrlPath db "/",0 ;要访问的页面是主页
szVerb db "GET",0 ;GET方法访问
szAccept db "Accept: text/html",0 ;只接受text或html文件返回

.data?
hInstance HINSTANCE ?
hEdithwnd01 HWND ?
hEdithwnd02 HWND ?

szNewHostName db 128 dup (?) ;不同域名的字符串变量，须是全局变量
hAdd_1 dd ? ;用来产生1000个网站的数字

hThread01 dd ?
hThread02 dd ?
hThread03 dd ?
hThread04 dd ?
hThread05 dd ?
.const

; 代码段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.code
start:
invoke GetModuleHandle, NULL
mov hInstance,eax
invoke DialogBoxParam, hInstance, MAINDIALOG,NULL, addr DlgProc, NULL
invoke ExitProcess,eax
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;每调用本函数就生成新的域名，从 abc0001.com abc0002.com abc0003.com abc0004.com 直至 abc1000.com ，当然可以用不同的方式产生不同的域名
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_CreateHostName proc
LOCAL @szBuffer[128]:byte
LOCAL @stCR:CHARRANGE

invoke RtlZeroMemory,addr @szBuffer,sizeof @szBuffer
invoke RtlZeroMemory,addr szNewHostName,sizeof szNewHostName

.if hAdd_1 < 10
   invoke wsprintf,addr @szBuffer,addr szFrm01,hAdd_1
.elseif hAdd_1 >= 10 && hAdd_1 < 100
invoke wsprintf,addr @szBuffer,addr szFrm02,hAdd_1
.elseif hAdd_1 >= 100 && hAdd_1 <= 1000
invoke wsprintf,addr @szBuffer,addr szFrm03,hAdd_1
.endif
invoke lstrcpy,addr szNewHostName,addr @szBuffer ;把生成的新网址保存到全局字符串变量 szNewHostName 里面去

inc hAdd_1

       ret

_CreateHostName   endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_WorkThread01   proc   _lParam
LOCAL @hInternet,@hHttpSession,@hHttpRequest
LOCAL @szNewHostName[128]:byte
LOCAL @szBuffer[256]:byte
LOCAL @szRecBuffer[1024]:byte
LOCAL @stCR:CHARRANGE

LOCAL @szContentLength[128]:byte
LOCAL @Totallength

mov ebx,0
   .while TRUE
       .break .if hAdd_1 >= 1000

invoke Sleep,300 ;让其停顿0.3秒，主要是为了让多线程之间产生一点时间间隔
invoke _CreateHostName ;生成新的域名

invoke lstrcpy,addr @szNewHostName,addr szNewHostName ;获得新产生的域名，就是网址，必须马上把新产生的域名复制过来。因为是同步进程，无法保证哪条进程先有结果
invoke InternetOpen,addr szAgent,INTERNET_OPEN_TYPE_DIRECT,NULL,NULL,0 ;初始化应用程序的 WinINet 函数的使用
mov @hInternet,eax

   invoke InternetConnect,@hInternet,addr szNewHostName,80,NULL,NULL,INTERNET_SERVICE_HTTP,0,0 ;为给定站点打开文件传输协议（FTP）或 HTTP 会话,80是http的端口
   mov @hHttpSession,eax
   .if eax == NULL
        invoke MessageBox,NULL,addr szErr,addr szMsg,MB_OK
   .endif

   invoke HttpOpenRequest,@hHttpSession,addr szVerb,addr szUrlPath,NULL,addr szAccept,0,0,0 ;创建 HTTP 请求句柄
   mov @hHttpRequest,eax

   invoke HttpSendRequest,@hHttpRequest,NULL,0,NULL,0 ;将指定的请求发送到 HTTP 服务器
   mov @Totallength,128 ;注意这里要先赋值为缓冲区的字节大小，不能使用sizeof前面缓冲区的大小，因为它还要保存其它的值
   invoke HttpQueryInfo,@hHttpRequest,HTTP_QUERY_STATUS_CODE,addr @szContentLength,addr @Totallength,NULL

   invoke RtlZeroMemory,addr @szBuffer,sizeof @szBuffer
   invoke wsprintf,addr @szRecBuffer,addr szRecCodeFrm,addr @szContentLength
   invoke lstrcat,addr @szBuffer,addr @szNewHostName
   invoke lstrcat,addr @szBuffer,addr @szRecBuffer
   invoke GetWindowTextLength,hEdithwnd01
   mov @stCR.cpMin,eax
       mov @stCR.cpMax,eax

       invoke SendMessage,hEdithwnd01,EM_EXSETSEL,0,addr @stCR
   invoke SendMessage,hEdithwnd01,EM_REPLACESEL,FALSE,addr @szBuffer
   invoke SendMessage,hEdithwnd01,EM_REPLACESEL,FALSE,addr szEnter ;加上回车换行符

   invoke InternetCloseHandle,@hHttpRequest ;反向清除各类HINTERNET 句柄，即先生成的后清除，后生成的先清除
        invoke InternetCloseHandle,@hHttpSession
   invoke InternetCloseHandle,@hInternet

inc ebx
.endw

ret

_WorkThread01 endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_WorkThread02   proc   _lParam
LOCAL @hInternet,@hHttpSession,@hHttpRequest
LOCAL @szNewHostName[128]:byte
LOCAL @szBuffer[256]:byte
LOCAL @szRecBuffer[1024]:byte
LOCAL @stCR:CHARRANGE

LOCAL @szContentLength[128]:byte
LOCAL @Totallength

mov ebx,0
   .while TRUE
   .break .if hAdd_1 > 1000
   invoke Sleep,400
invoke _CreateHostName

invoke lstrcpy,addr @szNewHostName,addr szNewHostName
       invoke InternetOpen,addr szAgent,INTERNET_OPEN_TYPE_DIRECT,NULL,NULL,0
   mov @hInternet,eax

   invoke InternetConnect,@hInternet,addr szNewHostName,80,NULL,NULL,INTERNET_SERVICE_HTTP,0,0
   mov @hHttpSession,eax
   .if eax == NULL
        invoke MessageBox,NULL,addr szErr,addr szMsg,MB_OK
   .endif

   invoke HttpOpenRequest,@hHttpSession,addr szVerb,addr szUrlPath,NULL,addr szAccept,0,0,0
   mov @hHttpRequest,eax

   invoke HttpSendRequest,@hHttpRequest,NULL,0,NULL,0
   mov @Totallength,128
   invoke HttpQueryInfo,@hHttpRequest,HTTP_QUERY_STATUS_CODE,addr @szContentLength,addr @Totallength,NULL

   invoke RtlZeroMemory,addr @szBuffer,sizeof @szBuffer
   invoke wsprintf,addr @szRecBuffer,addr szRecCodeFrm,addr @szContentLength
   invoke lstrcat,addr @szBuffer,addr @szNewHostName
   invoke lstrcat,addr @szBuffer,addr @szRecBuffer
   invoke GetWindowTextLength,hEdithwnd01
   mov @stCR.cpMin,eax
       mov @stCR.cpMax,eax

       invoke SendMessage,hEdithwnd01,EM_EXSETSEL,0,addr @stCR
   invoke SendMessage,hEdithwnd01,EM_REPLACESEL,FALSE,addr @szBuffer
   invoke SendMessage,hEdithwnd01,EM_REPLACESEL,FALSE,addr szEnter

   invoke InternetCloseHandle,@hHttpRequest
        invoke InternetCloseHandle,@hHttpSession
   invoke InternetCloseHandle,@hInternet

       inc ebx
   .endw
   ret

_WorkThread02 endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_WorkThread03   proc   _lParam
LOCAL @hInternet,@hHttpSession,@hHttpRequest
LOCAL @szNewHostName[128]:byte
LOCAL @szBuffer[256]:byte
LOCAL @szRecBuffer[1024]:byte
LOCAL @stCR:CHARRANGE

LOCAL @szContentLength[128]:byte
LOCAL @Totallength

mov ebx,0
   .while TRUE
   .break .if hAdd_1 > 1000

invoke Sleep,500
invoke _CreateHostName

invoke lstrcpy,addr @szNewHostName,addr szNewHostName
       invoke InternetOpen,addr szAgent,INTERNET_OPEN_TYPE_DIRECT,NULL,NULL,0
   mov @hInternet,eax

_WorkThread03 endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
DlgProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
LOCAL   @stWsa:WSADATA

.if uMsg == WM_INITDIALOG
   invoke   LoadIcon,hInstance,ICO_MAIN
   invoke   SendMessage,hWnd,WM_SETICON,ICON_BIG,eax

invoke GetDlgItem,hWnd,ID_EDIT01
mov hEdithwnd01,eax
invoke GetDlgItem,hWnd,ID_EDIT02
mov hEdithwnd02,eax

mov hAdd_1,0 ;初始化为1，这个用于每次产生新域名时，用来给域名加1用
.elseif   uMsg ==   WM_COMMAND
           mov   ebx,wParam
       .if   bx ==   ID_BUTTON01
       invoke SendMessage,hEdithwnd01,WM_SETTEXT,0,0 ;清空编辑框

           invoke   CreateThread,NULL,0,offset _WorkThread01,0,NULL,0 ;启动连接线程,用线程的原因是不让网络等待卡住主进程

invoke CreateThread,NULL,0,offset _WorkThread02,0,NULL,0

           invoke   CreateThread,NULL,0,offset _WorkThread03,0,NULL,0
           .endif
.elseif uMsg == WM_CLOSE

invoke EndDialog,hWnd,NULL
.else
mov eax,FALSE
ret
.endif
mov eax,TRUE
ret
DlgProc endp

end start

;下面为rc文件内容
#include "resource.h" //提示缺少该文件，可以在资源里下载
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
#define MAINDIALOG 1
#define ICO_MAIN 1000 //图标
#define ID_BUTTON01 41