获取本机外网IP 更新到D盘的文件 追加300分

来源：百度知道 编辑：UC知道 时间：2024/07/02 19:04:40
我要把家里的机器做成CS 服务器 人在学校 由于家里是ADSL 所以IP会改变 现在我想写个 获取本机外网IP 更新到D盘cs.txt 里
注意：cs.txt里面的 文件格式 127.0.0.1 202.202.202.202 27015
前面的127.0.0.1 和后面的27015 端口不用更新
只需要 每分钟检测一次外面IP 如果不是 202.202.202.202 更新他
说的很明白了吧 请高手 写好代码 自己编译一下 如果成功 我追加 300分

注意CS.TXT里面的 文本格式：IP空格IP空格端口（IP IP 27015） 每分钟检测一下中间的IP 如果变了 就更新CS.TXT
请高手 写好代码 自己编译一下 如果成功 我追加 300分 绝不食言 不要有BUG啦 你自己先试试 不要吃内存哦 语言用 VB DELPHI VC 都可以 只要给我源码 我机器上有这三个编程软件

'获取本机IP地址,支持多网卡,可以分别获取多个网卡的IP

Option Explicit

Private Const MAX_ADAPTER_NAME_LENGTH As Long = 256
Private Const MAX_ADAPTER_DESCRIPTION_LENGTH As Long = 128
Private Const MAX_ADAPTER_ADDRESS_LENGTH As Long = 8
Private Const ERROR_SUCCESS As Long = 0

Private Type IP_ADDRESS_STRING
IpAddr(0 To 15) As Byte
End Type

Private Type IP_MASK_STRING
IpMask(0 To 15) As Byte
End Type

Private Type IP_ADDR_STRING
dwNext As Long
IpAddress As IP_ADDRESS_STRING
IpMask As IP_MASK_STRING
dwContext As Long
End Type

Private Type IP_ADAPTER_INFO
dwN