Skip to main content

AccessTr.neT


Internet Sayfasindan Altin Fiyatini Textbox A Nasil Yapilir? Yardim Lutfen

Internet Sayfasindan Altin Fiyatini Textbox A Nasil Yapilir? Yardim Lutfen

Çözüldü #1
Arkadaslar merhaba,

uzun zamandir ugrastim fakat sonuc alamadim.

https://www.haremaltin.com/canli-piyasal...-fiyatlarihttps://www.haremaltin.com/canli-piyasal...-fiyatlari


sayfasindan has altin satis fiyatini nasil textbox a alabilirim. yardimci olursaniz sevinirim.
Cevapla
#2
İnceleyip olumlu/olumsuz bildirimde bulununuz.
.rar altin_satis.rar (Dosya Boyutu: 21,31 KB | İndirme Sayısı: 12)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
(18/11/2020 13:06)ozanakkaya Adlı Kullanıcıdan Alıntı: İnceleyip olumlu/olumsuz bildirimde bulununuz.

Hocam yardim icin tesekkur ederim, fakat malesef calismadi modul de sleep kisminda bir hata var veri alamiyor.
vaktiniz olunca bakarsaniz sevinirim/ tesekkurler
Cevapla
#4
Bende hata vermedi.
Api siz ayarladım Ozan hocamızın kodunu.

Visual Basic Code
Dim bekle, zaman
bekle = Time
bekle = DateAdd("s", 2, bekle)
Do Until zaman >= bekle
zaman = Time

Yukardaki kodları ekledim WaitSeconds (2) kodunu silip.

Visual Basic Code
Option Compare Database
Option Explicit
Private Sub Komut2_Click()

Dim bekle, zaman
Const GLink As String = "https://www.haremaltin.com"

Dim GVeri
Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")

With appIE
    .Navigate GLink
    .Visible = False
End With

Do While appIE.Busy: DoEvents: Loop

bekle = Time
bekle = DateAdd("s", 2, bekle)
Do Until zaman >= bekle
zaman = Time
Loop


Set GVeri = appIE.Document.getElementById("satis__genel__ALTIN")

Me.Metin0 = GVeri.innerhtml

appIE.Quit
Set appIE = Nothing


End Sub


Ayrıca burdaki yöntemi uygularsanızda sonuç alırsınız.alis değişkenindeki veriyi alacaksınız sadece.

https://accesstr.net/konu-web-ten-altin-...#pid175921
Son Düzenleme: 19/11/2020, 02:04, Düzenleyen: feraz.
Cevapla
#5
(19/11/2020 02:00)feraz Adlı Kullanıcıdan Alıntı: Bende hata vermedi.
Api siz ayarladım Ozan hocamızın kodunu.

Visual Basic Code
Dim bekle, zaman
bekle = Time
bekle = DateAdd("s", 2, bekle)
Do Until zaman >= bekle
zaman = Time

Yukardaki kodları ekledim WaitSeconds (2) kodunu silip.

Visual Basic Code
Option Compare Database
Option Explicit
Private Sub Komut2_Click()

Dim bekle, zaman
Const GLink As String = "https://www.haremaltin.com"

Dim GVeri
Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")

With appIE
    .Navigate GLink
    .Visible = False
End With

Do While appIE.Busy: DoEvents: Loop

bekle = Time
bekle = DateAdd("s", 2, bekle)
Do Until zaman >= bekle
zaman = Time
Loop


Set GVeri = appIE.Document.getElementById("satis__genel__ALTIN")

Me.Metin0 = GVeri.innerhtml

appIE.Quit
Set appIE = Nothing


End Sub


Ayrıca burdaki yöntemi uygularsanızda sonuç alırsınız.alis değişkenindeki veriyi alacaksınız sadece.

https://accesstr.net/konu-web-ten-altin-...#pid175921

Tesekkur ederim.

simdi calisti, be veriyi komut dugmesine basmadan nasil alabilirim, yani sayfadaki fiyat degisince textbox taki da degismesi icin ne yapmak gerekir.
Cevapla
#6
(19/11/2020 02:11)orba Adlı Kullanıcıdan Alıntı:
(19/11/2020 02:00)feraz Adlı Kullanıcıdan Alıntı: Bende hata vermedi.
Api siz ayarladım Ozan hocamızın kodunu.

Visual Basic Code
Dim bekle, zaman
bekle = Time
bekle = DateAdd("s", 2, bekle)
Do Until zaman >= bekle
zaman = Time

Yukardaki kodları ekledim WaitSeconds (2) kodunu silip.

Visual Basic Code
Option Compare Database
Option Explicit
Private Sub Komut2_Click()

Dim bekle, zaman
Const GLink As String = "https://www.haremaltin.com"

Dim GVeri
Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")

With appIE
    .Navigate GLink
    .Visible = False
End With

Do While appIE.Busy: DoEvents: Loop

bekle = Time
bekle = DateAdd("s", 2, bekle)
Do Until zaman >= bekle
zaman = Time
Loop


Set GVeri = appIE.Document.getElementById("satis__genel__ALTIN")

Me.Metin0 = GVeri.innerhtml

appIE.Quit
Set appIE = Nothing


End Sub


Ayrıca burdaki yöntemi uygularsanızda sonuç alırsınız.alis değişkenindeki veriyi alacaksınız sadece.

https://accesstr.net/konu-web-ten-altin-...#pid175921

Tesekkur ederim.

simdi calisti, be veriyi komut dugmesine basmadan nasil alabilirim, yani sayfadaki fiyat degisince textbox taki da degismesi icin ne yapmak gerekir.

Rica ederim.
sayfadaki verinin değiştiğinde formda birşey tetikleyecekki veri gelsin.
Formun Timer olayı için her bir saniye yada her 2 saniyede kod çalışırsa olabilir.
Yani formun Timer olayı ayarlanması gerek bence mantıken.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da