04/11/2010, 15:24 #1 Aktif Üye gitarc Bul Aktif Üye Adı Soyadı: Yaşı: 40 Konum: Balıkesir Ofis Versiyonu: Ofis XP Son Oturumu: 04/03/2021,16:08 Yorumları: 14 Konuları: 12 Kayıt Tarihi: 01/11/2010 Teşekkür Puanı: 0 Projenize INET ekleyin bir tane. Private Sub cmdIPAdresiniz_Click() Dim Ipim As String Ipim = Inet1.OpenURL("http://www.whatismyip.org/") If Left(Ipim, 5) <> "Error" Then Text1.Text = Ipim Else MsgBox "Arka arkaya üç defadan fazla IP sorgulaması yapılmaz" & vbCrLf & _ "Lütfen bir müddet bekleyiniz", vbInformation, "Uyarı" End If End Sub Kodu SeçKodu Kopyala PROGRAMMER MEHMET Cevapla Cevapla
05/11/2010, 10:13 #2 Aktif Üye akd Bul Aktif Üye Adı Soyadı: Konum: Gaziantep Ofis Versiyonu: Ofis 2003 Son Oturumu: 28/09/2023,09:59 Yorumları: 280 Konuları: 64 Kayıt Tarihi: 04/11/2008 Teşekkür Puanı: 35 Merhaba gitarc, Bu kodlar vb.net için mi, INET hangi menü bloğunda ? Cevapla Cevapla
