Beiträge von Jam00

  • pc starten

    Also den PC zu starten geht nur über das BIOS oder über zusätzliche Hardware.
    Die meisten PCs arbeiten ja mit impulsschalter, man könnte sich selber eine Hardware bauen, die diesen Impuls zu einer Bestimmten Zeit abginbt, eine Andere möglichkeit kenne ich da nicht

  • Mit Zeiten rechnen

    Guck dir mal das an

    Spoiler anzeigen
    [autoit]

    $Zeit = StringSplit ("1:00",":")
    $Rechnung = _TestZeit (@HOUR + $Zeit[1],23) & ":" & _TestZeit (@MIN + $Zeit[2],60)
    While 1
    Do
    Sleep (1000)
    Until @HOUR & ":" & @MIN = $Rechnung
    If MsgBox (256+36,"Shutdown","Willst du den Pc runterfahren?",30) <> 7 Then
    Shutdown (64)
    Exit
    Else
    $Zeit = StringSplit ($Zeit[1] +1 & ":30",":")
    $Rechnung = _TestZeit (@HOUR + $Zeit[1],24) & ":" & _TestZeit (@MIN + $Zeit[2],59)
    EndIf
    WEnd
    Func _TestZeit($Zeit,$Typ)
    IF $Zeit > $Typ Then $Zeit -= $Typ +1
    If $Zeit < 10 Then $Zeit = "0" & $Zeit
    Return $Zeit
    EndFunc

    [/autoit]

    Das hab ich mal für micht gemacht weil ich es gerad brauchte

  • Einen Sliderwert per Tastendruck erhöhen, bzw. Wert per Maus vergrößern/verkleinern

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <File.au3>
    #include <StaticConstants.au3>

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

    HotKeySet("u", "_VolumeUp")
    HotKeySet("d", "_VolumeDown")

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

    GUICreate ("Favolist Editor", 700, 500, 10,10, BitOr($WS_POPUP, $DS_MODALFRAME, $WS_EX_LAYERED),$WS_EX_ACCEPTFILES)
    $Volume = GUICtrlCreateSlider(10, 10, 100, 30, 16)
    GUICtrlSetLimit(-1, 100, 0)
    GUICtrlCreateLabel("" & GUICTRLREAD($Volume), 0, 60, 50,20)
    GUICtrlSetData($Volume, 50)
    GUISetState()

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

    While 1
    $extMsg = GUIGetMsg(1)
    $msg = $extMsg[0]
    WEnd
    Func _VolumeUp()
    GUICtrlSetData ($Volume,GUICtrlRead ($Volume) + 10)
    EndFunc

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

    Func _VolumeDown()
    GUICtrlSetData ($Volume,GUICtrlRead ($Volume) - 10)

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

    EndFunc

    [/autoit]

    Klar kann man den Slieder per maus verändern! Ist doch schon so, was willst du denn? Und per Scroolrad kann man ihn auch bewegen, solage er den Fokus hat!

  • Netzwerkverbindung überprüfen

    So kannst du überprüfen ob ein Bestimmter Text in einer Bestimmten Zeile einer Textdatei ist:

    Spoiler anzeigen
    [autoit]

    $Read = FileReadLine (FileOpenDialog ("Textdatei Auswählen",@DesktopDir,"Textdatein (*.txt)"),InputBox ("Zeile","In welcher Zeile soll gesucht werden?"))
    If @error Then Exit MsgBox (16,"Error","Es tart ein Fehler auf:" & @error)
    $Suche = InputBox ("Suche","Wonach soll gesucht werden?")
    If StringInStr ($Read,$Suche) > 0 Then
    MsgBox (64,"Fund","Es wurde der angegebene Text gefunden")
    Else
    MsgBox (16,"Kein Fund","Der angegeben Text konnte nicht gefunden werden!")
    EndIf

    [/autoit]

  • WM 2010

    Stimmt, ging nicht! hab jetzt behoben

    Spoiler anzeigen
    [autoit]

    #include<ListViewConstants.au3>
    #include<WindowsConstants.au3>
    #include <GUIListBox.au3>
    #include <SQLite.au3>
    #include <SQLite.dll.au3>

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

    Local $sSQliteDll_Path = _SQLite_Startup() ; gibt den Pfad der SQlite.Dll zurück
    ; Lädt die SQLite.dll
    ; erfordert SQLite3.dll im @ScriptDir oder @SystemDir
    ; Wenn SQLite.dll.au3 included ist, wird die DLL im @SystemDir erstellt.
    ; Sollte das fehlschlagen, wird eine temporäre Datei erstellt, die mit _SQLite_Shutdown() gelöscht wird.
    $Exist = FileExists(@ScriptDir & '\Mannschaften.db')

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

    Global $hSQL = _SQLite_Open(@ScriptDir & '\Mannschaften.db')
    If $Exist = 0 Then _sqltableerstellen()

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

    #Region Opt
    Opt("GUIOnEventMode", 0) ;0=disabled, 1=OnEvent mode enabled
    Opt("GUIResizeMode", 100) ;0=no resizing, <1024 special resizing
    Opt("GUICloseOnESC", 1)

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

    #EndRegion Opt

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

    #Region GUI 1
    $gui1 = GUICreate("WM 2010", 600, 480, 100, 100)
    $datei = GUICtrlCreateMenu("&Datei", -1)
    $optionen = GUICtrlCreateMenu("Optionen", -1)
    $info = GUICtrlCreateMenu("?", -1)
    $beenden = GUICtrlCreateMenuItem("Beenden", $datei)
    $eintragen = GUICtrlCreateMenuItem("Mannschaften eintragen", $optionen)
    $gruppen = GUICtrlCreateMenuItem("Gruppeneditor", $optionen)
    $wetten = GUICtrlCreateMenuItem("Wetten", $optionen)
    $admin = GUICtrlCreateMenuItem("Adminrechte", $optionen)
    $info1 = GUICtrlCreateMenuItem("Hilfe", $info)
    GUISetState(@SW_SHOW)
    #EndRegion GUI 1

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

    #Region GUI2
    $gui2 = GUICreate("Mannschaften eintragen", 330, 240, 201, 201, BitOR($WS_EX_TOPMOST, $WS_MINIMIZEBOX))
    GUISetFont(0, 400, 0, "MS Sans Serif")
    $button_eintragen = GUICtrlCreateButton("Eintragen", 172, 98, 100, 30, 0)
    $button_entfernen = GUICtrlCreateButton("Entfernen", 172, 138, 100, 30, 0)
    $button_umbenennen = GUICtrlCreateButton("Umbenennen", 172, 178, 100, 30, 0)
    $button_speichern = GUICtrlCreateButton("Speichern und Zurück", 0, 0, 330, 30, 0)
    $input = GUICtrlCreateInput("", 150, 50, 150, 24)
    GUISetFont(12, 10)
    $label = GUICtrlCreateLabel("Namen eingeben", 26, 50, 106, 20)
    GUISetFont(0)
    $List = GUICtrlCreateList("", 10, 90, 150, 130,BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS))
    GUISetState(@SW_HIDE)
    #EndRegion GUI2

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

    #Region GUI3
    $gui3 = GUICreate("Gruppeneditor", 500, 400, 200, 180)
    #EndRegion GUI3

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

    #Region GUI4
    $gui4 = GUICreate("Wetten", 500, 400, 200, 180)
    #EndRegion GUI4

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

    #Region GUI5
    $gui5 = GUICreate("Einloggen", 500, 400, 200, 180)
    #EndRegion GUI5

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

    #Region Main
    While 1
    $msg = GUIGetMsg(1)

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

    Switch $msg[1] ;Wenn du es nicht so machst dann schließt sich dein ganzes Programm wenn du bei der 2. gui auf den "X" knopf drückst^^

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

    Case $gui1 ;Alles was bei der 1. GUI ist.

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

    Switch $msg[0] ;Bei Switch muss man nicht immer "$msg =" schreiben.
    Case $GUI_EVENT_CLOSE
    Exit
    Case $eintragen
    GUISetState(@SW_SHOW, $gui2) ;Die 2. Gui wird gezeigt.
    GUISetState(@SW_DISABLE, $gui1)
    GUISetState(@SW_RESTORE, $gui2)

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

    Case $info1
    _info()
    Case $gruppen
    GUISetState(@SW_SHOW, $gui3) ;Die 3. Gui wird gezeigt.
    Case $wetten
    GUISetState(@SW_SHOW, $gui4) ;Die 3. Gui wird gezeigt.
    Case $admin
    GUISetState(@SW_SHOW, $gui5) ;Die 3. Gui wird gezeigt.
    Case $beenden
    Exit
    EndSwitch

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

    Case $gui2 ;Alles was bei der 2. GUI ist.
    Switch $msg[0]
    Case $button_eintragen
    _eintragen()
    _sqleintragen()
    Case $button_entfernen
    _entfernen()
    Case $button_umbenennen
    _umbenennen()
    Case $button_speichern
    _speichern()
    _sqlspeichern()
    EndSwitch
    Case $gui3 ;Alles was bei der 3. GUI ist.
    Switch $msg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $gui3) ;Die 3. Gui wird wieder geschlossen.
    Case $button_eintragen
    _eintragen()
    Case $button_entfernen
    _entfernen()
    Case $button_umbenennen
    _umbenennen()
    Case $button_speichern
    _speichern()
    EndSwitch
    Case $gui4 ;Alles was bei der 4. GUI ist.
    Switch $msg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $gui4) ;Die 4. Gui wird wieder geschlossen.
    Case $button_eintragen
    _eintragen()
    Case $button_entfernen
    _entfernen()
    Case $button_umbenennen
    _umbenennen()
    Case $button_speichern
    _speichern()
    EndSwitch
    Case $gui5 ;Alles was bei der 5. GUI ist.
    Switch $msg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $gui5) ;Die 5. Gui wird wieder geschlossen.
    Case $button_eintragen
    _eintragen()
    Case $button_entfernen
    _entfernen()
    Case $button_umbenennen
    _umbenennen()
    Case $button_speichern
    _speichern()
    EndSwitch

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

    EndSwitch
    WEnd
    #EndRegion Main

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

    #Region Funcs GUI1

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

    Func _info()
    MsgBox(1, "Info", "created by Maximilian")
    EndFunc ;==>_info

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

    #EndRegion Funcs GUI1
    ;;
    #Region Funcs GUI2
    Func _entfernen()
    $index = _GUICtrlListBox_GetCurSel($List)
    $gettext = _GUICtrlListBox_GetText($List, $index)
    _GUICtrlListBox_DeleteString($List, $index)
    EndFunc ;==>_entfernen

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

    Func _umbenennen()
    $index = _GUICtrlListBox_GetCurSel($List)
    $gettext = _GUICtrlListBox_GetText($List, $index)
    GUICtrlSetData($input, $gettext)
    _GUICtrlListBox_DeleteString($List, $index)
    EndFunc ;==>_umbenennen

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

    Func _speichern()
    GUISetState(@SW_ENABLE, $gui1)
    GUISetState(@SW_SHOW, $gui1)
    GUISetState(@SW_HIDE, $gui2) ;Die 2. Gui wird wieder geschlossen.
    EndFunc ;==>_speichern

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

    Func _eintragen()
    _GUICtrlListBox_AddString($List, GUICtrlRead($input))
    GUICtrlSetData($input, "")
    EndFunc ;==>_eintragen

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

    Func _sqlBeenden($msg)
    _SQLite_Close()
    _SQLite_Shutdown()
    Exit MsgBox(0, 'Ende', $msg)
    EndFunc ;==>_sqlBeenden

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

    Func _sqltableerstellen()
    $strCREATE = _
    "CREATE TABLE [Mannschaften] (" & _
    "[id] INTEGER KEY," & _
    "[team] VARCHAR[50] NULL," & _
    "[gruppe] VARCHAR[3] NULL)"
    If _SQLite_Exec($hSQL, $strCREATE) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler CREATE')
    EndIf
    EndFunc ;==>_sqltableerstellen

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

    Func _sqleintragen()
    $count = _GUICtrlListBox_GetCount($List) -1
    For $x = 0 To $count Step 1
    $temp = _GUICtrlListBox_GetText($List, $x)
    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (" &$x& ", '" & $temp &"', '');"
    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf
    Next
    EndFunc ;==>_sqleintragen

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

    Func _sqlspeichern()
    _GUICtrlListBox_ResetContent($List)

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

    EndFunc
    #EndRegion Funcs GUI2
    ;;

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

    #Region Funcs GUI3

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

    #EndRegion Funcs GUI3
    ;;
    #Region Funcs GUI4

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

    #EndRegion Funcs GUI4
    ;;
    #Region Funcs GUI5

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

    #EndRegion Funcs GUI5;### Tidy Error -> func is never closed in your script.

    [/autoit]

  • WM 2010

    So wird jetzt schon ma überprüft ob die SQL existiert

    Spoiler anzeigen
    [autoit]

    #include<ListViewConstants.au3>
    #include<WindowsConstants.au3>
    #include <GUIListBox.au3>
    #include <SQLite.au3>
    #include <SQLite.dll.au3>

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

    Local $sSQliteDll_Path = _SQLite_Startup() ; gibt den Pfad der SQlite.Dll zurück
    ; Lädt die SQLite.dll
    ; erfordert SQLite3.dll im @ScriptDir oder @SystemDir
    ; Wenn SQLite.dll.au3 included ist, wird die DLL im @SystemDir erstellt.
    ; Sollte das fehlschlagen, wird eine temporäre Datei erstellt, die mit _SQLite_Shutdown() gelöscht wird.
    If Not FileExists(@ScriptDir & '\Mannschaften.db') Then
    _sqltableerstellen()
    EndIf
    Global $hSQL = _SQLite_Open(@ScriptDir & '\Mannschaften.db')

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

    #Region Opt
    Opt("GUIOnEventMode", 0) ;0=disabled, 1=OnEvent mode enabled
    Opt("GUIResizeMode", 100) ;0=no resizing, <1024 special resizing
    Opt("GUICloseOnESC", 1)

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

    #EndRegion Opt

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

    #Region GUI 1
    $gui1 = GUICreate("WM 2010", 600, 480, 100, 100)
    $datei = GUICtrlCreateMenu("&Datei", -1)
    $optionen = GUICtrlCreateMenu("Optionen", -1)
    $info = GUICtrlCreateMenu("?", -1)
    $beenden = GUICtrlCreateMenuItem("Beenden", $datei)
    $eintragen = GUICtrlCreateMenuItem("Mannschaften eintragen", $optionen)
    $gruppen = GUICtrlCreateMenuItem("Gruppeneditor", $optionen)
    $wetten = GUICtrlCreateMenuItem("Wetten", $optionen)
    $admin = GUICtrlCreateMenuItem("Adminrechte", $optionen)
    $info1 = GUICtrlCreateMenuItem("Hilfe", $info)
    GUISetState(@SW_SHOW)
    #EndRegion GUI 1

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

    #Region GUI2
    $gui2 = GUICreate("Mannschaften eintragen", 330, 240, 201, 201, BitOR($WS_EX_TOPMOST, $WS_MINIMIZEBOX))
    GUISetFont(0, 400, 0, "MS Sans Serif")
    $button_eintragen = GUICtrlCreateButton("Eintragen", 172, 98, 100, 30, 0)
    $button_entfernen = GUICtrlCreateButton("Entfernen", 172, 138, 100, 30, 0)
    $button_umbenennen = GUICtrlCreateButton("Umbenennen", 172, 178, 100, 30, 0)
    $button_speichern = GUICtrlCreateButton("Speichern und Zurück", 0, 0, 330, 30, 0)
    $input = GUICtrlCreateInput("", 150, 50, 150, 24)
    GUISetFont(12, 10)
    $label = GUICtrlCreateLabel("Namen eingeben", 26, 50, 106, 20)
    GUISetFont(0)
    $List = GUICtrlCreateList("", 10, 90, 150, 130,BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS))
    GUISetState(@SW_HIDE)
    #EndRegion GUI2

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

    #Region GUI3
    $gui3 = GUICreate("Gruppeneditor", 500, 400, 200, 180)
    #EndRegion GUI3

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

    #Region GUI4
    $gui4 = GUICreate("Wetten", 500, 400, 200, 180)
    #EndRegion GUI4

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

    #Region GUI5
    $gui5 = GUICreate("Einloggen", 500, 400, 200, 180)
    #EndRegion GUI5

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

    #Region Main
    While 1
    $msg = GUIGetMsg(1)

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

    Switch $msg[1] ;Wenn du es nicht so machst dann schließt sich dein ganzes Programm wenn du bei der 2. gui auf den "X" knopf drückst^^

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

    Case $gui1 ;Alles was bei der 1. GUI ist.

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

    Switch $msg[0] ;Bei Switch muss man nicht immer "$msg =" schreiben.
    Case $GUI_EVENT_CLOSE
    Exit
    Case $eintragen
    GUISetState(@SW_SHOW, $gui2) ;Die 2. Gui wird gezeigt.
    GUISetState(@SW_DISABLE, $gui1)
    GUISetState(@SW_RESTORE, $gui2)

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

    Case $info1
    _info()
    Case $gruppen
    GUISetState(@SW_SHOW, $gui3) ;Die 3. Gui wird gezeigt.
    Case $wetten
    GUISetState(@SW_SHOW, $gui4) ;Die 3. Gui wird gezeigt.
    Case $admin
    GUISetState(@SW_SHOW, $gui5) ;Die 3. Gui wird gezeigt.
    Case $beenden
    Exit
    EndSwitch

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

    Case $gui2 ;Alles was bei der 2. GUI ist.
    Switch $msg[0]
    Case $button_eintragen
    _eintragen()
    _sqleintragen()
    Case $button_entfernen
    _entfernen()
    Case $button_umbenennen
    _umbenennen()
    Case $button_speichern
    _speichern()
    _sqlspeichern()
    EndSwitch
    Case $gui3 ;Alles was bei der 3. GUI ist.
    Switch $msg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $gui3) ;Die 3. Gui wird wieder geschlossen.
    Case $button_eintragen
    _eintragen()
    Case $button_entfernen
    _entfernen()
    Case $button_umbenennen
    _umbenennen()
    Case $button_speichern
    _speichern()
    EndSwitch
    Case $gui4 ;Alles was bei der 4. GUI ist.
    Switch $msg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $gui4) ;Die 4. Gui wird wieder geschlossen.
    Case $button_eintragen
    _eintragen()
    Case $button_entfernen
    _entfernen()
    Case $button_umbenennen
    _umbenennen()
    Case $button_speichern
    _speichern()
    EndSwitch
    Case $gui5 ;Alles was bei der 5. GUI ist.
    Switch $msg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $gui5) ;Die 5. Gui wird wieder geschlossen.
    Case $button_eintragen
    _eintragen()
    Case $button_entfernen
    _entfernen()
    Case $button_umbenennen
    _umbenennen()
    Case $button_speichern
    _speichern()
    EndSwitch

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

    EndSwitch
    WEnd
    #EndRegion Main

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

    #Region Funcs GUI1

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

    Func _info()
    MsgBox(1, "Info", "created by Maximilian")
    EndFunc ;==>_info

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

    #EndRegion Funcs GUI1
    ;;
    #Region Funcs GUI2
    Func _entfernen()
    $index = _GUICtrlListBox_GetCurSel($List)
    $gettext = _GUICtrlListBox_GetText($List, $index)
    _GUICtrlListBox_DeleteString($List, $index)
    EndFunc ;==>_entfernen

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

    Func _umbenennen()
    $index = _GUICtrlListBox_GetCurSel($List)
    $gettext = _GUICtrlListBox_GetText($List, $index)
    GUICtrlSetData($input, $gettext)
    _GUICtrlListBox_DeleteString($List, $index)
    EndFunc ;==>_umbenennen

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

    Func _speichern()
    GUISetState(@SW_ENABLE, $gui1)
    GUISetState(@SW_SHOW, $gui1)
    GUISetState(@SW_HIDE, $gui2) ;Die 2. Gui wird wieder geschlossen.
    EndFunc ;==>_speichern

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

    Func _eintragen()
    _GUICtrlListBox_AddString($List, GUICtrlRead($input))
    GUICtrlSetData($input, "")
    EndFunc ;==>_eintragen

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

    Func _sqlBeenden($msg)
    _SQLite_Close()
    _SQLite_Shutdown()
    Exit MsgBox(0, 'Ende', $msg)
    EndFunc ;==>_sqlBeenden

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

    Func _sqltableerstellen()
    $strCREATE = _
    "CREATE TABLE [Mannschaften] (" & _
    "[id] INTEGER KEY," & _
    "[team] VARCHAR[50] NULL," & _
    "[gruppe] VARCHAR[3] NULL)"
    If _SQLite_Exec($hSQL, $strCREATE) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler CREATE')
    EndIf
    EndFunc ;==>_sqltableerstellen

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

    Func _sqleintragen()
    $count = _GUICtrlListBox_GetCount($List) -1
    For $x = 0 To $count Step 1
    $temp = _GUICtrlListBox_GetText($List, $x)
    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (" &$x& ", '" & $temp &"', '');"
    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf
    Next
    EndFunc ;==>_sqleintragen

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

    Func _sqlspeichern()
    _GUICtrlListBox_ResetContent($List)

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

    EndFunc
    #EndRegion Funcs GUI2
    ;;

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

    #Region Funcs GUI3

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

    #EndRegion Funcs GUI3
    ;;
    #Region Funcs GUI4

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

    #EndRegion Funcs GUI4
    ;;
    #Region Funcs GUI5

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

    #EndRegion Funcs GUI5;### Tidy Error -> func is never closed in your script.

    [/autoit]

    EDIT: Zu spät
    Du hattes viel zu viel inculde drin, die brauchtest du garnicht, hab ich mal aussortiert

  • Sichtbare Buttons auf Unsichtbarem GUI

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 633, 447, 192, 124, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOOLWINDOW)
    GUISetBkColor(0xFFFFFF)
    DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $Form1, "long", 0xFFFFFF, "byte", 255, "long", True)
    DllCall("user32.dll", "hwnd", "SetParent", "hwnd", $Form1, "hwnd", WinGetHandle("Program Manager"))
    $Button1 = GUICtrlCreateButton("Button1", 32, 56, 73, 57, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Button2", 152, 232, 249, 105, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Label1", 192, 64, 36, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

    Geht aber glaub ich nicht bei Vista

  • Problem bei Skript

    Man gehts noch? 5 Post hinternander, sei froh wenn du keine Verwahnung wegen Spammens bekommst! :cursing::cursing:

    Du musst dich vieleicht mal ein bischen gedulden und auch mal die Hilfe benutzen, da steht alles drin!

    Und es bringt dir Garnichts als zu Schreiben "Weiß denn keiner was" usw. ganz im gegenteil, dann hilft dir keiner mehr!
    Wenn dir jemand helfen will dan tut er es schon, aber ich glaub keiner hat lust sich so hetzen zu lassen und da man für die Hilfe nicht bezahlt wird kannst du überhaub nichts verlangen!

  • Sichtbare Buttons auf Unsichtbarem GUI

    Also wie soll das jetzt sein? Soll du Gui jetzt durchsichtig sein oder soll das Fenster hinter alle anderen?

    Durchsichtig ist ganz leicht:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 633, 447, 192, 124,$WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOOLWINDOW)
    GUISetBkColor (0xFFFFFF)
    DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $Form1, "long", 0xFFFFFF, "byte", 255, "long",True)
    $Button1 = GUICtrlCreateButton("Button1", 32, 56, 73, 57, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Button2", 152, 232, 249, 105, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Label1", 192, 64, 36, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

  • Bilder mit Transparent übernanderlegen

    Also ich wollte 2 Bilder übereinanderlegen. Ich wollte es gerne möglichst ohne ein Externes Programm machen, denn es muss schnell und oft pasieren. Das soll für ein Spiel werden, wo es verschiede Untergründe gibt.
    Also Ich habe 2 PNG-Bilder und möchte die Übernanderlegen. Ich mach einfach auch ein Ergebnisbild mit in den Dateianhang, das sollte den rest erklären. Wenn das Bild fertig ist sollte es entweder als JPG, BMP oder Tif gespeichert werden.