Skip to main content

AccessTr.neT


Webrowser ve java düğmeleri

Webrowser ve java düğmeleri

#1
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
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Webrowser ve java düğmeleri - Yazar: esrefigit - 13/04/2009, 13:59
Cvp: Webrowser ve java düğmeleri - Yazar: ozanakkaya - 25/06/2009, 16:07
Cvp: Webrowser ve java düğmeleri - Yazar: zetyu - 28/06/2009, 17:20