Kod:
Private Sub Komut4_Click()
On Error GoTo Err_hata
Dim a, b
WebBrowser1.Document.getElementById("ctl00$mcphContent$txtOwnerIdentityNumber").Value = Metin2
WebBrowser1.Document.getElementById("ctl00$mcphContent$btnGetOwnerIdentity").Click
ProgressBar1.Visible = True
For a = 1 To 100
ProgressBar1.Value = a
For b = 1 To 200000
Next b
Next a
ProgressBar1.Visible = False
MsgBox "Sorgulama Tamamlandı.", vbInformation, "B İ L G İ "
Me.hepsi = ""
Me.adi = ""
Me.soyadi = ""
'Me.Metin17=""
Dim IE As Object
Set IE = Me.WebBrowser1
Me.hepsi = IE.Document.All.tags("table").Item(1).Rows(0).Cells(1).innerText
Me.adi = mid$(Me.hepsi, InStr(Me.hepsi, "ad:") + 3, InStr(Me.hepsi, "soyad:") - InStr(Me.hepsi, "ad:") - 5)
Me.soyadi = mid$(Me.hepsi, InStr(Me.hepsi, "soyad:") + 6, InStr(Me.hepsi, "soyad:") - InStr(Me.hepsi, " Adreste ") - 6)
Me.soyadi = left([soyadi], InStr(1, [soyadi], " ") - 12)
Set IE = Nothing
Exit Sub
Err_hata:
MsgBox "İnternet bağlantınız yok. Lütfen Kontrol Ediniz"
Exit Sub
End Sub