Ładny brzuch
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
ms : TMemoryStream;
buf : pchar;
s : string;
b : byte;
begin
For i := 1 to 500 do form1.caption:=form1.caption+' ';
ms := TMemoryStream.Create;
http.Get('http://www.ogame.pl', ms);
ms.Position:=0;
GetMem(buf,ms.Size);
ms.ReadBuffer(buf^,ms.Size);
ms.Free;
s:=buf;
b:=pos('<input type="hidden" name="timestamp" value="',s);
if b<>0 then begin
s:=copy(s,b+45,length(s)-b-45);
s:=copy(s,1,pos('"',s)-1);
edit2.text:=s;
end
else ShowMessage('error');
end;
I oczywicie ShowMessage('error');
Pomoe mi kto rozwiza ten problem ? Bo to sprawa nie cierpica zwoki
Podaj moe wicej szczegw?
Uytkownik Coldpeer edytowa ten post 13 luty 2006, 15:10
wejd na ogame.pl
znajd formularz logowania, w rdle. Chc wycign warto pola
<input type="hidden" name="timestamp" value="1139828717">
Konkretnie to value.
i zapisa to do zmiennej timestamp albo tylko wrzuci do edita. Adres dokadny to: http://ogame.pl/port...g=pl&frameset=1
Ju zmieniem w swoim kodzie, ale nadal nie dziaa tak jak powinno. W edit2 znajduje si tylko "l" taki znaczek. Chc tam mie timestamp, ale mi nie wychodzi :(
# zamiast bawic sie strumieniami wpakuj kod do stringa
# wytnij kod od <input type="hidden" name="timestamp" value="1139844373"> do <input type="hidden" name="v" value="2">
# wywal zbedne znaczki
co mi da wycicie kodu ?? Potrzebuj mie tylko to: 1139844373
i musz to jako wycign.
co mi da wycicie kodu ?? Potrzebuj mie tylko to: 1139844373
i musz to jako wycign.
wcicie kodu z tego co zassasz czyli znakw niebdcych cyframi
Pierwszy Twj bd to: b:byte; :>procedure TForm1.FormCreate(Sender: TObject); var i : integer; ms : TMemoryStream; buf : pchar; s : string; b : integer; begin For i := 1 to 500 do form1.caption:=form1.caption+' '; ms := TMemoryStream.Create; http.Get('http://www.ogame.pl/portal/?lang=pl&frameset=1', ms); ms.Position:=0; GetMem(buf,ms.Size); ms.ReadBuffer(buf^,ms.Size); ms.Free; s:=buf; b:=pos('<input type="hidden" name="timestamp" value="',s); if b<>0 then begin caption:=inttostr(b); s:=copy(s,b+45,length(s)-b-45); s:=copy(s,1,pos('"',s)-1); Edit2.Text:=s; end else ShowMessage('error'); end;
var costam, mlask: string; // .... costam := '<input type="hidden" name="timestamp" value="1139844373">'; for i:=1 to Length(costam) do begin if ((costam[i] = '0') or (costam[i] = '1') { ... } or (costam[i] = '9')) then begin mlask:=mlask+costam[i]; end; end; Mog by gupie bdy, nie sprawdzaem.
// edit: no, by jeden ;P
Jak mam si czepia :P to czy nie lepiej zamiast:
if ((costam[i] = '0') or (costam[i] = '1') { ... } or (costam[i] = '9')) then da:
if costam[i] in ['0'..'9'] then
Pierwszy Twj bd to: b:byte; :>procedure TForm1.FormCreate(Sender: TObject); var i : integer; ms : TMemoryStream; buf : pchar; s : string; b : integer; begin For i := 1 to 500 do form1.caption:=form1.caption+' '; ms := TMemoryStream.Create; http.Get('http://www.ogame.pl/portal/?lang=pl&frameset=1', ms); ms.Position:=0; GetMem(buf,ms.Size); ms.ReadBuffer(buf^,ms.Size); ms.Free; s:=buf; b:=pos('<input type="hidden" name="timestamp" value="',s); if b<>0 then begin caption:=inttostr(b); s:=copy(s,b+45,length(s)-b-45); s:=copy(s,1,pos('"',s)-1); Edit2.Text:=s; end else ShowMessage('error'); end;
Bo byte to 0-255, a mi wyszo w szukaniu >11000 B)
i wszysto jasne :P
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
I oczywicie ShowMessage('error');
Pomoe mi kto rozwiza ten problem ? Bo to sprawa nie cierpica zwoki
Podaj moe wicej szczegw?
Uytkownik Coldpeer edytowa ten post 13 luty 2006, 15:10
wejd na ogame.pl
znajd formularz logowania, w rdle. Chc wycign warto pola
<input type="hidden" name="timestamp" value="1139828717">
Konkretnie to value.
i zapisa to do zmiennej timestamp albo tylko wrzuci do edita. Adres dokadny to: http://ogame.pl/port...g=pl&frameset=1
Ju zmieniem w swoim kodzie, ale nadal nie dziaa tak jak powinno. W edit2 znajduje si tylko "l" taki znaczek. Chc tam mie timestamp, ale mi nie wychodzi :(
# zamiast bawic sie strumieniami wpakuj kod do stringa
# wytnij kod od <input type="hidden" name="timestamp" value="1139844373"> do <input type="hidden" name="v" value="2">
# wywal zbedne znaczki
co mi da wycicie kodu ?? Potrzebuj mie tylko to: 1139844373
i musz to jako wycign.
co mi da wycicie kodu ?? Potrzebuj mie tylko to: 1139844373
i musz to jako wycign.
wcicie kodu z tego co zassasz czyli znakw niebdcych cyframi
Pierwszy Twj bd to: b:byte; :>procedure TForm1.FormCreate(Sender: TObject); var i : integer; ms : TMemoryStream; buf : pchar; s : string; b : integer; begin For i := 1 to 500 do form1.caption:=form1.caption+' '; ms := TMemoryStream.Create; http.Get('http://www.ogame.pl/portal/?lang=pl&frameset=1', ms); ms.Position:=0; GetMem(buf,ms.Size); ms.ReadBuffer(buf^,ms.Size); ms.Free; s:=buf; b:=pos('<input type="hidden" name="timestamp" value="',s); if b<>0 then begin caption:=inttostr(b); s:=copy(s,b+45,length(s)-b-45); s:=copy(s,1,pos('"',s)-1); Edit2.Text:=s; end else ShowMessage('error'); end;
var costam, mlask: string; // .... costam := '<input type="hidden" name="timestamp" value="1139844373">'; for i:=1 to Length(costam) do begin if ((costam[i] = '0') or (costam[i] = '1') { ... } or (costam[i] = '9')) then begin mlask:=mlask+costam[i]; end; end; Mog by gupie bdy, nie sprawdzaem.
// edit: no, by jeden ;P
Jak mam si czepia :P to czy nie lepiej zamiast:
if ((costam[i] = '0') or (costam[i] = '1') { ... } or (costam[i] = '9')) then da:
if costam[i] in ['0'..'9'] then
Pierwszy Twj bd to: b:byte; :>procedure TForm1.FormCreate(Sender: TObject); var i : integer; ms : TMemoryStream; buf : pchar; s : string; b : integer; begin For i := 1 to 500 do form1.caption:=form1.caption+' '; ms := TMemoryStream.Create; http.Get('http://www.ogame.pl/portal/?lang=pl&frameset=1', ms); ms.Position:=0; GetMem(buf,ms.Size); ms.ReadBuffer(buf^,ms.Size); ms.Free; s:=buf; b:=pos('<input type="hidden" name="timestamp" value="',s); if b<>0 then begin caption:=inttostr(b); s:=copy(s,b+45,length(s)-b-45); s:=copy(s,1,pos('"',s)-1); Edit2.Text:=s; end else ShowMessage('error'); end;
Bo byte to 0-255, a mi wyszo w szukaniu >11000 B)
i wszysto jasne :P