ibb hal verisi web üzerinden alma

[Erdem Akdemir]

Merhaba,

Aşağıdaki adresten verileri nasıl alabilirim.

https://tarim.ibb.istanbul/hal-mudurlugu/hal-fiyatlari.html

TARIMSAL HİZMETLER DAİRESİ BAŞKANLIĞI

TARIMSAL HİZMETLER DAİRESİ BAŞKANLIĞI

tarim.ibb.istanbul

 

[Haluk]

Linkteki tabloları besleyen kaynaklar var, dataları oradan çekebilirsiniz....

.

 

[balanar]

hocam daha önce yapılmış çalışmalardan en azından seçtirip tıklatmayı becerebildim ama devamı nasıl olur bilmiyorum

 

[Erdem Akdemir]

@Haluk bey İnternet explorer nesnesi ile verileri alıyorum ama xmlhttp ile ilgili alanı tespit edemedim.

 

[balanar]

Takipteyim hocam. Çözüm bulan detaylı açıklama yapabilirse öğrenmemiz için iyi olur merak ettiğim bir konu..

 

[Haluk]

@Haluk bey İnternet explorer nesnesi ile verileri alıyorum ama xmlhttp ile ilgili alanı tespit edemedim.

Sub Test()
'   Haluk -12/01/2022
'   sa4truss@gmail.com
    Dim XMLHTTP As Object, URL As String, PayLoad As String
   
    URL = "https://tarim.ibb.istanbul/inc/halfiyatlari/gunluk_fiyatlar.asp"
    PayLoad = "?tarih=" & Format(Now, "yyyy-mm-dd") & _
              "&kategori=5" & _
              "&tUsr=M3yV353bZe" & _
              "&tPas=LA74sBcXERpdBaz" & _
              "&tVal=881f3dc3-7d08-40db-b45a-1275c0245685" & _
              "&HalTurId=2"
   
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "POST", URL & PayLoad, False
    XMLHTTP.send
   
    Debug.Print XMLHTTP.ResponseText
    Set XMLHTTP = Nothing
End Sub

.

 

[balanar]

@Erdem Akdemir hocam birde bildiğim kadarıyla xmlhttp de click işlemi olmuyor ama bakalım haluk bey ne diyecek

 

[Haluk]

@Erdem Akdemir hocam birde bildiğim kadarıyla xmlhttp de click işlemi olmuyor ama bakalım haluk bey ne diyecek

6 No'lu mesajda "dedim" zaten ....

.

 

[balanar]

6 No'lu mesajda "dedim" zaten ....

.

bende herhangi bir veri gelmedi hocam. Birde https://tarim.ibb.istanbul/hal-mudurlugu/hal-fiyatlari.html yerine farklı bir .asp adresi seçmenizdeki amaç click olmaması mı?

 

[Haluk]

Valla, şimdi ne desem bilemedim ....

"Debug.Print" ne işe yarıyor, biraz araştırın bence....


.

 

[balanar]

Valla, şimdi ne desem bilemedim ....

"Debug.Print" ne işe yarıyor, biraz araştırın bence....


.

Teşekkürler birşey daha öğrenmiş oldum sayenizde.. Fakat ben hala yukarıdaki adresten direk çekilebilir mi çekilemez mi orada kaldım hocam. Zira siz farklı bir yol ile çekiyorsunuz anladıgım kadarıyla urlde farklı

request urlyi aldırmışsınız anladıgım kadarıyla butona tıklandıgında

 

[Erdem Akdemir]

Sub Test()
'   Haluk -12/01/2021
'   sa4truss@gmail.com
    Dim XMLHTTP As Object, URL As String, PayLoad As String
    
    URL = "https://tarim.ibb.istanbul/inc/halfiyatlari/gunluk_fiyatlar.asp"
    PayLoad = "?tarih=" & Format(Now, "yyyy-mm-dd") & _
              "&kategori=5" & _
              "&tUsr=M3yV353bZe" & _
              "&tPas=LA74sBcXERpdBaz" & _
              "&tVal=881f3dc3-7d08-40db-b45a-1275c0245685" & _
              "&HalTurId=2"
    
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "POST", URL & PayLoad, False
    XMLHTTP.send
    
    Debug.Print XMLHTTP.ResponseText
    Set XMLHTTP = Nothing
End Sub

.

Haluk bey bu alanı bende gördüm ve denemeler yaptim ama doğru parametreleri veremedim. Çok başarılı,elinize sağlık.