酷祥資訊部落格

關於部落格
遊戲、資訊
  • 88187

    累積人氣

  • 4

    今日人氣

    0

    訂閱人氣

VB用查電腦ip位址



Dim IP As String

 Shell "cmd /C ipconfig > IPAdd.txt"

Open "IPAdd.txt" For Input As #1
 Do While Not EOF(1)
        Line Input #1, tmp
       If Left(tmp, 3) = "PPP" Then m = 1
       If InStr(tmp, "IP Address") And m Then IP = Mid(tmp, InStr(tmp, ":") + 1): Exit Do
Loop
Close

Winsock1.Bind , Trim(IP)
Text1.Text = Winsock1.LocalIP

執行檔案下載

相簿設定
標籤設定
相簿狀態