• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

otomatik tedaş fatura sorgulama ama nasıl?

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
 
elinize sağlık. Benimde her defasında 10 abone sorgulamam gerekiyordu. Çok teşekkürler
 
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...:D
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.
 

Ekli dosyalar

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?
 
turk-x' Alıntı:
Son Halini Ekliyorum.
ilave olarak süre bilgisi ekledim.
95 kayıt üzerinde deneme yaptım ve sorunsuz çalışıyor.
Genişletmek için tıkla ...
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.
 
Son düzenleme:
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
 
Son düzenleme:
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.
Genişletmek için tıkla ...

Su anda çalışıyor:ok::. Fix TR teşekkürler.
 
Sayın; bitane
ben çalıştıramadım
acaba son halini eklermisiniz.
 
sağolasın teşekkür ederim

ama bende bi sorun var ben hala bulamıyorum:
 
çok sağol şimdi şalıştı

allah razı olsun işimi kolaylaştırdın
 
Sayfada değişmeler olduğundan verileri yanlış yere alıyor.
Bakarsanız çok seviniriz.
 
nur_u_allah' Alıntı:
Sayfada değişmeler olduğundan verileri yanlış yere alıyor.
Bakarsanız çok seviniriz.
Genişletmek için tıkla ...

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ç
 
Ç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.
 
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.
 

Ekli dosyalar

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.
 
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.
Genişletmek için tıkla ...

Rica etsem imacros ile nasıl yapabiliyorsunuz biraz anlatabilirmisiniz.
 
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/fi...=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.
 
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.
 
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.
Genişletmek için tıkla ...




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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst