IP Göster

fikretba · 11-01-2006, 14:42

Bu programla www.whatismyip.com veya ipadresim.net'e girmeden internet ip numaranıza her an ulaşabilirsiniz.Belirttiğiniz herhangi bir mail adresine belirli aralıklarla ip numaranızı gönderebilirsiniz.Kurulumu ve kullanımı çok kolay seçeneklerinde istediğiniz özellikleri ekleyip çıkarabilirsiniz.
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=37357

indirrrrrr

Kendi yazdığım bu uygulama hakkında düşüncelerinizi bekliyorummmm...

sistem yöneticileri için ideal

felix90 · 21-01-2006, 21:46

link bozuk

fikretba · 09-08-2006, 19:39

Alıntı:

Orjinal Mesaj Sahibi felix90

link bozuk

link sağlam

Kontrol · 09-08-2006, 20:15

Alın Size Sağlam Link Tıklayın !!

distorsion · 09-08-2006, 20:53

kaynak kodlarınıda alabilirmiyiz?

marconi23 · 22-08-2006, 03:53

güzel bi program teşekkür ederim

electroseko · 24-08-2006, 02:03

harbiden yaw. kaynak kodlarını alsak güzel olur. söz çalmayacam bak

. şaka bi yana güzel çalışma eline sağlık. emeğe saygı var sonuçta.

fikretba · 01-09-2007, 14:32

madem kodu istiyorsunuz ip alma kısmının kodu wardomdan esirgeyecek değilim...

Kod:

Sub intipal()
Dim t As Integer

ipal = ""
Dim iptek, sitedenipal As String
Dim ipbul As Integer

sitedenipal = Inet1.OpenURL("http://vbnet.mvps.org/resources/tools/getpublicip.shtml")
ipbul = InStr(sitedenipal, "var ip =")

For t = 1 To 15
    iptek = Mid(sitedenipal, ipbul + 9 + t, 1)
    If iptek = "'" Then Exit For
    ipal = ipal + iptek
Next
Text1 = ipal
Text2 = ws.LocalIP
End Sub

Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=37357

buda son çalışmam http://www.wardom.org/usb-disk-hack-t157859.html

Mainliner · 08-09-2007, 11:17

Güzel bir çalışma başarılarının devamını dilerim=)

ama karma istemek yasak

birde bukadar uğraşmana gerek yoktu =) minik bir vb script le bile bunu yapabilirdin (programlamadan anlamam sen nasıl yaptın bilmiyorum=) modeme bağlandığında zaten aldığı ip yazıyor =) otomatik olarak ordan çekip yollama vs. =)

fikretba · 08-09-2007, 12:21

Alıntı:

Orjinal Mesaj Sahibi Mainliner

Güzel bir çalışma başarılarının devamını dilerim=)

ama karma istemek yasak

birde bukadar uğraşmana gerek yoktu =) minik bir vb script le bile bunu yapabilirdin (programlamadan anlamam sen nasıl yaptın bilmiyorum=) modeme bağlandığında zaten aldığı ip yazıyor =) otomatik olarak ordan çekip yollama vs. =)

iyide sen modeme girip bakmayı biliyorsun birde kaynak kodu verdim bu kodlada yazdığın hack programa eklersin

Mainliner · 08-09-2007, 22:25

Alıntı:

Orjinal Mesaj Sahibi fikretba

iyide sen modeme girip bakmayı biliyorsun birde kaynak kodu verdim bu kodlada yazdığın hack programa eklersin

dediğim gibi " (programlamadan anlamam sen nasıl yaptın bilmiyorum) " neden böyle bir tavır aldın onuda anlamadım? neyse hiç bişey demicam yolun açık olsun.

fikretba · 09-09-2007, 06:03

bir tavır almadım açıklama getirdim sadece saol seninde yolun açık olsun

11-01-2006, 14:42	#1
fikretba Cool Üye Kayıt Tarihi: Mar 2005 Üye numarası: #3530 Yer: Dünya Mesaj sayısı: 146 Karma etkisi: 72 Karma: 6493	IP Göster Bu programla www.whatismyip.com veya ipadresim.net'e girmeden internet ip numaranıza her an ulaşabilirsiniz.Belirttiğiniz herhangi bir mail adresine belirli aralıklarla ip numaranızı gönderebilirsiniz.Kurulumu ve kullanımı çok kolay seçeneklerinde istediğiniz özellikleri ekleyip çıkarabilirsiniz. Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=37357 indirrrrrr Kendi yazdığım bu uygulama hakkında düşüncelerinizi bekliyorummmm... sistem yöneticileri için ideal Düzenleyen fikretba : 01-09-2007 at 14:54.

01-09-2007, 14:32	#8
fikretba Cool Üye Kayıt Tarihi: Mar 2005 Üye numarası: #3530 Yer: Dünya Mesaj sayısı: 146 Karma etkisi: 72 Karma: 6493	madem kodu istiyorsunuz ip alma kısmının kodu wardomdan esirgeyecek değilim... Kod: Sub intipal() Dim t As Integer ipal = "" Dim iptek, sitedenipal As String Dim ipbul As Integer sitedenipal = Inet1.OpenURL("http://vbnet.mvps.org/resources/tools/getpublicip.shtml") ipbul = InStr(sitedenipal, "var ip =") For t = 1 To 15 iptek = Mid(sitedenipal, ipbul + 9 + t, 1) If iptek = "'" Then Exit For ipal = ipal + iptek Next Text1 = ipal Text2 = ws.LocalIP End Sub Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=37357 buda son çalışmam http://www.wardom.org/usb-disk-hack-t157859.html Düzenleyen fikretba : 08-09-2007 at 12:21.

Konu Araçları	Bu Konuda Ara
Printer Çıktısını Göster Sayfayı Emaille Yolla	Bu Konuda Ara: Gelişmiş Arama

21-01-2006, 21:46	#2
felix90 Çırak Kayıt Tarihi: Jan 2006 Üye numarası: #47108 Mesaj sayısı: 1 Karma etkisi: 0 Karma: 10	link bozuk

09-08-2006, 20:15	#4
Kontrol Forum Ustası Kayıt Tarihi: Apr 2006 Üye numarası: #64474 Yer: West Coast Mesaj sayısı: 6,549 Karma etkisi: 10116 Karma: 1010338	Alın Size Sağlam Link Tıklayın !!

09-08-2006, 20:53	#5
distorsion Forum Kalfası Kayıt Tarihi: May 2005 Üye numarası: #19215 Yer: Broadcast (255.255.255.255) Mesaj sayısı: 2,371 Karma etkisi: 352 Karma: 34262	kaynak kodlarınıda alabilirmiyiz?

22-08-2006, 03:53	#6
marconi23 Cool Üye Kayıt Tarihi: Apr 2006 Üye numarası: #64923 Mesaj sayısı: 165 Karma etkisi: 7 Karma: 14	güzel bi program teşekkür ederim

24-08-2006, 02:03	#7
electroseko Cool Çırak Kayıt Tarihi: Jun 2005 Üye numarası: #24533 Mesaj sayısı: 35 Karma etkisi: 0 Karma: 21	harbiden yaw. kaynak kodlarını alsak güzel olur. söz çalmayacam bak . şaka bi yana güzel çalışma eline sağlık. emeğe saygı var sonuçta.

08-09-2007, 11:17	#9
Mainliner 1st Class WarrioR Kayıt Tarihi: May 2005 Üye numarası: #19756 Mesaj sayısı: 4,099 Karma etkisi: 7746 Karma: 773439	Güzel bir çalışma başarılarının devamını dilerim=) ama karma istemek yasak birde bukadar uğraşmana gerek yoktu =) minik bir vb script le bile bunu yapabilirdin (programlamadan anlamam sen nasıl yaptın bilmiyorum=) modeme bağlandığında zaten aldığı ip yazıyor =) otomatik olarak ordan çekip yollama vs. =)

09-09-2007, 06:03	#12
fikretba Cool Üye Kayıt Tarihi: Mar 2005 Üye numarası: #3530 Yer: Dünya Mesaj sayısı: 146 Karma etkisi: 72 Karma: 6493	bir tavır almadım açıklama getirdim sadece saol seninde yolun açık olsun

Şu Anda Konuyu Görüntüleyenler: 1 (0 üye ve 1 misafir)