islandspapand Posted December 13, 2012 Posted December 13, 2012 (edited) Solved But if anybody has any improvements i would love to hear them i am also looking for a possibly to add a auto-scroll when the auto button is pressed. just have not found out how to yet. expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=E:\Downloads\1355224006_xconsole-console-terminal-command line-icon.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include #include #Include #Include #include #include #include Global $iItem ; Command identifier of the button associated with the notification. Global $hGUI, $hToolbar, $hToolTip, $hReBar, $iMemo, $aStrings[5], $i = 0 Global Enum $id1 = 1000, $id2, $id3, $id4, $id5 ; ID's for each ToolBar button Global $data, $msgbox Global $stop = False Global $GUIPosLeft = (@DesktopWidth-@DesktopWidth/4)-10 Global $GUIPosWidth = @DesktopWidth/4 Global $GUIPosHeight = @DesktopHeight-55 Global $GUIPosTop = 5 FileInstall("C:\Icon.dll",@ScriptDir&"\") Opt('MustDeclareVars', 1) If $CmdLine[0] <> 0 Then Local $foo = Run(@ComSpec & " /c "& $CmdLine[1], "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) _Main() Local $data While 1 $data &= StdoutRead($foo) If @error Then ExitLoop WEnd EndIf Func _Main() Local $hToolBarImageListNorm, $hToolBarImageListDisabled, $hToolBarImageListHot, $aSize $hGUI = GUICreate("Console Informer",$GUIPosWidth ,$GUIPosHeight,$GUIPosLeft,$GUIPosTop,BitOR($WS_SYSMENU,$WS_DLGFRAME)) $hReBar = _GUICtrlReBar_Create($hGUI, BitOR($RBS_VARHEIGHT, $RBS_AUTOSIZE, $RBS_BANDBORDERS)) $hToolbar = _GUICtrlToolbar_Create($hGUI, BitOR($BTNS_AUTOSIZE, $BTNS_BUTTON, $BTNS_SHOWTEXT)) $aSize = _GUICtrlToolbar_GetMaxSize($hToolbar) $hToolBarImageListNorm = _GUIImageList_Create(16,16, 5) _GUIImageList_AddIcon($hToolBarImageListNorm, @ScriptDir & "\Icon.dll", 2) ;Clean _GUIImageList_AddIcon($hToolBarImageListNorm, @ScriptDir & "\Icon.dll", 0) ;Clean _GUIImageList_AddIcon($hToolBarImageListNorm, @ScriptDir & "\Icon.dll", 4) ;Clean _GUIImageList_AddIcon($hToolBarImageListNorm, @ScriptDir & "\Icon.dll", 1) ;Clean _GUIImageList_AddIcon($hToolBarImageListNorm, @ScriptDir & "\Icon.dll", 5) ;Clean _GUIImageList_AddIcon($hToolBarImageListNorm, @ScriptDir & "\Icon.dll", 3) ;Clean _GUICtrlToolbar_SetImageList($hToolbar, $hToolBarImageListNorm) $aStrings[0] = _GUICtrlToolbar_AddString($hToolbar, "Refresh") $aStrings[1] = _GUICtrlToolbar_AddString($hToolbar, "Clr") $aStrings[2] = _GUICtrlToolbar_AddString($hToolbar, "Write") $aStrings[3] = _GUICtrlToolbar_AddString($hToolbar, "Auto") $aStrings[4] = _GUICtrlToolbar_AddString($hToolbar, "Clr Data") _GUICtrlToolbar_AddButton($hToolbar, $id1, 0, $aStrings[0]) ; Index 0 _GUICtrlToolbar_AddButtonSep($hToolbar,20) _GUICtrlToolbar_AddButton($hToolbar, $id2, 1, $aStrings[1]) ; Index 0 _GUICtrlToolbar_AddButtonSep($hToolbar,20) _GUICtrlToolbar_AddButton($hToolbar, $id3, 2, $aStrings[2]) ; Index 0 _GUICtrlToolbar_AddButtonSep($hToolbar,20) _GUICtrlToolbar_AddButton($hToolbar, $id4, 3, $aStrings[3]) ; Index 0 _GUICtrlToolbar_AddButtonSep($hToolbar,20) _GUICtrlToolbar_AddButton($hToolbar, $id5, 4, $aStrings[4]) ; Index 0 _GUICtrlReBar_AddToolBarBand($hReBar, $hToolbar, "", 0) $iMemo = GUICtrlCreateEdit("", 0, $aSize[1] + 20, $GUIPosWidth, $GUIPosHeight - ($aSize[1] + 20), $WS_VSCROLL) GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New") GUISetState() GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY") EndFunc Func MemoWrite($sMessage = "") GUICtrlSetData($iMemo, $sMessage & @CRLF) EndFunc ;==>MemoWrite Func _WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam) #forceref $hWndGUI, $MsgID, $wParam Local $hwndFrom, $code, $index Local $tNMTOOLBAR, $tInfo, $iID $tNMTOOLBAR = DllStructCreate($tagNMTOOLBAR, $lParam) $hwndFrom = DllStructGetData($tNMTOOLBAR, "hWndFrom") $code = DllStructGetData($tNMTOOLBAR, "Code") $iItem = DllStructGetData($tNMTOOLBAR, "iItem") Switch $hwndFrom Case $hToolbar Switch $code Case $TBN_BEGINDRAG $index = _GUICtrlToolbar_CommandToIndex($hToolbar, $iItem) Switch _GUICtrlToolbar_IsButtonEnabled($hToolbar, $iItem) Case True Switch $index Case 0 ;Refresh Beep(1000, 5) MemoWrite($data) Case 1 Beep(1500, 5) Case 2 ; Clr scrn Beep(2000, 5) GUICtrlSetData($iMemo, "") Case 4 ; Write Data Beep(2500, 5) FileWrite(@ScriptDir&"\ConsoleInfo.log",$data) ShellExecute(@ScriptDir&"\ConsoleInfo.log") Case 8 ;Clr Data Beep(3000, 5) $msgbox=MsgBox(36,"Console Info","Du er ved at tømme Data Variablen for alt dens info"&@CRLF&"Er Du sikker på du ville forsætte") If $msgbox=6 Then $data = "" MsgBox(0,"Console Info","Data Variablen Tømt"&@CRLF&$data) GUICtrlSetData($iMemo, "") Else EndIf Case 6 ; Autograb Beep(3500, 5) SoundPlay(@WindowsDir & "\media\tada.wav", 0) If Not _GUICtrlToolbar_IsButtonChecked($hToolbar, $id4) Then _GUICtrlToolbar_SetButtonBitMap($hToolbar, $id4, 5) _GUICtrlToolbar_CheckButton($hToolbar, $id4, True) _GUICtrlToolbar_EnableButton($hToolbar, $id5, False) _GUICtrlToolbar_EnableButton($hToolbar, $id3, False) _GUICtrlToolbar_EnableButton($hToolbar, $id2, False) _GUICtrlToolbar_EnableButton($hToolbar, $id1, False) While 1 $data &= StdoutRead($foo) If @error Then ExitLoop 1 Sleep(50) GUICtrlSetData($iMemo,$data) $tNMTOOLBAR = DllStructCreate($tagNMTOOLBAR, $lParam) $hwndFrom = DllStructGetData($tNMTOOLBAR, "hWndFrom") $code = DllStructGetData($tNMTOOLBAR, "Code") $iItem = DllStructGetData($tNMTOOLBAR, "iItem") Switch $hwndFrom Case $hToolbar Switch $code Case $TBN_BEGINDRAG $index = _GUICtrlToolbar_CommandToIndex($hToolbar, $iItem) Switch _GUICtrlToolbar_IsButtonChecked($hToolbar, $iItem) Case True Switch $index Case 6 If _GUICtrlToolbar_IsButtonPressed($hToolbar, $id4) And _GUICtrlToolbar_IsButtonChecked($hToolbar, $id4) Then _GUICtrlToolbar_CheckButton($hToolbar, $id4, False) _GUICtrlToolbar_SetButtonBitMap($hToolbar, $id4, 3) _GUICtrlToolbar_EnableButton($hToolbar, $id5, True) _GUICtrlToolbar_EnableButton($hToolbar, $id3, True) _GUICtrlToolbar_EnableButton($hToolbar, $id2, True) _GUICtrlToolbar_EnableButton($hToolbar, $id1, True) ExitLoop 1 EndIf EndSwitch EndSwitch EndSwitch EndSwitch WEnd EndIf EndSwitch EndSwitch EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFuncDebugger.exe Edited December 14, 2012 by islandspapand
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now