AccessTr.neT

Liste Kutusundaki ip adresini çift tıklarsan sorgular ve sonucunu alttaki metin kutularına ve tabloya aktarır.

çok teşekkürler sledgeab ..

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

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

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

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ı