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