13/04/2009, 13:59
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 Functionburda 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).OnClickbirde bu linkli düğmenin kaçıncı item olduğunu bulmanın da bir yolunu bulduk oda
Kod:
WebBrowser1.Document.Links.Item(55).focusbu ş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 Functionaslında bu kodu kod deposuna eklemek isterdim ama çalışmıyor