otomatik tedaş fatura sorgulama ama nasıl?

alper81 · 28 Temmuz 2009

su faturalarınıda öğrenmek için nasıl bi değişiklik yapabiliriz denizli belediyesinden sorgulayacak abone no ve şifreyi girince faturayı öğrenebiliyorsun yardımcı olursanız sevinirim

İMRANCUHADAR · 28 Temmuz 2009

elinize sağlık. Benimde her defasında 10 abone sorgulamam gerekiyordu. Çok teşekkürler

turk-x · 29 Temmuz 2009

Sayın alper81;

Denizli Belediyesi Su Sorgulaması için örnek dosyayı ekliyorum.
Yanlız Unutulmaması Gereken sorgulama başatıldı mı bitinceye kadar hiç bir tuşa basmayın. Yada Baktınız sorgulama yazısı uzun süre bekliyor.Tüm pencereleri simge durumunda küçültün ve arka planda Abone Bilgisi hatallı diye bir mesaj göreceksiniz onu tıklayın sorgulama devam etsin.

Neden Bu kadar Karmaşık Derseniz...

Sitede Hatalı abone bilgisi javascripritle uyarı penceresi olarak kullanıcıya bildirildiği için bu mesajı sendkeys ile otomatik olarak tıklıyorum.
Sendkeys siz sorgulama yaparken başka bir pencerede işlem yapıyorsanız işe yaramıyor. O zaman uyarı mesajı arka planda bekliyor. ve mecburen manuel olarak tıklamak zorunda kalıyoruz.

bitane · 27 Nisan 2010

Yapmış olduğunuz Tedaş Borç Sorgulama programı çalışmıyor. Tam olarak işe yarayacağını düşündüğüm bir program ama çalıştıramadım. Sorgulama yapılıyor diyor ama her seferinde site kaynaklı hata oluştu diyor. Değerli üstadlar bi kontrol edeblir misiniz?

Fix TR · 11 Mayıs 2010

turk-x' Alıntı:
Son Halini Ekliyorum.
ilave olarak süre bilgisi ekledim.
95 kayıt üzerinde deneme yaptım ve sorunsuz çalışıyor.

Edit:
Sanırım sayfa kodlamadan sonra değişmiş. Çalışması için İl Seçimi yapılması gerekmekte. Aşağıdaki kodu

Kod:

 With IE.Document.All
     .txtIlKodu.Value = il
     .txtIlBolgeKodu.Value = bolge
     .txtIlceKodu.Value = ilce
     .txtKasabaKodu.Value = kasaba
     .txtKoyKodu.Value = koy
     .txtAboneNo.Value = Abone
      SendKeys IE.Document.GetElementById("btnBorcBul").Click()
End With

Şu kodla değiştirin.

Kod:

 With IE.Document.All
     .txtIlKodu.Value = il
     .txtIlBolgeKodu.Value = bolge
     .txtIlceKodu.Value = ilce
     .txtKasabaKodu.Value = kasaba
     .txtKoyKodu.Value = koy
     .txtAboneNo.Value = Abone
[B][U]     .cmbIller.Value = il[/U][/B]
      SendKeys IE.Document.GetElementById("btnBorcBul").Click()
End With

Internet Explorer 6 ile Bağlantı sınırına takılıyor. Makruyo duraklatıp 10 dakika bekleyin uyarılarını silerek devam ettirirseniz sorgulama devam ediyor.

gokhanbek · 11 Mayıs 2010

arkadaşlar fatura sorgulama çalışmıyor
Site Kaynaklı Hata Oluştu. 10 Dakika Bekleyin hatası veriyor

çalışsa ne kadarda güzel olcaktı

yinede emek verdiniz sağolun

bitane · 12 Mayıs 2010

Fix TR' Alıntı:
Edit:
Sanırım sayfa kodlamadan sonra değişmiş. Çalışması için İl Seçimi yapılması gerekmekte. Aşağıdaki kodu

Kod:

With IE.Document.All .txtIlKodu.Value = il .txtIlBolgeKodu.Value = bolge .txtIlceKodu.Value = ilce .txtKasabaKodu.Value = kasaba .txtKoyKodu.Value = koy .txtAboneNo.Value = Abone SendKeys IE.Document.GetElementById("btnBorcBul").Click() End With

Şu kodla değiştirin.

Kod:

With IE.Document.All .txtIlKodu.Value = il .txtIlBolgeKodu.Value = bolge .txtIlceKodu.Value = ilce .txtKasabaKodu.Value = kasaba .txtKoyKodu.Value = koy .txtAboneNo.Value = Abone [B][U] .cmbIller.Value = il[/U][/B] SendKeys IE.Document.GetElementById("btnBorcBul").Click() End With

Bağlantı sınırına hala takılıyor. 10 dakika bekleyin uyarısı devam ediyor.

Su anda çalışıyor

k::. Fix TR teşekkürler.

gokhanbek · 12 Mayıs 2010

Sayın; bitane
ben çalıştıramadım
acaba son halini eklermisiniz.

bitane · 12 Mayıs 2010

Sadece aradaki kodu yerleştirdim. Bende sorun olmadan çalıştı.

gokhanbek · 12 Mayıs 2010

sağolasın teşekkür ederim

ama bende bi sorun var ben hala bulamıyorum:

gokhanbek · 12 Mayıs 2010

çok sağol şimdi şalıştı

allah razı olsun işimi kolaylaştırdın

nur_u_allah · 18 Mayıs 2010

Sayfada değişmeler olduğundan verileri yanlış yere alıyor.
Bakarsanız çok seviniriz.

Fix TR · 20 Mayıs 2010

nur_u_allah' Alıntı:
Sayfada değişmeler olduğundan verileri yanlış yere alıyor.
Bakarsanız çok seviniriz.

Makrolardaki aşağıdaki kodu bulup;

Kod:

Set bak = IE.Document.getelementsbytagname("td")
     Hata = bak(12).innerhtml 'Hata Mesajı
 AboneAdi = bak(16).innerhtml 'Abone Adı
    FatNo = bak(41).innerhtml 'Fatura No
 SonOdeme = bak(43).innerhtml ' Son Ödeme Tarihi
     Borc = bak(44).innerhtml 'Borç Tutarı
    TBorc = bak(46).innerhtml 'Toplam Borç

şu kodla değiştirirseniz tekrar çalışmaya başlayacaktır.

Kod:

 Set bak = IE.Document.getelementsbytagname("td")
     Hata = bak(12).innerhtml 'Hata Mesajı
 AboneAdi = bak(16).innerhtml 'Abone Adı
    FatNo = bak(42).innerhtml 'Fatura No
 SonOdeme = bak(44).innerhtml 'Son Ödeme Tarihi
     Borc = bak(46).innerhtml 'Borç Tutarı
    TBorc = bak(49).innerhtml 'Toplam Borç

relicks · 7 Haziran 2010

Çok güzel iş görüyor, fakat 6 sorgulama sınırına takılıyor. Farkettiğim kadarıyla windows işlemlerde gizli açılan internet explorerlar durduğundan kaynaklanan bir sorun. Eğer el ile işlemlerden kapatırsak 10 dakika beklemeden tekrar sorgu çalıştırılabiliyor. Ama 2200 adet yerin sorgulamasını yaparken 6 tanede bir durdurulunca sorun uluyor.
Eğerki bu sorunu çözücek bir şeyler ekleyebilirsek çok güzel olucaktır.

bitane · 7 Haziran 2010

Bende de aynı sorun oldu. Eğer internet explorer daha once açılmıssa 10 dakika uyarısı çıkıyor.
Fakat bilgisayarı yeniden başlattıktan sonra programı çalıştırınca hiç sorun olmadan 150 tane faturayı bu programla sorguluyorum. Tabi program çalışırken internet explorerı açmamanız gerek.

Benimde karşılastığım sorun son faturayı göstermemesiydi.
Ufak birkaç ekleme yaptım. O sorunda düzeldi.

Problemsiz olarak çalışıyor.

dilek.372 · 7 Haziran 2010

Ben bütün bu takipleri imacros ile yapıyorum sadece sonuçları aylık olarak tabloma manuel girmem gerekiyor o kadar.Çok ta zor değil.Tavsiye ederim ve talep olursa nasıl kullanıldığını izah edebilirim.

relicks · 8 Haziran 2010

dilek.372' Alıntı:
Ben bütün bu takipleri imacros ile yapıyorum sadece sonuçları aylık olarak tabloma manuel girmem gerekiyor o kadar.Çok ta zor değil.Tavsiye ederim ve talep olursa nasıl kullanıldığını izah edebilirim.

Rica etsem imacros ile nasıl yapabiliyorsunuz biraz anlatabilirmisiniz.

dilek.372 · 10 Haziran 2010

Geç gördüm özür...imacros firefox ya da explorer tarayıcısında kullanılan bir eklenti. "add once " bölümünde yada aşağıdaki linkten kurulabilir.
https://addons.mozilla.org/en-US/firefox/search/?q=imacros&cat=all&lver=any&atype=0&sort=&pid=1&pp=20&lup=&advanced=
Öncelikle eklentiyi ediniyoruz.
tarayıcımıza bir buton ekleyecektir.Kısa yoldan ulaşabilmemiz için.Sonra kendisiyle gelen örnekler işimize yaramayanları silebiliriz.
Ancak tek bir tanesi zaten nasıl kullanılacağı hakkında bilgi veriyor.ben kısaca açıklarsam :
Hagi adreste sorgulama yapacaksak(tedaş,adsl vs..gibi) adres çubuğuna aktardığımızda imacros ile aynı excel de olduğu gibi record düğmesine baıyor,işlemi sondlandırana kadar yani gerkeli bilgileri gelen formlarda doldurana kadar kayıt yaptırıyor sonra save tıklıyor yaniş macroyu kaydediyoruz.Bu bize solda açılan listede bir ulaşım sağlıyor ve biz onu adlandırıp 2.ya da 3. kaydımız abu şekilde devam ediyoruz.Bundan sonrası aylık periyotlarda tanımlı macrolarımızı çalıştırmak .Çok kolay fatuıra bağ-kur tüm sorgularda ödemelerinizin takibinde kullanabiliyoruz.Sistemlerde güvenlik kodları daima değiştiğinden sadece bunlaraı her seferinde yeniden yazıyor diğer bilgilere hiç karışmıyoruz .Kullanımı çok avantajlı ve kolay.
Umarım açıklayıcı olmuşumdur.

emmi · 20 Haziran 2010

OK

Sayın bitane ,

son gönderdiğiniz örnek mikemmel çalışıyor (arada takılsada 1500 e yakın sorgulama yapabiliyorum )

Ancak sorunum şu Sadece borç sorgusu değil diğer Sayaç bilgileri bölümündeki ;
Sayaç no :
Sayaç Marka
Ölçüm cinsi

gibi bilgileride excel'e aktarmak istiyorum nasıl bir eklenti yapmalıyız.

Yardım lütfen tşk.

bitane · 20 Haziran 2010

emmi' Alıntı:
Sayın bitane ,

son gönderdiğiniz örnek mikemmel çalışıyor (arada takılsada 1500 e yakın sorgulama yapabiliyorum )

Ancak sorunum şu Sadece borç sorgusu değil diğer Sayaç bilgileri bölümündeki ;
Sayaç no :
Sayaç Marka
Ölçüm cinsi

gibi bilgileride excel'e aktarmak istiyorum nasıl bir eklenti yapmalıyız.

Yardım lütfen tşk.

Aynı bilgiler bana da lazım oldu

Ama iş yoğunluğundan hazırlamaya vaktim olmadı.

Onu da pazartesi mesaide yapacam artık. Yapınca buraya yüklerim.

otomatik tedaş fatura sorgulama ama nasıl?

alper81

İMRANCUHADAR

turk-x

Ekli dosyalar

bitane

Fix TR

gokhanbek

bitane

gokhanbek

bitane

Ekli dosyalar

gokhanbek

gokhanbek

nur_u_allah

Fix TR

relicks

bitane

Ekli dosyalar

dilek.372

relicks

dilek.372

emmi

bitane