请帮忙解释一个VB小程序的原码下半部分

来源：百度知道 编辑：UC知道 时间：2024/05/31 07:00:43
'进入 www.ip138.com 取得代码，再过滤过IP地址 ，我这样拿到外网IP的，呵呵
ip_gw = Inet1.OpenURL("http://www.ip138.com")
ip_gw = Mid$(ip_gw, InStr(ip_gw, "您的IP地址是"), 20)
ip_gw = Replace(ip_gw, "您的IP地址是", "")
ip_gw = Replace(ip_gw, "：", "")
ip_gw = Replace(ip_gw, "'", "")
ip_gw = Replace(ip_gw, ":", "")
ip_gw = Replace(ip_gw, "<", "")
ip_gw = Replace(ip_gw, ">", "")
ip_gw = Replace(ip_gw, "/", "")
ip_gw = Replace(ip_gw, "f", "")
ip_gw = Replace(ip_gw, "o", "")
ip_gw = Replace(ip_gw, "r", "")
ip_gw = Replace(ip_gw, "t", "")
ip_gw = Replace(ip_gw, &qu

'////////////// 用Inet控件连接到 www.ip138.com 获取外网IP
'////////////// 浏览器中打开也可以看到

ip_gw = Inet1.OpenURL("http://www.ip138.com")
ip_gw = Mid$(ip_gw, InStr(ip_gw, "您的IP地址是"), 20)
ip_gw = Replace(ip_gw, "您的IP地址是", "")
ip_gw = Replace(ip_gw, "：", "")
ip_gw = Replace(ip_gw, "'", "")
ip_gw = Replace(ip_gw, ":", "")
ip_gw = Replace(ip_gw, "<", "")
ip_gw = Replace(ip_gw, ">", "")
ip_gw = Replace(ip_gw, "/", "")
ip_gw = Replace(ip_gw, "f", "")
ip_gw = Replace(ip_gw, "o", "")
ip_gw = Replace(ip_gw, "r", "")
ip_gw = Replace(ip_g