DiŞ Ip Bulma %100 ÇaliŞiyor:

[HaCkHaNd]

" Dış ip nizi öğrenme "

formunuza text1, inet ve bir adet timer1 ekleyin Timer interval=100 yapın kodları yapıştırın

Private Sub Timer1_Timer()
Text1 = Inet1.OpenURL("http://www.ip-adress.com/")
For i = 1 To Len(Text1)
al = Mid(Text1, i, 25)
If al = "Location of my IP address" Then
Text1 = Mid(Text1, i + 45, 12)
End If
Next i
Timer1.Enabled = False
End Sub

 

[*\ReaLLieS/*]

bakalım bakalım bir

 

[mchasso]

bakalım bakalım bir

dikkat et avlanma kardeşim sonra ağlanırsın gıttı bılgılerım dıye