Webrowser ve java düğmeleri

Webrowser ve java düğmeleri - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Webrowser ve java düğmeleri (/konu-webrowser-ve-java-dugmeleri.html)

Webrowser ve java düğmeleri - esrefigit - 13/04/2009

Kod:

Private Sub Form_Open(Cancel As Integer)

WebBrowser1.Navigate "http://www.halkbank.com.tr/iban/iban.asp"

End Sub



Private Sub Komut5_Click()

Dim sayi As Integer

For sayi = 70 To 1 Step -1

DoCmd.GoToRecord , , acGoTo, sayi

ibanal

Next sayi

End Sub

Function ibanal()

WebBrowser1.Document.Links.Item(56).OnClick

WebBrowser1.Document.getElementById("txtBranchCode").Value = "510"

WebBrowser1.Document.getElementById("txtCustomerNo").Value = Me.hesap

WebBrowser1.Document.Links.Item(55).OnClick

Me.İBANNO = WebBrowser1.Document.getElementById("txtIBAN").Value

End Function

burda ben form üzerinden topluca iban aldım bu arada mehmet kardeşimize teşekkür ederim ona böyle for next döngüsü saçmalık dememe rağmen kim derdiki işime yrayacak burda webrowseri form üzerine aldım ve form üzerinde kayıtları for next ile ileri doğru götürerek heer seferinde ibanları aldım burda dikkat edilmesi gereken nokta bizim web sayfalarındaki java link veren düğmelere tıklayamamızdı neden derseniz düğmeler java href linki içeriyordu ve üzerine odaklanınca linki veriyor ve tıklayınca o linke kod gönderiyordu neyse onuda çözmüş olduk bu şekkilde

Kod:

WebBrowser1.Document.Links.Item(55).OnClick

birde bu linkli düğmenin kaçıncı item olduğunu bulmanın da bir yolunu bulduk oda

Kod:

WebBrowser1.Document.Links.Item(55).focus

bu şkilde iteme focuslanıyor sizde doğru yere tıklayıp tıklamadığınızı görüyorsunuz

neyse birde bu kodu hiç webrowser olmadan yaptım ama sanal olarak bir web sayfası açıp ordan iban almak bayağı sürüyordu fakat belki birinin işine yarar diye onuda ekliyorum örneğe

Kod:

Private Sub Komut2_Click()

Dim say As Integer

say = 0

Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("per")

Do Until rst.EOF

rst.Edit

 say = say + 1

rst![İBANNO] = ibanal(rst![HESAP NO])



rst.Update

        rst.MoveNext

        MsgBox say 'next appointment

    Loop

    

    rst.Close

    Set rst = Nothing

End Sub



Function ibanal(ByVal hesapno As Variant) As String

Dim iban As String

Dim objShell, objIE As Object

 

    strURL = "http://www.halkbank.com.tr/iban/iban.asp"

     Set objShell = CreateObject("Wscript.Shell")

     Set objIE = CreateObject("InternetExplorer.Application")

        With objIE

         .Visible = False

          .Silent = True

          .Navigate (strURL)

          Do While .readyState <> 4

            DoEvents

          Loop

            With .Document

               .Links.Item(56).OnClick

               .getElementById("txtBranchCode").Value = "510"

              .getElementById("txtCustomerNo").Value = hesapno

              .Links.Item(55).OnClick

              iban = .getElementById("txtIBAN").Value

            End With

       End With

 ibanal = iban

objIE.Quit

Set objIE = Nothing

Set objShell = Nothing

Exit Function

End Function

aslında bu kodu kod deposuna eklemek isterdim ama çalışmıyor

Cvp: Webrowser ve java düğmeleri - mehmetdemiral - 13/04/2009

Eeee sevgili Eşref.. Ben sana anlatamamıştım ne işime yarayacağını.. Ama gördüğün gibi bazen yarıyormuş di mi?. Bu arada o günkü çalışmada

Kod:

DoCmd.GoToRecord , , i

şeklinde düşündüğümüz satırı

Kod:

DoCmd.GoToRecord , , acGoTo, i

şeklinde yazdım. Sanırım gözümüzden kaçtı..

Cvp: Webrowser ve java düğmeleri - ozanakkaya - 25/06/2009

Gözümden kaçmış eşref hocam, bu değerli bilgiler için çok teşekkürler

Cvp: Webrowser ve java düğmeleri - zetyu - 28/06/2009

örnek eklerseniz çok mutlu olurum.

örnekte verebilirseniz sevinirim.çünkü siz örnekler verince defalarca okuyarak yada değiştirerek bilginizden yararlanma fırsatını daha çok vermiş oluyorsunuz.