Please, change getscript.pas :
function GetPage(const address, referer, cookies: string): string;
var i: integer;
begin
GetScriptWin.http.Request.ContentType := '*/*';
GetScriptWin.http.Request.Referer := referer;
i := GetScriptWin.http.Request.CustomHeaders.IndexOfName('Cookie') ;
if i >= 0 then GetScriptWin.http.Request.CustomHeaders.Delete(i);
if cookies <> '' then
begin
GetScriptWin.http.Request.CustomHeaders.Values['Cookie'] := cookies;
end;
GetScriptWin.http.HTTPOptions := GetScriptWin.http.HTTPOptions - [hoKeepOrigProtocol];
and
AddFunction(@OnScriptRegProc, 'function Input(caption, prompt: string; var value: string): Boolean;', nil);
AddFunction(@OnScriptRegProc, 'function GetPage(address: string): string;', nil);
AddFunction(@OnScriptRegProc, 'function GetPage2(address: string; referer: string): string;', nil);
AddFunction(@OnScriptRegProc, 'function GetPage3(address: string; referer: string; cookies:string): string;', nil);
AddFunction(@OnScriptRegProc, 'function PostPage(address: string; params: string): string', nil);
This is allow use in script function getpage3 where 3d param is cookies string (example : 'uid=120; pwd=FHNHESW')
I recompile modified source - this WORK
http://rapidshare.com/files/39986362/ge ... .zip_.html
http://rapidshare.com/files/39986326/Mo ... .zip_.html