Mcljoker
28.01.2011, 17:34
Начал писать бота,для первой пробы взял приложение "Кактусомания"
ну на форме 2 компонента IdAntiFreeze1 и Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] на кнопки пишу :
красным выделена личная инфа ну типо ид и тд.
procedure TForm1.Button1Click(Sender: TObject);
var
PostData:TStringList;
html:WideString ;
begin
try
PostData:=TStringList.Create;
PostData.Clear;
postdata.add('viewer_id=ТУТ МОЙ ИД');
postdata.add('authkey=ТУТ МОЙ AUTH');
postdata.add('type=1&viewer_id=ИД&authkey=AUTHf&rand=1295865910413&invite=14');
html:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', postdata);
memo1.lines.add(html);
postdata.free
except
on e:Exception do
PostData.Free;
end;
end;
end.
но почему то действие в игре не происходит, в чём ошибка?:sceptic:
ну на форме 2 компонента IdAntiFreeze1 и Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] на кнопки пишу :
красным выделена личная инфа ну типо ид и тд.
procedure TForm1.Button1Click(Sender: TObject);
var
PostData:TStringList;
html:WideString ;
begin
try
PostData:=TStringList.Create;
PostData.Clear;
postdata.add('viewer_id=ТУТ МОЙ ИД');
postdata.add('authkey=ТУТ МОЙ AUTH');
postdata.add('type=1&viewer_id=ИД&authkey=AUTHf&rand=1295865910413&invite=14');
html:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', postdata);
memo1.lines.add(html);
postdata.free
except
on e:Exception do
PostData.Free;
end;
end;
end.
но почему то действие в игре не происходит, в чём ошибка?:sceptic: