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

;win32汇编环境,网络编程入门之十四
;在这一教程里，学习一下，如何得到网页的标题
;这里需要理解一下html语言，标签对里面的内容即为网页的标题
;其原理是把返回的字符串，按字节进行检查，发现上面的标签对时，把里面的内容提取出来.
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.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

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

szAgent        db "Microsoft Internet Explorer",0      ;骗网站说自已是IE浏览器
szHostName     db "www.kepai2023.cn",0                 ;要访问的主机域名
szUrlPath      db "/A/A01.html",0                      ;要访问的页面
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           ?

.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    ;用来当记号，当发现标题标签对出现时，即时，                 LOCAL   szBuffer[256]:byte
                LOCAL   szSaveBuffer[256]: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
        ;循环检查字符串，当发现有3个连续的字符，即         .while TRUE
            .break .if ebx == _dwSize
            .if byte ptr [esi+ebx] == "<" && byte ptr [esi+ebx+1] == "t" && byte ptr [esi+ebx+2] == "i"
                  mov hSign,1    
            .endif
            .if byte ptr [esi+ebx] == "<" && byte ptr [esi+ebx+1] == "/" && byte ptr [esi+ebx+2] == "t"
                  mov hSign,2
                  mov byte ptr [szBuffer+edx-7],0     ;-7 的原因是后面复制的时候，把传入进来的字符串的后7个字符复制进来了，这个时候结束复制，则需要把多余的7个字节内容去掉
            .endif
            .if hSign == 1
                mov al,byte ptr [esi+ebx+7]       ;+7 的原因是在