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

;win32汇编环境,网络编程入门之十一
;在上一教程里，我们学习了如何读取大容量的网页内容，在这一教程里，我们学习一下如何在wininet或winhttp机制中提取网页中的超链接
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.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
szFrm          db "%d",0
szErr          db "错误",0
szEnter        db 13,10,0                              ;回车换行符

szAgent        db "Microsoft Internet Explorer",0      ;骗网站说自已是IE浏览器
szHostName     db "www.kepai2023.cn",0                 ;要访问的主机域名
szUrlPath      db "/",0                                ;要访问的主页，写成/index.html 也可以
szVerb         db "GET",0                              ;GET方法访问
szAccept       db "Accept: text/html",0                ;只接受text或html文件返回
               
.data? 
hInstance HINSTANCE          ? 
hEdithwnd01     HWND         ?
hEdithwnd02     HWND         ?

hInternet       dd           ?
hHttpSession    dd           ?
hHttpRequest    dd           ?
hHttp           dd           ?

.const 

  
; 代码段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.code 
start: 
         invoke GetModuleHandle, NULL 
         mov    hInstance,eax 
         invoke DialogBoxParam, hInstance, MAINDIALOG,NULL, addr DlgProc, NULL 
         invoke ExitProcess,eax 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;处理接收到的字符串，把链接内容提取出来
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_HandleData    proc    _lpData,_dwSize

                LOCAL   hSign    ;用来当记号，当发现有链接开始，即<a 字符时定为1，当a>字符时定为2，没有情况时为0
                LOCAL   szBuffer[256]:byte
                LOCAL   szSaveBuffer[1024]:byte
                LOCAL   @stCR:CHARRANGE
                
                mov    esi,_lpData
        mov hSign,0

        invoke    RtlZeroMemory,addr szBuffer,sizeof szBuffer
        invoke    RtlZeroMemory,addr szSaveBuffer,sizeof szSaveBuffer
        invoke  SendMessage,hEdithwnd02,WM_SETTEXT,0,0               ;清空编辑框
        mov ebx,0
        mov edx,0
        .while TRUE
            .break .if ebx == _dwSize
            .if byte ptr [esi+ebx] == "<" && byte ptr [esi+ebx+1] == "a"
                  mov hSign,1    
            .endif
            .if byte ptr [esi+ebx] == ">" && byte ptr [esi+ebx-1] == "a"
                  mov hSign,2
                  mov byte ptr [szBuffer+edx],">"    
            .endif
            .if hSign == 1
                mov al,byte ptr [esi+ebx]
                mov byte ptr [szBuffer+edx],al
                inc edx
            .endif    
            .if hSign == 2
                invoke GetWindowTextLength,hEdithwnd02            
                            mov @stCR.cpMin,eax
                    mov @stCR.cpMax,eax
                invoke MultiByteToWideChar,65001,0,addr szBuffer,256,addr szSaveBuffer,1024 
                invoke SendMessageW,hEdithwnd02,EM_EXSETSEL,0,addr @stCR
                            invoke SendMessageW,hEdithwnd02,EM_REPLACESEL,FALSE,addr szSaveBuffer

                            invoke SendMessage,hEdithwnd02,EM_REPLACESEL,FALSE,addr szEnter                 ;加上回车换行符
                mov hSign,0
                mov edx,0    
            .endif
            inc ebx
        .endw
        ret

_HandleData    endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_WorkThread    proc    _lParam
        LOCAL  @dwBytesReaded
        LOCAL  @szBuffer[256]:byte
        LOCAL  @szRecBuffer[1024]:byte
        LOCAL  @szSaveBuffer[1024]:byte
        LOCAL  @stCR:CHARRANGE
       
        invoke InternetOpen,addr szAgent,INTERNET_OPEN_TYPE_DIRECT,NULL,NULL,0                     ;初始化应用程序的 WinINet 函数的使用
        mov hInternet,eax
        invoke InternetConnect,hInternet,addr szHostName,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 服务器，可以附加数据，后面再说，先实现基本效果先
        .if eax == NULL
               invoke MessageBox,NULL,addr szErr,addr szMsg,MB_OK            
        .endif

    invoke SendMessageW,hEdithwnd01,WM_SETTEXT,0,0
    .while TRUE  ;通过循环反复读取，直到读到0字节为止
            invoke RtlZeroMemory,addr @szRecBuffer,sizeof @szRecBuffer
            invoke RtlZeroMemory,addr @szSaveBuffer,sizeof @szSaveBuffer
            mov @dwBytesReaded,0
            invoke InternetReadFile,hHttpRequest,addr @szRecBuffer,1024,addr @dwBytesReaded   ;从打开的句柄读取数据，
        .break .if @dwBytesReaded == 0
        invoke _HandleData,addr @szRecBuffer,1024                                         ;这里不能按字符串的长度赋值，因为服务器返回的数据里面可能很多0，而一般字符串以0为结束符
        invoke MultiByteToWideChar,65001,0,addr @szRecBuffer,1024,addr @szSaveBuffer,1024 ;将UTF8编码数据转为UNICODE编码
        invoke GetWindowTextLength,hEdithwnd01                                            ;从后面添加内容，防止覆盖上去
                mov @stCR.cpMin,eax
        mov @stCR.cpMax,eax
        invoke SendMessageW,hEdithwnd01,EM_EXSETSEL,0,addr @stCR
                invoke SendMessageW,hEdithwnd01,EM_REPLACESEL,FALSE,addr @szSaveBuffer            
    .endw

    ret

_WorkThread 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

        .elseif    uMsg ==    WM_COMMAND
            mov    ebx,wParam
                .if    bx ==    ID_BUTTON01
                        invoke    CreateThread,NULL,0,offset _WorkThread,0,NULL,0           ;启动连接线程,用线程的原因是不让网络等待卡住主进程                         
            .endif        
        .elseif uMsg == WM_CLOSE   
                invoke InternetCloseHandle,hHttpRequest                                           ;反向清除各类HINTERNET 句柄，即先生成的后清除，后生成的先清除
                invoke InternetCloseHandle,hHttpSession                                                         
                invoke InternetCloseHandle,hInternet
        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

#define    ID_EDIT01       11         //编辑框标识符
#define    ID_EDIT02       12
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ICO_MAIN    ICON        "Main.ico"
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
//定义对话框
MAINDIALOG DIALOG 10, 10, 210, 250 
STYLE  DS_CENTER | WS_CAPTION | WS_MINIMIZEBOX | 
WS_SYSMENU | WS_VISIBLE | WS_OVERLAPPED | DS_MODALFRAME | DS_3DLOOK 
CAPTION "对话框程序模版" 
FONT 11, "方正姚体"
BEGIN 
     PUSHBUTTON      "连接网站", ID_BUTTON01,  150,20,50,12
     
     CONTROL "这里显示的是服务器返回的信息",ID_EDIT01,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP|ES_MULTILINE|ES_WANTRETURN|ES_AUTOVSCROLL|WS_VSCROLL,10, 60, 190, 180,WS_EX_CLIENTEDGE  //设置成多行编辑框，按回车时加回车符
     CONTROL "这里是提取到的链接地址",ID_EDIT02,"Edit",WS_CHILDWINDOW|WS_VISIBLE|WS_TABSTOP|ES_MULTILINE|ES_WANTRETURN|ES_AUTOVSCROLL|WS_VSCROLL,10, 10, 130, 40,WS_EX_CLIENTEDGE
END