Author Topic: Cara baca external IP lewat coding ?  (Read 2349 times)

0 Members and 1 Guest are viewing this topic.

Offline agungmd

  • Newbie
  • *
  • Posts: 5
Cara baca external IP lewat coding ?
« on: February 22, 2011, 05:23:14 PM »
Halo....
Ada yg tau cara baca IP external lewat VFP  ? (bukan IP Internal lho ya) 
Terima kasih atas sharing master" semua....
« Last Edit: February 22, 2011, 05:28:11 PM by agungmd »

Offline imanmis

  • Hero Member
  • *
  • Posts: 3.735
  • Newbie
Re: Cara baca external IP lewat coding ?
« Reply #1 on: February 22, 2011, 05:43:13 PM »
Quote
DECLARE INTEGER GetRTTAndHopCount IN Iphlpapi;
INTEGER DestIpAddress, LONG @HopCount,;
INTEGER MaxHops, LONG @RTT
DECLARE INTEGER inet_addr IN ws2_32 STRING cp


LOCAL nDst, nHop, nRTT
nDst = inet_addr('xxx.xxx.xxx.xxx')
&& www.google.com/www.fox-id.org/119.235.xx.xxx
STORE 0 TO nHop, nRTT
IF GetRTTAndHopCount(nDst, @nHop, 50, @nRTT) <> 0
? 'Counting ping ke tujuan', nHop
? 'Respon Ping dalam detik:', nRTT
ELSE
? 'Ping tidak berhasil'
ENDIF
« Last Edit: February 22, 2011, 05:45:33 PM by imanmis »

Offline andyutomo

  • Senior Member
  • *
  • Posts: 414
Re: Cara baca external IP lewat coding ?
« Reply #2 on: February 22, 2011, 06:12:36 PM »
selain pake cara pak imam...bisa pake cara ini sebagai alternatif...

site="www.google.com"
EXECSCRIPT("RUN ping "+site+" -n 1 -i 1 >> fm.txt")
ctr=FILETOSTR("fm.txt")
cip=SUBSTR(ctr,AT("[",ctr)+1,AT("]",ctr)-AT("[",ctr)-1)
DELETE FILE "fm.txt"


Variable cip berisi IP dari site dlm contoh www.google.com
salam,


andypu

Offline agungmd

  • Newbie
  • *
  • Posts: 5
Re: Cara baca external IP lewat coding ?
« Reply #3 on: February 22, 2011, 10:06:03 PM »
@imanmis & @andyutomo  terima kasih sudah mampir & comment....

Maksud saya dg IP External adalah IP yg diberikan oleh ISP pada saat kita konek ke inet (IP Public).
IP router/modem ini kan selalu berubah (IP Dynamis), kalau jenis layanan dari ISP tidak memberikan IP Static.
Kalau dari web kita bisa tau dg www.ipgue.com atau www.whatismyip.com
Nah.. mungkin penjelasan yg lebih jelas tentang IP External dan Internal ada disini :

http://portforward.com/networking/routers_ip_address.htm

Sebenarnya masalah IP Dynamic ini bisa diatasi dgn membuat akun di www.DynDNS.com atau yg lain,
cuma saya pengen explore apakah untuk keperluan ini bisa di-coding via VFP, sehingga saya bisa
meng-informasikan IP Computer kita ke Computer lawan secara otomatis, setiap kali ada perubahan IP kita.

Tks dan salam
« Last Edit: February 22, 2011, 10:22:05 PM by agungmd »

Offline andyutomo

  • Senior Member
  • *
  • Posts: 414
Re: Cara baca external IP lewat coding ?
« Reply #4 on: February 22, 2011, 10:56:25 PM »
Oh..kalau itu yang dimaksudkan mungkin bisa pake script ini pak....

oHTML = CreateObject("MSXML2.XMLhttp")
oHTML.open("GET", "http://www.your-ip-address.com", .F.)
ohtml.send()
P3=oHTML.ResponseText
P1="Your IP address is"
P2="</nobr></td></tr></table>"
CIP=SUBSTR(P3,AT(P1,P3,1)+39,AT(P2,P3,1)-AT(P1,P3,1)-39)


Variable CIP berisi IP Public Kita....
salam,


andypu

Offline agungmd

  • Newbie
  • *
  • Posts: 5
Re: Cara baca external IP lewat coding ?
« Reply #5 on: February 22, 2011, 11:21:40 PM »
Hehehe... boleh juga cara mancingnya...  :thumbsup:

Ok trik ini bisa dijadikan salah satu referensi, yang mungkin bisa bermanfaat buat
temen" yg juga sedang membangun aplikasi Client-Server via internet, yang pasti punya
masalah kalau pakai IP Dynamic.
Monggo yg lain silahkan.....

Offline imanmis

  • Hero Member
  • *
  • Posts: 3.735
  • Newbie
Re: Cara baca external IP lewat coding ?
« Reply #6 on: February 22, 2011, 11:36:54 PM »
tambahin lagi neh
 
Quote
* parse string dari http://www.whatismyip.com/
LOCAL oIe AS InternetExplorer.Application
LOCAL tDt
oIe = CREATEOBJECT([InternetExplorer.Application])
oIe.Navigate2([whatismyip.com])
tDt = DATETIME()
DO WHILE oIe.ReadyState <> 4 AND DATETIME() - tDt < 30
   INKEY(0.01)
ENDDO
** Extract public IP
ALINES(laLines,oIe.Document.Body.InnerText)
MESSAGEBOX([Your public IP is ]+ALLTRIM(laLines[3]))
oIe = NULL

Offline agungmd

  • Newbie
  • *
  • Posts: 5
Re: Cara baca external IP lewat coding ?
« Reply #7 on: February 23, 2011, 12:07:14 AM »
Kalau ada yg gagal waktu nyoba scriptnya mas Iman, tinggal ditambah aja "www." jadi www.whatismyip.com
@andyutomo & @imanmis thx for sharing !   :icon_thumright: