IP adresinden karakter tahlili gibi bişey :)

xurl1="http://ipin"+"fodb.com/ip_query.php?ip="

xurl2="http://www.meteoroloji.gov.tr/FTPDATA/analiz/sonSOA.xml"

ohttp=Newobject("winhttp.winhttprequest.5.1")

ohttp.Open("GET",xurl1,.F.)

ohttp.Send()

oxloc=Upper(ohttp.responsetext)

oxip=Strextract(oxloc,"<IP>","</IP>",1)

xccode=Strextract(oxloc,"<COUNTRYCODE>","</COUNTRYCODE>",1)

xcname=Strextract(oxloc,"<COUNTRYNAME>","</COUNTRYNAME>",1)

xrcode=Strextract(oxloc,"<REGIONCODE>","</REGIONCODE>",1)

xrname=Strextract(oxloc,"<REGIONNAME>","</REGIONNAME>",1)

xcity=Strextract(oxloc,"<CITY>","</CITY>",1)

xzip=Strextract(oxloc,"<ZIPPOSTALCODE>","</ZIPPOSTALCODE>",1)

xlat=Strextract(oxloc,"<LATITUDE>","</LATITUDE>",1)

xlon=Strextract(oxloc,"<LONGITUDE>","</LONGITUDE>",1)

xgmt=Strextract(oxloc,"<GMTOFFSET>","</GMTOFFSET>",1)

xdst=Strextract(oxloc,"<DSTOFFSET>","</DSTOFFSET>",1)

msg1="Ip : "+oxip+Chr(13)+"Şehir :"+Proper(xcity)+Chr(13)+"Ülke : "+Proper(xcname)+;

    Chr(13)+Chr(13)+Chr(13)+xcity+" için hava tahmini okunsun mu ?"

xsc=Messagebox(msg1,4,"Ip ve yer bilgisi")

If xsc=6

    ohttp.Open("GET",xurl2,.F.)

    ohttp.Send()

    oxhav=Strextract(Upper(ohttp.responsetext),Upper(xcity),"SEHIRIKON",1)

    xchav1=Strextract(oxhav,"<MAK>","</MAK>",1)

    xchav2=Strextract(oxhav,"<MIN>","</MIN>",1)

    xchav3=Strextract(oxhav,"<DURUM>","</DURUM>",1)

    xchav3=Lowe(Strconv(xchav3,11))

    msg2=xcity+" için hava tahmini"+Chr(13)+"En yüksek : "+xchav1+Chr(13)+"En düşük  : "+xchav2+Chr(13)+Chr(13)+"Hava Durumu : "+xchav3

    =Messagebox(msg2,"Hava Durumu")

Endif

Return