Private submmand1_click ()
MSGBOX Getip ("
www.9cbs.net ")
End Sub
Function GetIP (URL AS String) AS String
Shell "Command.com / C Ping" & URL & "-N 1> C: / ping", Vbhide
DIM FN AS INTEGER
Fn = freefile
Retry:
Open "c: / ping" for binary access s #fn
Getip = space (Filelen ("C: / Ping"))
Get #fn, Getip
Close #fn
IF len (getip) = 0 THEN GOTO RETRY
Getip = Left $ (getip, INSTR (Getip, "]") - 1)
Getip = MID $ (Getip, INSTR (Getip, "[") 1)
Kill "C: / ping"
END FUNCTION
