易语言域名解析工具源码

系统结构:Ping,HTTP读文件,HTTP_ReadFile,取域名,取页面地址,取端口,创建映射文件,映射到内存,读字节集数据,写数据,解除映射,关闭映射文件,字节集到整数,字节集到文本,文本到字节集,整数到字节集,整数到文本,文本到整数,文本_取空白,文本_取长度,文本_取中间,文本_取左边,文本_取右边,文本_替换,文本_到大写,文本_到小写,文本_字符,文本_寻找文本,字节集_取空白,字节集_取左边,字节集_取中间,字节集_取右边,字节集_取长度,取字节集指针,取文本型指针,取字节型指针,取整数型指针,动态调用子程序,API_处理事件,API_信息框,创建,匹配,搜索全部,取匹配文本,取子表达式个数,取子匹配文本,CreateProcess,CreatePipe,ReadFile,CloseHandle,PeekNamedPipe,GetExitCodeProcess,ShowWindow,CreateThread,VarPtr,MsgWaitForMultipleObjects,PeekMessageA,GetCurrentThreadId,TranslateMessage_MSG,TranslateMessage_整数,DispatchMessageA,TerminateThread,RtlMoveMemory_传递参数,InternetOpenA,InternetConnectA,InternetCloseHandle,HttpOpenRequestA,HttpSendRequestA,InternetReadFile,HttpQueryInfoA,InternetSetCookieA,CreateFileA,CreateFileMappingA,MapViewOfFile,CopyMemory,UnmapViewOfFile,RtlMoveMemory_整数,GetProcAddress,GetModuleHandle,动态调用子程序_整数,StrToInt,LocalAlloc,FillMemory,LocalFree,lstrlen,CharUpper,CharLower,lstrcpyn_字节集,lstrcpyn_文本型,lstrcpyn_整数型,lstrcpyn_字节型,PeekMessage,DispatchMessage,MessageBox,GetActiveWindow,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ Ping
           |  |
           |  |------ HTTP读文件
           |  |
           |  |------ HTTP_ReadFile
           |  |
           |  |------ 取域名
           |  |
           |  |------ 取页面地址
           |  |
           |  |------ 取端口
           |  |
           |  |------ 创建映射文件
           |  |
           |  |------ 映射到内存
           |  |
           |  |------ 读字节集数据
           |  |
           |  |------ 写数据
           |  |
           |  |------ 解除映射
           |  |
           |  |------ 关闭映射文件
           |  |
           |  |------ 字节集到整数
           |  |
           |  |------ 字节集到文本
           |  |
           |  |------ 文本到字节集
           |  |
           |  |------ 整数到字节集
           |  |
           |  |------ 整数到文本
           |  |
           |  |------ 文本到整数
           |  |
           |  |------ 文本_取空白
           |  |
           |  |------ 文本_取长度
           |  |
           |  |------ 文本_取中间
           |  |
           |  |------ 文本_取左边
           |  |
           |  |------ 文本_取右边
           |  |
           |  |------ 文本_替换
           |  |
           |  |------ 文本_到大写
           |  |
           |  |------ 文本_到小写
           |  |
           |  |------ 文本_字符
           |  |
           |  |------ 文本_寻找文本
           |  |
           |  |------ 字节集_取空白
           |  |
           |  |------ 字节集_取左边
           |  |
           |  |------ 字节集_取中间
           |  |
           |  |------ 字节集_取右边
           |  |
           |  |------ 字节集_取长度
           |  |
           |  |------ 取字节集指针
           |  |
           |  |------ 取文本型指针
           |  |
           |  |------ 取字节型指针
           |  |
           |  |------ 取整数型指针
           |  |
           |  |------ 动态调用子程序
           |  |
           |  |------ API_处理事件
           |  |
           |  |------ API_信息框
           |  |
           |  |
======正则表达式
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 匹配
           |  |
           |  |------ 搜索全部
           |  |
           |  |------ 取匹配文本
           |  |
           |  |------ 取子表达式个数
           |  |
           |  |------ 取子匹配文本
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateProcess
           |  |
           |  |---[dll]------   CreatePipe
           |  |
           |  |---[dll]------   ReadFile
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   PeekNamedPipe
           |  |
           |  |---[dll]------   GetExitCodeProcess
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   VarPtr
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   PeekMessageA
           |  |
           |  |---[dll]------   GetCurrentThreadId
           |  |
           |  |---[dll]------   TranslateMessage_MSG
           |  |
           |  |---[dll]------   TranslateMessage_整数
           |  |
           |  |---[dll]------   DispatchMessageA
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   RtlMoveMemory_传递参数
           |  |
           |  |---[dll]------   InternetOpenA
           |  |
           |  |---[dll]------   InternetConnectA
           |  |
           |  |---[dll]------   InternetCloseHandle
           |  |
           |  |---[dll]------   HttpOpenRequestA
           |  |
           |  |---[dll]------   HttpSendRequestA
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   HttpQueryInfoA
           |  |
           |  |---[dll]------   InternetSetCookieA
           |  |
           |  |---[dll]------   CreateFileA
           |  |
           |  |---[dll]------   CreateFileMappingA
           |  |
           |  |---[dll]------   MapViewOfFile
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   UnmapViewOfFile
           |  |
           |  |---[dll]------   RtlMoveMemory_整数
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   动态调用子程序_整数
           |  |
           |  |---[dll]------   StrToInt
           |  |
           |  |---[dll]------   LocalAlloc
           |  |
           |  |---[dll]------   FillMemory
           |  |
           |  |---[dll]------   LocalFree
           |  |
           |  |---[dll]------   lstrlen
           |  |
           |  |---[dll]------   CharUpper
           |  |
           |  |---[dll]------   CharLower
           |  |
           |  |---[dll]------   lstrcpyn_字节集
           |  |
           |  |---[dll]------   lstrcpyn_文本型
           |  |
           |  |---[dll]------   lstrcpyn_整数型
           |  |
           |  |---[dll]------   lstrcpyn_字节型
           |  |
           |  |---[dll]------   PeekMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   MessageBox
           |  |
           |  |---[dll]------   GetActiveWindow

  

调用的DLL命令:

.DLL命令 CreateProcess, 整数型, , "CreateProcessA", 公开
    .参数 lpApplicationName, 整数型
    .参数 lpCommandLine, 文本型
    .参数 lpProcessAttributes, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 bInheritHandles, 逻辑型
    .参数 dwCreationFlags, 整数型
    .参数 lpEnvironment, 整数型
    .参数 lpCurrentDriectory, 整数型
    .参数 lpStartupInfo, STARTUPINFO, 传址
    .参数 lpProcessInformation, PROCESS_INFORMATION, 传址

.DLL命令 CreatePipe, 整数型, , "CreatePipe", 公开
    .参数 phReadPipe, 整数型, 传址
    .参数 phWritePipe, 整数型, 传址
    .参数 lpPipeAttributes, SECURITY_ATTRIBUTES, 传址
    .参数 nSize, 整数型

.DLL命令 ReadFile, 整数型, , "ReadFile", 公开
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nNumberOfBytesToRead, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 CloseHandle, 整数型, , "CloseHandle", 公开
    .参数 hObject, 整数型

.DLL命令 PeekNamedPipe, 整数型, , "PeekNamedPipe", 公开
    .参数 hNamedPipe, 整数型
    .参数 lpBuffer, 整数型
    .参数 nBufferSize, 整数型
    .参数 lpBytesRead, 整数型
    .参数 lpTotalBytesAvail, 整数型, 传址
    .参数 lpBytesLeftThisMessage, 整数型

.DLL命令 GetExitCodeProcess, 整数型, , "GetExitCodeProcess", 公开
    .参数 hProcess, 整数型
    .参数 lpExitCode, 整数型, 传址

.DLL命令 ShowWindow, 整数型, "user32", "ShowWindow", , 控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）  如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）
    .参数 hwnd, 整数型, , 窗口句柄，要向这个窗口应用由nCmdShow指定的命令
    .参数 nCmdShow, 整数型, , 为窗口指定可视性方面的一个命令。请用下述任何一个常数;SW_HIDE：隐藏窗口，活动状态给令一个窗口;SW_MINIMIZE：最小化窗口，活动状态给令一个窗口;SW_RESTORE：用原来的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOW：用当前的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOWMAXIMIZED：最大化窗口，并将其激活;SW_SHOWMINIMIZED：最小化窗口，并将其激活;SW_SHOWMINNOACTIVE：最小化一个窗口，同时不改变活动窗口;SW_SHOWNA：用当前的大小和位置显示一个窗口，不改变活动窗口;SW_SHOWNOACTIVATE：用最近的大小和位置显示一个窗口，同时不改变活动窗口;SW_SHOWNORMAL：与SW_RESTORE相同;

.DLL命令 CreateThread, 整数型, , "CreateThread"
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 VarPtr, 整数型, , "lstrcatA"
    .参数 lpString1, 传递参数, 传址
    .参数 lpString2, 整数型, 传址

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects"
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 bWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 PeekMessageA, 逻辑型, , "PeekMessageA"
    .参数 lpMsg, 整数型, 传址 数组
    .参数 hWnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型
    .参数 wRemoveMsg, 整数型

.DLL命令 GetCurrentThreadId, 整数型, , "GetCurrentThreadId"

.DLL命令 TranslateMessage_MSG, 整数型, "user32", "TranslateMessage"
    .参数 lpMsg, MSG

.DLL命令 TranslateMessage_整数, 逻辑型, , "TranslateMessage"
    .参数 lpMsg, 整数型, 传址 数组

.DLL命令 DispatchMessageA, 整数型, , "DispatchMessageA"
    .参数 lpMsg, 整数型, 传址 数组

.DLL命令 TerminateThread, 逻辑型, , "TerminateThread"
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 RtlMoveMemory_传递参数, , , "RtlMoveMemory"
    .参数 Destination, 传递参数, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 InternetOpenA, 整数型, "WinINet.dll", "InternetOpenA"
    .参数 lpszAgent, 文本型
    .参数 dwAccessType, 整数型
    .参数 lpszProxyName, 文本型
    .参数 lpszProxyBypass, 文本型
    .参数 dwFlags, 整数型

.DLL命令 InternetConnectA, 整数型, "WinINet.dll", "InternetConnectA"
    .参数 hInternet, 整数型
    .参数 lpszServerName, 文本型
    .参数 nServerPort, 整数型
    .参数 lpszUserName, 文本型
    .参数 lpszPassword, 文本型
    .参数 dwService, 整数型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 InternetCloseHandle, 逻辑型, "WinINet.dll", "InternetCloseHandle"
    .参数 hInternet, 整数型

.DLL命令 HttpOpenRequestA, 整数型, "WinINet.dll", "HttpOpenRequestA"
    .参数 hConnect, 整数型
    .参数 lpszVerb, 文本型
    .参数 lpszObjectName, 文本型
    .参数 lpszVersion, 文本型
    .参数 lpszReferer, 文本型
    .参数 lplpszAcceptTypes, 文本型
    .参数 dwFlags, 整数型
    .参数 dwContext, 整数型

.DLL命令 HttpSendRequestA, 逻辑型, "WinINet.dll", "HttpSendRequestA"
    .参数 hRequest, 整数型
    .参数 lpszHeaders, 文本型
    .参数 dwHeadersLength, 整数型
    .参数 lpOptional, 文本型
    .参数 dwOptionalLength, 整数型

.DLL命令 InternetReadFile, 逻辑型, "WinINet.dll", "InternetReadFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 dwNumberOfBytesToRead, 整数型
    .参数 lpdwNumberOfBytesRead, 整数型, 传址

.DLL命令 HttpQueryInfoA, 逻辑型, "WinINet.dll", "HttpQueryInfoA"
    .参数 hRequest, 整数型
    .参数 dwInfoLevel, 整数型
    .参数 lpvBuffer, 文本型, 传址
    .参数 lpdwBufferLength, 整数型, 传址
    .参数 lpdwIndex, 整数型

.DLL命令 InternetSetCookieA, 逻辑型, "WinINet.dll", "InternetSetCookieA"
    .参数 lpszUrl, 文本型
    .参数 lpszCookieName, 文本型
    .参数 lpszCookieData, 文本型

.DLL命令 CreateFileA, 整数型, , "CreateFileA", , 可打开和创建文件、管道、邮槽、通信服务、设备以及控制台，如执行成功，则返回文件句柄。
    .参数 lpFileName, 文本型, , 要打开的文件的名字
    .参数 dwDesiredAccess, 整数型, , 读2147483648，写1073741824
    .参数 dwShareMode, 整数型, , 0，不允许共享；1，允许读共享；2，允许写共享；1+2允许读写
    .参数 lpSecurityAttributes, 整数型, , 0
    .参数 dwCreationDisposition, 整数型
    .参数 dwFlagsAndAttributes, 整数型, , 134217728
    .参数 hTemplateFile, 整数型, , 0

.DLL命令 CreateFileMappingA, 整数型, , "CreateFileMappingA"
    .参数 hFile, 整数型, , CreateFileA()返回的句柄,-1表示映射虚拟文件，没有物理文件
    .参数 lpFileMappingAttributes, 整数型, , 0
    .参数 flProtect, 整数型, , 2读，4读写
    .参数 dwMaximumSizeHigh, 整数型, , 0
    .参数 dwMaximumSizeLow, 整数型, , 0
    .参数 lpName, 文本型

.DLL命令 MapViewOfFile, 整数型, , "MapViewOfFile"
    .参数 hFileMappingObject, 整数型, , CreateFileMappingA()取得
    .参数 dwDesiredAccess, 整数型, , 2，写；4，读；2+4，读写
    .参数 dwFileOffsetHigh, 整数型, , 文件映射的最大长度
    .参数 dwFileOffsetLow, 整数型, , 文件映射的最小长度
    .参数 dwNumberOfBytesToMap, 整数型, , 映射长度

.DLL命令 CopyMemory, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 ptr, 整数型
    .参数 struct, 字节集, 传址
    .参数 cb, 整数型

.DLL命令 UnmapViewOfFile, 逻辑型, , "UnmapViewOfFile"
    .参数 lpBaseAddress, 整数型

.DLL命令 RtlMoveMemory_整数, 整数型, , "RtlMoveMemory"
    .参数 lpvDest, 整数型, 传址
    .参数 lpvSource, 整数型
    .参数 cbCopy, 整数型

.DLL命令 GetProcAddress, 整数型, , "GetProcAddress"
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA"
    .参数 lpModuleName, 文本型

.DLL命令 动态调用子程序_整数, 整数型, , "CallWindowProcA"
    .参数 动态调用代码, 字节集, , 一定要用本人编写的
    .参数 子程序, 整数型, , 子程序指针
    .参数 参数, 整数型, 数组, 为整数数组，参数1为成员1…类推；文本型和字节集型（自定义结构）为指针
    .参数 参数数目, 整数型, , 一定要和参数数组相符，不然会出错
    .参数 是否C调用, 逻辑型, , 真为cdecl调用方式，假为stdcall调用方式（即标准WINAPI方式）

.DLL命令 StrToInt, 整数型, "shlwapi.dll", "StrToIntA", , 文本到整数
    .参数 lpSrc, 文本型

.DLL命令 LocalAlloc, 整数型, , "LocalAlloc"
    .参数 uFlags, 整数型
    .参数 uBytes, 整数型

.DLL命令 FillMemory, , , "RtlFillMemory", , 填充内存字节
    .参数 Destination, 整数型, , 指针地址
    .参数 Length, 整数型, , 长度
    .参数 Fill, 字节型, , 字节数据

.DLL命令 LocalFree, 整数型, , "LocalFree"
    .参数 hMem, 整数型

.DLL命令 lstrlen, 整数型, "kernel32.dll", "lstrlenA"
    .参数 文本, 文本型, , Ptr

.DLL命令 CharUpper, 文本型, , "CharUpperA"
    .参数 str, 文本型

.DLL命令 CharLower, 文本型, , "CharLowerA"
    .参数 str, 文本型

.DLL命令 lstrcpyn_字节集, 整数型, , "lstrcpyn"
    .参数 欲取其指针, 字节集, 传址
    .参数 欲取其指针, 字节集, 传址
    .参数 保留, 整数型, , 0

.DLL命令 lstrcpyn_文本型, 整数型, , "lstrcpyn"
    .参数 欲取其指针, 文本型, 传址
    .参数 欲取其指针, 文本型, 传址
    .参数 保留, 整数型, , 0

.DLL命令 lstrcpyn_整数型, 整数型, , "lstrcpyn"
    .参数 欲取其指针, 整数型, 传址
    .参数 欲取其指针, 整数型, 传址
    .参数 保留, 整数型, , 0

.DLL命令 lstrcpyn_字节型, 整数型, , "lstrcpyn"
    .参数 欲取其指针, 字节型, 传址
    .参数 欲取其指针, 字节型, 传址
    .参数 保留, 整数型, , 0

.DLL命令 PeekMessage, 整数型, "user32", "PeekMessageA"
    .参数 lpMsg, MSG
    .参数 句柄, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型
    .参数 wRemoveMsg, 整数型

.DLL命令 DispatchMessage, 整数型, "user32", "DispatchMessageA"
    .参数 lpMsg, MSG

.DLL命令 MessageBox, 整数型, "user32", "MessageBoxA", , 建立消息框窗体
    .参数 hwnd, 整数型
    .参数 lpText, 文本型
    .参数 lpCaption, 文本型
    .参数 wType, 整数型

.DLL命令 GetActiveWindow, 整数型, "user32", "GetActiveWindow", , 获得活动窗口的句柄