cwkeysto="44234-12542-6211=" Do decl oShell = CREATEOBJECT("WScript.Shell") Do _show Do while !empty(cwkeysto) cwkey = substr(cwkeysto,1,1) oShell.SendKeys(cwkey) cwkeysto = stuff(cwkeysto,1,1,"") If empty(cwkeysto) Else If stuff(cwkeysto,1,1,"") = "+" = Sleep(800) Else = Sleep(100) Endif Endif Enddo Procedure _show #Define SW_SHOWNORMAL 1 Local hwnd HWnd = FindWindow (.NULL., "Calculator") If hwnd = 0 = WinExec ("calc.exe", SW_SHOWNORMAL) Else = SetForegroundWindow (hwnd) Endif Procedure _hide #Define WM_QUIT 18 Local hwnd HWnd = FindWindow (.NULL., "Calculator") If hwnd <> 0 = PostMessage (hwnd, WM_QUIT, 0,0) Endif Procedure decl Declare INTEGER SetForegroundWindow IN "user32" INTEGER hwnd Declare INTEGER FindWindow IN user32; STRING lpClassName,; STRING lpWindowName Declare INTEGER WinExec IN kernel32; STRING lpCmdLine, INTEGER nCmdShow Declare SHORT PostMessage IN user32; INTEGER hWnd,; INTEGER Msg,; STRING @ wParam,; INTEGER lParam Declare Sleep IN Win32API; INTEGER dwMilliseconds Declare INTEGER GetActiveWindow ; IN Win32API Declare INTEGER GetWindow IN Win32API ; INTEGER HWND, INTEGER nType Declare INTEGER GetWindowText IN Win32API ; INTEGER HWND, STRING @cText, INTEGER nType Declare INTEGER BringWindowToTop IN Win32API ; INTEGER HWND Declare integer SetActiveWindow in user32.dll ; integer hwndHTH