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 發送的我的郵箱？
這代碼怎么寫啊 ？
請各位高手幫忙
uj5u.com熱心網友回復：
獲取外網ip地址請訪問www.ip138.comuj5u.com熱心網友回復：
或者訪問http://www.baidu.com/s?wd=ipuj5u.com熱心網友回復：
你能不能詳細的說一下!
怎么樣在后臺訪問那個網址啊？
還有那個txt檔案怎么發到我郵箱？
uj5u.com熱心網友回復：
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 屬性將被置為 ""。
uj5u.com熱心網友回復：
發郵件使用ANSMTPLibuj5u.com熱心網友回復：
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/101093.html
標籤：VB基礎類