Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 08/03/10 in all areas

  1. salut video tutorial cum transformi backtrack hacktools list pe ubuntu prelucrat merge 100% bt.rar
    2 points
  2. In primu rand cei ce aveti veriunea 7 de BD sau mai mica aveti nevoie de sndkey32 pe care il puteti descarca de AICI. Extrageti tot din arhiva in folderul "lib" din %Program Files%\Borland\Delphi\ . Acum sa trecem la proiect .. 1. Sus la uses adaugati: sndkey32 2. Adaugati pe form 2 butoane , un edit , un Timer si un XpManifest. 3. La button1 punem la caption "Activeaza" (fara ghilimele) , La button2 punem la caption "Dezactiveaza" si la edit1 punem la text "Mesaj". 4. In "public {Public declarations}" , adaugam urmatorul cod. YahooMessageWindow: HWND; 5. Punem aceasta functie sub {$R *.dfm} --- function CheckWindow: boolean; begin result := false; YahooMessageWindow := FindWindow('YSearchMenuWndClass',nil); if YahooMessageWindow <> 0 then begin result := true; BringWindowtotop(YahooMessageWindow); end else result := false; end; --- 6. La Timer1 punem la interval 20, la enabled sa fie false , apoi apasam 2 click pe el si punem urmatorul cod. --- CheckWindow; if CheckWindow = true then begin BringWindowtotop(YahooMessageWindow); timer1.enabled := false; Sleep(200); SendKeys(Pchar('<b>Robot Yahoo!:</b> '+edit1.text),true); SendKeys(#13,true); SendKeys('{ESCAPE}',true); timer1.enabled := true; end; --- 7. Dam 2 click pe button1, stergem cuvantul begin si punem urmatorul cod. var YahooHandle: HWND; begin timer1.Enabled := true; edit1.enabled := false; YahooHandle := FindWindow('YahooBuddyMain',nil); if yahoohandle <> 0 then CloseWindow(YahooHandle); end; 8. Dam 2 click pe button2 si punem urmatorul cod. timer1.enabled := false; edit1.enabled := true; Finish ! Aplicatia ar trebui sa arate cam asa Totul este foarte explicit .. va rog sa nu veniti cu posturi de genu "nu functioneaza" , "imi da eroare" etc ..
    -1 points
×
×
  • Create New...