1. VisualBasic / Говнокод #13270

    −111

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    var
  h,sh,g: integer;
label
   m2;
begin
  m2:
  application.ShowMainForm:=false;
  sleep(10);
  h:=FindWindow('#32770',nil);
  If h > 0 then
  sh:=FindWindowEx(h,0,'Static',nil);
  g:= findwindowex(h,sh,'Static',nil);
  SendMessage(g,WM_SETTEXT,0,lparam(LPCTSTR(' Свой текст  ')));// меняем текст в окне
  SetWindowText(FindWindow('#32770',Nil), 'Свой текст'); // меняем заголовок окна

if h = 0 then
Goto m2;
sleep(1000);
application.ProcessMessages;
exitprocess(0);
end;
end.

    Ловля рыбы руками, как сказал бы капитан Очевидность.
    Взято с филиала сайта go..okod.ru boolean.name, точнее
    http://forum.boolean.name/showthread.php?p=262271#post262271

    Запостил: Stertor, 30 Июня 2013

    Комментарии (15) RSS

    Добавить комментарий