Beiträge von Nitrama

  • Minecraft CraftBukkit GUI Version 1.2.1 release

    Moin,

    Ich habe mir jetzt fest vorgenommen das es was großes wird.
    Und ich hoffe ihr Helft mir dabei


    Man kann damit natürlich den server Starten, Starten, Stoppen und eigebne befhele ausführen

    [Blockierte Grafik: http://nitrama.de/Minecraft/1.PNG]


    Man kann ganz einfach alle Plugins deaktivieren oder aktivieren.


    [Blockierte Grafik: http://nitrama.de/Minecraft/2.PNG]


    Und die normalen einstellungen kann man natürlich auch ändern


    [Blockierte Grafik: http://nitrama.de/Minecraft/3.PNG]

    und neu hinzugekommen sind eine update (zum updaten der software) funktion und ein Auto-speichern.

    [Blockierte Grafik: http://nitrama.de/Minecraft/4.PNG]

    Die einsatz gebiete sind vllt bei welchen die einen Hamachi server betreiben.
    und alle die einen vserver auf windows basis haben.

    Ich werde es natülich weiter machen wen jemand vorschläge hat oder Bugs findet werde ich sie reinmachen und ausbessern.


    und hier noch ein Virus Total test^^.

    http://www.virustotal.com/file-scan/repo…4a5c-1302803341

    Downloadlinks
    Version 1.2.1
    http://www.multiupload.com/44UORFSOT4

    Version 1.2
    http://www.multiupload.com/9KYXTDOINV

    version 1.1
    http://www.multiupload.com/44G3SWR5K8

    version 1.0
    http://www.multiupload.com/3O36BNS911


    Changelog:
    2.Juli.2001
    Version 1.2.1
    Kleine anpassungen
    und update funktion

    14.April.2011
    Version 1.2
    Auto-speichern und
    Update funktion

    11.April.2011
    Version 1.1
    Kinderkrankheiten "geheilt"
    Und Craftbukkit download hinzugefügt wenn Craftbukkit nicht gefunden worde

    10.April.2011
    Version 1.0 Release

    In der nächten Version kommt bestimmt das mit den Tooltips dafür bräuchte ich aber Hilfe.

    TODO:
    besseres Design
    Tool Tips für Plugins und einstellungen

    Gruß Nitrama

  • batch öffen dann befehl ausführen?

    Moin,

    ich habe ein Problem.
    Und zwar versuche ich für ein consollen programm eine gui zu machen.

    Spoiler anzeigen
    [autoit]

    #include <Constants.au3>

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

    Local $foo = Run("start.bat" , @ScriptDir, @SW_HIDE, $STDIN_CHILD + $STDERR_MERGED)
    Local $line
    Sleep (1000)
    While 1
    $line = StdoutRead($foo,true)
    MsgBox(0, "gelesen:", $line)
    StdinWrite($foo, "version");der befehl
    WEnd

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

    MsgBox(0, "Debug", "Wie aufregend...")

    [/autoit]

    die console kann ich schon ma auslesen aber ich bekomme es nicht hien ein behfel auszuführen

    danke schon ma für eure hilfe

    Gruß Nitrama

  • Sound erkennen lassen

    Moin,

    ale ich habe folgendes problem.
    Ich möchte mit Autoit ein Ton oder Sound erkennen lassen.

    Kommt zum Beispiel ein "PIEP" soll es eine MsgBox anzeigen und so weiter.

    Kenn jemand ein gutes Beispiel?

    oder kan eins jemand machen?

    Gruß Nitrama

    PS: hab bis jetzt noch kein skript

  • Minecraft

    allso ich spiel das auch gerade im Mehrspielr mit ner freundin zusammen.
    macht schon irgendwie spass.
    vorallem wenn man in die gesichter der tiere guckt ^^.
    ohhh man da legt es mich immer fast hien^^.

    Wir haben jetzt schon ne burg und ein strand haus gebaut.
    Und jetzt bin ich gerade daran eine Höle auszubauen.


    Der server wer ne gute Idee.

    Gruß Nitrama

  • such spiel

    hey, :)

    ich hate ma langeweile im EDV unterricht :sleeping: und da habe ich mir ein kleines such spiel gemacht.

    man muss halt ein bestimmes bild in einem großen suchen.

    es sieht aber nicht besonders schön aus oder so.

    vllt hat ja jemand spass und macht noch was eigenes rein dann können wir ein ganz großes machen.

    Script und bilder sind im anhang.

    Gruß Nitrama :)

    PS: lob und kritik erwünscht :)

  • neuer Browser

    hey,

    ich und L3w3x haben diese woche einen Browser gescriptet.

    und hier ist das ergebnis
    mehre tabs (bis 20 stück)
    startseite ändern
    vor
    zurück
    kopieren
    einfügen
    startseite
    stop
    drucken

    Spoiler anzeigen
    [autoit]


    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiToolbar.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <ToolbarConstants.au3>
    #include <WindowsConstants.au3>
    #Include <Array.au3>
    #include <IE.au3>
    #include <INet.au3>
    ;-------------------------------------------->------<--------müsst ihr hier noch anpassen
    FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\go.jpg", @WindowsDir & "\Temp\" )
    FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\zurueck.jpg", @WindowsDir & "\Temp\" )
    FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\vor.jpg", @WindowsDir & "\Temp\" )
    FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\home.jpg", @WindowsDir & "\Temp\" )
    FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\stop.jpg", @WindowsDir & "\Temp\" )
    FileInstall ( "C:\Dokumente und Einstellungen\Martin\Desktop\neuladen.jpg", @WindowsDir & "\Temp\" )
    $i= -1
    $startseite = IniRead ( "ini.ini", "URL", "Startseite","google.de")
    Local $tabs[21]
    local $seiten[21]
    local $Tab[21]
    _IEErrorHandlerRegister ()
    $oIE = _IECreateEmbedded ()
    HotKeySet ("^t","_newTab")
    HotKeySet ( "^d" , "_drucken" )
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Browser", 800, 620, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
    $input = GUICtrlCreateInput($startseite, 182, 32, 393, 20)
    $buttongo = GUICtrlCreatePic (@WindowsDir & "\Temp\go.jpg", 600,20,40,40)
    $buttonzurueck = GUICtrlCreatePic (@WindowsDir & "\Temp\zurueck.jpg", 30,20,40,40)
    $buttonvor = GUICtrlCreatePic (@WindowsDir & "\Temp\vor.jpg", 80,20,40,40)
    $buttonhome = GUICtrlCreatePic (@WindowsDir & "\Temp\home.jpg", 130,20,40,40)
    $buttonstop = GUICtrlCreatePic (@WindowsDir & "\Temp\stop.jpg", 650,20,40,40)
    $buttonneuladen = GUICtrlCreatePic (@WindowsDir & "\Temp\neuladen.jpg", 700,20,40,40)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Tab = GUICtrlCreateTab(5, 65, 790, 510)

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

    ;by l3w3x
    #region menue
    $menue1 = GUICtrlCreateMenu("&Datei")

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

    $fileitem11 = GUICtrlCreateMenuItem("Tap öffnen", $menue1)
    ;$fileitem12= GUICtrlCreateMenuItem("Tap schließen", $menue1)
    ;$fileitem13= GUICtrlCreateMenuItem("Fenster oeffnen", $menue1)
    ;$fileitem14 = GUICtrlCreateMenuItem("Fenster schließen", $menue1)
    $fileitem15 = GUICtrlCreateMenuItem("Drucken", $menue1)
    $fileitem16 = GUICtrlCreateMenuItem("", $menue1)
    $fileitem17 = GUICtrlCreateMenuItem("Beenden", $menue1)

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

    $menue2 = GUICtrlCreateMenu("&Bearbeiten")
    $fileitem21 = GUICtrlCreateMenuItem("Rückgängig", $menue2)
    $fileitem22 = GUICtrlCreateMenuItem("Widerherstellen", $menue2)
    $fileitem23 = GUICtrlCreateMenuItem("kopieren", $menue2)
    $fileitem24 = GUICtrlCreateMenuItem("einfügen", $menue2)
    ;$fileitem25 = GUICtrlCreateMenuItem("suchen", $menue2)
    ;$fileitem26 = GUICtrlCreateMenuItem("weiter suchen", $menue2)
    $fileitem27 = GUICtrlCreateMenuItem("neu laden", $menue2)

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

    ;$menue3 = GUICtrlCreateMenu("&Lesezeichen")
    ;$fileitem31 = GUICtrlCreateMenuItem("lesezeichen speichen", $menue3)
    ;$fileitem33 = GUICtrlCreateMenuItem("", $menue3)
    ;$fileitem34 = GUICtrlCreateMenuItem("lesezeichen verwalten", $menue3)

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

    $menue4 = GUICtrlCreateMenu("&Verwalten")
    ;$fileitem41 = GUICtrlCreateMenuItem("Cookies löschen", $menue4)
    $fileitem42 = GUICtrlCreateMenuItem("Einstellungen", $menue4)

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

    $menue5 = GUICtrlCreateMenu("&Hilfe")
    ;$fileitem51 = GUICtrlCreateMenuItem("über diese version", $menue5)
    $fileitem52 = GUICtrlCreateMenuItem("nach neuer version suchen", $menue5)
    ;$fileitem53 = GUICtrlCreateMenuItem("hilfe zum browser", $menue5)
    #endregion

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

    ;end by L3w3x
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    GUICtrlSetResizing ($tab,1)
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    GUICtrlSetResizing ($seiten[$activTAB],1)
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    _exit ()
    Case $buttonzurueck
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    $activTAB = GUICtrlRead ($Tab)
    _IEAction($tabs[$activTAB],"Back")
    EndIf
    case $buttonvor
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    _IEAction ($tabs[$activTAB], "forward")
    EndIf
    case $buttonhome
    $activTAB = GUICtrlRead ($Tab)
    $startseite = IniRead ( "ini.ini", "URL", "Startseite","google.de")
    IF $activTAb = -1 Then
    $i = 0
    GUICtrlCreateTabItem ($startseite)
    $tabs[$i] = _IECreateEmbedded ()
    $seiten[$i] = GUICtrlCreateObj ($tabs[$i], 10, 100, 780, 470)
    _IENavigate ($tabs[$i] , $startseite)
    Else
    $activTAB = GUICtrlRead ($Tab)
    GUICtrlSetData ($activTAB , $startseite)
    _IENavigate ($tabs[$activTAB] , $startseite)
    EndIf
    Case $buttongo
    _go ()
    Case $buttonstop
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    _IEAction ($tabs[$activTAB], "stop")
    Endif
    Case $buttonneuladen
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    _IEAction ($tabs[$activTAB], "refresh")
    EndIf
    Case $fileitem11
    _newTab ()
    Case $fileitem15
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    _IEAction ($tabs[$activTAB], "print")
    EndIf
    Case $fileitem17
    _exit ()
    Case $fileitem21
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    _IEAction ($tabs[$activTAB], "back")
    EndIf
    Case $fileitem22
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    _IEAction ($tabs[$activTAB], "forward")
    EndIf
    Case $fileitem23
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    _IEAction ($tabs[$activTAB], "copy")
    EndIf
    Case $fileitem24
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    _IEAction ($tabs[$activTAB], "paste")
    EndIf
    Case $fileitem27
    $activTAB = GUICtrlRead ($Tab)
    if $activTAB >= 0 Then
    _IEAction ($tabs[$activTAB], "refresh")
    EndIf
    Case $fileitem42
    _settings ()
    Case $fileitem52
    _Update ()
    ;Case $fileitem13
    ;MsgBox (0,"","")
    ;$run = @ScriptDir & "\" & @ScriptName
    ;run (@ScriptDir & "\" & @ScriptName)
    ;MsgBox (0,"",$run)
    EndSwitch
    WEnd

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

    Func _go ()
    ;Msgbox (4096,"",$i)
    If $i = 20 then
    MsgBox (4096,"","es können höchstens 20 tabs geöffnet werden")
    Else

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

    $url = GUICtrlRead ($input)
    $activTAB = GUICtrlRead ($Tab)
    IF $activTAb = -1 Then
    $i = 0
    ;Msgbox (4096,"",$activTAB)
    GUICtrlCreateTabItem ($url)
    $tabs[$i] = _IECreateEmbedded ()
    $seiten[$i] = GUICtrlCreateObj ($tabs[$i], 10, 100, 780, 470)
    _IENavigate ($tabs[$i] , $url)
    Else
    $activTAB = GUICtrlRead ($Tab)
    $url = GUICtrlRead ($input)
    GUICtrlSetData ($activTAB , $url)
    _IENavigate ($tabs[$activTAB] , $url)
    EndIf
    EndIf
    EndFunc

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

    Func _newTab () ;by Nitrama
    If $i = 20 then
    MsgBox (4096,"","es können höchstens 20 tabs geöffnet werden")
    Else
    $i += 1
    GUICtrlCreateTabItem("Neuer Tab")
    $tabs[$i] = _IECreateEmbedded ()
    $seiten[$i] = GUICtrlCreateObj ($tabs[$i], 10, 100, 780, 470)

    ENDIf
    EndFunc
    Func _drucken ()
    $activTAB = GUICtrlRead ($Tab)
    _IEAction($tabs[$activTAB],"Print")
    EndFunc
    Func _exit ()
    FileDelete (@WindowsDir & "\Temp\go.jpg")
    FileDelete (@WindowsDir & "\Temp\zurueck.jpg")
    FileDelete (@WindowsDir & "\Temp\vor.jpg")
    FileDelete (@WindowsDir & "\Temp\home.jpg")
    FileDelete (@WindowsDir & "\Temp\stop.jpg")
    FileDelete (@WindowsDir & "\Temp\neuladen.jpg")
    Exit
    EndFunc
    Func _Update ()
    Dim $ver = "0.5.0"
    InetGet("http://Nitrama.ni.funpic.de/neu.txt",@TempDir & "\neu.txt", 1, 0)
    $file = FileOpen(@TempDir & "\neu.txt", 0)
    $line = FileReadLine($file, 1)
    $line2= FileReadLine($file, 2)
    If $line = $ver Then
    MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
    FileClose($file)
    FileDelete(@TempDir & "\neu.txt")
    Else
    MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!")
    $fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?")
    If $fg = 6 Then
    InetGet("http://test/files/" & $line2, $line2, 1, 0) ; ANPASSEN
    FileClose($file)
    FileDelete(@TempDir & "\update.txt")
    Exit
    EndIf
    EndIf
    EndFunc
    Func _settings ()
    $Form2 = GUICreate("Einstellungen", 521, 442, 268, 127)
    $newstart = GUICtrlCreateInput("Neue Startseite", 152, 50, 217, 21)
    $Button1 = GUICtrlCreateButton("OK", 392, 50, 105, 25)
    $Button2 = GUICtrlCreateButton("Abbrechen", 344, 400, 105, 33)
    $Button3 = GUICtrlCreateButton("OK", 203, 400, 105, 33)
    $Label1 = GUICtrlCreateLabel("Neue Startseite", 40, 50, 96, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 2
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete ($Form2)
    exitloop
    Case $Button1
    $startseitenew = GUICtrlRead ($newstart)
    IniDelete ("ini.ini","URL")
    IniWriteSection ("ini.ini","URL","Startseite="& $startseitenew )
    Case $Button2
    GUIDelete ($Form2)
    exitloop
    Case $Button3
    GUIDelete ($Form2)
    exitloop
    EndSwitch
    WEnd
    EndFunc

    [/autoit]


    der Browser hat auch schon eine update Funktion die ich hier im Forum gefunden habe

    bald kommt auch noch hinzu das man lesezeichen spiechern kann

    und Proxy Einstellungen

    Gruß Nitrama
    PS: ist alle bilder und source sind im anhang
    PSS: die bilder direkt in C: kopieren oder exe starten