Eingabeauffordderung

    hm ich werd immer nicht ganz schlau aus seinem geschreibsel :D
    aber des braucht er dann auch^^

    Padmak

    :D schaust du dir den grad an?
    ich schau grad safari an :D

    Padmak

    Edit: So offtopic-gequatsche is iwie dämlich :D

    Einmal editiert, zuletzt von Padmak (1. Februar 2009 um 22:06)

    James Bond ist grade mit Surfbrett und Gleitschirm auf einer durch des bösen Weltraum-Sonne-bündel-Diamanten erzeugten Tsunamiwelle geritten.
    Und was ist Safari? Far Cry 2-mäßig?

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

    • Offizieller Beitrag

    Sagt mal, habt ihr nix besseres zu tun als in diesem Thread zu spamen ? Macht das doch in der SB.

    Raupi
    aber echt mal hört doch mal auf mit dem scheiß!

    Hier, ich hab es jetzt noch gemacht, das man die Größe verändern kann!

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <GuiEdit.au3>
    #include <INet.au3>
    #include <_IsPressed_UDF.au3>

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

    $Keys = "30|31|32|33|34|35|36|37|38|39|41|42|43|44|45|46|47|48|49|4A|4B|4C|4D|4E|4F|50|51|52|53|54|55|56|57|58|59|5A|BE"
    $sKeys = StringSplit ($Keys,"|")

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

    Opt("GUIOnEventMode", 1)
    DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
    #Region ### START Koda GUI section ### Form=C:\WINDOWS\Form1.kxf
    $Form1 = GUICreate("CMD-Box", 669, 355, 250, 203,$WS_SIZEBOX)
    GUISetIcon("C:\WINDOWS\system32\shell32.dll", 200)
    GUISetBkColor(0xFFFFFF)
    $Edit1 = GUICtrlCreateEdit("", 0, 0, 666, 326, BitOR($ES_AUTOVSCROLL,$ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL), 0)
    $Pfad = "C:" & @HomePath & ">"
    GUICtrlSetData(-1,$Pfad)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    GUICtrlSetBkColor(-1, 0x000000)
    $Input1 = GUICtrlCreateInput("", 0, 0,341,19,$ES_AUTOHSCROLL,0)
    GUICtrlSetState (-1,$GUI_FOCUS)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    GUICtrlSetBkColor(-1, 0x000000)
    $Button = GUICtrlCreateButton ("OK",0,0)
    GUICtrlSetState (-1,$GUI_HIDE)
    Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button]]
    GUISetAccelerators($Form1_AccelTable)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $Pfad = @CRLF & @CRLF & "C:" & @HomePath & ">"
    $Pfad2 = "C:" & @HomePath & ">"
    GUISetOnEvent($GUI_EVENT_CLOSE, "_ENDE")
    GUICtrlSetOnEvent ($Button,"_CMD")
    $Befehle = "echo|ipconfig|dir|cd|cls|Help|Exit"
    $BefehleB = "Gibt einen Text zurück|zeigt die IP an|zeigt alle Dateinen und Ortner im aktuellen Pfad an|Wechselt das verzeichniss|Löscht den Bildschirminhalt|Zeigt diese Hilfe an|Beendet das Programm"
    $sBefehle = StringSplit ($Befehle,"|")
    $sBefehleB = StringSplit ($BefehleB,"|")
    $Zeichen3 = _GUICtrlEdit_GetTextLen($Edit1)
    $Down = _GUICtrlEdit_PosFromChar($Edit1, $Zeichen3 -1)
    $Pos = ControlGetPos ($Form1,"",$Input1)
    GUICtrlSetPos($Input1,$Down[0]+8,$Down[1],648 - $Down[0]-25)
    While 1
    $Fucus = ControlGetFocus ($Form1)
    If $Fucus <> "Edit2" Then
    If _IsPressed ("01") Or _IsPressed ("02") Or _IsPressed ("03") Then
    Sleep (0)
    ElseIf _IsAnyKeyPressed() Then
    GUICtrlSetState ($Input1,256)
    EndIf
    EndIf
    _InputPos()
    Sleep(100)
    WEnd

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

    Func _ENDE()
    Exit
    EndFunc ;==>_ENDE
    Func _CMD()
    _GUICtrlEdit_BeginUpdate($Edit1)
    $Fund = False
    $Befehl = GUICtrlRead ($Input1)
    $sBefehl = StringSplit ($Befehl," ")
    _GUICtrlEdit_AppendText($Edit1,$Befehl & @CRLF)
    If IsArray ($sBefehle) Then
    For $1 = 1 To $sBefehle[0]
    $Suche = StringInStr ($Befehl,$sBefehle[$1],2)
    If $Suche > 0 Then
    If $sBefehle[$1] = "echo" Then
    If $sBefehl[0] >= 2 Then
    If $sBefehl[2] = "/?" Then
    _GUICtrlEdit_AppendText($Edit1,"Echo gibt einen Text zurück" & @CRLF & "echo [text]" & $Pfad)
    Else
    $Zeichen = StringLen ($sBefehle[$1])
    $Zeichen2 = StringLen ($Befehl)
    $Ergebnis = StringRight ($Befehl,$Zeichen2 - $Zeichen - $Suche)
    If $Ergebnis <> "" Then
    _GUICtrlEdit_AppendText($Edit1,$Ergebnis & $Pfad)
    Else
    _GUICtrlEdit_AppendText($Edit1,"Syntax Error" & @CRLF & "echo [text]" & $Pfad)
    EndIf
    EndIf
    EndIf
    $Fund = True
    ElseIf $sBefehle[$1] = "exit" Then
    $Status = False
    If $sBefehl[0] >= 2 Then
    If $sBefehl[2] = "/?" Then
    _GUICtrlEdit_AppendText($Edit1,"Beendet das Programm")
    _GUICtrlEdit_AppendText($Edit1,$Pfad)
    $Status = True
    EndIf
    EndIf
    If $Status = False Then
    Exit
    EndIf
    $Fund = True
    ElseIf $sBefehle[$1] = "Help" Then
    If $sBefehle[0] = $sBefehleB[0] Then
    For $2 = 1 To $sBefehle[0]
    _GUICtrlEdit_AppendText($Edit1,@CRLF & $sBefehle[$2] & @TAB & $sBefehleB[$2])
    Next
    _GUICtrlEdit_AppendText($Edit1,$Pfad)
    Else
    _GUICtrlEdit_AppendText($Edit1,"Programm hat Datenfehler")
    _GUICtrlEdit_AppendText($Edit1,$Pfad)
    EndIf
    $Fund = True
    ElseIf $sBefehle[$1] = "ipconfig" Then
    $Status = False
    If $sBefehl[0] >= 2 Then
    If $sBefehl[2] = "/?" Then
    _GUICtrlEdit_AppendText($Edit1,"Gibt die IP-Adresse von deinem PC zurück")
    _GUICtrlEdit_AppendText($Edit1,$Pfad)
    $Status = True
    EndIf
    EndIf
    If $Status = False Then
    _GUICtrlEdit_AppendText($Edit1,"Deine IP ist:" & @TAB & _GetIP())
    _GUICtrlEdit_AppendText($Edit1,$Pfad)
    EndIf
    $Fund = True
    ElseIf $sBefehle[$1] = "cls" Then
    $Status = False
    If $sBefehl[0] >= 2 Then
    If $sBefehl[2] = "/?" Then
    _GUICtrlEdit_AppendText($Edit1,"Löscht den Bildschirminhalt")
    _GUICtrlEdit_AppendText($Edit1,$Pfad)
    $Status = True
    EndIf
    EndIf
    If $Status = False Then
    _GUICtrlEdit_SetText($Edit1,"")
    _GUICtrlEdit_AppendText($Edit1,$Pfad2)
    EndIf
    $Fund = True
    EndIf
    EndIf
    Next
    EndIf
    If $Fund = False Then
    _GUICtrlEdit_AppendText($Edit1,"Der Befehl " & $Befehl & " existiert nicht oder kann nicht Gefunden werden" & $Pfad)
    EndIf
    _Scroll($Edit1)
    _GUICtrlEdit_EndUpdate($Edit1)
    GUICtrlSetData ($Input1,"")
    EndFunc
    Func _Scroll($Felt)
    $Lines = _GUICtrlEdit_GetLineCount($Felt)
    _GUICtrlEdit_LineScroll($Felt, 0, $Lines)
    EndFunc ;==>_Scroll
    Func _InputPos ()
    $Zeichen3 = _GUICtrlEdit_GetTextLen($Edit1)
    $Down = _GUICtrlEdit_PosFromChar($Edit1, $Zeichen3 -1)
    $Pos = ControlGetPos ($Form1,"",$Input1)
    $Pos2 = ControlGetPos ($Form1,"",$Edit1)
    If $Pos[0] <> $Down[0] And $Pos[1] <> $Down[1] Then
    GUICtrlSetPos($Input1,$Down[0]+8,$Down[1],$Pos2[2] - 307)
    EndIf
    EndFunc

    [/autoit]

    Wie kann ich einstellen, das man es nur so klein machen kann wie es voher war?

    mfg. Jam00

    Zitat von Jam00

    Raupi
    aber echt mal hört doch mal auf mit dem scheiß!

    ähm er hilft dir die ganze zeit und du schnauzt ihn an oO
    und er hat vollkommen recht :D
    aber die versuchung war einfach zu groß^^
    sorry Raupi ich werds nie wieder machen :D

    Padmak

    hupps hab des t überlesen *schäm*
    für die größe hätt ich

    [autoit]


    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    $width = 600
    $height = 600
    $titel = "bla"
    $gui = GUICreate($titel, $width, $height, -1, -1, $WS_SIZEBOX)
    GUISetState()
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    $pos = WinGetPos($titel)
    If $pos[2] < $width Then WinMove($titel, "", $pos[0], $pos[1], $width, $height)
    If $pos[3] < $height Then WinMove($titel, "", $pos[0], $pos[1], $width, $height)
    Sleep(10)
    WEnd

    [/autoit]


    gemacht
    hab des jetz net an dein script angepasst^^
    ist aber net viel arbeit :D

    Padmak

    ps: ist nur ne kurzlösung^^

    ja, sowas in der art hab ich mir auch schon überlegt, ich wollte nur mal wissen ob es nicht eine lösun gibt das man es garnicht kleiner machen kann! Das hab ich schon öfters gesehen!, also vbei irgendwelch prgrammen, leider nicht in autoit-script!

    mfg. Jam00