|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проверка баланса в сети домолинк
Народ!!! У кого есть алгоритмы для проверка баланса???? В инете все обоазил нашел тока проверку баланса для корбины но либо я чтото не так делаю либо она действительно не подходит. Буду рад любым исходникам. Спасибо!!!!
Последний раз редактировалось Alarm_x, 22.05.2008 в 11:31. |
#2
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); var Data: TIdMultiPartFormDataStream; S:string; begin Data:=TIdMultiPartFormDataStream.Create; try Data.AddFormField('user','mcc22599'); Data.AddFormField('pass','X4Dfg328'); IdHTTP.Request.Host:='http://www.isp.tulatelecom.ru'; IdHTTP.Request.Referer:='http://www.isp.tulatelecom.ru/balans/'; IdHTTP.Request.AcceptLanguage:='ru'; idhttp.Request.ContentType:='application/x-www-form-urlencoded'; IdHTTP.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.6 (build 01425); InfoPath.1)'; IdHTTP.Request.Connection:='Keep-Alive'; S:=idHTTP.Post('http://www.isp.tulatelecom.ru/balans/getbalans.phtml',Data); Memo2.SetTextBuf(PChar(S)); Memo2.Lines.SaveToFile('1.txt'); finally Data.Free; end; Admin: Пользуемся тегами! В результате выполнения этого кода пишет неверное имя пользователя или пароль! Скажите что сдесь неверно? Последний раз редактировалось Admin, 23.05.2008 в 09:48. |
#3
|
|||
|
|||
Еще у меня воспрос. Запускаю снифер, нажимаю на кнопку выполнения данного кода программы, на адрес http://www.isp.tulatelecom.ru/balans/getbalans.phtm отправляется пакет тока с одними заголовками указанными в IdHTTP.Request а сам пароль и имя пользователя не отправляются почему?
Вот сам код ява скрипта Код:
<FORM name=balans onsubmit="return check()" action=getbalans.phtml method=post><FONT size=-1>Ваше имя входа</FONT><BR><INPUT type=input size=40 name=user><BR><FONT size=-1>Ваш пароль</FONT><BR><INPUT type=password size=40 name=pass><BR><BR> <CENTER><FONT size=-1><INPUT type=submit value=Отправить> <INPUT type=reset value=" Очистить "></FONT></CENTER></FORM></TD> Последний раз редактировалось Alarm_x, 23.05.2008 в 15:33. |
#4
|
|||
|
|||
Все проблема решена. Тему можно закрыть. Кому нужен исходник пишите мне на Alarm_x@mail.ru
|