DJ_PhoeniX

Untitled

Aug 22nd, 2012
170
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure TfMain.wbLoginNavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
  2. begin
  3.   if pos('remixlang=0',IHTMLDocument2(wbLogin.Document).cookie)=0 then begin
  4.     IHTMLDocument2(wbLogin.Document).cookie := 'remixlang=0; path=/; domain=.vk.com';
  5.     wbLogin.Navigate(URL);
  6.     exit;
  7.   end;
  8.   // ...
  9. end;
RAW Paste Data