Clear

lnSec = Seconds()
lcURL = "http://
Try
    loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")
    loHttp.Open("POST", lcURL, .F.)
    loHttp.Send()
    rs = Strextract(loHttp.ResponseText, [从国内测试], [这是])
    ? [IP:], Strextract(rs, [<p>] + Chr(10), [中国])
Catch to oErr
    ?oErr.message
EndTry

?[用时:], Transform(Seconds() - lnSec)