Webrowser ve java düğmeleri
Tarih
13/04/2009 13:59
Konu Sahibi
esrefigit
Yorumlar
3
Okunma
1906
Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 3/5 - 1 oy
esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
359
Konya
Ofis 2003
12/05/2017,17:08

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
23/05/2017,21:19
Sponsor Reklam
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ı..

İnadına, ille de Accesstr.net...
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.589
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,20:23
Gözümden kaçmış eşref hocam, bu değerli bilgiler için çok teşekkürler
Cevapla

zetyu
Aktif Üye
Kullanici Avatari
Aktif Üye
132
12/03/2009
0
Belirtilmemiş
Ofis XP
Dün,16:27
Sponsor Reklam
ö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.


Ek Dosyalar
.mdb   web broser buton ogren deneme.mdb (Dosya Boyutu: 124 KB / İndirme Sayısı: 93)
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Formda Komut Buton Düğmeleri Renk Efect Uygulaması HandSword 5 2.898 29/04/2010, 14:20 yakupkiris
  Işıklı komut düğmeleri BigBossTurk 5 1.947 03/02/2010, 10:12 ogulcan92
  Form Üzerinde Gezinti Düğmeleri ozanakkaya 2 2.708 10/10/2009, 01:21 ozanakkaya
  Resimli Komut Düğmeleri Bilgisayarcı 26 8.347 15/06/2009, 00:35 Bilgisayarcı


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status