Integer liFileNum
String  lsBAT , lsDAT
String  lsText,lsIP[]
Long    i , llFileName
llFileName = 0
Do While True
llFileName ++
lsBAT = "C:" + String(llFileName) + ".BAT"
If FileExists(lsBAT) Then Continue
If DirectoryExists(lsBAT) Then Continue
Exit
Loop
llFileName = 0
Do While True
llFileName ++
lsDAT = "C:" + String(llFileName) + ".DAT"
If FileExists(lsDAT) Then Continue
If DirectoryExists(lsDAT) Then Continue
Exit
Loop
liFileNum = FileOpen(lsBAT,LineMode!, Write!, LockWrite!, Replace!)
FileWrite(liFileNum,"ipconfig > " + lsDAT)
FileClose(liFileNum)
Run(lsBAT,Minimized!)
Do While True
Yield()
If FileExists(lsDAT) Then Exit
Loop
Do While True
Yield()
liFileNum = FileOpen(lsDAT,LineMode!)
If liFileNum > 0 Then Exit
Loop
Do While True
Yield()
If FileRead(liFileNum, lsText) = -100 Then
  Exit
Else
  If Pos(lsText,"IP Address") > 0 Then
   lsIP[UpperBound(lsIP) + 1] = Mid(lsText,Pos(lsText,":") + 1)
  End If
End If
Loop
FileClose(liFileNum)
FileDelete(lsBAT)
FileDelete(lsDAT)
If UpperBound(lsIP) = 0 Then
MessageBox("","没有网卡或网络连接未启用！")
Else
For i = 1 To UpperBound(lsIP)
  MessageBox("IP:" + String(i),lsIP[ i ] )
Next
End If