1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| 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 |
