Авторизация по методу POST

Форумы Между деломАвторизация по методу POST ← Ctrl12 3 4 5 6 7Ctrl →

Этот топик читают: Гость

Ответов: 288

Рейтинг: 4

#1: 2012-12-20 13:20:06 ЛС | профиль | цитата

Привет всем, народ, помогите разобратся.
Вроде-бы всё сделал правильно и пишет ОК, но всёравно опять выводит на страницу авторизации.code_29821.txt

карма: 2

файлы: 1

code_29821.txt [2.6KB] [336]

Ответов: 844

Рейтинг: 17

#2: 2012-12-20 18:13:51 ЛС | профиль | цитата

что за игра такая? игровые деньги в реал можно вывисти

карма: 0

Ответов: 1328

Рейтинг: 69

#3: 2012-12-21 02:58:08 ЛС | профиль | цитата

Если можно вывести, нужно сначала ввести ;)

карма: 2

Ответов: 844

Рейтинг: 17

#4: 2012-12-21 10:09:18 ЛС | профиль | цитата

ага,прочитал там одна особа качала без вложения статус выше батрака 4 года=D

карма: 0

Ответов: 844

Рейтинг: 17

#5: 2012-12-22 16:48:06 ЛС | профиль | цитата

кстати ребята забавная игра,я уже даже бота написал чтобы авто устраивался на работу

кто хочет вот сылка + рефера мой

http://www.igra3k.ru/ref/id/946838

карма: 0

Ответов: 288

Рейтинг: 4

#6: 2012-12-26 11:17:56 ЛС | профиль | цитата

GAv, а про какую работу идёт реч, куда именно? И что-за бот? Если это (бот) было сделано на HiAsm, то нельзя-ли как нибуть взглянуть на схемку этого бота.

карма: 2

Гость

Ответов: 17029

Рейтинг: 0

#7: 2012-12-26 18:51:27 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2017-06-14 22:04:00

карма: 0

Гость

Ответов: 17029

Рейтинг: 0

#8: 2012-12-26 22:58:17 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2017-06-14 22:04:01

карма: 0

Ответов: 288

Рейтинг: 4

#9: 2012-12-27 18:59:48 ЛС | профиль | цитата

dynamic-2-61-12-138.pppoe, блин, забыл авторезироваться!
------------ Дoбавленo в 23.02:
host-31-180-233-216.stv.r, сколько просиш?
------------ Дoбавленo в 18.59:
GAv, ну ты где потерялся?

карма: 2

Ответов: 288

Рейтинг: 4

#10: 2013-03-23 12:40:11 ЛС | профиль | цитата

Привет всем, nesco, нарыл вот эту схемку которая якобы может вставлять любое слово или нажать любую
кнопку в html странице.code_30659.txt
Но чтото ничего не вставляется!
Автор пишет что на вход IC нужно подать атрибут name того поля, на котором нужно установить фокус (это может быть и кнопка, и любой элемент управления, заданный тегом input).
nesco, если ты знанш как, то покажи пожалуйста если тебе не трудно пример вот на этой схемке.
Заранее очень тебе благодарен.code_30660.txt

карма: 2

файлы: 2

code_30659.txt [1.5KB] [328], code_30660.txt [2.2KB] [324]

Разработчик

Ответов: 26160

Рейтинг: 2127

#11: 2013-03-23 13:21:06 ЛС | профиль | цитата

Sova-Kmv писал(а):

Но чтото ничего не вставляется!

Да работает там все

Add(MainForm,10033010,182,273)
{
 link(onCreate,4615535:doData,[])
}
Add(WebBrowser,15563951,364,259)
{
 Left=10
 Top=30
 Width=370
 Height=240
 URL=""
 Point(PHandle)
 Point(doFromText)
}
Add(InlineCode,5978023,378,378)
{
 WorkPoints=#6:Parsel|
 DataPoints=#2:ph|4:name|5:value|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    ph:THI_Event;|19:    name:THI_Event;|20:    value:THI_Event;|0:|47:    procedure Parsel(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|29:procedure THiAsmClass.Parsel;|16:var pc:PControl;|15:    txt:string;|14:    i:integer;|5:begin|36: pc := PControl(ToIntegerEvent(ph));|80: for i:=0 to PKOLWebBrowser(pc).OleObject.Document.all.tags('input').length-1 do|100:  if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).name = ToStringEvent(name) then|76://    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).focus;|98:    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value := ToStringEvent(value);|4:end;|0:|4:end.|
 link(ph,15563951:PHandle,[])
 link(name,15375584:Text,[(391,348)(398,348)])
 link(value,12692327:Text,[(398,361)(442,361)])
}
Add(DoData,4615535,266,287)
{
 link(onEventData,15563951:doFromText,[])
 link(Data,12006318:Text,[])
}
Add(StrList,12006318,266,203)
{
 Strings=#6:<html>|6:<head>|7:</head>|6:<body>|41:<input type="text" name="proba" value="">|49:<input type="button" name="knopka" value="11111">|0:|0:|0:|0:|0:|0:|0:|0:|0:|
}
Add(Edit,15375584,392,308)
{
 Left=10
 Top=5
 Width=135
 Text="proba"
}
Add(Edit,12692327,436,309)
{
 Left=155
 Top=5
 Width=135
 Text="privet"
}
Add(Button,3488175,266,378)
{
 Left=295
 Top=5
 TabOrder=-1
 Caption="Set"
 link(onClick,5978023:Parsel,[])
}

карма: 22

Ответов: 288

Рейтинг: 4

#12: 2013-03-23 14:05:17 ЛС | профиль | цитата

nesco, ну а кнопку-то как нажать?code_30661.txt

карма: 2

файлы: 1

code_30661.txt [4.6KB] [400]

Разработчик

Ответов: 26160

Рейтинг: 2127

#13: 2013-03-23 14:41:50 ЛС | профиль | цитата

Sova-Kmv писал(а):

ну а кнопку-то как нажать?

Не знаю, у твоей кнопки нет поля name

<input type="submit" class="enter-button" value="Начать игру" />
------------ Дoбавленo в 14.41:
Вот так вроде работает

Add(MainForm,1351679,147,210)
{
 Width=695
 Height=561
}
Add(WebBrowser,15563951,329,49)
{
 Left=5
 Top=85
 Width=665
 Height=430
 URL="http://www.igra3k.ru/"
 Point(PHandle)
 Point(doFromText)
 Point(Handle)
}
Add(InlineCode,5978023,343,224)
{
 WorkPoints=#6:Parsel|
 DataPoints=#2:ph|4:name|5:value|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    ph:THI_Event;|19:    name:THI_Event;|20:    value:THI_Event;|0:|47:    procedure Parsel(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|29:procedure THiAsmClass.Parsel;|16:var pc:PControl;|15:    txt:string;|14:    i:integer;|5:begin|36: pc := PControl(ToIntegerEvent(ph));|80: for i:=0 to PKOLWebBrowser(pc).OleObject.Document.all.tags('input').length-1 do|100:  if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).name = ToStringEvent(name) then|76://    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).focus;|98:    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value := ToStringEvent(value);|4:end;|0:|4:end.|
 link(ph,9526444:Var2,[])
 link(name,15375584:Text,[(356,194)(363,194)])
 link(value,12692327:Text,[(363,207)(407,207)])
}
Add(Edit,15375584,357,154)
{
 Left=10
 Top=5
 Width=135
 Text="signin[login]"
}
Add(Edit,12692327,401,155)
{
 Left=155
 Top=5
 Width=135
 Text="privet"
}
Add(Button,3488175,231,224)
{
 Left=295
 Top=5
 TabOrder=-1
 Caption="Set"
 link(onClick,5978023:Parsel,[])
}
Add(InlineCode,4357583,329,357)
{
 WorkPoints=#6:Parsel|
 DataPoints=#2:ph|4:name|5:value|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    ph:THI_Event;|19:    name:THI_Event;|20:    value:THI_Event;|0:|47:    procedure Parsel(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|29:procedure THiAsmClass.Parsel;|16:var pc:PControl;|15:    txt:string;|14:    i:integer;|5:begin|36: pc := PControl(ToIntegerEvent(ph));|80: for i:=0 to PKOLWebBrowser(pc).OleObject.Document.all.tags('input').length-1 do|100:  if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).name = ToStringEvent(name) then|76://    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).focus;|98:    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value := ToStringEvent(value);|4:end;|0:|4:end.|
 link(ph,9526444:Var1,[(335,208)])
 link(name,3057939:Text,[(342,327)(349,327)])
 link(value,6191608:Text,[(349,340)(393,340)])
}
Add(Edit,3057939,343,287)
{
 Left=10
 Top=30
 Width=135
 Text="signin[password]"
}
Add(Edit,6191608,387,288)
{
 Left=155
 Top=30
 Width=135
 Text="privet"
}
Add(Button,16300376,217,357)
{
 Left=295
 Top=30
 TabOrder=-1
 Caption="Set"
 link(onClick,4357583:Parsel,[])
}
Add(GetDataEx,9526444,343,203)
{
 link(Data,149976:Var2,[])
}
Add(InlineCode,15424916,315,497)
{
 WorkPoints=#6:Parsel|
 DataPoints=#2:ph|4:name|5:value|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    ph:THI_Event;|19:    name:THI_Event;|20:    value:THI_Event;|0:|47:    procedure Parsel(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|29:procedure THiAsmClass.Parsel;|16:var pc:PControl;|15:    txt:string;|14:    i:integer;|5:begin|36: pc := PControl(ToIntegerEvent(ph));|80: for i:=0 to PKOLWebBrowser(pc).OleObject.Document.all.tags('input').length-1 do|102:  if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value = ToStringEvent(value) then|74:    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).focus;|100://    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value := ToStringEvent(value);|4:end;|0:|4:end.|
 link(ph,149976:Var1,[(321,187)])
 link(value,4667223:Text,[(335,474)(379,474)])
}
Add(Edit,4667223,373,428)
{
 Left=155
 Top=60
 Width=135
 Text="Начать игру"
}
Add(Button,15211543,203,497)
{
 Left=295
 Top=60
 TabOrder=-1
 Caption="Set"
 link(onClick,5233014:doEvent1,[])
}
Add(GetDataEx,149976,343,182)
{
 link(Data,15563951:PHandle,[])
}
Add(Hub,5233014,266,497)
{
 link(onEvent1,15424916:Parsel,[])
 link(onEvent2,9754410:doPress,[(305,510)(305,538)])
}
Add(KeyEvent,9754410,434,532)
{
 Code=32
 link(Handle,15563951:Handle,[(440,145)(356,145)])
}

карма: 22

Голосовали: Sova-Kmv

Ответов: 288

Рейтинг: 4

#14: 2013-03-23 22:34:30 ЛС | профиль | цитата

nesco, плюсик тебе, спасибо!

карма: 2

Разработчик

Ответов: 26160

Рейтинг: 2127

#15: 2013-03-24 01:47:56 ЛС | профиль | цитата

Sova-Kmv писал(а):

спасибо!

На тебе более универсальный вариант

Add(MainForm,1351679,231,175)
{
 Width=695
 Height=561
}
Add(WebBrowser,15563951,378,168)
{
 Left=5
 Top=85
 Width=665
 Height=430
 URL="http://www.igra3k.ru/"
 Point(PHandle)
 Point(doFromText)
 Point(Handle)
}
Add(Edit,15375584,280,175)
{
 Left=10
 Top=5
 Width=135
 Text="signin[login]"
}
Add(Edit,12692327,322,175)
{
 Left=155
 Top=5
 Width=135
 Text="privet"
}
Add(Button,3488175,231,238)
{
 Left=295
 Top=5
 TabOrder=-1
 Caption="Set"
 link(onClick,3134972:doAdd,[])
}
Add(Edit,3057939,280,280)
{
 Left=10
 Top=30
 Width=135
 Text="signin[password]"
}
Add(Edit,6191608,322,280)
{
 Left=155
 Top=30
 Width=135
 Text="privet"
}
Add(Button,16300376,231,343)
{
 Left=295
 Top=30
 TabOrder=-1
 Caption="Set"
 link(onClick,1475487:doAdd,[])
}
Add(Edit,4667223,280,385)
{
 Left=155
 Top=60
 Width=135
 Text="Начать игру"
}
Add(Button,15211543,231,441)
{
 Left=295
 Top=60
 TabOrder=-1
 Caption="Set"
 link(onClick,5921312:doData,[])
}
Add(KeyEvent,9754410,448,245)
{
 Code=32
 link(Handle,15563951:Handle,[(454,215)(405,215)])
}
Add(InlineCode,10977955,392,238)
{
 WorkPoints=#16:doSetValueByName|20:doSetFocusByName    |18:doSetFocusByValue |
 EventPoints=#10:onSetValue|10:onSetFocus|
 DataPoints=#2:ph|4:name|5:value|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|18:    ph: THI_Event;|20:    name: THI_Event;|21:    value: THI_Event;|26:    onSetValue: THI_Event;|26:    onSetFocus: THI_Event;|0:|57:    procedure doSetValueByName(var dt:TData; index:word);|61:    procedure doSetFocusByName(var dt:TData; index:word);    |62:    procedure doSetFocusByValue(var dt:TData; index:word);    |0:|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|74:function FindIdx(pc: PControl; val: string; FindByName: boolean): Integer;|3:var|13:  i: integer;|5:begin|15:  Result := -1;|85:  for i := 0 to PKOLWebBrowser(pc).OleObject.Document.all.tags('input').length - 1 do|22:    if FindByName then|13:    begin    |88:      if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).name = val then|11:      begin|20:        Result := i;|15:        break; |10:      end;|7:    end|12:    else    |9:    begin|89:      if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value = val then|11:      begin|20:        Result := i;|15:        break; |10:      end;|8:    end;|6:end;  |0:|39:procedure THiAsmClass.doSetValueByName;|3:var|15:  pc: PControl;|19:  txt, val: string;|15:  idx: integer;|5:begin|37:  pc := PControl(ToIntegerEvent(ph));|32:  if not Assigned(pc) then exit;|30:  txt := ReadString(dt, name);|33:  val := ReadString(dt, value);  |32:  idx := FindIdx(pc, txt, true);|24:  if idx < 0 then exit; |81:  PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(idx).value := val;|26:  _hi_onEvent(onSetValue);|4:end;|0:|39:procedure THiAsmClass.doSetFocusByName;|3:var|15:  pc: PControl;|14:  txt: string;|15:  idx: integer;|5:begin|37:  pc := PControl(ToIntegerEvent(ph));|32:  if not Assigned(pc) then exit;|30:  txt := ReadString(dt, name);|32:  idx := FindIdx(pc, txt, true);|24:  if idx < 0 then exit; |74:  PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(idx).focus;|26:  _hi_onEvent(onSetFocus);|4:end;|0:|40:procedure THiAsmClass.doSetFocusByValue;|3:var|15:  pc: PControl;|14:  val: string;|15:  idx: integer;|5:begin|37:  pc := PControl(ToIntegerEvent(ph));|32:  if not Assigned(pc) then exit;|33:  val := ReadString(dt, value);  |33:  idx := FindIdx(pc, val, false);|24:  if idx < 0 then exit; |74:  PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(idx).focus;|26:  _hi_onEvent(onSetFocus);|4:end;|0:|4:end.|
 link(onSetFocus,9754410:doPress,[])
 link(ph,15563951:PHandle,[])
}
Add(MT_AddData,3134972,280,238)
{
 link(onAdd,3095249:doWork2,[])
 link(Data1,15375584:Text,[])
 link(Data2,12692327:Text,[(293,215)(328,215)])
}
Add(MT_AddData,1475487,280,343)
{
 link(onAdd,3095249:doWork3,[(368,349)])
 link(Data1,3057939:Text,[])
 link(Data2,6191608:Text,[(293,320)(328,320)])
}
Add(HubEx,3095249,364,238)
{
 link(onEvent,10977955:doSetValueByName,[])
}
Add(DoData,5921312,280,441)
{
 link(onEventData,10977955:doSetFocusByValue ,[(375,447)(375,258)])
 link(Data,4667223:Text,[])
}

карма: 22

Голосовали: Sova-Kmv, eney33, juk

Форумы Между деломАвторизация по методу POST ← Ctrl12 3 4 5 6 7Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)