bilinen IP numarasının www.ripe.net sitesinden sorgulanması - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: bilinen IP numarasının www.ripe.net sitesinden sorgulanması (/konu-bilinen-ip-numarasinin-www-ripe-net-sitesinden-sorgulanmasi.html) |
Cvp: bilinen IP numarasının www.ripe.net sitesinden sorgulanması - ozanakkaya - 24/02/2009 Liste Kutusundaki ip adresini çift tıklarsan sorgular ve sonucunu alttaki metin kutularına ve tabloya aktarır. Cvp: bilinen IP numarasının www.ripe.net sitesinden sorgulanması - sakarof - 24/02/2009 çok teşekkürler sledgeab .. Cvp: bilinen IP numarasının www.ripe.net sitesinden sorgulanması - alpeki99 - 24/02/2009 Arada not düşmeden edemeyeceğim. Sayın sleadgeab'in eklemiş olduğu örneği kolay kolay bir yerde bulmanız mümkün değil. Bu örnekte kullanılan sistem TC Kimlik Sorgulama vb. örneklerden çok daha ileri seviyededir. Sistemin çalışması normal standartlarda mümkün değilken özel bir kodlama sistemi kullanılmıştır. Ben sizin yerinizde olsam sevgili sleadgeab'e özel bir teşekkür ederdim Cvp: bilinen IP numarasının www.ripe.net sitesinden sorgulanması - esrefigit - 24/02/2009 sayın ozan kardeşimin affına sığınarak örnek güzel olmasına rağmen arkadaşın isteğine geçici bir çözüm olmuş gibi görünüyor çünkü bu uygulamada accesstr altına eklenmiş bir php kodu adı geçen siteden ip yi sorguluyor karşılında tablo olarak ekrana getiriyor neyse ozan kardeşim bana bu uygulamayı yapmamı söylemişti lakin işlerden zaman ayıramamıştım ekleyeceğim örneği kodlarını ayrıntılı olarak anlatark ekleyeceğimki bundan sonra diğer sitelerden başka bir bilgi sorgulayıp formuna alarak tabloya ekleyecek olanlar daha kolay kullansın Cvp: bilinen IP numarasının www.ripe.net sitesinden sorgulanması - esrefigit - 24/02/2009 kodu açıklamalı olarak veriyorum bu kısmı biliyorsunuz Option Compare Database bunuda Private Sub Komut2_Click() burda objShell, objIE diye iki tane obje belirliyoruz Dim objShell, objIE As Object burda readHTML ve readtext diye belirlediğimiz alanları boşaltıyoruz readHTML = "" readtext = "" burda strUrl diye belirlediğimiz alana dbripe denen adresi ve ona bitişik olarak txtip diye belirlediğimiz metin kutusundaki ip yi alıyoruz strURL = "http://www.db.ripe.net/whois?form_type=simple&full_query_string=&searchtext=" & txtip.Value yukrda blirlediğimiz objelerden ilki olan objShell adlı olanın ne tür bir obje olacağını create diye Wscript olarak yaratıyoruz Set objShell = CreateObject("Wscript.Shell") yukrda blirlediğimiz objelerden ikincisi olan objIE adlı olanın ne tür bir obje olacağını create diye InternetExplorer olarak yaratıyoruz Set objIE = CreateObject("InternetExplorer.Application") burda objIE ye tanımlar ve görevler vereceğiz With objIE .Visible = False .Silent = True burda strUrl ley verdiğimiz adres ve ip yi açıyoruz internette sanal olarak .Navigate (strURL) ve burda açtığımız sayfadaki verileri okumaya başlıyoruz Do While .readyState <> 4 DoEvents Loop burda sayfanın body ile tanımlanmış olan bölümündeki verileri alıyoruz With .Document.body burda readHTML alanına Html olarak veriyi readHTML = .innerHTML burda readtext alanına text olarak veriyi alıyoruz readtext = .innerText End With End With burda metin 3 alanına mid ile diyecektimki öncelikle Mid ve Instr olayını anlatmak lazım Mid bir metinde belirli bir kısmı almaya yarar şöyle Mid(alınacakmetin,metninbaşlangıcı,metninbitişi) yani Mid("ali gel",1,2) örnek olursa size gelecek veri al olur anlaşıldı sanırım Instr ise belirli bir metinin bir yerindeki kelimeyi bulur ve onun size kaçıncı sırada başladığın verir yani ınstr(1,"ali geldi gitti" ,"geldi",vbTextCompare) bu size şöyle bir sonuç verir 6 yani geldi 6 karakterden itibaren başlıyor demek vbTextCompare bu ise text olan bir veri demek neyse bu okadarda önemli değil hiç koymasanızda varsayılandır. sanırım burda ne yaptığımı anlamışsınızdır onu bul sırasını bul bundan o sayısyı çıkar oradan başlayarak metnin bu bölümünü al ve metin kutularına yaz Me.Metin3 = Mid(readtext, InStr(1, readtext, "netname:", vbTextCompare), InStr(1, readtext, "descr: ", vbTextCompare)) Me.Metin5 = Mid(readtext, InStr(1, readtext, "country") + 17, 2) Me.Metin7 = Mid(readtext, InStr(1, readtext, "descr") + 17, InStr(1, readtext, "country") - (InStr(1, readtext, "descr") + 17)) Me.Metin9 = Mid(readtext, InStr(1, readtext, "netname") + 17, InStr(1, readtext, "descr") - (InStr(1, readtext, "netname") + 17)) burdada objeleri ve prosedürü kapatıyoruz çünkü her ne kadar sanal olarak interneti sanal yani göstermeden kullanıyorsakta sadece bu iş için hem ram hem internet expolorer çalışıyor objIE.Quit Set objIE = Nothing Set objShell = Nothing Exit Sub End Sub not: kodların tamamı bana aittir + not hala ben bilgilerin ne işe yaradığını bilmiyorum ozan kardeşim affet beni önemli =çalışması için shdocvw.dll refernsın ekli olması gerekiyor ip yi metin kutusuna yzıp düğmeye tıklıyorsunuz 2 saniyede bilgiler geliyor tabloya ekleme basit bir şey Cvp: bilinen IP numarasının www.ripe.net sitesinden sorgulanması - esrefigit - 24/02/2009 sanırım bu soruyu soran vazgeçti ki bir çok foruma sormuş cevap alamamıştı neyse canımız sağolsun uğraştığımız yanımıza kar kaldı |