(04/12/2015, 20:55)Sherlock.Holmes yazdı: İnternet vergi dairesini ile ilgili projem ise Vergi Lehvası sorgulama sayfasından TcNo Vergi No sorgulama yapmayı planlıyorum.
eski internet vergi dairesi ise, bende tüm sitenin işlemlerini yapan kodlar var. Ama yeni internet vergi dairesinin yapısını daha çözemedim.
Burdan kod paylaşımı ile geliştirelim.
Butonun click ine
Vergi Levhası Oluşturma
Kod:
Try
Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
With WebBrowser1.Document.All
WebBrowser1.Visible = True
WebBrowser1.Navigate("javascript:anaSayfaCachedLoginli()")
WebBrowser1.Navigate("javascript:loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_MENU_SORGULAMALAR')")
WebBrowser1.Navigate("javascript:loadAJAXUsingPOST('dispatch', 'contentivd', 'cmd=IVD_VRG_LVH_MUK_VKN_GIRIS')")
Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
Dim Sor As Integer
Sor = MsgBox("Levha Oluşturulsunmu?", vbYesNo)
If Sor = vbYes Then
Me.WebBrowser1.Document.GetElementById("mukellefTCKimlikNo").SetAttribute("Value", "12345678901")
Me.WebBrowser1.Document.GetElementById("mukellefVergiNo").SetAttribute("Value", "1234567890")
End If
Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
WebBrowser1.Navigate("javascript:loadAJAXUsingPOST('dispatch', 'contentivd', getParameterStringFromFormID('vergiLevhasiVKNGirisiForm'))")
Do While WebBrowser1.IsBusy
Application.DoEvents()
Loop
End With
Catch ex As Exception
End Try