web sayfası içinde butona click

rainmaker29 · 21 Şubat 2010

arkadaşlar aşağıdaki makroyla siteye giriş yapıyorum ama sayfa içerisindeki GİRİŞ butonuna tıklamak için ek olarak ne yazılması gerekiyor.
neden bunu yapmak istiyorum çünkü girişe tıklanıldığında açılan sayfa pop up olarak açılıyor.
kaynağı görütüle dediğimizde yazan mesajdan anlaşılıyor
(dont allow this html file to be written in the address bar directly, it will be opened as a popup from index.html only)
yardımlarınızı bekliyorum

Const URL3 As String = "https://ebeyanname.gib.gov.tr/index.html"
Sub WebPageOpen()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False 'True olursa web sayfası görüntülenir.
.Navigate URL3 'Web adresi açılıyor.
Do Until .ReadyState = 4: DoEvents: Loop 'Yükleme tamamlayıncaya
Do While .Busy: DoEvents: Loop 'kadar bekleme
'.Quit 'Kapat
End With
Set IE = Nothing
End Sub

security · 21 Şubat 2010

bu şekilde deneyin

Kod:

Const URL3 As String = "[URL]https://ebeyanname.gib.gov.tr/giris.html[/URL]"
Sub WebPageOpen()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False 'True olursa web sayfası görüntülenir.
.Navigate URL3 'Web adresi açılıyor.
Do Until .ReadyState = 4: DoEvents: Loop 'Yükleme tamamlayıncaya
Do While .Busy: DoEvents: Loop 'kadar bekleme
'.Quit 'Kapat
End With
Set IE = Nothing
End Sub

sonuçta üue girişi yaptıktan sonra siz anasayfaya dönmüyormusunuz... açılan pop up menuden mi işleme devam ediliyor...

eger cevanınız açılan pop up girişinfden sonra tkrar sayfaya dönüyor ise

bu kodda işinizi görür.

Private Sub UserForm_Initialize()
WebBrowser1.Navigate ("https://ebeyanname.gib.gov.tr/index.html")
End Sub

rainmaker29 · 21 Şubat 2010

evet açılan pop up dan işlemlere devam ediliyor. açılan pop up ın url sini (https://ebeyanname.gib.gov.tr/giris.html )yi web adres kısmına yazdığımızda https://ebeyanname.gib.gov.tr/index.html oluyor.

security · 21 Şubat 2010

sitenin kodlarını inceledim izin sadece index.html diger sayfalar pop up olarak açılacak ibaresi var. yani kodlarda...

rainmaker29 · 21 Şubat 2010

yani direk olarak giris.html adresinden giremiyicez demektir. peki index.html ye gir butona tıkla olarak makroyu yazamazmıyız.

security · 21 Şubat 2010

malesef...

drummers · 7 Ocak 2012

rainmaker29' Alıntı:
yani direk olarak giris.html adresinden giremiyicez demektir. peki index.html ye gir butona tıkla olarak makroyu yazamazmıyız.

WebBrowser1.Navigate("javascript:ajaxLogin('eyeks')")

Bu giriş butununu tıklatacaktır.

Giriş sayfasıda

"about:<html><head><script>window.opener=window;window.location = 'https://ebeyanname.gib.gov.tr/giris.html';</script></head></html>"

Bu olacak

drummers · 9 Ocak 2012

Burada yayınlamış olduğum program ile Sgk, E-Bildirge, İnternet Vergi Dairesi, E-Beyanname işlemlerini kolayca yapabilirsiniz...