易语言取外网IP源码

系统结构:getip,InternetOpen,InternetOpenUrl,InternetReadFile,InternetCloseHandle,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ getip
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InternetOpen
           |  |
           |  |---[dll]------   InternetOpenUrl
           |  |
           |  |---[dll]------   InternetReadFile
           |  |
           |  |---[dll]------   InternetCloseHandle

调用的DLL命令:

.DLL命令 InternetOpen, 整数型, "wininet.dll", "InternetOpenA"
    .参数 文本01, 文本型
    .参数 数值01, 整数型
    .参数 文本02, 文本型
    .参数 文本03, 文本型
    .参数 数值02, 整数型

.DLL命令 InternetOpenUrl, 整数型, "wininet.dll", "InternetOpenUrlA"
    .参数 数值03, 整数型
    .参数 文本04, 文本型
    .参数 文本05, 文本型
    .参数 数值04, 整数型
    .参数 数值05, 整数型
    .参数 数值06, 整数型

.DLL命令 InternetReadFile, , "wininet.dll", "InternetReadFile"
    .参数 数值07, 整数型
    .参数 文本06, 文本型, 传址
    .参数 数值08, 整数型
    .参数 数值09, 整数型, 传址

.DLL命令 InternetCloseHandle, , "wininet.dll", "InternetCloseHandle"
    .参数 数值10, 整数型