
sak
Active Members-
Posts
47 -
Joined
-
Last visited
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
sak's Achievements

Seeker (1/7)
1
Reputation
-
satanttin reacted to a post in a topic: Desktop Locker
-
Modify again is Auto browser Net meter. Use includ netmeter.au3 includ script: netmeter.au3 #include-once #NoTrayIcon #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <SendMessage.au3> Opt("TrayOnEventMode",1) Opt("TrayMenuMode",1) Global Const $SC_DRAGMOVE = 0xF012 Global $hGUI, $curr Func netmeter() Local $hGUI = GUICreate("Net Meter", @DesktopWidth/4-29, @DesktopHeight/4-158, 400, 0, _ $WS_POPUP, BitOr($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)) GUISetBkColor(0x000000, $hGUI) GUISetIcon(@WindowsDir&"\Network Diagnostic\xpnetdiag.exe", -1, $hGUI) GUICtrlSetCursor(-1, 3) Local $Progress = GUICtrlCreateProgress(1, 16, 225, 17) GUICtrlSetCursor(-1, 3) Local $Label = GUICtrlCreateLabel(@TAB&"Sending Data Please wait!", 1, 1, 298, 15) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetCursor(-1, 3) GUISetState(@SW_SHOW) TraySetClick(1+16) Local $infoitem = TrayCreateItem("Info") TrayItemSetOnEvent(-1,"ShowInfo") TrayCreateItem("") Local $exititem = TrayCreateItem("Exit") TrayItemSetOnEvent(-1,"ExitScript") TraySetIcon(@WindowsDir&"\Network Diagnostic\xpnetdiag.exe", -1) TraySetState() While 1 Local $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_PRIMARYDOWN _SendMessage($hGUI, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0) Case 0 If @IPAddress1 <> '127.0.0.1'Then $curr = Ping("www.Google.com", 4000) GUICtrlSetData($Progress, $curr/100*10) GUICtrlSetData($Label,"Status:Online IP:"&@IPAddress1&" Send:"&GUICtrlRead($Progress)*10&".ms") Else GUICtrlSetData($Progress, $curr/100*10) GUICtrlSetData($Label,"Status:Offline IP:"&@IPAddress1&" Send:"&GUICtrlRead($Progress)*10&".ms") EndIf EndSwitch WEnd Return EndFunc Func ShowInfo() Msgbox(4096,"Net Meter","Create by:sak2005", 0, $hGUI) EndFunc Func ExitScript() Exit EndFunc -------------------------------------------------------------- Auto browser Net meter #include "netmeter.au3" Local $keyname = 'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{EF29A0E7-C8AC-4982-A287-1952F9A35DF0}' Local $valuename = 'DhcpIPAddress' Local $valuedata = '0.0.0.0' Local $firefoxpath = @ProgramFilesDir&'\Mozilla Firefox 4.0 Beta 7\firefox.exe' Local $iepath = @ProgramFilesDir&'\Internet Explorer\IEXPLORE.EXE' Local $ipserver = '127.0.0.1' While 1 If RegRead($keyname, $valuename) = $valuedata Or @IPAddress1 = $ipserver Then ToolTip("Pleased.. Connections.", 400, 300, "") Else If FileExists($firefoxpath) Then ToolTip("") ShellExecute($firefoxpath) Else ShellExecute($iepath) ToolTip("") EndIf netmeter() ExitLoop EndIf Sleep(1000) WEnd
-
wakillon New modify. You're can drag mouse to move GUI. Click or Right click on Tray icon for info and exit GUI. #NoTrayIcon #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <SendMessage.au3> Opt("TrayOnEventMode",1) Opt("TrayMenuMode",1) Global Const $SC_DRAGMOVE = 0xF012 Global $curr Local $hGUI = GUICreate("Net Meter", 228, 35, -1, -1, _ BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS), _ BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) GUISetBkColor(0x000000, $hGUI) GUISetIcon(@WindowsDir&"\Network Diagnostic\xpnetdiag.exe", -1, $hGUI) GUICtrlSetCursor(-1, 3) Local $Progress = GUICtrlCreateProgress(1, 16, 225, 17) GUICtrlSetCursor(-1, 3) Local $Label = GUICtrlCreateLabel(@TAB&"Sending Data Please wait!", 1, 1, 298, 15) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetCursor(-1, 3) GUISetState(@SW_SHOW) TraySetClick(1+16) Local $infoitem = TrayCreateItem("Info") TrayItemSetOnEvent(-1,"ShowInfo") TrayCreateItem("") Local $exititem = TrayCreateItem("Exit") TrayItemSetOnEvent(-1,"ExitScript") TraySetIcon(@WindowsDir&"\Network Diagnostic\xpnetdiag.exe", -1) TraySetState() While 1 Local $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_PRIMARYDOWN _SendMessage($hGUI, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0) Case 0 If @IPAddress1 <> '127.0.0.1'Then $curr = Ping("www.Google.com", 4000) GUICtrlSetData($Progress, $curr/100*10) GUICtrlSetData($Label,"Status:Online IP:"&@IPAddress1&" Send:"&GUICtrlRead($Progress)*10&".ms") Else GUICtrlSetData($Progress, $curr/100*10) GUICtrlSetData($Label,"Status:Offline IP:"&@IPAddress1&" Send:"&GUICtrlRead($Progress)*10&".ms") EndIf EndSwitch WEnd Func ShowInfo() Msgbox(4096,"Net Meter","Create by:sak2005", 0, $hGUI) EndFunc Func ExitScript() Exit EndFunc
-
Easy Script: Net Meter. Design for use with Mobile net Modem. #NoTrayIcon #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> Opt("TrayOnEventMode",1) Opt("TrayMenuMode",1) Global $curr Local $hWnd = GUICreate("Net Meter", 265, 19, 750, 713, _ BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS), _ BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) GUISetIcon(@WindowsDir&"\Network Diagnostic\xpnetdiag.exe", -1, $hWnd) Local $hProgress = GUICtrlCreateProgress(2, 2, 262, 17, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUISetState(@SW_SHOW) TraySetClick(1+16) Local $infoitem = TrayCreateItem("Info") TrayItemSetOnEvent(-1,"ShowInfo") TrayCreateItem("") Local $exititem = TrayCreateItem("Exit") TrayItemSetOnEvent(-1,"ExitScript") TraySetIcon(@WindowsDir&"\Network Diagnostic\xpnetdiag.exe", -1) TraySetState() Do If @IPAddress1 <> '127.0.0.1'Then $curr = Ping("www.google.com", 4000) GUICtrlSetData($hProgress, $curr/100*10) ToolTip("Status:Online IP:"&@IPAddress1&" Send:"&$curr&".ms" ,752, 695, "") If $curr <= 0 Or GUICtrlRead($hProgress) <= 0 Then ToolTip("No,signal..Please wait! ", 820, 695, "") GUICtrlSetData($hProgress, 0) Else GUICtrlSetData($hProgress, $curr/100*10) EndIf Else ToolTip("Status:Offline IP:"&@IPAddress1&" Send:"&$curr&"0.ms" ,775, 695, "") GUICtrlSetData($hProgress, 0) EndIf Until GUIGetMsg() = -3 Func ShowInfo() Msgbox(4096,"Net Meter","Create by:sak2005", 0, $hWnd) EndFunc Func ExitScript() Exit EndFunc
-
My Script design: For checked virus process at Run in registry. #AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #NoTrayIcon #include <GuiEdit.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Include <File.au3> Opt("MustDeclareVars", 1) Global $hForm, $hEdit, $Button1, $Button2, $title = 'RegVirScan [Hkey Run]' Global $nMsg, $i, $REV, $RR, $Button3, $PID, $starttitle = 'Scanning...', $endtitle = 'Scan completed.' Global $titlemessage = 'Scanning Again. Open log. See message file.log on the desktop.' Global $iconfile = @ScriptDir&'\scan.ico', $readreg, $Button_clear Global $hkeynum = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run' Global $hkeyread = 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run' Global $chklog = 'Can not found File.log' Main() Func Main() $hForm = GUICreate($title, 510, 314, -1, -1) GUISetIcon($iconfile, -1, $hForm) $hEdit = GUICtrlCreateEdit("", 8, 8, 493, 257) $Button1 = GUICtrlCreateButton("Scan", 16, 280, 75, 25, $WS_GROUP) GUICtrlSetCursor(-1, 0) $Button2 = GUICtrlCreateButton("Open log", 405, 280, 75, 25, $WS_GROUP) GUICtrlSetCursor(-1, 0) $Button_clear = GUICtrlCreateButton("Clear", 320, 280, 75, 25, $WS_GROUP) GUICtrlSetCursor(-1, 0) GUICtrlCreateLabel("Design by:sak20102005", 150, 283, 118, 17) GUICtrlSetState(-1, $GUI_DISABLE) GUISetState(@SW_SHOW) _GUICtrlEdit_SetReadOnly($hEdit, True) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE If WinGetTitle($titlemessage) Then For $x = 255 To 0 Step -1 WinSetTrans($titlemessage, "", $x) Sleep(0.9) Next Exit Else ExitLoop EndIf Case $Button1 If GUICtrlRead($hEdit) <> '' Then WinSetTitle($titlemessage,"", $starttitle) $PID = ProcessExists("notepad.exe") If $PID Then ProcessClose($PID) WinSetTitle($title,"", $starttitle) If _GUICtrlEdit_GetText($hEdit) <> '' Then _GUICtrlEdit_SetText($hEdit, '') For $i = 1 to 100 $REV = RegEnumVal($hkeynum, $i) $RR = RegRead($hkeyread, $REV) If @error <> 0 Then ExitLoop _GUICtrlEdit_AppendText($hEdit, @CRLF & 'Value name:'& $REV&@CRLF &'Value data:' & $RR&@CRLF) Sleep(500) Next WinSetTitle($starttitle, "", $endtitle) _FileWriteLog(@DesktopDir & "\RegVirScan.log", _GUICtrlEdit_GetText($hEdit)) Sleep(2000) WinSetTitle($endtitle, "", $titlemessage) Case $Button2 If FileExists(@DesktopDir & "\RegVirScan.log") Then ShellExecute(@DesktopDir & "\RegVirScan.log") Else MsgBox(0, "", $chklog) EndIf Case $Button_clear If GUICtrlRead($hEdit) <> '' Then GUICtrlSetData($hEdit, "") EndSwitch WEnd EndFunc
-
Same as code. Use RunWait and @ComSpec. #NoTrayIcon Global $sCommand = 'SystemInfo > SYSINFO.txt' Global $sText = 'SYSINFO.txt' SystemInfo() Func SystemInfo() If Not FileExists($sText) Then ToolTip("Please wait!", 400, 300) RunWait(@ComSpec & " /c " & $sCommand, "", @SW_HIDE) If Not @error Then ToolTip("") Sleep(500) ShellExecute($sText) WinWait("[Class:Notepad]") WinSetOnTop("[Class:Notepad]", "", 1) EndIf Else ShellExecute($sText) WinWait("[Class:Notepad]") WinSetOnTop("[Class:Notepad]", "", 1) EndIf EndFunc
-
Write text from Notepad to GUI Edit. It's Easy. #NoTrayIcon #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Process.au3> Opt("MustDeclareVars", 1) Global $guititle = 'Idia design by:sak2005' Global $txttitle = 'SYSINFO.txt - Notepad' Global $sCommand = 'SYSTEMINFO > SYSINFO.txt' Global $sText = 'SYSINFO.txt' Global $ctlclass = '[Class:Notepad]', $ctlid = 'Edit1' Global $Edit, $textinfo, $nMsg If Not FileExists($sText) Then ToolTip("Please wait!", 400, 300, "") _RunDOS($sCommand) If Not @error Then ToolTip("") Sleep(500) ShellExecute($sText) EndIf Else ShellExecute($sText) EndIf GUICreate($guititle, 540, 448, -1, -1) $Edit = GUICtrlCreateEdit("", 16, 16, 505, 417, _ BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL)) GUISetState(@SW_SHOW) WinWait($guititle) $textinfo = ControlGetText($ctlclass, "", $ctlid) GUICtrlSetData($Edit, @TAB&@TAB&@TAB&@TAB&"SystemInfo"&@CRLF&$textinfo) If GUICtrlRead($Edit) <> '' Then WinClose($txttitle) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
-
Write SystemInfo from Dos to Notepad. It's easy. #NoTrayIcon #include <Process.au3> Global $sCommand = 'SystemInfo > SYSINFO.txt' Global $sText = 'SYSINFO.txt' SystemInfo() Func SystemInfo() _RunDOS( $sCommand) If Not @error Then _RunDOS($sText) EndFunc
-
How To Disable And Enable Network Connection With Autoit
sak replied to kmps's topic in AutoIt General Help and Support
Example:Mobile Net Connections Script #AutoIt3Wrapper_Au3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #NoTrayIcon #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> Opt("MustDeclareVars", 1) Opt("GUIOnEventMode", 1) Opt("TrayMenuMode",1) Global $hForm, $Progress, $Button1, $Button2, $Button3 Global $exititem, $msg, $sCurr1, $sCurr2, $allping Global $keyname = 'HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{EF29A0E7-C8AC-4982-A287-1952F9A35DF0}' Global $valuename = 'DhcpIPAddress' Global $host1 = 'www.21call.com', $host2 = 'www.dtac.com' Global $pic, $pid Global $var, $varping, $url = @ProgramFilesDir&'\Mozilla Firefox 4.0 Beta 7\firefox.exe' Global $time = 2000 $hForm = GUICreate("Mini Line Connections", 201, 36, 819, 698, BitOR($WS_POPUP,$WS_BORDER,$WS_CLIPSIBLINGS), $WS_EX_TOPMOST) GUISetBkColor(0xE3E3E3) $Progress = GUICtrlCreateProgress(0, 0, 200, 17, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) $Button1 = GUICtrlCreateButton("Connections", 49, 17, 118, 20, BitOR($BS_CENTER,$WS_GROUP)) GUICtrlSetOnEvent(-1, "connections") GUICtrlSetCursor (-1, 0) $Button2 = GUICtrlCreateButton("Google", 0, 17, 50, 20, $WS_GROUP) GUICtrlSetOnEvent(-1, "_google") GUICtrlSetCursor (-1, 0) $Button3 = GUICtrlCreateButton("Ping", 166, 17, 35, 20, $WS_GROUP) GUICtrlSetOnEvent(-1, "_ping") GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW) TrayCreateItem("") $exititem = TrayCreateItem("Exit") TraySetState() While 1 $msg = TrayGetMsg() Switch $msg Case @error If RegRead($keyname, $valuename) = '0.0.0.0' Then GUICtrlSetData($Progress, 0) GUICtrlSetState($Button1, $GUI_ENABLE) Sleep(1000) Else $sCurr1 = ping($host1, 4000) $sCurr2 = ping($host2, 4000) If $sCurr1 = 0 Then GUICtrlSetData($Progress, 0) ToolTip('No signal, please wait!...', 850, 678) Else ToolTip('') GUICtrlSetData($Progress, $allping) $allping = $sCurr1+$sCurr2 EndIf If $allping >= 2000 Then GUICtrlSetData($Progress, 25) ElseIf $allping >= 3000 Then GUICtrlSetData($Progress, 55) ElseIf $allping >= 4000 Then GUICtrlSetData($Progress, 85) ElseIf $allping >= 5000 Then GUICtrlSetData($Progress, 100) Else GUICtrlSetData($Progress, $allping/20) EndIf EndIf Case $exititem ExitLoop EndSwitch WEnd Func connections() If @IPAddress1 = '127.0.0.1' Then GUICtrlSetState($Button1, $GUI_DISABLE) ToolTip('Connecting...', 880, 678) $pic = Run(@ComSpec & " /C " & 'rasphone.exe', "", @SW_HIDE) WinWaitActive("Network Connections", "Choose a network connection:", 1) Send("{ENTER}") If ProcessWaitClose($pic) Then WinClose("Network Connections") ToolTip('') GUICtrlSetState($Button1, $GUI_ENABLE) EndIf Else GUICtrlSetState($Button1, $GUI_DISABLE) ToolTip('Disconnect', 880, 678) $pid = Run(@ComSpec & " /C " & 'rasdial /disconnect', "", @SW_HIDE) If ProcessWaitClose($pid) Then GUICtrlSetState($Button1, $GUI_ENABLE) Sleep($time) ToolTip('') EndIf EndIf EndFunc Func _ping() If @IPAddress1 = '127.0.0.1' Then MsgBox(0, "", "Please to the Internet.") Else While 1 $var = InputBox("Ping Web Manager", "Enter:URL name", Default, "", 200, 100, 410, 300) If @error Then ExitLoop Else If $var = '' Then MsgBox(0, "", "Please fill Link's website in the box.") ContinueLoop Else ToolTip("Please wait!...", 400, 300) $varping = Ping($var, 4000) If $varping <> 0 Then ToolTip("") MsgBox(0, "Ping Report", $var&'='&$varping&@CRLF&'ติดต่อสำเร็จ.') Else ToolTip("") MsgBox(0, "Ping Report", $var&'='&$varping&@CRLF&'ไม่สามารถติดต่อได้.') EndIf EndIf EndIf WEnd EndIf EndFunc Func _google() If @IPAddress1 = '127.0.0.1' Then MsgBox(0, "", "Please to the Internet.") Else ShellExecute($url) EndIf EndFunc -
Last modify update. Calculator desktop. Forget includ file WinAPIEx.au3 #NoTrayIcon #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Include <WinAPIEx.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> HotKeySet("{ESC}", "guiclose") Opt("MustDeclareVars", 1) main() Func main() Local $title = "MiniCalcDesktop", $cid = "Edit1" Local $sFile = @SystemDir&'\Calc.exe' Local $hForm, $Inp_disp, $Btn_back, $Btn_clear, $Btn7, $Btn8, $Btn9 Local $Btn4, $Btn5, $Btn6, $Btn1, $Btn2, $Btn3, $Btn0, $Btn_dot Local $Btn_mult, $Btn_div, $Btn_sub, $Btn_add, $Btn_ans_div, $Btn_ans_mult Local $Btn_ans_sub, $Btn_ans_add, $Btn_ans_com, $Menu1, $Submenu1a Local $Submenu1b, $Menu2, $Submenu2a, $Submenu2b, $Menu3, $Submenu_about Local $Submenu3b, $Submenu1_exit, $nMsg, $i, $read, $trim, $sFile, $Btn_back $hForm = GUICreate($title, @DesktopWidth, @DesktopHeight, -1, -1, _ BitOR($WS_POPUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_WINDOWEDGE,$WS_EX_LAYERED)) GUISetBkColor(0xABABAB) WinSetOnTop($title, "", 1) GUISetIcon($sFile, -1, $hForm) $Menu1 = GUICtrlCreateMenu("Edit") $Submenu1a = GUICtrlCreateMenuItem("Copy Ctrl+C", $Menu1) $Submenu1b = GUICtrlCreateMenuItem("Paste Ctrl+V", $Menu1) GUICtrlCreateMenuItem("", $Menu1, 2) $Submenu1_exit = GUICtrlCreateMenuItem("Exit ESC", $Menu1) $Menu2 = GUICtrlCreateMenu("View") $Submenu2a = GUICtrlCreateMenuItem("Standard", $Menu2) $Submenu2b = GUICtrlCreateMenuItem("Classic", $Menu2) $Menu3 = GUICtrlCreateMenu("About") $Submenu_about = GUICtrlCreateMenuItem("About", $Menu3) $Submenu3b = GUICtrlCreateMenuItem("Help", $Menu3) $Inp_disp = GUICtrlCreateInput("0", 8, 10, 120, 20, _ BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN), _ BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetFont(-1, 9, 400, 0, "Arial") GUICtrlSetBkColor(-1, 0xFFFFFF) $Btn7 = GUICtrlCreateButton("7", 8, 70, 27, 25, $WS_GROUP) $Btn8 = GUICtrlCreateButton("8", 40, 70, 27, 25, $WS_GROUP) $Btn9 = GUICtrlCreateButton("9", 72, 70, 27, 25, $WS_GROUP) $Btn4 = GUICtrlCreateButton("4", 8, 100, 27, 25, $WS_GROUP) $Btn5 = GUICtrlCreateButton("5", 40, 100, 27, 25, $WS_GROUP) $Btn6 = GUICtrlCreateButton("6", 72,100, 27, 25, $WS_GROUP) $Btn1 = GUICtrlCreateButton("1", 8, 130, 27, 25, $WS_GROUP) $Btn2 = GUICtrlCreateButton("2", 40, 130, 27, 25, $WS_GROUP) $Btn3 = GUICtrlCreateButton("3", 72, 130, 27, 25, $WS_GROUP) $Btn0 = GUICtrlCreateButton("0", 8, 160, 27, 25, $WS_GROUP) $Btn_dot = GUICtrlCreateButton(".", 40, 160, 27, 25, $BS_BOTTOM ) GUICtrlSetFont(-1, 18, 400, 0, "Arial") $Btn_back = GUICtrlCreateButton("BS", 8, 40, 27, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Btn_clear = GUICtrlCreateButton("c", 103, 40, 27, 25) GUICtrlSetFont(-1, 10, 400, 0, "Arial") $Btn_div = GUICtrlCreateButton("/", 104, 70, 27, 25) GUICtrlSetFont(-1, 10, 400, 0, "Arial") $Btn_mult = GUICtrlCreateButton("*", 104, 100, 27, 25, BitOR($BS_TOP,$WS_GROUP)) GUICtrlSetFont(-1, 18, 400, 0, "Arial") $Btn_sub = GUICtrlCreateButton("-", 104, 130, 27, 25, $BS_BOTTOM) GUICtrlSetFont(-1, 15, 400, 0, "Arial") $Btn_add = GUICtrlCreateButton("+", 104, 160, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Btn_ans_com = GUICtrlCreateButton("=", 72, 160, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Btn_ans_add = GUICtrlCreateButton("=", 72, 160, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_sub = GUICtrlCreateButton("=", 72, 160, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_mult = GUICtrlCreateButton("=", 72, 160, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_div = GUICtrlCreateButton("=", 72, 160, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_HIDE) GUISetState(@SW_SHOW) WinMove($title, "", 890, 5) _WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, 255, BitOR($LWA_COLORKEY, $LWA_ALPHA)) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $Submenu1_exit ExitLoop Case $Submenu_about ToolTip("Design by:Sak2005"&@CRLF&"CopyRight:2011", 820, 120, "About", 1, 2) Sleep(3000) ToolTip("") Case $Btn1 GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&1) Case $Btn2 GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&2) Case $Btn3 GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&3) Case $Btn4 GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&4) Case $Btn5 GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&5) Case $Btn6 GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&6) Case $Btn7 GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&7) Case $Btn8 GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&8) Case $Btn9 GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&9) Case $Btn0 GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&0) Case $Btn_dot GUICtrlSetData($Inp_disp, GUICtrlRead($Inp_disp)&'.') Case $Btn_back $trim = StringTrimRight(GUICtrlRead($Inp_disp), 1) GUICtrlSetData($Inp_disp, $trim) Case $Btn_add If GUICtrlRead($Inp_disp) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mult, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_SHOW) $read = GUICtrlRead($Inp_disp) GUICtrlSetData($Inp_disp, '') EndIf Case $Btn_sub If GUICtrlRead($Inp_disp) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_mult, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_SHOW) $read = GUICtrlRead($Inp_disp) GUICtrlSetData($Inp_disp, '') EndIf Case $Btn_mult If GUICtrlRead($Inp_disp) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_mult, $GUI_SHOW) $read = GUICtrlRead($Inp_disp) GUICtrlSetData($Inp_disp, '') EndIf Case $Btn_div If GUICtrlRead($Inp_disp) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mult, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_SHOW) $read = GUICtrlRead($Inp_disp) GUICtrlSetData($Inp_disp, '') EndIf Case $Btn_ans_add GUICtrlSetData($Inp_disp, $read+GUICtrlRead($Inp_disp)) Case $Btn_ans_sub GUICtrlSetData($Inp_disp, $read-GUICtrlRead($Inp_disp)) Case $Btn_ans_mult GUICtrlSetData($Inp_disp, $read*GUICtrlRead($Inp_disp)) Case $Btn_ans_div GUICtrlSetData($Inp_disp, $read/GUICtrlRead($Inp_disp)) Case $Btn_clear GUICtrlSetState($Btn_ans_com, $GUI_SHOW) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mult, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetData($Inp_disp, '') ContinueLoop EndSwitch WEnd EndFunc Func guiclose() Exit EndFunc
-
AZJIO Thanks for the code and program. Thanks Sam for combat worthiness. I will be developed in writing better code.
-
Great Work AZJIO, just rated it 5*2 stars. Thank*2
-
Update New Modify. Mini Calculator Glass. #NoTrayIcon #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Include <WinAPIEx.au3> Opt("MustDeclareVars", 1) HotKeySet("{ESC}", "send_close") HotKeySet("1", "send_1") HotKeySet("2", "send_2") HotKeySet("3", "send_3") HotKeySet("4", "send_4") HotKeySet("5", "send_5") HotKeySet("6", "send_6") HotKeySet("7", "send_7") HotKeySet("8", "send_8") HotKeySet("9", "send_9") HotKeySet("0", "send_0") HotKeySet(".", "send_dot") HotKeySet("=", "send_ans") HotKeySet("{+}", "send_add") HotKeySet("{-}", "send_sub") HotKeySet("{*}", "send_mul") HotKeySet("{/}", "send_div") HotKeySet("{BS}", "send_back") HotKeySet("{DEL}", "send_clear") HotKeySet("{Numpad1}", "send_num_1") HotKeySet("{Numpad2}", "send_num_2") HotKeySet("{Numpad3}", "send_num_3") HotKeySet("{Numpad4}", "send_num_4") HotKeySet("{Numpad5}", "send_num_5") HotKeySet("{Numpad6}", "send_num_6") HotKeySet("{Numpad7}", "send_num_7") HotKeySet("{Numpad8}", "send_num_8") HotKeySet("{Numpad9}", "send_num_9") HotKeySet("{Numpad0}", "send_num_0") HotKeySet("{NumpadDot}", "send_num_dot") HotKeySet("{NumpadAdd}", "send_num_add") HotKeySet("{NumpadSub}", "send_num_sub") HotKeySet("{NumpadMult}", "send_num_mul") HotKeySet("{NumpadDiv}", "send_num_div") Global $Input, $Btn1, $Btn2, $Btn3, $Btn4, $Btn5, $Btn6, $Btn7 Global $Btn8, $Btn9, $Btn0, $Btn_add, $Btn_sub, $Btn_mul Global $Btn_div, $Btn_clear, $Btn_dot, $Btn_ans_com, $Btn_ans_add Global $Btn_ans_sub, $Btn_ans_mul, $Btn_ans_div, $nMsg, $read Global $title = "Mini Calculator", $cid = "Edit1", $sread, $thim Global $sFile = @SystemDir&'\Calc.exe', $hForm, $sFile, $Btn_back main() Func main() $hForm = GUICreate("Mini Calculator", 305, 103, -1, -1, -1, $WS_EX_LAYERED) GUISetBkColor(0xABABAB) GUISetIcon($sFile, -1, $hForm) $Input = GUICtrlCreateInput("0", 8, 8, 290, 21, _ BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN), _ BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetFont(-1, 9, 400, 0, "Arial") GUICtrlSetBkColor(-1, 0xFFFFFF) $Btn1 = GUICtrlCreateButton("1", 8, 40, 27, 25, $WS_GROUP) $Btn2 = GUICtrlCreateButton("2", 40, 40, 27, 25, $WS_GROUP) $Btn3 = GUICtrlCreateButton("3", 72, 40, 27, 25, $WS_GROUP) $Btn4 = GUICtrlCreateButton("4", 104, 40, 27, 25, $WS_GROUP) $Btn5 = GUICtrlCreateButton("5", 136, 40, 27, 25, $WS_GROUP) $Btn6 = GUICtrlCreateButton("6", 8, 72, 27, 25, $WS_GROUP) $Btn7 = GUICtrlCreateButton("7", 40, 72, 27, 25, $WS_GROUP) $Btn8 = GUICtrlCreateButton("8", 72, 72, 27, 25, $WS_GROUP) $Btn9 = GUICtrlCreateButton("9", 104, 72, 27, 25, $WS_GROUP) $Btn0 = GUICtrlCreateButton("0", 136, 72, 27, 25, $WS_GROUP) $Btn_add = GUICtrlCreateButton("+", 176, 40, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Btn_sub = GUICtrlCreateButton("-", 208, 40, 27, 25, $BS_BOTTOM) GUICtrlSetFont(-1, 15, 400, 0, "Arial") $Btn_mul = GUICtrlCreateButton("*", 176, 72, 27, 25, BitOR($BS_TOP,$WS_GROUP)) GUICtrlSetFont(-1, 18, 400, 0, "Arial") $Btn_div = GUICtrlCreateButton("/", 208, 72, 27, 25) GUICtrlSetFont(-1, 10, 400, 0, "Arial") $Btn_clear = GUICtrlCreateButton("c", 240, 40, 27, 25) GUICtrlSetFont(-1, 11, 400, 0, "Arial") $Btn_back = GUICtrlCreateButton("BS", 270, 40, 27, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Btn_dot = GUICtrlCreateButton(".", 240, 72, 27, 25, $BS_BOTTOM ) GUICtrlSetFont(-1, 18, 400, 0, "Arial") $Btn_ans_com = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") $Btn_ans_add = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_sub = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_mul = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_div = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUICtrlSetState(-1, $GUI_HIDE) GUISetState(@SW_SHOW) _WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, 255, BitOR($LWA_COLORKEY, $LWA_ALPHA)) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Btn1 GUICtrlSetData($Input, GUICtrlRead($Input)&1) Case $Btn2 GUICtrlSetData($Input, GUICtrlRead($Input)&2) Case $Btn3 GUICtrlSetData($Input, GUICtrlRead($Input)&3) Case $Btn4 GUICtrlSetData($Input, GUICtrlRead($Input)&4) Case $Btn5 GUICtrlSetData($Input, GUICtrlRead($Input)&5) Case $Btn6 GUICtrlSetData($Input, GUICtrlRead($Input)&6) Case $Btn7 GUICtrlSetData($Input, GUICtrlRead($Input)&7) Case $Btn8 GUICtrlSetData($Input, GUICtrlRead($Input)&8) Case $Btn9 GUICtrlSetData($Input, GUICtrlRead($Input)&9) Case $Btn0 GUICtrlSetData($Input, GUICtrlRead($Input)&0) Case $Btn_dot GUICtrlSetData($Input, GUICtrlRead($Input)&'.') Case $Btn_back $thim = StringTrimRight(GUICtrlRead($Input), 1) GUICtrlSetData($Input, $thim) Case $Btn_add If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_sub If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_mul If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_div If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_ans_add GUICtrlSetData($Input, $read+GUICtrlRead($Input)) Case $Btn_ans_sub GUICtrlSetData($Input, $read-GUICtrlRead($Input)) Case $Btn_ans_mul GUICtrlSetData($Input, $read*GUICtrlRead($Input)) Case $Btn_ans_div GUICtrlSetData($Input, $read/GUICtrlRead($Input)) Case $Btn_clear GUICtrlSetState($Btn_ans_com, $GUI_SHOW) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetData($Input, '') ContinueLoop EndSwitch WEnd EndFunc Func send_1() GUICtrlSetData($Input, GUICtrlRead($Input)&1) EndFunc Func send_2() GUICtrlSetData($Input, GUICtrlRead($Input)&2) EndFunc Func send_3() GUICtrlSetData($Input, GUICtrlRead($Input)&3) EndFunc Func send_4() GUICtrlSetData($Input, GUICtrlRead($Input)&4) EndFunc Func send_5() GUICtrlSetData($Input, GUICtrlRead($Input)&5) EndFunc Func send_6() GUICtrlSetData($Input, GUICtrlRead($Input)&6) EndFunc Func send_7() GUICtrlSetData($Input, GUICtrlRead($Input)&7) EndFunc Func send_8() GUICtrlSetData($Input, GUICtrlRead($Input)&8) EndFunc Func send_9() GUICtrlSetData($Input, GUICtrlRead($Input)&9) EndFunc Func send_0() GUICtrlSetData($Input, GUICtrlRead($Input)&0) EndFunc Func send_dot() GUICtrlSetData($Input, GUICtrlRead($Input)&".") EndFunc Func send_back() $thim = StringTrimRight(GUICtrlRead($Input), 1) GUICtrlSetData($Input, $thim) EndFunc Func send_add() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_SHOW) GUICtrlSetState($Btn_ans_add, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_sub() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_SHOW) GUICtrlSetState($Btn_ans_sub, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_mul() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_SHOW) GUICtrlSetState($Btn_ans_mul, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_div() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_SHOW) GUICtrlSetState($Btn_ans_div, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_clear() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_SHOW) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetData($Input, '') EndIf EndFunc Func send_ans() WinWaitActive($title, "", 1) Send("{ENTER}") EndFunc Func enter() WinWaitActive($title, "", 1) Send("{ENTER}") EndFunc Func send_num_1() GUICtrlSetData($Input, GUICtrlRead($Input)&1) EndFunc Func send_num_2() GUICtrlSetData($Input, GUICtrlRead($Input)&2) EndFunc Func send_num_3() GUICtrlSetData($Input, GUICtrlRead($Input)&3) EndFunc Func send_num_4() GUICtrlSetData($Input, GUICtrlRead($Input)&4) EndFunc Func send_num_5() GUICtrlSetData($Input, GUICtrlRead($Input)&5) EndFunc Func send_num_6() GUICtrlSetData($Input, GUICtrlRead($Input)&6) EndFunc Func send_num_7() GUICtrlSetData($Input, GUICtrlRead($Input)&7) EndFunc Func send_num_8() GUICtrlSetData($Input, GUICtrlRead($Input)&8) EndFunc Func send_num_9() GUICtrlSetData($Input, GUICtrlRead($Input)&9) EndFunc Func send_num_0() GUICtrlSetData($Input, GUICtrlRead($Input)&0) EndFunc Func send_num_dot() GUICtrlSetData($Input, GUICtrlRead($Input)&".") EndFunc Func send_num_add() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_SHOW) GUICtrlSetState($Btn_ans_add, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_num_sub() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_SHOW) GUICtrlSetState($Btn_ans_sub, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_num_mul() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_SHOW) GUICtrlSetState($Btn_ans_mul, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_num_div() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_SHOW) GUICtrlSetState($Btn_ans_div, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_close() Exit EndFunc
-
Thank you for guidance. New updates to follow the instructions. Keyboard instead of mouse already. #NoTrayIcon #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt("MustDeclareVars", 1) HotKeySet("{ESC}", "send_close") HotKeySet("1", "send_1") HotKeySet("2", "send_2") HotKeySet("3", "send_3") HotKeySet("4", "send_4") HotKeySet("5", "send_5") HotKeySet("6", "send_6") HotKeySet("7", "send_7") HotKeySet("8", "send_8") HotKeySet("9", "send_9") HotKeySet("0", "send_0") HotKeySet(".", "send_dot") HotKeySet("{+}", "send_add") HotKeySet("{-}", "send_sub") HotKeySet("{*}", "send_mul") HotKeySet("{/}", "send_div") HotKeySet("{BS}", "send_back") HotKeySet("{DEL}", "send_clear") HotKeySet("{Numpad1}", "send_num_1") HotKeySet("{Numpad2}", "send_num_2") HotKeySet("{Numpad3}", "send_num_3") HotKeySet("{Numpad4}", "send_num_4") HotKeySet("{Numpad5}", "send_num_5") HotKeySet("{Numpad6}", "send_num_6") HotKeySet("{Numpad7}", "send_num_7") HotKeySet("{Numpad8}", "send_num_8") HotKeySet("{Numpad9}", "send_num_9") HotKeySet("{Numpad0}", "send_num_0") HotKeySet("{NumpadDot}", "send_num_dot") HotKeySet("{NumpadAdd}", "send_num_add") HotKeySet("{NumpadSub}", "send_num_sub") HotKeySet("{NumpadMult}", "send_num_mul") HotKeySet("{NumpadDiv}", "send_num_div") Global $Input, $Btn1, $Btn2, $Btn3, $Btn4, $Btn5, $Btn6, $Btn7 Global $Btn8, $Btn9, $Btn0, $Btn_add, $Btn_sub, $Btn_mul Global $Btn_div, $Btn_clear, $Btn_dot, $Btn_ans_com, $Btn_ans_add Global $Btn_ans_sub, $Btn_ans_mul, $Btn_ans_div, $nMsg, $read Global $title = "Mini Calculator", $cid = "Edit1", $sread, $thim Global $sFile = @SystemDir&'\Calc.exe', $hForm, $sFile, $Btn_back main() Func main() $hForm = GUICreate("Mini Calculator (Esc=Exit)", 305, 103, -1, -1, -1, _ BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) GUISetBkColor(0xA6CAF0) GUISetIcon($sFile, -1, $hForm) $Input = GUICtrlCreateInput("0", 8, 8, 290, 21, _ BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN), _ BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetBkColor(-1, 0xFFFFFF) $Btn1 = GUICtrlCreateButton("1", 8, 40, 27, 25, $WS_GROUP) $Btn2 = GUICtrlCreateButton("2", 40, 40, 27, 25, $WS_GROUP) $Btn3 = GUICtrlCreateButton("3", 72, 40, 27, 25, $WS_GROUP) $Btn4 = GUICtrlCreateButton("4", 104, 40, 27, 25, $WS_GROUP) $Btn5 = GUICtrlCreateButton("5", 136, 40, 27, 25, $WS_GROUP) $Btn6 = GUICtrlCreateButton("6", 8, 72, 27, 25, $WS_GROUP) $Btn7 = GUICtrlCreateButton("7", 40, 72, 27, 25, $WS_GROUP) $Btn8 = GUICtrlCreateButton("8", 72, 72, 27, 25, $WS_GROUP) $Btn9 = GUICtrlCreateButton("9", 104, 72, 27, 25, $WS_GROUP) $Btn0 = GUICtrlCreateButton("0", 136, 72, 27, 25, $WS_GROUP) $Btn_add = GUICtrlCreateButton("+", 176, 40, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Btn_sub = GUICtrlCreateButton("-", 208, 40, 27, 25, $BS_BOTTOM) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") $Btn_mul = GUICtrlCreateButton("*", 176, 72, 27, 25, BitOR($BS_TOP,$WS_GROUP)) GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif") $Btn_div = GUICtrlCreateButton("/", 208, 72, 27, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Btn_clear = GUICtrlCreateButton("c", 240, 40, 27, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Btn_back = GUICtrlCreateButton("BS", 270, 40, 27, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Btn_dot = GUICtrlCreateButton(".", 240, 72, 27, 25, $BS_BOTTOM ) GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif") $Btn_ans_com = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Btn_ans_add = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_sub = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_mul = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_div = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_HIDE) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Btn1 GUICtrlSetData($Input, GUICtrlRead($Input)&1) Case $Btn2 GUICtrlSetData($Input, GUICtrlRead($Input)&2) Case $Btn3 GUICtrlSetData($Input, GUICtrlRead($Input)&3) Case $Btn4 GUICtrlSetData($Input, GUICtrlRead($Input)&4) Case $Btn5 GUICtrlSetData($Input, GUICtrlRead($Input)&5) Case $Btn6 GUICtrlSetData($Input, GUICtrlRead($Input)&6) Case $Btn7 GUICtrlSetData($Input, GUICtrlRead($Input)&7) Case $Btn8 GUICtrlSetData($Input, GUICtrlRead($Input)&8) Case $Btn9 GUICtrlSetData($Input, GUICtrlRead($Input)&9) Case $Btn0 GUICtrlSetData($Input, GUICtrlRead($Input)&0) Case $Btn_dot GUICtrlSetData($Input, GUICtrlRead($Input)&'.') Case $Btn_back $thim = StringTrimRight(GUICtrlRead($Input), 1) GUICtrlSetData($Input, $thim) Case $Btn_add If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_sub If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_mul If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_div If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_ans_add GUICtrlSetData($Input, $read+GUICtrlRead($Input)) Case $Btn_ans_sub GUICtrlSetData($Input, $read-GUICtrlRead($Input)) Case $Btn_ans_mul GUICtrlSetData($Input, $read*GUICtrlRead($Input)) Case $Btn_ans_div GUICtrlSetData($Input, $read/GUICtrlRead($Input)) Case $Btn_clear GUICtrlSetState($Btn_ans_com, $GUI_SHOW) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetData($Input, '') ContinueLoop EndSwitch WEnd EndFunc Func send_1() GUICtrlSetData($Input, GUICtrlRead($Input)&1) EndFunc Func send_2() GUICtrlSetData($Input, GUICtrlRead($Input)&2) EndFunc Func send_3() GUICtrlSetData($Input, GUICtrlRead($Input)&3) EndFunc Func send_4() GUICtrlSetData($Input, GUICtrlRead($Input)&4) EndFunc Func send_5() GUICtrlSetData($Input, GUICtrlRead($Input)&5) EndFunc Func send_6() GUICtrlSetData($Input, GUICtrlRead($Input)&6) EndFunc Func send_7() GUICtrlSetData($Input, GUICtrlRead($Input)&7) EndFunc Func send_8() GUICtrlSetData($Input, GUICtrlRead($Input)&8) EndFunc Func send_9() GUICtrlSetData($Input, GUICtrlRead($Input)&9) EndFunc Func send_0() GUICtrlSetData($Input, GUICtrlRead($Input)&0) EndFunc Func send_dot() GUICtrlSetData($Input, GUICtrlRead($Input)&".") EndFunc Func send_back() $thim = StringTrimRight(GUICtrlRead($Input), 1) GUICtrlSetData($Input, $thim) EndFunc Func send_add() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_SHOW) GUICtrlSetState($Btn_ans_add, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_sub() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_SHOW) GUICtrlSetState($Btn_ans_sub, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_mul() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_SHOW) GUICtrlSetState($Btn_ans_mul, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_div() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_SHOW) GUICtrlSetState($Btn_ans_div, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_clear() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_SHOW) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetData($Input, '') EndIf EndFunc Func enter() WinWaitActive($title, "", 1) Send("{ENTER}") EndFunc Func send_num_1() GUICtrlSetData($Input, GUICtrlRead($Input)&1) EndFunc Func send_num_2() GUICtrlSetData($Input, GUICtrlRead($Input)&2) EndFunc Func send_num_3() GUICtrlSetData($Input, GUICtrlRead($Input)&3) EndFunc Func send_num_4() GUICtrlSetData($Input, GUICtrlRead($Input)&4) EndFunc Func send_num_5() GUICtrlSetData($Input, GUICtrlRead($Input)&5) EndFunc Func send_num_6() GUICtrlSetData($Input, GUICtrlRead($Input)&6) EndFunc Func send_num_7() GUICtrlSetData($Input, GUICtrlRead($Input)&7) EndFunc Func send_num_8() GUICtrlSetData($Input, GUICtrlRead($Input)&8) EndFunc Func send_num_9() GUICtrlSetData($Input, GUICtrlRead($Input)&9) EndFunc Func send_num_0() GUICtrlSetData($Input, GUICtrlRead($Input)&0) EndFunc Func send_num_dot() GUICtrlSetData($Input, GUICtrlRead($Input)&".") EndFunc Func send_num_add() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_SHOW) GUICtrlSetState($Btn_ans_add, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_num_sub() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_SHOW) GUICtrlSetState($Btn_ans_sub, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_num_mul() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_SHOW) GUICtrlSetState($Btn_ans_mul, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_num_div() If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_SHOW) GUICtrlSetState($Btn_ans_div, $GUI_FOCUS) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf EndFunc Func send_close() Exit EndFunc
-
Thank you for helping to slant A single look. Do not know what will work or not.
-
Calculator. My idia. It's work. #NoTrayIcon #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt("MustDeclareVars", 1) Global $Input, $Btn1, $Btn2, $Btn3, $Btn4, $Btn5, $Btn6, $Btn7 Global $Btn8, $Btn9, $Btn0, $Btn_add, $Btn_sub, $Btn_mul Global $Btn_div, $Btn_clear, $Btn_dot, $Btn_ans_com, $Btn_ans_add Global $Btn_ans_sub, $Btn_ans_mul, $Btn_ans_div, $nMsg, $read main() Func main() GUICreate("Mini Calculator", 305, 103, -1, -1, -1, _ BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) $Input = GUICtrlCreateInput("", 8, 8, 290, 21, _ BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN), _ BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetBkColor(-1, 0xFFFFFF) $Btn1 = GUICtrlCreateButton("1", 8, 40, 27, 25, $WS_GROUP) $Btn2 = GUICtrlCreateButton("2", 40, 40, 27, 25, $WS_GROUP) $Btn3 = GUICtrlCreateButton("3", 72, 40, 27, 25, $WS_GROUP) $Btn4 = GUICtrlCreateButton("4", 104, 40, 27, 25, $WS_GROUP) $Btn5 = GUICtrlCreateButton("5", 136, 40, 27, 25, $WS_GROUP) $Btn6 = GUICtrlCreateButton("6", 8, 72, 27, 25, $WS_GROUP) $Btn7 = GUICtrlCreateButton("7", 40, 72, 27, 25, $WS_GROUP) $Btn8 = GUICtrlCreateButton("8", 72, 72, 27, 25, $WS_GROUP) $Btn9 = GUICtrlCreateButton("9", 104, 72, 27, 25, $WS_GROUP) $Btn0 = GUICtrlCreateButton("0", 136, 72, 27, 25, $WS_GROUP) $Btn_add = GUICtrlCreateButton("+", 176, 40, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Btn_sub = GUICtrlCreateButton("-", 208, 40, 27, 25, $BS_BOTTOM) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") $Btn_mul = GUICtrlCreateButton("*", 176, 72, 27, 25, BitOR($BS_TOP,$WS_GROUP)) GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif") $Btn_div = GUICtrlCreateButton("/", 208, 72, 27, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Btn_clear = GUICtrlCreateButton("c", 240, 40, 58, 25) GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif") $Btn_dot = GUICtrlCreateButton(".", 240, 72, 27, 25, $BS_BOTTOM ) GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif") $Btn_ans_com = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $Btn_ans_add = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_sub = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_mul = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_HIDE) $Btn_ans_div = GUICtrlCreateButton("=", 272, 72, 27, 25) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_HIDE) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Btn1 GUICtrlSetData($Input, GUICtrlRead($Input)&1) Case $Btn2 GUICtrlSetData($Input, GUICtrlRead($Input)&2) Case $Btn3 GUICtrlSetData($Input, GUICtrlRead($Input)&3) Case $Btn4 GUICtrlSetData($Input, GUICtrlRead($Input)&4) Case $Btn5 GUICtrlSetData($Input, GUICtrlRead($Input)&5) Case $Btn6 GUICtrlSetData($Input, GUICtrlRead($Input)&6) Case $Btn7 GUICtrlSetData($Input, GUICtrlRead($Input)&7) Case $Btn8 GUICtrlSetData($Input, GUICtrlRead($Input)&8) Case $Btn9 GUICtrlSetData($Input, GUICtrlRead($Input)&9) Case $Btn0 GUICtrlSetData($Input, GUICtrlRead($Input)&0) Case $Btn_dot GUICtrlSetData($Input, GUICtrlRead($Input)&'.') Case $Btn_add If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_sub If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_mul If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_div If GUICtrlRead($Input) <> '' Then GUICtrlSetState($Btn_ans_com, $GUI_HIDE) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_SHOW) $read = GUICtrlRead($Input) GUICtrlSetData($Input, '') EndIf Case $Btn_ans_add GUICtrlSetData($Input, $read+GUICtrlRead($Input)) Case $Btn_ans_sub GUICtrlSetData($Input, $read-GUICtrlRead($Input)) Case $Btn_ans_mul GUICtrlSetData($Input, $read*GUICtrlRead($Input)) Case $Btn_ans_div GUICtrlSetData($Input, $read/GUICtrlRead($Input)) Case $Btn_clear GUICtrlSetState($Btn_ans_com, $GUI_SHOW) GUICtrlSetState($Btn_ans_add, $GUI_HIDE) GUICtrlSetState($Btn_ans_sub, $GUI_HIDE) GUICtrlSetState($Btn_ans_mul, $GUI_HIDE) GUICtrlSetState($Btn_ans_div, $GUI_HIDE) GUICtrlSetData($Input, '') ContinueLoop EndSwitch WEnd EndFunc