(kleine) Konsole

Ubuntu

Hallo,
Die Kosole entwickelt sich Dank hilfe von H1221 und yxyx ganz gut.
Deshalb habe ich mal eine neue eine Anleitung geschrieben.
Hallo,
ich habe mal eine kleine Konsole geschrieben.
(nichts besonderes ich wollte es halt mal ausprobieren)
Warscheinlich hält sich dern praktische nutzen eher in Grenzen, aber es ich sicher ein ganz gutes Beispiel.
Inzwischen eignet sie sich sicher auch zum schneller Navigieren auf einem Pc oder zum erstellen von "Shortcuts"

Anleitung

-Help eintippen um Befehlsliste aufzurufen
-Help und als Parameter Befehl eintippen um Befehlsbeschreibung aufzurufen.

Code

> help exit
EXIT	Exit the console

-Zum erstellen einer neuen Funktion einfach den befehl

Code

_ConsoleCommand_DEINBEFEHL()

erstellen
-Die Arrays

[autoit]

Global $Commands[?], $CommandsDis[?]

[/autoit]

auf einen höher setzen als sie sind
-Den freien Array Platz als jeweils Befehl (in Grossbuchstaben) und Beschreibung definieren

Code

[autoit]

#include <Misc.au3>
#include <Array.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <WinAPI.au3>
#include <GDIPlus.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

Global $CurCommand, $Read, $Commands[13], $CommandsDis[13], $Right, $CurCommandParameters, $CurCommandString, $Curpath = @ScriptDir, $Loesung
Global $dll = DllOpen("user32.dll")
Global $title = "Console"

[/autoit] [autoit][/autoit] [autoit]

$Commands[0] = "HELP"
$Commands[1] = "EXIT"
$Commands[2] = "MSGBOX"
$Commands[3] = "CLEAR"
$Commands[4] = "COLOUR"
$Commands[5] = "HIDE"
$Commands[6] = "CREATE_FILE"
$Commands[7] = "CD"
$Commands[8] = "SOLVE"
$Commands[9] = "EXECUTE"
$Commands[10] = "DRAWLINE"
$Commands[11] = "DRAWIMAGE"
$Commands[12] = "GRAPHICSCLEAR"

[/autoit] [autoit][/autoit] [autoit]

$CommandsDis[0] = "Shows a List of all commands/E/tParameter 1 = Command (optional)"
$CommandsDis[1] = "Exit the console"
$CommandsDis[2] = "Shows a massage/E/tParameter 1 = Flag/E/tParameter 2 = Title (string)/E/tParameter 3 = Text (string)"
$CommandsDis[3] = "Clears the Console"
$CommandsDis[4] = "Changes the font and background colour/E/tParameter 1 = font colour (HEX)/E/tParameter 2 = background colour (HEX) (optional)"
$CommandsDis[5] = "Hides the Console until its activated again"
$CommandsDis[6] = "Creates a file or overwrites existing File/Ewith previous & the File gets written to directionary"
$CommandsDis[7] = "Changes the directory/E/tParameter 1 = New directory"
$CommandsDis[8] = "/ESolves a Calculation./ESet a prefix in front of the Calculation to claculate with the Solve of the Calciulation before. (Please Correct my English )"
$CommandsDis[9] = "Executes a path with the ShellExecute Engine/EIf no parameters are denoted the last changed/created/moved File will open."
$CommandsDis[10] = "Draws a line/E/tParameter 1 = Startpoint X/E/tParameter 2 = Startpoint Y/E/tParameter 3 = Endpoint X/E/tParameter 4 = Endpoint Y/E/tParameter 5 = color of the line (string) (optional)/E/tParameter 6 = the width of the line (optional)"
$CommandsDis[11] = "Draws an image/E/tParameter 1 = Full path to the Image (string)/E/tParameter 2 = X Kooardinate/E/tParameter 3 = Y Kooardinate"
$CommandsDis[12] = "Clears the graphic"

[/autoit] [autoit][/autoit] [autoit]

$Console = _ConsoleCreate($title)
_ConsoleWrite($Console, "Welcome")
$hwnd = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, 0, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST), $Console[0])

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()
$graphics = _GDIPlus_GraphicsCreateFromHWND($hwnd)
$bitmap = _GDIPlus_BitmapCreateFromGraphics(@DesktopWidth, @DesktopHeight, $graphics)
$backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
$constantpen = _GDIPlus_PenCreate()
$ScreenDc = _WinAPI_GetDC($hWnd)
$dc = _WinAPI_CreateCompatibleDC($ScreenDc)

[/autoit] [autoit][/autoit] [autoit]

; _WinAPI_UpdateLayeredWindow parameters
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", @DesktopWidth)
DllStructSetData($tSize, "Y", @DesktopHeight)
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", 255)
DllStructSetData($tBlend, "Format", 1)
$tPoint = DllStructCreate($tagPOINT)
$pPoint = DllStructGetPtr($tPoint)
DllStructSetData($tPoint, "X", 0)
DllStructSetData($tPoint, "Y", 0)
updatewin()

[/autoit] [autoit][/autoit] [autoit]

GUISetState()
WinActivate($Title)

[/autoit] [autoit][/autoit] [autoit]

While 1
If _IsPressed("0D", $dll) And WinActive($title) Then
$array = StringSplit(GUICtrlRead($Console[1]), @CRLF)
$CurCommand = $array[Ubound($array) - 1]
$CurCommandParameters = StringSplit($CurCommand, " ")
$CurCommandString = StringSplit($CurCommand, '"')
For $i = 1 To $array[0] - 1 Step 2
$Read &= $array[$i] & @CRLF
Next
GUICtrlSetData($Console[1], $Read & "> " & $CurCommand & @CRLF)
For $i = 0 To UBound($Commands) - 1
If $CurCommandParameters[1] = $Commands[$i] Then
Call("_ConsoleCommand_" & $Commands[$i])
$Right = True
ExitLoop
Else
$Right = False
EndIf
Next
If Not $Right Then
_ConsoleWrite($Console, "unknown Command/EType HELP to list all commands")
EndIf
While _IsPressed("0D", $dll) And WinActive($title)
Sleep(100)
WEnd
$Read = ""
EndIf
Sleep(30)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_SOLVE()
If UBound($CurCommandParameters) = 3 Then
$RegExString = StringRegExp($CurCommandParameters[2],"^.",3)

[/autoit] [autoit][/autoit] [autoit]

If IsDeclared("Loesung") and ($RegExString[0] = "+" or $RegExString[0] = "-" or $RegExString[0] = "*" or $RegExString[0] = "/") Then
$Loesung = Execute($Loesung & $CurCommandParameters[2])
If IsNumber($Loesung) Then
_ConsoleWrite($Console, $Loesung)
Else
_ConsoleWrite($Console, "Wrong arguments, solve: " & $Loesung)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Else

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Loesung = Execute($CurCommandParameters[2])
If IsNumber($Loesung) Then
_ConsoleWrite($Console, $Loesung)
Else
_ConsoleWrite($Console, "Wrong arguments, solve: " & $Loesung)
EndIf
EndIf
Else
_ConsoleWrite($Console, "Parameter Error")
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_EXECUTE()
If UBound($CurCommandParameters) > 3 Then
_ConsoleWrite($Console, "Parameter Error")
ElseIf UBound($CurCommandParameters) = 2 Then
If IsDeclared("CreatingPath") Then
ShellExecute($CreatingPath)
Else
_ConsoleWrite($Console,"No File found")
EndIf

[/autoit] [autoit][/autoit] [autoit]

Else
ShellExecute($CurCommandParameters[2])
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_CD()
If UBound($CurCommandString) > 3 Then
$CurPath = $CurCommandString[2]
Else
_ConsoleWrite($Console, "Parameter Error")
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_CREATE_FILE()
;~ MsgBox(0,"",$CurCommandParameters[2])
If UBound($CurCommandParameters) = 3 Then $StringREG = StringRegExp($CurCommandParameters[2],"^.",3)
If UBound($CurCommandParameters) > 3 Then
_ConsoleWrite($Console, "Parameter Error")
ElseIf UBound($CurCommandParameters) = 3 and $StringREG[0] = "&" Then
$Datei = StringReplace($CurCommandParameters[2],"&","")
If StringRegExp($CurPath ,".$",3) = "\" Then
$CreatingPath = $CurPath & $Datei
_FileCreate($CurPath & $Datei)
Else
_FileCreate($CurPath & "\" & $Datei)
$CreatingPath = $CurPath & "\" & $Datei
EndIf

[/autoit] [autoit][/autoit] [autoit]

If Not FileExists($CreatingPath) or not @error = 0 Then
Switch @error
Case 0
_ConsoleWrite($Console,"unknown Error - check path")
Case 1
_ConsoleWrite($Console,"Error - cant open existing file")
Case 2
_ConsoleWrite($Console,"Error - cant write to existing file")
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

Else
_ConsoleWrite($Console,"Sucsess")
EndIf
ElseIf UBound($CurCommandParameters) = 3 Then
$CreatingPath = $CurCommandParameters[2]
_FileCreate($CurCommandParameters[2])
If Not FileExists($CurPath) or not @error = 0 Then
Switch @error
Case 0
_ConsoleWrite($Console,"unknown Error - check path")
Case 1
_ConsoleWrite($Console,"Error - cant open existing file")
Case 2
_ConsoleWrite($Console,"Error - cant write to existing file")
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

Else
_ConsoleWrite($Console,"Sucsess")
EndIf
Else
_ConsoleWrite($Console, "Parameter Error")
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_HIDE()
_WinSetSize($Console[0],660, 30, 10, 4)
GUISetState(@SW_SHOWMINIMIZED)
Do
Sleep(20)
Until WinActive($Title)
_WinSetSize($Console[0], 660, 329, 10, 5)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_COLOUR()
If UBound($CurCommandParameters) = 3 Then
GUICtrlSetColor($Console[1], "0x" & $CurCommandParameters[2])
ElseIf UBound($CurCommandParameters) = 4 Then
GUICtrlSetColor($Console[1], "0x" & $CurCommandParameters[2])
GUICtrlSetBkColor($Console[1], "0x" & $CurCommandParameters[3])
Else
_ConsoleWrite($Console, "Parameter Error")
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_CLEAR()
GUICtrlSetData($Console[1], "")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_MSGBOX()
If Not UBound($CurCommandParameters) < 5 And UBound($CurCommandString) = 6 Then
MsgBox(Number($CurCommandParameters[2]), $CurCommandString[2], $CurCommandString[4])
Else
_ConsoleWrite($Console, "Parameter Error")
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_Exit()
_WinSetSize($Console[0], 660, 0, 10, 5)
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_HELP()
If UBound($CurCommandParameters) = 2 Then
For $i = 0 To UBound($Commands) - 1
_ConsoleWrite($Console, $Commands[$i])
Next
ElseIf UBound($CurCommandParameters) = 3 Then
For $i = 0 To UBound($Commands) - 1
If $CurCommandParameters[2] = $Commands[$i] Then
_ConsoleWrite($Console, $Commands[$i] & "/t" & $CommandsDis[$i])
ExitLoop
EndIf
Next
Else
_ConsoleWrite($Console, "Parameter Error")
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SM_SetVisualStyle($b_Enable)
Return DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $b_Enable)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCreate($Title)
Local $Console[2]
_SM_SetVisualStyle(False)
$Console[0] = GUICreate($Title, 654, 0, @DesktopWidth- 660, 0, Default)
GUISetOnEvent(-3, "_ConsoleCommand_Exit")
GUISetBkColor(0x000000)
$Console[1] = GUICtrlCreateEdit("", 0, 0, 657, 297, BitOR($ES_AUTOVSCROLL, $WS_VSCROLL))
GUICtrlSetBkColor($Console[1], 0x000000)
GUICtrlSetColor($Console[1], 0xC0C0C0)
GUICtrlSetFont($Console[1], 10, Default, Default, "Lucida Console")
GUISetState(@SW_SHOW)
_WinSetSize($Console[0], 660, 329, 10, 5)
Return $Console
Endfunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleWrite($Console, $String)
Local $timer, $split
$String = StringReplace($String, "/E", @CRLF)
$String = StringReplace($String, "/t", @TAB)
$split = StringSplit($String, "")
$timer = TimerInit()
For $i = 1 To $split[0]
Sleep(15)
GUICtrlSetData($Console[1], GUICtrlRead($Console[1]) & $split[$i])
Next
GUICtrlSetData($Console[1], GUICtrlRead($Console[1]) & @CRLF)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _WinSetSize($hWnd, $iWidth, $iHeigth, $iSleep = -1,$iStep = 4);by Gta Spider
If $iSleep < 0 Then Return WinMove($hWnd,"",Default,Default,$iWidth,$iHeigth)
Local $i, $iStepW = $iStep, $iStepH = $iStep,$iSin,$i2,$iLastI
Local $aWinPos = WinGetPos($hWnd)
If $iWidth < $aWinPos[2] Then $iStepW *= -1
If $iHeigth < $aWinPos[3] Then $iStepH *= -1
Local $iDegToRad = 3.14159265358979/180
Local $iSinMulW = ($iWidth - $aWinPos[2]) / 2.5
Local $iSinMulH = ($iHeigth - $aWinPos[3]) / 2.5
If $iSinMulW < 0 Then $iSinMulW *= -1
If $iSinMulH < 0 Then $iSinMulH *= -1
If $iWidth <> $aWinPos[2] Then
For $i = $aWinPos[2] To $iWidth Step $iStepW
$iLastI = $i
$iSin = $i - $aWinPos[2]
$iSin = Sin($iDegToRad * (180*$iSin/($iWidth - $aWinPos[2])))
WinMove($hWnd,"",Default,Default,$i + ($iSin * $iSinMulW),Default)
Sleep($iSleep)
Next
If Mod($iWidth - $aWinPos[2],$iStep) Then
If $iStepW < 0 Then
$iStepW = -1
Else
$iStepW = 1
EndIf
For $i = $iLastI -1 To $iWidth Step $iStepW
WinMove($hWnd,"",Default,Default,$i,Default)
Next
EndIf
EndIf
If $iHeigth <> $aWinPos[3] Then
For $i = $aWinPos[3] To $iHeigth Step $iStepH
$iLastI = $i
$iSin = $i - $aWinPos[3]
$iSin = Sin($iDegToRad*(180*$iSin/($iHeigth - $aWinPos[3])))
WinMove($hWnd,"",Default,Default,Default,$i + ($iSin * $iSinMulH))
Sleep($iSleep)
Next
If Mod($iHeigth - $aWinPos[3],$iStep) Then
If $iStepH < 0 Then
$iStepH = -1
Else
$iStepH = 1
EndIf
For $i = $iLastI -1 To $iHeigth Step $iStepH
WinMove($hWnd,"",Default,Default,Default,$i)
Next
EndIf
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_DRAWLINE()
Local $pen, $color
If UBound($CurCommandParameters) = 6 Then
_GDIPlus_GraphicsDrawLine($backbuffer, $CurCommandParameters[2], $CurCommandParameters[3], $CurCommandParameters[4], $CurCommandParameters[5], $constantpen)
if @error Then _ConsoleWrite($Console, "Error")
updatewin()
ElseIf UBound($CurCommandParameters) = 7 Then
$color = "0xFF"&$CurCommandString[2]
$pen = _GDIPlus_PenCreate($color)
if @error Then _ConsoleWrite($Console, "Error")
_GDIPlus_GraphicsDrawLine($backbuffer, $CurCommandParameters[2], $CurCommandParameters[3], $CurCommandParameters[4], $CurCommandParameters[5], $pen)
if @error Then _ConsoleWrite($Console, "Error")
_GDIPlus_PenDispose($pen)
updatewin()
ElseIf UBound($CurCommandParameters) = 8 Then
$color = "0xFF"&$CurCommandString[2]
$pen = _GDIPlus_PenCreate($color, $CurCommandParameters[7])
_GDIPlus_GraphicsDrawLine($backbuffer, $CurCommandParameters[2], $CurCommandParameters[3], $CurCommandParameters[4], $CurCommandParameters[5], $pen)
if @error Then _ConsoleWrite($Console, "Error")
_GDIPlus_PenDispose($pen)
if @error Then _ConsoleWrite($Console, "Error")
updatewin()
Else
_ConsoleWrite($Console, "Parameter Error")
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_DRAWIMAGE()
If UBound($CurCommandParameters) = 5 Then
_GDIPlus_GraphicsDrawImage($backbuffer, _GDIPlus_ImageLoadFromFile($CurCommandString[2]), $CurCommandParameters[3], $CurCommandParameters[4])
updatewin()
Else
_ConsoleWrite($Console, "Parameter Error")
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCommand_GRAPHICSCLEAR()
DllCall($ghGDIPDll, "int", "GdipGraphicsClear", "handle", $backbuffer, "dword", "0x00000000")
updatewin()
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func updatewin()
$gdibitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($bitmap)
_WinAPI_SelectObject($dc, $gdibitmap)
_WinAPI_UpdateLayeredWindow($hWnd, $ScreenDc, 0, $pSize, $dc, $pSource, 0, $pBlend, 2)
EndFunc

[/autoit]

BITTE ERSTELLT DOCH, WENN EUCH WAS LUSTIGES/SINNVOLLES EINFÄLLT, EINEN BEFEHL ODER SAGT MIR DIE IDEE

mfg Ubuntu

Alizame

filecreate
filemove
fileexists
etc.

ansich geil!vorallem strg+m!

AntiSpeed

Hey
Bei mir ist da aber nur das zusehen: (nur der Titel)

Sry, aber bin zu blöd ein Bild anzuhängen:
in texteditor als kmn.gif speichern:

Spoiler anzeigen

Code

GIF89a³3 ÷   	3  f  ™  Ì  ÿ +  +3 +f +™ +Ì +ÿ U  U3 Uf U™ UÌ Uÿ €  €3 €f €™ €Ì €ÿ ª  ª3 ªf ª™ ªÌ ªÿ Õ  Õ3 Õf Õ™ ÕÌ Õÿ ÿ  ÿ3 ÿf ÿ™ ÿÌ ÿÿ3  3 33 f3 ™3 Ì3 ÿ3+ 3+33+f3+™3+Ì3+ÿ3U 3U33Uf3U™3UÌ3Uÿ3€ 3€33€f3€™3€Ì3€ÿ3ª 3ª33ªf3ª™3ªÌ3ªÿ3Õ 3Õ33Õf3Õ™3ÕÌ3Õÿ3ÿ 3ÿ33ÿf3ÿ™3ÿÌ3ÿÿf  f 3f ff ™f Ìf ÿf+ f+3f+ff+™f+Ìf+ÿfU fU3fUffU™fUÌfUÿf€ f€3f€ff€™f€Ìf€ÿfª fª3fªffª™fªÌfªÿfÕ fÕ3fÕffÕ™fÕÌfÕÿfÿ fÿ3fÿffÿ™fÿÌfÿÿ™  ™ 3™ f™ ™™ Ì™ ÿ™+ ™+3™+f™+™™+Ì™+ÿ™U ™U3™Uf™U™™UÌ™Uÿ™€ ™€3™€f™€™™€Ì™€ÿ™ª ™ª3™ªf™ª™™ªÌ™ªÿ™Õ ™Õ3™Õf™Õ™™ÕÌ™Õÿ™ÿ ™ÿ3™ÿf™ÿ™™ÿÌ™ÿÿÌ  Ì 3Ì fÌ ™Ì ÌÌ ÿÌ+ Ì+3Ì+fÌ+™Ì+ÌÌ+ÿÌU ÌU3ÌUfÌU™ÌUÌÌUÿÌ€ Ì€3Ì€fÌ€™Ì€ÌÌ€ÿÌª Ìª3ÌªfÌª™ÌªÌÌªÿÌÕ ÌÕ3ÌÕfÌÕ™ÌÕÌÌÕÿÌÿ Ìÿ3ÌÿfÌÿ™ÌÿÌÌÿÿÿ  ÿ 3ÿ fÿ ™ÿ Ìÿ ÿÿ+ ÿ+3ÿ+fÿ+™ÿ+Ìÿ+ÿÿU ÿU3ÿUfÿU™ÿUÌÿUÿÿ€ ÿ€3ÿ€fÿ€™ÿ€Ìÿ€ÿÿª ÿª3ÿªfÿª™ÿªÌÿªÿÿÕ ÿÕ3ÿÕfÿÕ™ÿÕÌÿÕÿÿÿ ÿÿ3ÿÿfÿÿ™ÿÿÌÿÿÿ        	!ù  ü ,	³3  ÿ ÷	H° Áƒ*\È°¡Ã‡#JœH±¢Å‹3jÜÈ±£Ç CŠI²¤É“(Sª\É²¥Ë—0cÊœI³¦Í›8sêÜÉ³§ÏŸ@ƒ
J´¨Ñ£H“*]Ê´©Ó§P£J½©L`Õ}W³ZÝŠ•«Ö®`¿ŠõJ6lÙ±fÓ¢]{¶Z·lßÊK®Ý¹wëâÝ«·oÞ¿|û
Lx°aÁˆ'>¬¸1ãÇ‹ËNL¹²åË˜1_ÍÌ¹³çÏ C‹Mº´éÓ¨MÖ¸šµ²×°cËžM»¶íÛ¸sëÞÍ»·ïßÀƒN¼¸ñãÈ“+_Î¼¹óçÐ—‹a=°õ>ë¡	Ô¾{êïàÃ‹ÿ?1ÓtïÜÑcg¸Ùºûêð©Ë¿Ÿþü÷÷ëã·Ï¿ý æ'`8àˆ .è ‚&(aƒR8áƒVˆ¡…nè¡† f(b‡!’8â‡'–Øšy½&šÀcŒ3Ê£4ÞXãŽ:öèã9Î(äDiä‘H&©ä’L6‰$(EBI¤”šPiåŒWÂ˜e•Xv©¥—\~)f˜dni&˜gŽ™%”R¶¦›nr'›bÒùæræIçžzöÉ§Ÿ€ò)h „*(›†"*§¢ŒîÉh•P†²g(V¹	(ˆƒ(1’V©i¤Ê€*ª&¡„Jª©¥B¹¦œ‚¢Ì©ªbÿúé2U®ªÉª ÌZk¬¹bJ+(¶âª+°¼,¦õ°X BëmU“Ð™f™^N»&žvÂYè¶†rëm·Þ‰©¸Ùbk® —rI)›éF*g»é®{)(ñZê.½÷Î«o¤ ´zk•¡´°¤{*¥«¬é&Ê L¯2—ÒZê¥šñÅ3Ìp©7Ü0§{¬1Æ ÜñÉ%7Lë2¯ºŒ¦,sºÄ.3Ì²2Å”ºŒÍßœ³2;ÊÌC»|3Ë3/s´Ò¹*³ÒP;-uÔÅD
uÕV¿œuÒ@C
t×\CM¬ØIsœôDŸ´Êi·
ìÑC«ì±Ño×ÍôÝtãmwÞ|ïÿí·Òú(k‘w\
úFhˆÆßª&šÕBþøäÔŽ-åfnÂe½–ve½ø’j¯è¡§{©æ”Rzºèªã{:Äø.üðé½nÂé¿ýRåí¯JLL¿«ªÉÅÿBü»¦œüïÉ÷Ú<òÁ_z{¯Uþ^=”¯ö‹}õ×ãŽ;ï¤ZokÃžb:¯¦¤
Ÿ>î¶KªñìK*1ì·ºðÇãOüª÷ê|©§*¥`GÀJªU°[ô”·ÀÚõ®|¿
Uö)L!ŠNÙcÇå*€ÝîXï›ŸÃŠ!2ý•
fcë•ËzE2ŽÌb0|¡D¦1”j†
K
‚ÖŽ=)RÿÄ0	Mdbˆb¸\”$W9!iK\“+ÝçÜE:ÐÕ+u¬ÓíP§E×‰nsWZ×—Ò&éÁbš°ÞíÔ8Àá¥Q{Ìë—ãø¥	º‘MÖû“Ù%<<†®{¤à Ö…>|MOz„ÞðùAÑI,|©k•îzõ)ôùîaÞ v+á‘ïcKð²‡>-R{EðVù;Vª²•¤ß+'F,˜¬…¸ÜXÈ:™Âú²—½ÅÏŠ–4¨Ck3«ÚÐ–ù2f"hCÖÜT8¶¹ÝÊcù3[®6¶NþÒeÃ&Ð¤©3r
í˜X©‡2ô±z(£Ð G;¡¡Nz°èñœg=£áÿNxÚS«Jç:Û‰OyÒƒžÊøç
WˆÔ#¡Ç>¢áDMà 
ÃKœq€ƒÆ
jŒe¤¥f$Æ/jN‹&5)½:7$*EÎ\çê’òÔ®Í½*žêøîÆ1ÚI^žÓÜa´².ƒuÄ8Ýí4ÅÔå
Œìû—¼P¹½§ldX} '9=ôm’ª¸kjøb·U©²é~œ%ðI@D¾*x¿úUò„¹UâmÒ”´Ú_'ë§ÖúP“š|«`qWoL*Ü+%áw?Ý5õ±ÚCìí¦*)|¥êw¯’ «´—Ùá-ve‡íKÎöf
l	7A´cnÓ´3Ó¥.Q¸Œ®*D£ú€è>j›ÛÕ@”E½íÎut{•ÛîÃ<@³-nuË[ãþV]S–qÒÿ,‚Às úoÅ„ƒ4À Š@&&ƒ tF'…QzÏ«ÞÉ‘±LëiŸ,§wI	^Sì¢~É8'™âô‹pR½—Ev‘Fƒªê²÷¾œŽ4têzSMUpJŒ\ž»`'½Ð™†èÞÊ¥·Â1‘œL¤¥B•JXr{Eí`'9I=ÊòT´+lðbEKÃêX°cáÆ@ÖI…Ö– ErhAÂø¹–)|!(WH[`esn_Kæ×†4Ö
óË]~¦8Ãé²i&Yš63ìÏhëÍiÒVgÚÔÛÑˆÑ‰âöº•(=;edwãÍD Ýe˜ghû(;¯ÃÎBÿï£Ñ:\(
³Ë¬„¬ç*(EÄàÝL¢*“¸&ÒÀÑ7ebF€’Ð_2É÷JB=µŒfzßÈT¤ôe)LÛtÔ«æ*“½Î¢P{J§BVoØn$£ü¦
»1`‹$Þ\™§±ðéN©”j¬5G+Ë®ÁÿšÞ‡M+ä9ïnÌëXIâ‡±+TŸ2&¶b‡°—aùRœ½«û©ª¤[\Éy·5 ÂÀU!0•ÆkÃ]•J‡PRýË«l{wØÀÖX“)Û¢*UiXÌnV³˜•à¿«dÈ~slûæÜFk6Òâ¬–ƒYÏj«~&¢ð\îjªÂ"zÜVÿÐƒFú$Íç€ö|5  €D}õÝ
ãsvxLÃˆÔ8€ƒb€•ªà@¤ŽãN*kM€áíÕR|™(¥¶W4O#}oO=÷E ÿ:§»{p×ßÏÑTLIÅà~™Åï÷Öï’°›jjG?æé¦Ú1÷)Æ¯2r]®Ëˆ#‰/ðwºë*¢Gb?2{®ÇÞ¥²g?V]ÜÍ³Ž]Xý	9TE-ìÁGÊßÍ/bSl^]ˆ²æ×Þej-ù@»Âpê’k$D¡ÎwÆ²œ=mh^ç7}leÕKfRFì™¡ÏþœŸ¿œe.øéìÛ‡êãºŒË$Ð°Û?#$ÿÅgÉµ\úu 0\øh:PûG>Ç
¡[ÔAQPÂQ9 ðb Ä°*ÀQÐQZrjF°pR´ÖDòõj$8:¦ÓRèÕj†÷%ò…'‚‡z1U'¨WaèSJ 3`+•ašƒyã„Ý“;ô’G_d`ge/•EÝ¶m“z3bé;¨wbrrT™ÅIê¦W/Ê³n¡#Wù“p¨oãÒ0¯V²?ÏV{)&Iþ3{óBdî;Š4?™ÄMñ¦†pU+»âWýcI¢U{/Ô*q+U¦}³ÔIÌ'eCfUÝ”:g1*Ä Y¯áY¸32£B÷r«¥2ä”6égeÇÿTZ.£s«ˆ3.ä2Xás÷g\AtZ·h h]×€÷g,ÓµuUg€ŽvhD·C––”¶”æuu 9 š “u™ 
Ä  2p 2&§&ð%˜`€@`D+ Q§0¢QwŽåøŽ›Ðv˜    ³–'úUkrç_¯f:[ò^+uT«#;Áö%×rFóµRxwJZäl«ãaÖsU]Ø<Þ“„ÙÂ<~b=arSvG¤>XD<$×yöbEaÈ`}D…+)i8oÑæVŽ4“sˆ}„…Áƒ“¼³1EÖpÄK|õI“ø{Ägˆ’2©¢)$p³<J&|?ÀçTSÿI}ÔdqF63!seÌÄZ^3ò§KdFN’hBØ„”úS3ó§~iÙMà$7› €ÝafatÖØg¿ØUQÑ°t…\µ%QU¡Xu¼eh 
ÿ”˜µeÐ(1p b Nb` 1 ]û  ¢6‚öu§ç˜	 ™ p	`‘ w0’šð¸¨I›m	çw%…}×&P¥Õ!ål»“‚©^TÔ:ûe)â†FèÃ%Æ'·3nKÈwùõ9¤m¯Ãmÿ²E†GXDo"FVwÔ†tžndW˜/ZÕ<gå’BÆV(ÖGŠ¥=gpöoñÉq–tJÿW“M%K‡1„uJØÔ“þZ?ÉrKFMŽHK+4…giUo••W¹r3WøÓ<œXšM!gMñw1Ô'NUF4$ÚfÑ„¢=c7$
,]±gA7—f\™ÀF·~Y‹Lç‹
³HÄ ±gÈ¨u·•]…]Û^
8p 1 ™ O°±0 5R§†§›,`#` m'k™  : %™¦Z4¦²Vw3ER0ò›~wT·vRm”F”ò›7USüE-ù`7e=´7R•—F¦Eß©	£„ãÉƒn‚¨De_}Â‘|ÒY~´0Ü<ö’<ê²FT:YH£ƒX¤ÿãUZ“bHr8Y‚zÚ¶ .yW³S¡’R1ž•JÈW…G,ÈeGZ÷?‰…?ú†·‡o˜¬’5Z#“Bl|W	eüÃ•*ã•7CsfùrTfNá3MõMHfŠUS~ùó–Vw]µ8uF‡[ˆ9Q€¼u]†6\À¤w¦ÊP˜ °h¿]¡ £üg÷<Jõu7 ±1P± Þ5‚´)	ø¨	˜Àv #Š@¦´	
m
‹  @ð±p %nºj`šq%5a–k.%xùU¨V¢9\tUaT^Ô›¢#=€Š„’‡\FdtI“&r•„ÙÿzïómðCn¶“ï2AXd†Ìã”Zø?yä…¤Hf«”)æŸ_å†se ˆm…{W>”Xñ¹|Êc|¸S…ÐçJ¶ôd«"oÇç1ñ“•Ê+ÍãK+w‰‹‹Xc¦?&³¡Öç{$–hÉ +#¡‘Ø2êzsl	V¹0ãf34·òs	ëgö·øWtG÷sK*QK—]æ£ƒ9¤û`€òzu£uQ]	Qúð%8 ‚“9™ÇuE%m·ã(›‹eJ›3	 ½,û	¶©i::B‚lc"FÃ–wTt_.Å9´Ò=6h§™‡` ’¢£„ÿâFþ9„ZRJÕ#x_ÿDJyz`~„©ZRaÎæ¿û;=â3VÜ©’Þ3U'i¶é’WV/°=g;pkõ‡˜´V;Y¬°
Jºº¬º’’'XÁ¸2˜”0z;q¼šÂ‡èÂŠ¹‰¸Z·P†BûÓq¡}ÓjœR5‡û+#ò·(šdN)CefL(*–]ñP [uïÊ">·‹L÷˜ ¸û73í


	(cüO3Ó—ÊØ˜V§;Ð#‚9p jÀQËUbw` p §§i²ÖK‚’uÈ2Bö °éaÌÙwe¤ÀR¼™”Ê%Ï){9å¨cÕS¨Cœ>+%yê3EÃÿ†„Î&xš
ªTµµCµ…¶.Yxœ`û©Á“·lmY„…èV¡ÔcÁz¸SýJÀÌ“øƒT$÷oåcV¼j*@þS®éJ©$žS{…8K§XŸW¯änQ‰X4§¡<ì–ÒÊBÌ7¡6gÄâ×Ä½¤¹!z2K|+ë
®¯8Zk¦3×§3æg¹[Å‹¶®{\€h‚vÐÂ…\«WQu{ÐºH°¾‹]Àû˜y+p ðjð8€  p `rwIâR‡WÒMƒà;S5;Rô;R¦§ðÛ9üyPÔ9fÄ''e*xÄ%¿bmì¢F+õH±sF?Ëw:Û'Õ…¯Ò.ºÿœ…Öa8¨aWôÀ§Ôªl’¯*ˆ¬†á<‡_u”ðÓ“¼ã0òæ“ËBRµ¡áÜ¶‹¥”‹e·ƒ«0j…”%SJÖ“jˆBŸÅÃ3–@9<Jb¹•:‰e¹®+gkù¸°u+–[Z:'N>ãv2a| MO,¢ºáÅ‰iu9j¾EÐðÅïÄPQ”Fi!Î8–S^pQ"èD5KƒÖÉÒE%B…‚ÂÍSÐ™¿32A
&w†Wœ8Õ§Ì¿¢Œ`Ù§XaÚÓ9O}=Áxúœ×I;J(G Vœ¶CŸJ1B-r#&UÌI)Õ²ŸæÕ¤·ž+\«/ÁÍÿ¬qgÂæÃbþíƒ,ÆÁ€GikÍ£´{ÔÃMŠ(ˆ6œ«ÒØ1|pD)áºe/¸n•J,Är–Õª¸Vy¢!N~'ª|‰[/Ä¢f¶•žëâðG3f—¶[F'O5ÎÅç±ô
<*QMz¤|)Qvég>g¤,JzKÊÄD]¢9`'Ý¥ë5lë¾ð»ÜïuÊxB&Zy‚·‚&}l{—_œ#Þãëlu
3Ýñ¿t²¾¡×=ÆV´HØa|š…àûHz’GÜ=¦`ì.ž
m"6ží]«Ïæ:¼ci8VÅ/ƒ¥b¿ÜFÓüß´Ø©#Ø^ÕÍ¾ÁðS·gÿ}JÁ²{Ù\Âc¤~1I, ‡XKæÃ	|‹;z}áë× ½þ–1×K(>4×7:ãMcYÄ¯èKrS[†ÐJ—Ðƒ6Ò>h}Ð]Î~íÕŽíÙ.iÑ˜M]VoœkZžÓ1…Ò`n'YÞÝ!Y.eŽk»cÈÖjLx/í‚ÑÝw÷R²¾7…F5e‘h´zúEËÛ“É;9YO‹EÞæaœŠéì#<´pq¤¿\åIbý“Ì>š8ozZ	wJWc}ÔTÚSpih×º²¹7…)•ÞD«H©IÆz£XI©Î÷Ì´ÔˆPìëäÇ~†es·Î‡-N“ÿØØais™ËZMcN£C˜8‰³YÏõŠÓõ^ÿõb¿õ_,ö[Oöc¿9¤ÚáhÈSa%ýDí®Ò¿}'éµ'»-GçÅtR¾c’æÿ¿ktÉqò›´Ü‘#™ow4öEI;ÖÉ…
)%hô`ðIªŠ×Y¬a×óðt{ñâž@-é†>:ô+\pRék[…‰¥p²/K‡^·/<>ü6¬³‡¿’?L©†Ä“6\Ãœî{ŽXTÌ7Ä|*ÔZTš+¹’«¡ëÙ&$eQÏáZMÄ–ªUº ;ô,>gñ×6[5Ð5=·6^S4oƒ¢]³þHSLÑ5qÿ
åÚLŠ ¡oß@‚—
Ô”P!(M›41tÊáB…›6¼Øð¡Å„¡*&œÈ¢B’	GŠÜh’˜GŒIJ|H,#(b/²¤éR'D†+;Ú¬™¦G‰(‹¡”‰1¢&–7)S)4&SMIº´˜Õ'M†ËÊä˜4©×£Y©*³XÓ+QMk©2„
µèÃ«"¯zû”ã\´q5)åÓ+¨ºOß¦•50¨ÄL¡–Y÷.ÝÄÑ‚R¼R.äÀ‹õ‚
õ˜ê2Pƒ×f½Rfç¿C;~j™0f‹xCÑm8÷ì¾‰g“^Y7`Í±û~ÌÛxèÜÊ„{%]øQè¿K·%.]{ÿ[ÍÔ™g'L<TôØÄ´÷ý^¾ùúešIS§~}ÙûÒ€“Æ|Ûyh‰øýƒNŽ´Ð´{n<ÐHSF@ÀZÃ@¯öÉDŒ‚ö©'š	£©gÂ	3h e.$(š÷QÃ 1‘D
KˆESlqÅ‚\œF‚ê‘ÅeÜGÄ{$(ÇQ¤ÈƒŒÄ#‘´pÉKÄ0È&šòÄ$KÈBvì±Ã-CL’K$÷!²ËÍ‘
ËôrE-Â‘ ƒ`,ÓJ3ôqÇ*õÄ²Å
¤gJ5‹²HçÔgÇzPÜqÊÒÐÏEÜ1Q*5%RŸ(=-(Î&=Í0PQq„”BMGW“P ³Ä1CY©„ÓB5¹´ÐÒ;_¬PS
›¼uÉ)
´V‚>4”L.?”õKgƒÌEIÝud÷1[eµ2ÉAEÅ6B0aÿ4ñOEWG+DÃh…Ci÷Y]i¥•·ž?<èCu±ÅPÝéME5™Í—_€M•VÝ[f÷]‰éq4JfÕµ×ZfVc†K¥`tãÍ¶Øƒ)¼·t+Œ7ÖD1´—Ý—ÙW–ßutá€õÕvßù5gŒÿý0e
³u´ÞD
Tà¤5ÎpÝ|ç]7d©þweiŠùÝ_‹íWÅ}7.rìŸ{¼UÄu±ö:i¢Cþ÷i§ÑÑ]Š	–˜Ã?‹æ0gHÆ1ï”ÕNÔS5M_x	fškÅÉöúîxId:`yñ^”ñ·Ùk‹öXâ—
7óïVSÂ½þPmk3ÿn=óŒ×Øh£%ÆÜõe.je?ï=ÚKÍ5å§óöB	µ½±CÉ5ÒÃL¦§~úI¬Ç>“ë³ßžûê»ï^ûï½§üìÉß>|ñ×O¿|÷×G?~öÉ—¿}øçÇßüüÏ¿_ýýùŸþìÇ¿úð í·@ì1P
”ßÏw½ö1ðŒ` 18¾êI°ƒü ý4ÈÁø!ý3 øFhA	Ð‚ê û\(CÂ„Þ[ž‰ªD®/
D?bˆ!qˆG¢ˆD1,QˆM,â‘èD%F1ˆU¼bµÅ-vqŠVôâ±èD1~‘‹\Ä¢©øÄ1ª1‹L„ÿ#ÑÇ3Ò±gLãÉxÇ=ÆÑR,c)Ç<RfÌ#!Á¸F0ÒñacÿèF6²‹rœc&))ÉCZ’‰˜Ô¤—8J@Fò’9LôT¹JV¶Ò•¯„e,e9KZÖÒ–·Äe.u¹K^öÒ—¿f0…9LbæªR°‚Q¦vHLf6Ó™Ï„f4¥9MjVÓš×Äf6'T'mvÓ›ßg8Å9Nr–ÓœÌ´‘†ÄtNv¶Óï„g<å9ÏjNÎ#—ž8´Lzö“˜éôg@:P‚ÊóMUšRBa9/´QéT°‚èð"jOŠ>T¢èD-šQŒnÔ£iGCÊQ’~T¤Í¨ÿW$Lu	OšjiLa:Ó—ÖÔ¥7•©MsŠSšòÔ¦ŒRiPS:TUu¥GjQ•ŠT£&•©KujT›:U¨Rõ©W•jUµŠU«f•«[õjX»:V°’õ«gÍªšZ
T[IÜbž¡(u&ùhCÅk^õºW¾öu¯\l>äWÂÖ°‡Elbƒ	ªV‘«[HÊ`ñ	§æQÖ²É
ìe3‹ÙuV³žåìgEZÒfö±›E-hS;ÚÕ–Vµ¯e-l%ÕÚÕúj¶²¥-n'ëÚØö–·¿¥íns[cúv¸ÀÅmr«\ä.×¹Í…îq¥ûÚ¶Vi®´‚Ñu¥¤'0EŠV‘òî«Ä{ÿP‘¼ã-ozÏk^ô®W½í…/{Ù#ù¾·¾îe,¨ÖÛ!»ö—¿ÿÝT€Ñä_xÀ!ð€œPþŽËHùU„[$a)´ÂÆð…5ásxÃöpˆ)ü`—¸Ã£’Ò‰Uüá‹¸Å&fqŒ],cÏØÆ5Æñ‹uì^;Å÷½3Â•:¡ÇOÅ9±m2r’•¬×=¥’ÈíaA(5ÝçR9ºÌµr–±¼å*sùÊ]ó—Å¬å0“yÌ^6sšÑ¼æ2³ùÌm†shm'1—«•
ÖaAPü¦q·»ßÕó¥–Äg>Z¼>´¡}èEzÐ‚oz%M_J3)•yv0™f=MÛ[š uŠ4¨9-jG'©Ô•Æn %=¢=;¹Ò#ªÓ¢c½¤Y—¨Ö¹õ§
¥©Õ¾~õ®Üçac×»¬¶±‹=l+»ÙÌvõª‰ýì_#[ÚÎŽö±§íe#TCÞ¾‹,×Hk×¡äºVc•d£Eƒ(ívŠàè<¿{°ôNQ¤ôd}‡;Ñ…Rõ¥S=Ø*‰{ÓJâ¿£‡ä~¯[ÞÏô¥—ÉkºrZâ<øÅ!¾l‡?œÝç¸ª?~ïÓ#GùÃIþìŽä,¹Ç[Õp=»¨Sê^gÆ ;

Alles anzeigen

[Blockierte Grafik: http://www.autoit.de/file:///C:/Users/ANDR~1/AppData/Local/Temp/moz-screenshot.png][Blockierte Grafik: http://www.autoit.de/file:///C:/Users/Andr%C3%83%C2%83%C3%82%C2%A9/Desktop/kmn.gif]

Ubuntu

Drück mal Strg+m
(hab dein Bild noch nicht angeguckt)

mfg Ubuntu

Edit:
Alizame:
Ok werd ich machen.

Alizame

bild kann ich nicht angucken... vllt ihr?

Ubuntu

Ich kanns schon aber es ist nicht das was er meint.
Ich bin mir ziemlich sicher das er nur die hotkeys nicht gelesen hat

mfg Ubuntu

AntiSpeed

Ahha! Super. Das is ja mal cool wie die Konsole rauskommt. sry - habe das nicht verstanden mit dem HotKey

**BugFix**

Du bist damit jetzt mindestens der dritte, der eine eigene Konsole gebastelt hat

https://autoit.de/index.php?page…4372#post104372
https://autoit.de/index.php?page…3886#post153886

Ubuntu

War ja nicht viel Arbeit

Und die Frage ob es schon eine konsolen Udf gibt sehe ich damit auch mal als beantwortet

mfg Ubuntu

Nestos

Wirklich sehr gut umgesetzt!

Ich hab den Code mal ein bisschen abgeändert, und die originale CMD Schritart eingefügt.

Spoiler anzeigen

[autoit]

#include <Misc.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $edit, $Console, $BEF
Global $dll = DllOpen("user32.dll")

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("^m","MoveOut")

[/autoit] [autoit][/autoit] [autoit]

$Console = _ConsoleCreate("Konsole")
_ConsoleWrite($Console, "Welcome")

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg($Console[0])
Switch $msg
Case -3
Exit
EndSwitch
If _IsPressed("0D", $dll) And WinActive("Konsole") Then
$read = GUICtrlRead($Console[1])
$array = StringSplit($read, @CR)
$arrayNum = Ubound($array)
$BEF = $array[$arrayNum - 1]
GUICtrlSetData($Console[1], GUICtrlRead($Console[1]) & @CRLF)
If $BEF = @LF & "lol" Then
_ConsoleWrite($Console, "roffl")
Else
_ConsoleWrite($Console, "unknown Command")
EndIf
While _IsPressed("0D", $dll) And WinActive("Konsole")
Sleep(100)
WEnd
EndIf
Sleep(30)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _SM_SetVisualStyle($b_Enable)
Return DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $b_Enable * 7)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleCreate($Title)
Local $Console[2]
_SM_SetVisualStyle(0)
$Console[0] = GUICreate($Title, 654, 0, -1, -1, Default)
GUISetBkColor(0x000000)
$Console[1] = GUICtrlCreateEdit("", 0, 0, 657, 297, BitOR($ES_AUTOVSCROLL, $WS_VSCROLL))
GUICtrlSetBkColor($Console[1], 0x000000)
GUICtrlSetColor ($Console[1], 0xC0C0C0)
GUICtrlSetFont($Console[1], 10, Default, Default, "Lucida Console")
GUISetState(@SW_SHOW)
Return $Console
Endfunc

[/autoit] [autoit][/autoit] [autoit]

Func _ConsoleWrite($Console, $String)
GUICtrlSetData($Console[1], GUICtrlRead($Console[1]) & $String & @CRLF)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func MoveOut()
WinActivate("Konsole")
_WinSetSize($Console[0],660, 329, 10,5)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _WinSetSize($hWnd, $iWidth, $iHeigth, $iSleep = -1,$iStep = 4);by Gta Spider
If $iSleep < 0 Then Return WinMove($hWnd,"",Default,Default,$iWidth,$iHeigth)
Local $i, $iStepW = $iStep, $iStepH = $iStep,$iSin,$i2,$iLastI
Local $aWinPos = WinGetPos($hWnd)
If $iWidth < $aWinPos[2] Then $iStepW *= -1
If $iHeigth < $aWinPos[3] Then $iStepH *= -1
Local $iDegToRad = 3.14159265358979/180
Local $iSinMulW = ($iWidth - $aWinPos[2]) / 2.5
Local $iSinMulH = ($iHeigth - $aWinPos[3]) / 2.5
If $iSinMulW < 0 Then $iSinMulW *= -1
If $iSinMulH < 0 Then $iSinMulH *= -1
If $iWidth <> $aWinPos[2] Then
For $i = $aWinPos[2] To $iWidth Step $iStepW
$iLastI = $i
$iSin = $i - $aWinPos[2]
$iSin = Sin($iDegToRad * (180*$iSin/($iWidth - $aWinPos[2])))
WinMove($hWnd,"",Default,Default,$i + ($iSin * $iSinMulW),Default)
Sleep($iSleep)
Next
If Mod($iWidth - $aWinPos[2],$iStep) Then
If $iStepW < 0 Then
$iStepW = -1
Else
$iStepW = 1
EndIf
For $i = $iLastI -1 To $iWidth Step $iStepW
WinMove($hWnd,"",Default,Default,$i,Default)
Next
EndIf
EndIf
If $iHeigth <> $aWinPos[3] Then
For $i = $aWinPos[3] To $iHeigth Step $iStepH
$iLastI = $i
$iSin = $i - $aWinPos[3]
$iSin = Sin($iDegToRad*(180*$iSin/($iHeigth - $aWinPos[3])))
WinMove($hWnd,"",Default,Default,Default,$i + ($iSin * $iSinMulH))
Sleep($iSleep)
Next
If Mod($iHeigth - $aWinPos[3],$iStep) Then
If $iStepH < 0 Then
$iStepH = -1
Else
$iStepH = 1
EndIf
For $i = $iLastI -1 To $iHeigth Step $iStepH
WinMove($hWnd,"",Default,Default,Default,$i)
Next
EndIf
EndIf
EndFunc

[/autoit]

Reaker

an sich nicht schlecht gemacht .. aber ich hab folgenden Bug (siehe Anhang)

wenn man mehr reinschreibt sodass man scrollen muss treten darstellungsfehler auf .. scrollbalken ist ganz unten aber der text ist nur zur hälfte einsehbar

Ubuntu

Ok das ist gefixt und ich hab jetzt auch eine einklappen funktion.

Siehe Post #1

mfg Ubuntu

Reaker

ja ok schon besser aber wenn ich enter drücke springt er wieder nach oben .. erst wenn ich wieder etwas eingebe springt er nach unten .. wäre doch sicherlich angenehmer wenn er gleich unten bleibt

/edit: was ich dir noch empfehlen kann ist eine Switch Abfrage statt dem ständigen ElseIF ... eine Konsole hat ja meißt viel Befehle und da ist Switch auf jeden fall schneller

Spoiler anzeigen

[autoit]

Switch $BEF
Case @LF & "lol"
_ConsoleWrite("roffl")
Case @LF & "roffl"
_ConsoleWrite("lol")
Case Else
_ConsoleWrite("unknown Command")
EndSwitch

[/autoit]

Ubuntu

Ich weiss das Switch besser ist, aber irgendwie mag es mich bei diesem Script nicht.
Deswegen habe ich fürs erste mit if .. Else if gearbeitet.

Ich werds nochmal ausprobieren.

Edit: Switch geht erst recht nicht da ja für bestimmte Befehle auch substrings abgefragt werden müssen.

mfg Ubuntu

Ubuntu

Zitat von Reaker

ja ok schon besser aber wenn ich enter drücke springt er wieder nach oben .. erst wenn ich wieder etwas eingebe springt er nach unten .. wäre doch sicherlich angenehmer wenn er gleich unten bleibt

Wie meinst du das denn, bei mir ist der Cursor die ganze Zeit in der richtigen Zeile

mfg Ubuntu

Reaker

naja also wenn wieder der punkt kommt dass das skript das scrollen anfängt .. dann drücke ich enter aber es wird wieder nach ganz oben gescrollt (Cursor BLEIBT aber ganz unten)
sobald ich dann zb a drücke wird wieder runtergescrollt und ich kann wie gewohnt weiterschreiben ..

Ubuntu

Ok finde ich jetzt nicht so schlimm ich kann aber mal gucken was sich machen lässt

mfg Ubuntu

bbm1995

wie kann man Commands einfügen, wie z.B. wenn man help schreibt, kommt Hilfe usw... ?
aber toll gemacht mit _winsetsize & _moveout
*abonniert*

Ubuntu

Ich habs jetzt mit Select + Case gemacht und deutlicher kommentiert siehe Zeile 35

mfg Ubuntu

Ineluki

In Zeile 33 ist ein Fehler Das then muss weg.