(05/12/2015, 12:38)Sherlock.Holmes yazdı: https://intvd.gib.gov.tr/internetvd/index.jsp
Bu bağlantı altındaki internet vergi dairesi yeni internet vergi dairesi değil mi? Sayfa içinde İnternet Vergi Dairesi'ne tıkladığımda aşağıdaki sayfaya yönlendiriyor sen zaten vergi levhası sorgulama aşamasını halletmişsin anlamadığım nerede takıldığın.
https://intvd.gib.gov.tr/internetvd/disp..._LOGINPAGE
Olaylar iyice karıştı. Ben yanlış okumuşum, senin vergi levhası oluşturma yapmak istediğini anladım bu kodları ondan paylaştım.
Bu kodla ilgili bi sıkıntım yok.
Ben ebirlik sayfasını dışardan internet explorer ile açıyorum.
Kod:
Dim Browser As SHDocVw.InternetExplorer
Browser = New SHDocVw.InternetExplorer
With Browser
.Navigate("http://service1.turmob.org.tr/?ReturnUrl=http://ebirlik.turmob.org.tr/AccountManager") ' Main page
.Visible = 1
Do While .ReadyState = 4
Application.DoEvents()
Loop
Try
Browser.Document.GetElementById("userName").InvokeMember("select")
Browser.Document.ExecCommand("paste", False, "53950441034")
Catch ex As Exception
End Try
End With