web broserde açılan sayfayı browserde açmak.

[kelkitli]

Selamlar,
İş Bankası web şubesini webbrowserde açıyorum. Ama bazen hata veriyor. İnternet explorerde açılıp şifre girilecek şekilde değiştirebilirmiyiz.

Private Sub CommandButton2_Click()
On Error Resume Next
WebBrowser1.Document.getElementsByName("CustomerNumberTextBox")(0).Value = ""
WebBrowser1.Document.getElementsByName("CorporateCustomerNumberTextbox")(0).Value = ""
WebBrowser1.Document.getElementsByName("PinTextBox")(0).Value = ""
'For i = 1 To 9999
'src = ""
'src = WebBrowser1.Document.all.Item(i).src
'If src Like "*form_tamam_tr.gif*" Then
'WebBrowser1.Document.all.Item(i).Click
'End If
'Next i
'Her click olayından sonra şu satırları ekleyiniz
Do While WebBrowser1.Busy: DoEvents: Loop
Do While WebBrowser1.ReadyState <> 4: DoEvents: Loop
'WebBrowser1.Document.getElementsByName("ctl00_ForgottenCustomerLinkButton")(0).Click
End Sub

Private Sub UserForm_Initialize()
WebBrowser1.Navigate "https://www.isbank.com.tr/TicariInternet/Transactions/Login/FirstLogin.aspx"
End Sub

 

[Murat OSMA]

Şu şekilde bir deneyiniz;

Sub Emre()
    Dim ie As Object
    Dim adres As String
    Set ie = CreateObject("internetexplorer.application")
    adres = "https://www.isbank.com.tr/TicariInternet/Transactions/Login/FirstLogin.aspx"
    With ie
        .Visible = True
        .navigate adres
            Do Until .ReadyState = 4: DoEvents: Loop
            Do While .Busy: DoEvents: Loop
        .Document.getElementsByName("ctl00$t$CustomerNumberTextBox")(0).Value = "a"
        .Document.getElementsByName("ctl00$t$CorporateCustomerNumberTextbox")(0).Value = "b"
        .Document.getElementsByName("ctl00$t$PinTextBox")(0).Value = "c"
        'For i = 1 To 9999
        'src = ""
        'src = WebBrowser1.Document.all.Item(i).src
        'If src Like "*form_tamam_tr.gif*" Then
        'WebBrowser1.Document.all.Item(i).Click
        'End If
        'Next i
        'Her click olayından sonra şu satırları ekleyiniz
        'Do While .Busy: DoEvents: Loop
        'Do While .ReadyState <> 4: DoEvents: Loop
        'WebBrowser1.Document.getElementsByName("ctl00_For gottenCustomerLinkButton")(0).Click
    End With
    Set ie = Nothing
 End Sub

Sadece TextBox'lara girişi sağladım.

 

[Murat OSMA]

İşinize yaramadı mı ?

 

[kelkitli]

Murat teşekkür ederim. Bir zaman uzak kaldım. O sebeple geciktim. Helal et.

 

[Murat OSMA]

Rica ederim...

Ben cevap verdikten bir süre sonra da sizi sitede görünce cevabınızı merak ettim.

Sağlıcakla kalın !!!

 

[kelkitli]

Selamlar, Murat, bunu vbs formatında çalıştıramadım. Vbscript olarak yazabirmisin?

 

[Murat OSMA]

Selam Sn. kelkitli (isminizi bilmiyorum)

Bu şekilde bir deneyiniz;

Sub Emre
    Set ie = CreateObject("internetexplorer.application")
    adres = "https://www.isbank.com.tr/TicariInternet/Transactions/Login/FirstLogin.aspx"
    With ie
        .Visible = True
        .navigate adres
            Do Until .ReadyState = 4:Loop
            Do While .Busy: Loop
        .Document.getElementsByName("ctl00$t$CustomerNumberTextBox")(0).Value = "a"
        .Document.getElementsByName("ctl00$t$CorporateCustomerNumberTextbox")(0).Value = "b"
        .Document.getElementsByName("ctl00$t$PinTextBox")(0).Value = "c"
    End With
 End Sub
call Emre

 

[kelkitli]

Sağol Murat çok teşekkür ederim.

 

[kelkitli]

Murat internet sayfası tam sayfa açılsın nasıl yapılır.

 

[Murat OSMA]

.Visible = True satırının altına .FullScreen = True yazıp bir deneyiniz...

 

[kelkitli]

Hemşerim, sağol varol. Bu bilgiler yakışıyor sana.

 

[Murat OSMA]

Şimdi baktım da .fullscreen = true yerine .theatermode = true yazmanız daha doğru olacak...
Eksik olmayın... İyi günler...

 

[Murat OSMA]

Daha önce sitede vbscript ile açılan sitelerin tam ekran açılması ile ilgili bir konu açılmış.

Sn.Halit ÖZDEMİR'in bu bağlantıdaki; http://www.excel.web.tr/f143/internet-sayfasynyn-maksimum-boyutta-acylmasy-t112391.html
9. mesaj ile sizin kodlarınızı birleştirdiğimizde, kodların son durumu bu şekildedir...

Sub Emre
	Set ie = CreateObject("internetexplorer.application")
	Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2")  
	Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0)
    	adres = "https://www.isbank.com.tr/TicariInternet/Transactions/Login/FirstLogin.aspx"
    	With ie
	For Each objItem in colItems  
	intHorizontal = objItem.ScreenWidth  
	intVertical = objItem.ScreenHeight  
	Next  
	.Visible = 1   
	.Left = 0
	.Top = 0
	.height = intVertical
	.Width = intHorizontal
        .navigate adres
         Do Until .ReadyState = 4:Loop
         Do While .Busy: Loop
        .Document.getElementsByName("ctl00$t$CustomerNumberTextBox")(0).Value = "a"
        .Document.getElementsByName("ctl00$t$CorporateCustomerNumberTextbox")(0).Value = "b"
        .Document.getElementsByName("ctl00$t$PinTextBox")(0).Value = "c"
    	End With
 	End Sub
call Emre