vb中怎么样把本机的ip地址（内网和外网）发送指定空间

Question

vb中怎么样把本机的ip地址（内网和外网）发送指定空间
Dim aa As String
 Dim strLocalIP As String
 Dim winIP As Object
 aa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf
 aa = aa & "本机用户名称:" & Environ("username") & vbCrLf
 Set winIP = CreateObject("MSWinsock.Winsock")
 strLocalIP = winIP.localip
 MsgBox aa & "本机IP:" & strLocalIP
Text1.Text = aa & "本机IP:" & strLocalIP
Open "c:\123.txt" For Append As #1
Print #1, Text1.Text;
Close #1
end sub这样只是内网ip啊 ， 怎么样把外网ip也显示？怎么样把c:\123.txt  发送的/site/js/u0sxl.js?cxpup=mgtw">

Answer 1

获取外网ip地址请访问www.ip138.com

Answer 2

或者访问http://www.baidu.com/s?wd=ip

Answer 3

你能不能详细的说一下!
怎么样在后台访问那个网址啊？
还有那个txt文件怎么发到我邮箱？

Answer 4

 
OpenURL 方法
      打开并返回指定 URL 的文档。文档以变体型返回。该方法完成时，URL 的各种属性（以及该 URL 的一些部分，如协议）将被更新，以符合当前的 URL。语法object.OpenUrl url [,datatype]OpenURL 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的对象。 
url 必需的。被检索文档的 URL。 
datatype 可选的。整数，如“设置值”所示，指定数据类型。 
设置值datatype 的设置值：常数 值 描述 
icString 0 缺省值。把数据作为字符串来检索。 
icByteArray 1 把数据作为字节数组来检索。 
返回类型Variant说明OpenURL 方法的返回值取决于 URL 的目标。例如，如果 URL 的目标是某个 FTP 服务器的目录，将返回该目录。另一方面，如果目标是一个文件，则检索该文件。OpenURL 方法等效于：调用带 GET 操作的 Execute 方法，然后在 StateChanged 事件中调用 GetChunk 方法。但是，OpenURL 方法会导致从站点返回同步数据流。如下所示，如果正在检索一个二进制文件，在把它写到磁盘上之前，请务必使用一个字节数组作为临时变量：Dim b() As Byte
Dim strURL As String
'设置 strURL 为一个有效的地址。
strURL = "FTP://ftp.GreatSite.com/China.exe"
b() = Inet1.OpenURL(strURL, icByteArray)Open "C:\Temp\China.exe" For Binary Access _
Write As #1
Put #1, , b()
Close #1注意   当使用 OpenURL 方法时，在设置 Password 和 UserName 属性之前，设置 URL 属性。如果最后设置 URL 属性， UserName 和 Password 属性将被置为 ""。

Answer 5

发邮件使用ANSMTPLib

Answer 6

Private Sub TestReg()
    Dim strData As String
    Dim reg As Object
    Dim matchs As Object, match As Object
 
    strData = getHtmlStr("http://www.baidu.com/s?wd=ip")
 
    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = " fk=""([\d\.]+)"""
    Set matchs = reg.Execute(strData)
    Debug.Print matchs(0).SubMatches(0)
End Sub
 
Private Sub TestReg2()
    Dim strData As String
  
    strData = getHtmlStr("http://ip.changeip.com/")
 
    Debug.Print Left(strData, InStr(strData, "<") - 1)
    
End Sub
Private Sub TestReg3()
    Dim strData As String
    Dim reg As Object
    Dim matchs As Object, match As Object
 
    strData = getHtmlStr("http://ip.changeip.com")
 
    Set reg = CreateObject("vbscript.regExp")
    reg.Pattern = "^[\d\.]+"
    Set matchs = reg.Execute(strData)
    Debug.Print matchs(0)
End Sub
Private Function getHtmlStr(strUrl As String) As String
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open "GET", strUrl, False
    XmlHttp.send
    getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
    Set XmlHttp = Nothing
End Function