Předmět Autor Datum
případně v delphi :)
baldw 06.09.2006 16:10
baldw
function EnumChildProc(Wnd: hWnd; SL: TStrings): BOOL; stdcall; var szFull: array[0..MAX_PATH] of Ch…
Len tak 06.09.2006 16:29
Len tak
Na kterým webu chceš podvádět? :-p
host 06.09.2006 19:34
host
To moc nevypadá na podvadeni (ver mi, vis prece kolik stovek tisíc hlasu jsem dal Marte). Protoze, p…
AZOR 06.09.2006 19:37
AZOR
jenom nechci zapomenout každých 30 hodin kliknout v jedný anketě .)
baldw 07.09.2006 11:28
baldw
Tak to bych tam dal 10hlasu a měl 300hod klid ...
AZOR 07.09.2006 11:55
AZOR
z jedný ip jde hlasovat vždy po 30 hodinách, myslel jsem, že to bude zřejmé :)
baldw 07.09.2006 14:25
baldw
a tohle by nepomohlo: www.youhide.com ? //edit nepovolovat popup okna, a raději na bezpečném prohlíž… poslední
AZOR 07.09.2006 15:18
AZOR
Na toto stačí JavaScript. Podívat se kam směřuje výsledek stisknutého buttonu a podle toho nastavit…
Flash_Gordon 06.09.2006 22:54
Flash_Gordon
Jednoduchšie asi bude priamo generovať požiadavku na server než programovo stláčať tlačidlo. Vo Wind…
los 07.09.2006 12:18
los
function EnumChildProc(Wnd: hWnd; SL: TStrings): BOOL; stdcall;
var
  szFull: array[0..MAX_PATH] of Char;
begin
  Result := Wnd <> 0;
  if Result then
  begin
    GetWindowText(Wnd, szFull, SizeOf(szFull));
    if (Pos(SL[0], StrPas(szFull)) > 0) and (SL.IndexOfObject(TObject(Wnd)) < 0)
    then SL.AddObject(StrPas(szFull), TObject(Wnd));
    EnumChildWindows(Wnd, @EnumChildProc, Longint(SL));
  end;
end;
 
function ClickButton(ParentWindow: Hwnd; const ButtonCaption: string): Boolean;
var
  SL: TStringList;
  H: hWnd;
begin
  SL := TStringList.Create;
  try
    SL.AddObject(ButtonCaption, nil);
    EnumChildWindows(ParentWindow, @EnumChildProc, Longint(SL));
    H := 0;
    case SL.Count of
      1: ShowMessage(’Objekt sa nenašiel !’);
      2: H := hWnd(SL.Objects[1]);
    else
      ShowMessage(’Text nie je jednoznacny !’);
    end;
  finally
    SL.Free;
  end;
  Result := H <> 0;
  if Result then PostMessage(H, BM_CLICK, 0, 0);
end;

// Príklad
// ClickButton(FindWindow('TForm1', 'Form1'), 'Button1');

Funguje to, ja som to používal, ale nespoliehal by som sa na to! Teda funguje to určite na aplikácie, možno pri internete, pri web stránkach to bude trošku inakšie, možno to nepôjde a možno hej, každopádne treba to vyskúšať.

Jednoduchšie asi bude priamo generovať požiadavku na server než programovo stláčať tlačidlo. Vo Windowse môžeš napr. naplánovať spúšťanie JavaScriptu alebo VBScriptu, ktorý bude posielať požiadavku cez ActiveX objekt Msxml2.XMLHTTP resp. Microsoft.XMLHTTP.

Takže kľúčové slová pre Google sú: send web request +meno programovacieho jazyka, v ktorom to chceš spraviť.

Zpět do poradny Odpovědět na původní otázku Nahoru