Web sayfasında hep aynı değerler yüklensin...

[Gold_Lady]

Merhaba..
Tedaş ın web sayfasından fatura borcu sogulamak için çok basit bir program yaptım. Delphi' de webbrowser ile;(Delphi .NET değil)

http://hizmetler.tedas.gov.tr/TedasInte ... Borcu.aspx

adresini çağırıyorum, hepsi bu.

Ancak her açılışta combo içinde il seçiniz seçeneği geliyor.

Bunu ilk açılışta Ankara yada herhangi bir il ve işletme kodu kutularından birincisine 6, ikinci kutuya 10 yazacak şekilde düzenleme imkanım var mı? Web programlamadan hiç ama hiç anlamam...
Sadece program açılışında istedğim gibi olsun yeter...

[aLonE CoDeR]

Sayfadaki bileşenleri kodla doldurarak yapabilirsin;

viewtopic.php?t=5552&highlight=document+element

linkde olduğu gibi..

Kolay gele..

[Z.D.]

Kod: Tümünü seç

<input type="hidden" name="__VIEWSTATE" value="dDwtOTEwOTc0OTE7dDw7bDxpPDE+Oz47bDx0PDtsPGk8MT47aTwxNz47aTwxOT47PjtsPHQ8dDxwPHA8bDxEYXRhVmFsdWVGaWVsZDtEYXRhVGV4dEZpZWxkOz47bDxJbEtvZHU7SWxBZGk7Pj47Pjt0PGk8NDc+O0A8xLBsIFNlw6dpbml6Li4
uO0FESVlBTUFOO0FGWU9OS0FSQUjEsFNBUjtBxJ5SSTtBS1NBUkFZO0FNQVNZQTtBTktBUkE7QVJEQUhBTjtBUlRWxLBOO0JBUlRJTjtCQVlCVVJUO0LEsExFQ8SwSztCxLBOR8OWTDtCT0xVO0NPUlVNO8OHQU5LSVJJO0TDnFpDRTtFTEFaxLDEnjtFUlrEs
E5DQU47RVJaVVJVTTtFU0tJU0VISVI7R8SwUkVTVU47R8OcTcOcxZ5IQU5FO0nEnkRJUjtLQUhSQU1BTk1BUkHFnjtLQVJBQsOcSztLQVJBTUFOO0tBUlM7S0FTVEFNT05VO0tJUklLS0FMRTtLSVLFnkVIxLBSO0tPQ0FFTMSwO0tPTllBO0vDnFRBSFlBO01BTE
FUWUE7TUVSU0lOO05FVsWeRUjEsFI7TsSwxJ5ERTtPUkRVO1LEsFpFO1NBS0FSWUE7U0FNU1VOO1PEsE5PUDtUUkFCWk9OO1RVTkNFTMSwO1XFnkFLO1pPTkdVTERBSzs+O0A8MDsyOzM7NDs2ODs1OzY7NzU7ODs3NDs2OTsxMTsxMjsxNDsxOTsxO
Ds4MTsyMzsyNDsyNTsyNjsyODsyOTs3Njs0Njs3ODs3MDszNjszNzs3MTs0MDs0MTs0Mjs0Mzs0NDszMzs1MDs1MTs1Mjs1Mzs1NDs1NTs1Nzs2MTs2Mjs2NDs2Nzs+Pjs+Ozs+O3Q8cDxwPGw8VGV4dDs+O2w8SGF0YWzEsSBBYm9uZSBudW1hcmFzxLEg
Z2lyZGluaXouOz4+Oz47Oz47dDxwPGw8aW5uZXJodG1sOz47bDxcZTs+Pjs7Pjs+Pjs+PjtsPGJ0bkJvcmNCdWw7Pj7XzU6dEZpEOZd5Zh8NBniJ6i8sUA==" />

bak burda bi değişken var, sayfayı her yenileyişte farklı değerler alıyo ve post ederlen bu değeride göndermen lazım "__VIEWSTATE=xxxxxxxxxxx"

Kod: Tümünü seç

action = http://hizmetler.tedas.gov.tr/TedasInternetIslemleri/BorcSorgulama/AboneBorcu.aspx

cmbIller =  ?
txtIlKodu = ?
txtIlBolgeKodu = ?
txtIlceKodu = ?
txtKasabaKodu = ?
txtKoyKodu = ?
txtAboneNo = ?

Microsoft Visual Studio .NET 7.1 ile derlemişler ama baya zekice bişey

[Gold_Lady]

Arkadaşlar teşekkür ederim. Hallettim...

Kod: Tümünü seç

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.OleObject.document.form1.cmbIller.value := '6';
WebBrowser1.OleObject.document.form1.txtIlKodu.value :='6';
WebBrowser1.OleObject.document.form1.txtIlBolgeKodu.value:='1';
WebBrowser1.OleObject.document.form1.txtIlceKodu.value :='10';
end;

Belki birisinin işine yarar.

Çok sağolun...