Selam E-Birlik sözleşmesi için bende program yazdım. Giriş düğmesi çalışmıyordu sanırsam. Hatta manuel tıkladığımda bile çalışmıyordu. Ayrıca giriş yaptıktan sonra telefon numarası girişi yaparken bile il seçimi ilçe seçimi yaparken bile sıkıntılar yaşadım. Ama sonunda onları da aştım. Bu site ile geliştirmek istediğin eksik noktaları birleştirmende yardımcı olmaya çalışacağım.
WebBrowser’da Internet Explorer (IE) Sürümünü Değiştirme
bu sayfadaki kodları formuna yerleştir. Ondan sonra çalıştırmayı dene. Gerçi tam olarak problem bu muydu henüz hatırlamıyorum. Evdeki pc'den yazıyorum bu pc de V.studio yüklü değil o yüzden aklımda olanlarla şimdilik bu kadar yardımcı olabilirim.
Olurda forum ile ilgilenemezsem h// Adres vermeyin bilginizi buradan paylaşın adresinden bana ulaş...
(04/12/2015, 02:13)Sherlock.Holmes yazdı: [ -> ]Selam E-Birlik sözleşmesi için bende program yazdım. Giriş düğmesi çalışmıyordu sanırsam. Hatta manuel tıkladığımda bile çalışmıyordu. Ayrıca giriş yaptıktan sonra telefon numarası girişi yaparken bile il seçimi ilçe seçimi yaparken bile sıkıntılar yaşadım. Ama sonunda onları da aştım. Bu site ile geliştirmek istediğin eksik noktaları birleştirmende yardımcı olmaya çalışacağım.
WebBrowser’da Internet Explorer (IE) Sürümünü Değiştirme
bu sayfadaki kodları formuna yerleştir. Ondan sonra çalıştırmayı dene. Gerçi tam olarak problem bu muydu henüz hatırlamıyorum. Evdeki pc'den yazıyorum bu pc de V.studio yüklü değil o yüzden aklımda olanlarla şimdilik bu kadar yardımcı olabilirim.
Olurda forum ile ilgilenemezsem h// Adres vermeyin bilginizi buradan paylaşın adresinden bana ulaş...
Ebirlik ile ilgili çalışmanı benlede (bizlede) paylaşırsan fevkalede mutlu olurum.
Birde yeni internet vergi dairesi ile ilgili bi proje yaptınmı ?
(04/12/2015, 19:26)drummers yazdı: [ -> ] (04/12/2015, 02:13)Sherlock.Holmes yazdı: [ -> ]Selam E-Birlik sözleşmesi için bende program yazdım. Giriş düğmesi çalışmıyordu sanırsam. Hatta manuel tıkladığımda bile çalışmıyordu. Ayrıca giriş yaptıktan sonra telefon numarası girişi yaparken bile il seçimi ilçe seçimi yaparken bile sıkıntılar yaşadım. Ama sonunda onları da aştım. Bu site ile geliştirmek istediğin eksik noktaları birleştirmende yardımcı olmaya çalışacağım.
WebBrowser’da Internet Explorer (IE) Sürümünü Değiştirme
bu sayfadaki kodları formuna yerleştir. Ondan sonra çalıştırmayı dene. Gerçi tam olarak problem bu muydu henüz hatırlamıyorum. Evdeki pc'den yazıyorum bu pc de V.studio yüklü değil o yüzden aklımda olanlarla şimdilik bu kadar yardımcı olabilirim.
Olurda forum ile ilgilenemezsem h// Adres vermeyin bilginizi buradan paylaşın adresinden bana ulaş...
Ebirlik ile ilgili çalışmanı benlede (bizlede) paylaşırsan fevkalede mutlu olurum.
Birde yeni internet vergi dairesi ile ilgili bi proje yaptınmı ?
Hocam inceledim tam dört dörtlük değilmiş. Site de kapalı olduğu için eksiklikler neler şu anda tam olarak emin değilim.
İnternet vergi dairesini ile ilgili projem ise Vergi Lehvası sorgulama sayfasından TcNo Vergi No sorgulama yapmayı planlıyorum.
(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
Bu kodlar veri lehvası sayfasına gelince sorgulama işlemi için mi?