Зачем изобретать велосипед?

; Автор kvitaliy
; [url]http://purebasic.info/phpBB2/viewtopic.php?t=1580[/url]
 
Global hwndCalc 
 Calc=RunProgram("calc.exe","","",#PB_Program_Open|#PB_Program_Hide) ;Открываем калькулятор 
 ;Calc = WinExec_("calc.exe", #SW_HIDE ) ; альтернатива на API 
 Repeat 
   hwndCalc=FindWindow_("SciCalc", #Null); Вычисляем хендл калькулятора 
     Delay (100) 
   x+1 
 Until hwndCalc>0 Or x>200 
 If x>200: End:EndIf 
 
 ShowWindow_(hwndCalc,#SW_HIDE) 
 
  ; Копирует в буфер обмена число из калькулятора 
 Procedure CopyClip() 
   hMenu = GetMenu_(hwndCalc) 
   nMenuID = GetMenuItemID_(hMenu, 0) 
   SendMessage_(nMenuID , #WM_COMMAND,300 , #Null) 
 EndProcedure 
 
 ; Процедура которая посылает команды на нужные клавиши калькулятора 
  Procedure.s SendCOMMAND(Command$) 
    ; Все команды вычислены при помощи Microsoft Spy++ 
   Define Command.i 
   Select Command$ 
     Case "0" 
       Command=124 
     Case "1" 
       Command=125 
     Case "2" 
       Command=126 
     Case "3" 
       Command=127 
     Case "4" 
       Command=128 
     Case "5" 
       Command=129 
     Case "6" 
       Command=130 
     Case "7" 
       Command=131 
     Case "8" 
       Command=132 
     Case "9" 
       Command=133 
     Case "+" 
       Command=92 
     Case "-" 
       Command=93 
     Case "*" 
       Command=91 
     Case "/","\" ; знак деления любой 
       Command=90 
     Case "C","c" ; Очистить 
       Command=81 
     Case ".","," ; разделитель точка или запятая 
       Command=85 
     Case "(" 
         Command=122 
     Case ")" 
         Command=123 
     Case "P","p" ; число Pi 
         Command=111 
     Case "^"       ; это возведение в степень 
       Command=95        
     Case "-" 
       Command=80        
     Case "=" 
       Command=112 
       SendMessage_(hwndCalc, #WM_COMMAND, Command, 0) 
       CopyClip() 
       ProcedureReturn GetClipboardText() 
       
     Default 
       ProcedureReturn "" 
   EndSelect 
    SendMessage_(hwndCalc, #WM_COMMAND, Command, 0)      
     
  EndProcedure 
   
  Procedure.s Calculate(a$) 
    For r=1 To Len(a$) 
        Resultat$= SendCOMMAND(Mid(a$,r,1)) 
    Next 
 If Resultat$ 
 ProcedureReturn Resultat$ 
 EndIf 
 
 EndProcedure 
 
 ; Проверяем работу 
 ; В строке могут быть любые символы - обрабатываются только валидные 
 ; к примеру можно написать " скока буит 2 + 2 ? =" 
 ; ответ будет правильным и ошибки не возникнет. 
 ; Внимание! Если хотите увидеть ответ, то строка должна ОБЯЗАТЕЛЬНО заканчиватся знаком = 
 
 Debug Calculate("23*2+11=") 
 Delay(200) 
 Calculate("C") 
 Debug Calculate("23^2+15=") 
 Calculate("C") 
 Delay(200) 
 Debug Calculate("23-(2+15)=") 
 Delay(200) 
 Debug Calculate(" скока буит 2 + 2 ? =") 
 
 ; Закрываем калькулятор обязательно ! Он не видим, но в памяти висит. 
 
  KillProgram(Calc) 
  CloseProgram(Calc) 
 ;PostMessage_(hwndCalc,#WM_CLOSE,0,0)  ; Для сторонников API

SetCursorPos_(100,100) ; Курсор в координату 100,100
 
mouse_event_(#MOUSEEVENTF_LEFTDOWN,0,0,0,0); Нажимаем на левую клавишу мыши
    Sleep_(10); Пауза 
mouse_event_(#MOUSEEVENTF_LEFTUP,0,0,0,0); Отпускаем левую клавишу мыши 
 
; Выделить весь текст ( послать клавиши Ctrl+A)
Delay(200)
keybd_event_(#VK_CONTROL,0,0,0)
keybd_event_(#VK_A,0,0,0)
 Delay(200)
keybd_event_(#VK_A,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_CONTROL,0,#KEYEVENTF_KEYUP,0)
  Delay(200)    
 
; Копировать этот текст в буфер и вставка в текстовое окно
keybd_event_(#VK_CONTROL,0,0,0)
keybd_event_(#VK_C,0,0,0)
Delay(200)
keybd_event_(#VK_C,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_CONTROL,0,#KEYEVENTF_KEYUP,0)
TextMess$ = GetClipboardText()
SetGadgetText(#String_0,TextMess$)

Dim P.POINT(1)
Repeat
GetCursorPos_(P(0)) 
Debug P(0)\X
Debug p(0)\Y
Delay(100)
ForEver