Beiträge von Andy

  • Eigene Systemvariable beim Setup benutzen

    Hallo JeanLuc2204,

    wenn ich das jetzt richtig verstanden habe, möchtest du mit WPI auch Programme installieren lassen, welche keinen "Silent" Schalter haben?
    Dann würde ich für jedes dieser Programme ein Installationsscript schreiben, und dieses in der WPI aufrufen.

    Zitat

    Das einzigste wäre jetzt noch wenn die Skripte & Software einzeln benutzt werden ohne die WPI-DVD.


    Das geht natürlich auch. WPI per Autoit^^ .
    Man könnte z.B. eine Datei erstellen, in der alle zu installierenden Programme enthalten sind, incl. evtl. vorhandener Silent-Schaltern.
    Dann eine GUI erstellen mit 2 Filelisten, die auf der CD enthaltenen Programme werden in der linken Liste dargestellt, je nach Bedarf per Drag&Drop in die "Install"-Liste gezogen, ggf noch Verzeichnisse ausgewählt, auf den "Install"-Button geklickt und ab gehts Kaffee trinken :)
    Sicher gibt es irgendwo schon entsprechende Listen mit den "Silent"-Parametern der Programme.
    Der Rest sind einige Zeilen Autoit....viel Spass^^

    ciao
    Andy

  • Eigene Systemvariable beim Setup benutzen

    Hallo,
    wenn es nur darum geht das Installationsverzeichnis vom User auswählen zu lassen, warum machst du keine Abfrage?
    Der User muss doch sowieso das Installationsverzeichnis angeben, oder willst du das per Parameter an das Autoitscript übergeben?

    Ah, ich glaube, ich verstehe was du meinst^^

    Spoiler anzeigen
    [autoit]

    BlockInput(1)

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

    ShellExecute("Burrrn 1.13.exe")

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

    ;Warten auf Installations-Fenster
    WinWait("Burrrn 1.13 Setup","Choose Components")
    Send("{DOWN}" & "{SPACE}")
    ControlClick("Burrrn 1.13 Setup","Nullsoft Install System v2.06","Button2")

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

    ;Warten auf Installations-Verzeichnis
    WinWait("Burrrn 1.13 Setup","Choose Install Location")
    $env_string=EnvGet("SOFTWARE")
    ControlSetText("Burrrn 1.13 Setup","Choose Install Location","Edit1", $env_string & "\Burrrn 1.13\")
    ControlClick("Burrrn 1.13 Setup","Choose Install Location","Button2")

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

    ;Warten auf Startmenü-Ordner
    WinWait("Burrrn 1.13 Setup","Choose Start Menu Folder")
    Send("Burrrn 1.13")
    ControlClick("Burrrn 1.13 Setup","Choose Start Menu Folder","Button2")

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

    ;Installation des Programms

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

    ;Warten auf Fertigstellen des Programms
    WinWaitActive("Burrrn 1.13 Setup","Installation Complete")
    ControlClick("Burrrn 1.13 Setup","Installation Complete","Button2")

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

    Blockinput(0)

    [/autoit]


    so in der Art?
    ciao
    Andy

  • Wert in Statusbar eintragen - _Meminit Invalid window Handle

    Hallo,
    fehler in zeile 35 , $hstatus das zweitemal als local definiert, löschen
    dann noch zeile 111 den sektor von 0 auf 1 ändern

    dann passts^^
    ciao
    Andy

    *Edit* frag doch den .namen nach einiger Zeit nochmal ab innerhalb der Schleife, damit er sich je nach Titel aktualisiert, und nicht nur wenn man auf "Play" drückt

    Spoiler anzeigen
    [autoit]

    #include <ComboConstants.au3>
    #include <GUIConstants.au3>
    #include <string.au3>
    #include <array.au3>
    #Include <GuiStatusBar.au3>
    #include <GUIConstants.au3>
    #Include <GuiListView.au3>
    #include <Constants.au3>
    #include <ProgressConstants.au3>
    #include <GuiListView.au3>
    #include <StaticConstants.au3>
    #include <SliderConstants.au3>
    #include <EditConstants.au3>
    #include <Sound.au3>
    #include <File.au3>
    #include <GuiComboBox.au3>
    #include <GuiStatusBar.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>
    #include <timers.au3>

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

    Global $hStatus
    Global $aParts[2] = [80,344]

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

    _Main()

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

    Func _Main()

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

    $oWMP = ObjCreate ( "WMPLayer.ocx" )

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

    Local $Label_1, $Combo_2, $button1, $msg, $data, $Form1,$Form2, $Play, $Stop, $Homepage, $Label2, $Checkbox1, $Group1, $Sender, $Label1, $masta, $oIE, $masta2, $lauter, $leiser, $Group2, $filemenu, $fileitem, $fileitem2
    Local $Form1
    $Form1 = GUICreate("Grillbier-Radio", 424, 285)
    $filemenu = GUICtrlCreateMenu("Datei")
    $fileitem = GUICtrlCreateMenuItem("About", $filemenu)
    $fileitem2 = GUICtrlCreateMenuItem("Beenden", $filemenu)
    $Play = GUICtrlCreateButton("Play", 40, 112, 97, 41, 0)
    GUICtrlSetFont(-1, 10, 400, 2, "Century Gothic")
    $Stop = GUICtrlCreateButton("Stop", 152, 112, 97, 41, 0)
    GUICtrlSetFont(-1, 10, 400, 2, "Century Gothic")
    $Homepage = GUICtrlCreateButton("Homepage", 264, 112, 105, 41, 0)
    GUICtrlSetFont(-1, 10, 400, 2, "Century Gothic")
    $Group1 = GUICtrlCreateGroup("Sender", 24, 16, 378, 89)
    GUICtrlSetFont(-1, 10, 400, 2, "Century Gothic")
    $Sender = GUICtrlCreateCombo("", 40, 72, 345, 25,BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $WS_VSCROLL, $CBS_SORT))
    _GUICtrlComboBox_SetMinVisible($Sender, 8);Es sind in der Combobox $Sender immer mindestens 8 Items sichtbar
    GUICtrlSetData($Sender, "TranceBase.fm|TechnoBase.fm|Hardbase.fm|HouseTime.fm|ReggaeTrade.fm|HardeR - Rautemusik|eXTreMe - Rautemusik|DRS 3|DRS 2|DRS 1|Radio Grischa|Black Beats - HipHop|BigCityBeats - Rautemusik|Main - Rautemusik|Club - Rautemusik|JaM - Rautemusik|FunkY - Rautemusik")
    $Label1 = GUICtrlCreateLabel("Bitte einen Radiosender auswählen!", 40, 40, 346, 17,$SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 2, "Century Gothic")
    GUISetState(@SW_SHOW)
    $Volume = GUICtrlCreateSlider(27, 195, 180, 35, BitOR($TBS_AUTOTICKS, $TBS_Left))
    GUICtrlSetData(-1, 50)
    $goupvolume = GUICtrlCreatelabel("Volume:",40,180,185,20)
    GUICtrlSetFont(-1, 10, 400, 2, "Century Gothic")
    $Labelvolume = GUICtrlCreateLabel(GUICtrlRead($volume)&"%",95,180,50,20,$SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 2, "Century Gothic")
    global $hStatus = _GUICtrlStatusBar_Create ($Form1)
    _GUICtrlStatusBar_SetParts ($hStatus, $aParts)
    global $aParts = _GUICtrlStatusBar_GetParts ($hStatus)
    _Timer_SetTimer($Form1, 1000, "_UpdateStatusBarClock")
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit

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

    Case $msg = $Play
    $data = GUICtrlRead($Sender)
    GUICtrlSetData($Label1,"Sie hören: " & $data)
    If $data = "Technobase.fm" Then
    $oWMP.URL = "http://DSL.TechnoBase.eu/listen-dsl.asx"
    elseif $data = "HardBase.fm" Then
    $oWMP.URL = "http://mp3.hardbase.fm/listen.asx"
    elseif $data = "TranceBase.fm" Then
    $oWMP.URL = "http://mp3.TranceBase.fm/listen.asx"
    elseif $data = "Housetime.fm" Then
    $oWMP.URL = "http://high.HouseTime.FM/listen.asx"
    elseif $data = "eXTreMe - Rautemusik" Then
    $oWMP.URL = "http://extreme-high.rautemusik.fm/listen.asx"
    elseif $data = "HardeR - Rautemusik" Then
    $oWMP.URL = "http://harder-high.rautemusik.fm/listen.asx"
    elseif $data = "ReggaeTrade.fm" Then
    $oWMP.URL = "http://www.1.fm/wm/energyreggae128k.asx"
    elseif $data = "DRS 1" Then
    $oWMP.URL = "http://asx.skypro.ch/radio/internet-64/drs1.asx"
    elseif $data = "DRS 2" Then
    $oWMP.URL = "http://asx.skypro.ch/radio/internet-64/drs2.asx"
    elseif $data = "DRS 3" Then
    $oWMP.URL = "http://asx.skypro.ch/radio/internet-64/drs3.asx"
    elseif $data = "Radio Grischa" Then
    $oWMP.URL = "http://asx.skypro.ch/radio/internet-128/grischa.asx"
    elseif $data = "Black Beats - HipHop" Then
    $oWMP.URL = "http://www.blackbeats.fm/listen.asx"
    elseif $data = "BigCityBeats - Rautemusik" Then
    $oWMP.URL = "http://bcb-high.rautemusik.fm/listen.asx"
    elseif $data = "Main - Rautemusik" Then
    $oWMP.URL = "http://main-high.rautemusik.fm/listen.asx"
    elseif $data = "Club - Rautemusik" Then
    $oWMP.URL = "http://club-high.rautemusik.fm/listen.asx"
    elseif $data = "JaM - Rautemusik" Then
    $oWMP.URL = "http://jam-high.rautemusik.fm/listen.asx"
    elseif $data = "FunkY - Rautemusik" Then
    $oWMP.URL = "http://funky-high.rautemusik.fm/listen.asx"
    EndIf
    With $oWMP.controls.currentItem ;Abkürzung
    _GUICtrlStatusBar_SetText($hStatus,.name, 1)
    EndWith

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

    Case $msg = $Stop
    $oWMP.controls.stop()
    Case $msg = $Homepage
    $masta = GUICtrlRead($Sender)
    If $masta = "TechnoBase.fm" Then
    GUICtrlSetData($Label1,"www." & $masta)
    ShellExecute("http://www.TechnoBase.fm")
    ElseIf $masta = "HardBase.fm" Then
    GUICtrlSetData($Label1,"www." & $masta)
    ShellExecute("http://www.HardBase.fm")
    ElseIf $masta = "Black Beats - HipHop" Then
    GUICtrlSetData($Label1,"www." & $masta)
    ShellExecute("http://www.Blackbeats.fm")
    ElseIf $masta = "TranceBase.fm" Then
    GUICtrlSetData($Label1,"www." & $masta)
    ShellExecute("http://www.TranceBase.fm")
    ElseIf $masta = "HouseTime.fm" Then
    GUICtrlSetData($Label1,"www." & $masta)
    ShellExecute("http://www.HouseTime.fm")
    ElseIf $masta = "eXTreMe - Rautemusik" Then
    GUICtrlSetData($Label1,"www.Rautemusik.fm")
    ShellExecute("http://www.rautemusik.fm/news.php?section=extreme")
    ElseIf $masta = "ReggaeTrade.fm" Then
    GUICtrlSetData($Label1,"www." & $masta)
    ShellExecute("http://www.radioreggaetrade.com/")
    ElseIf $masta = "HardeR - Rautemusik" Then
    GUICtrlSetData($Label1,"www.Rautemusik.fm")
    ShellExecute("http://www.rautemusik.fm/news.php?section=harder")
    ElseIf $masta = "DRS 1" Then
    GUICtrlSetData($Label1,"www.DRS1.ch")
    ShellExecute("http://www.DRS1.ch")
    ElseIf $masta = "DRS 2" Then
    GUICtrlSetData($Label1,"www.DRS2.ch")
    ShellExecute("http://www.DRS2.ch")
    ElseIf $masta = "DRS 3" Then
    GUICtrlSetData($Label1,"www.DRS3.ch")
    ShellExecute("http://www.DRS3.ch")
    ElseIf $masta = "Radio Grischa" Then
    GUICtrlSetData($Label1,"www.RadioGrischa.ch")
    ShellExecute("http://www.RadioGrischa.ch")
    EndIf

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

    Case $msg = $fileitem2
    Exit

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

    Case $msg = $fileitem
    _About()

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

    Case $msg = $Volume
    SoundSetWaveVolume(GUICtrlRead($Volume))
    GUICtrlSetData($Labelvolume,GUICtrlRead($volume) & "%")

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

    EndSelect
    WEnd
    exit
    EndFunc ; --> _Main

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

    Func _UpdateStatusBarClock($hWnd, $Msg, $iIDTimer, $dwTime)
    _GUICtrlStatusBar_SetText($hStatus, StringFormat(" %02d:%02d:%02d", @HOUR, @MIN, @SEC), 0)
    EndFunc ;==>_UpdateStatusBarClock

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

    Func _About()
    Local $Form2, $GroupBox1, $Image1, $Label1, $Label2, $Label3

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

    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("About", 200, 174, 400, 235)
    $Label1 = GUICtrlCreateLabel("InternetRadio", 25, 32, 104, 22, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 400, 2, "Century Gothic")
    $Label2 = GUICtrlCreateLabel("Version 1.2", 24, 64, 83, 22, $WS_GROUP)
    GUICtrlSetFont(-1, 11, 400, 2, "Century Gothic")
    $Label3 = GUICtrlCreateLabel("by Troin", 24, 96, 104, 22)
    GUICtrlSetFont(-1, 11, 400, 2, "Century Gothic")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    local $msg
    $msg = GUIGetMsg()
    Select
    case $msg = $GUI_EVENT_CLOSE
    GUIDelete("About")
    ExitLoop
    EndSelect
    wend
    EndFunc

    [/autoit]

  • WM 2010

    Hallo Madmaxx89,
    du wirst wg drag&drop nicht um den "GUIOnEventMode" herumkommen...

    Ich habe das Script mal teilweise umgeschrieben, Drag&Drop funktioniert jetzt bei der Zuweisung der Mannschaften in die Gruppen. Allerdings sollte man noch ergänzen, daß die Mannschaft nur in einer der Gruppen vorkommen kann und Löschung aus der Länderliste, und Sortierung beim Klick auf die Gruppenüberschrift...uswusf...viel Spass dabei^^

    ciao
    Andy

    Spoiler anzeigen
    [autoit]

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

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

    Local $sSQliteDll_Path = _SQLite_Startup()

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

    $Exist = FileExists(@ScriptDir & '\Mannschaften.db')

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

    Global $hSQL = _SQLite_Open(@ScriptDir & '\Mannschaften.db')

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

    If $Exist = 0 Then _sqltableerstellen()

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

    Local $aResult, $iRows, $iColumns, $iRval

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

    #Region Opt
    Opt("GUIOnEventMode", 1) ;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][/autoit] [autoit][/autoit] [autoit]

    #Region GUI 1
    $gui1 = GUICreate("WM 2010", 600, 480, 100, 100)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $1_datei = GUICtrlCreateMenu("&Datei", -1)
    $1_optionen = GUICtrlCreateMenu("Optionen", -1)
    $1_hilfe = GUICtrlCreateMenu("?", -1)
    $1_beenden = GUICtrlCreateMenuItem("Beenden", $1_datei)
    $1_eintragen = GUICtrlCreateMenuItem("Mannschaften zuweisen", $1_optionen)
    GUICtrlSetOnEvent(-1, '_Mannschaften')
    $1_wetten = GUICtrlCreateMenuItem("Wetten", $1_optionen)
    $1_admin = GUICtrlCreateMenuItem("Adminrechte", $1_optionen)
    $1_info1 = GUICtrlCreateMenuItem("Hilfe", $1_hilfe)
    GUISetState(@SW_SHOW)
    #EndRegion GUI 1

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

    #Region GUI2
    $gui2 = GUICreate("Mannschaften eintragen", 800, 600, 50, 50, BitOR($WS_EX_TOPMOST, $WS_MINIMIZEBOX),$WS_EX_ACCEPTFILES)
    GUISetOnEvent($GUI_EVENT_DROPPED, '_Drop')
    GUISetFont(0, 400, 0, "MS Sans Serif")
    $2b_speichern = GUICtrlCreateButton("Speichern und Zurück", 0, 0, 795, 30, 0)
    GUICtrlSetOnEvent(-1, '_Speichern_und_Zurueck')
    GUISetFont(12, 10)
    GUISetFont(0)
    $2_listview = GUICtrlCreateListView("", 10, 40, 180, 500, BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS, $LVS_EDITLABELS, $LVS_REPORT, $LVS_NOSORTHEADER))
    GUIctrlSetState(-1,$GUI_DROPACCEPTED)
    $2_listview1 = GUICtrlCreateListView("Gruppe A ", 220, 40, 180, 160, BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS, $LVS_EDITLABELS, $LVS_REPORT, $LVS_NOSORTHEADER))
    GUIctrlSetState(-1,$GUI_DROPACCEPTED)
    $2_listview2 = GUICtrlCreateListView("Gruppe B", 410, 40, 180, 160, BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS, $LVS_EDITLABELS, $LVS_REPORT, $LVS_NOSORTHEADER))
    GUIctrlSetState(-1,$GUI_DROPACCEPTED)
    $2_listview3 = GUICtrlCreateListView("Gruppe C", 600, 40, 180, 160, BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS, $LVS_EDITLABELS, $LVS_REPORT, $LVS_NOSORTHEADER))
    GUIctrlSetState(-1,$GUI_DROPACCEPTED)
    $2_listview4 = GUICtrlCreateListView("Gruppe D", 220, 210, 180, 160, BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS, $LVS_EDITLABELS, $LVS_REPORT, $LVS_NOSORTHEADER))
    GUIctrlSetState(-1,$GUI_DROPACCEPTED)
    $2_listview5 = GUICtrlCreateListView("Gruppe E", 410, 210, 180, 160, BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS, $LVS_EDITLABELS, $LVS_REPORT, $LVS_NOSORTHEADER))
    GUIctrlSetState(-1,$GUI_DROPACCEPTED)
    $2_listview6 = GUICtrlCreateListView("Gruppe F", 600, 210, 180, 160, BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS, $LVS_EDITLABELS, $LVS_REPORT, $LVS_NOSORTHEADER))
    GUIctrlSetState(-1,$GUI_DROPACCEPTED)
    $2_listview7 = GUICtrlCreateListView("Gruppe G", 310, 380, 180, 160, BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS, $LVS_EDITLABELS, $LVS_REPORT, $LVS_NOSORTHEADER))
    GUIctrlSetState(-1,$GUI_DROPACCEPTED)
    $2_listview8 = GUICtrlCreateListView("Gruppe H", 500, 380, 180, 160, BitOR($WS_VSCROLL, $LBS_NOTIFY, $LVS_SHOWSELALWAYS, $LVS_EDITLABELS, $LVS_REPORT, $LVS_NOSORTHEADER))
    GUIctrlSetState(-1,$GUI_DROPACCEPTED)
    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][/autoit] [autoit]

    while 1
    sleep(20)
    wend

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

    func _Exit()
    Exit
    endfunc

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

    func _Speichern_und_Zurueck()
    msgbox(0,0,"Daten speichern....")
    exit
    endfunc

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

    func _Mannschaften()
    GUISetState(@SW_SHOW, $gui2) ;Die 2. Gui wird gezeigt.
    GUISetState(@SW_DISABLE, $gui1)
    GUISetState(@SW_RESTORE, $gui2)
    _viewlisterstellen()
    _sqlladen()
    endfunc

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

    Func _Drop()
    Local $aIndex =_GUICtrlListView_GetSelectedIndices(@GUI_DRAGID, 1)
    For $i = 1 to $aIndex[0]
    GUICtrlCreateListViewItem(_GUICtrlListView_GetItemText(@GUI_DRAGID,$aIndex[$i]),@GUI_DROPID)
    Next
    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/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 _viewlisterstellen()
    _GUICtrlListView_InsertColumn($2_listview, 0, "Land", 180)
    _GUICtrlListView_InsertColumn($2_listview, 1, "ID", 100)
    _GUICtrlListView_HideColumn($2_listview, 1)
    _GUICtrlListView_EditLabel($2_listview, 0)
    EndFunc ;==>_viewlisterstellen

    [/autoit] [autoit][/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 _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 PRIMARY KEY," & _
    "[team] VARCHAR[50] NULL," & _
    "[gruppe] VARCHAR[3] NULL)"
    If _SQLite_Exec($hSQL, $strCREATE) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler CREATE')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Afghanistan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Albanien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Algerien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Amerikanisch-Samoa', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Amerikanische Jungferninseln', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Andorra', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Angola', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Anguilla', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Antigua und Barbuda', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Argentinien', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Armenien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Aruba', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Aserbaidschan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Australien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Bahamas', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Bahrain', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Bangladesch', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Barbados', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Belarus', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Belgien', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Belize', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Benin', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Bermuda', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Bhutan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Bolivien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Bosnien-Herzegowina', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Botsuana', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Brasilien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Britische Jungferninseln', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Bulgarien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Burkina Faso', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Burundi', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Cayman-Inseln', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Chile', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'China', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'China VR', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Cook-Inseln', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Costa Rica', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Deutschland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Dominica', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Dominikanische Republik', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Dschibuti', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Dänemark', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Ecuador', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'EJR Mazedonien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'El Salvador', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Elfenbeinküste', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'England', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Estland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Fidschi', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Finnland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Frankreich', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Faröer', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Gabun', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Gambia', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Georgien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Ghana', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Grenada', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Griechenland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Guam', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Guatemala', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Guayana', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Guinea', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Guinea-Bissau', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Haiti', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Honduras', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'HongKong', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Indien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Indonesien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Irak', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Iran', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Island', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Israel', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Italien', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Jamaika', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Japan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Jemen', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Jordanien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kambodscha', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kamerun', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kanada', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kap Verde', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kasachstan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Katar', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kenia', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kirgisistan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kolumbien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Komoren', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kongo', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kongo DR', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Korea DVR', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Korea Republik', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kroatien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kuba', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Kuwait', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Lesotho', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Lettland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Libanon', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Liberia', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Libyen', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Liechtenstein', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Litauen', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Luxemburg', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Macao', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Madagaskar', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Malawi', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Malaysia', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Malediven', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Mali', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Malta', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Marokko', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Mauretanien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Mauritius', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Mexiko', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Moldawien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Mongolei', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Montenegro', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Montserrat', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Mosambik', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Myanmar', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Namibia', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Nepal', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Neukaledonien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Neuseeland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Nicaragua', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Niederlande', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Niderländische Antillen', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Niger', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Nigeria', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Nordirland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Nordkorea', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Norwegen', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Oman', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Osttimor', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Pakistan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Palästina', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Panama', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Paraguay', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Peru', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Polen', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Portugal', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Puerto Rico', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Republik Irland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Ruanda', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Rumänien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Russland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Salomon-Inseln', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Sambia', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Samoa', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'San Marino', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Saudiarabien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Schottland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Schweden', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Schweiz', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Senegal', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Serbien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Seychellen', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Sierra Leone', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Simbabwe', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Singapur', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Slowakei', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Slowenien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Somalia', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Spanien', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Sri Lanka', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'St. Kitts an Nevis', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'St. Lucia', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'St. Vincent und die Grenadinen', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Sudan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Suriname', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Swasiland', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Südafrika', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Syrien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Tadschikistan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Tahiti', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Taiwan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Tansania', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Thailand', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Togo', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Tonga', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Trinidad und Tobago', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Tschad', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Tschechische Republik', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Tunesien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Turkmenistan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Turks und Caicos', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Tuvalu', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Türkei', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Uganda', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Ukraine', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Ungarn', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Uruguay', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'USA', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    $strINSERT = _
    "INSERT INTO Mannschaften VALUES (NULL, 'Usbekistan', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Vanuatu', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Venezuela', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Verein. Arab. Emirate', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Vereinigte Arabische Emirate', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Vietnam', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Wales', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Zypern', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Ägypten', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Äquatorial-Guinea', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Äthiopien', '');" & _
    "INSERT INTO Mannschaften VALUES (NULL, 'Österreich', '');"

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

    If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    _sqlBeenden('Fehler INSERT')
    EndIf

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

    ;~ $strINSERT = _
    ;~ "INSERT INTO Mannschaften VALUES ("0", '" & $temp & "', '');"
    ;~ If _SQLite_Exec($hSQL, $strINSERT) <> $SQLITE_OK Then ; wenn Fehler
    ;~ _sqlBeenden('Fehler INSERT')
    ;~ EndIf
    ;~ MsgBox(4096, "Ausgabe: ", $strINSERT)

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

    EndFunc ;==>_sqltableerstellen

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

    Func _sqleintragen()
    EndFunc ;==>_sqleintragen

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

    Func _sqlspeichern()
    _GUICtrlListBox_ResetContent($2_listview)
    EndFunc ;==>_sqlspeichern

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

    Func _sqlladen()
    $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM Mannschaften;", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
    For $x = 1 To $iRows ;damit du nicht an starre Werte gebunden bist Anzahl der Zeilen anstatt fixen Wert
    ;~ _GUICtrlListView_AddArray($2_listview, $aResult)
    _GUICtrlListView_AddItem($2_listview, $aResult[$x][1])
    _GUICtrlListView_AddSubItem($2_listview, $x-1, $aResult[$x][0], 1) ;hier muss x-1 verwendet werden da die ListviewItems bei 0 beginnen (afaik)
    Next
    EndIf
    EndFunc ;==>_sqlladen

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

    #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

    [/autoit]

  • Leerzeilen in einer *.txt Datei löschen

    Hi,
    du kopierst die Liste doch mit ctrl+c in die Zwischenablage?
    Dann kannst du sie auch direkt von dort weiterbearbeiten.

    Spoiler anzeigen
    [autoit]

    local $string
    $clip=clipget() ;holt string aus der Zwischenablage
    $array=stringsplit($clip,@crlf,2)
    for $i=0 to ubound($array)-1
    $line=$array[$i]
    if stringisspace($array[$i])<>1 and $array[$i]<>"" then $string&=$array[$i]&@crlf ;zeile besteht nicht aus leerstring, leerzeichen oder tab oder cr oder lf....
    next
    msgbox(0,0,$string)

    [/autoit]


    ERST Text in die zwischenablage, DANN Script laufen lassen^^

  • Netzlaufwerke & Netzwerkdrucker anderer User ausfindig machen

    Hi,

    Zitat

    warum geht eigentlich immer die Formatierung den Bach herunter, sobald ich die Vorschau wähle oder abspeichere...


    versuche mal den Beitrag statt im Editor, im Quellcode zu posten. Bei mir gabs im Editormodus auch diesen seltsamen "Verluste" der Formatierung.

    *Edit
    ich finde meine Netzwerkdrucker u.a. unter HKEY_CURRENT_USER/Printers/DevModesPerUser oder DevModes2 , ausserdem sollten die verschiedenen User nicht das Problem sein, da idr alle auf den Druckerpool zugriff haben.

  • Kameraüberwachung möglich?

    Hallo,
    das Problem bei der ganzen Geschichte ist, daß die Sensoren der Kameras ein eingebautes "Rauschen" haben. Dieses Verfahren wird mittlerweile zur Erzeugung von Zufallszahlen verwendet, kein Scherz!
    Somit bekommst du sicherlich nicht 2 komplett gleiche Bilder, aber das hast du ja schon gemerkt.

    [autoit]

    pixelchecksum()

    [/autoit]

    ist leider auch nicht die Lösung, die Steps hochzusetzen verändert das Problem nicht.
    Ggf. würde es funktionieren, das Bild in Sektoren zu unterteilen und für jeden Sektor eine "geglättete" Prüfsumme zu erstellen.
    Bsp.: Scanne einen 50x50 Pixelblock (ggf auch nur jedes 4. Pixel), schreibe die Farben in eine Liste und Sortiere diese Liste aufsteigend nach den Grundfarben RGB. Man erhält dadurch "vorherrschende" Farben, mal angenommen X-mal Rot, Y-mal Grün, Z-mal Blau. Angenommen das Bild ist ein überwiegend grüner Fußballrasen.
    Wenn sich im nächsten Bild (ich phantasiere jetzt^^ ) ein roter Ball in diesen Bildausschnitt bewegt, dann werden die X-Werte (Rot) wesentlich zunehmen, und die y-Werte (Grün) wesentlich abnehmen.
    Keine Ahnung, ob Pixelgetcolor() und Autoit allgemein schnell genug für deine Zwecke wäre, aber ich habe vor kurzem einen sehr interessanten Ansatz gefunden (engl Forum) um Assemblercode in Autoit einzubinden. Dort war auch ein Beispiel, um GUI´s extrem schnell mit zufälligen Pixeln zu füllen. Finde aber leider den Link nicht, Progandy war aber m.E. involviert.....
    ciao
    Andy

  • Leerzeilen in einer *.txt Datei löschen

    [autoit]

    local $string
    $in=fileopen("in.txt",0)
    while 1
    $line=filereadline($in) ;filereadline"klaut" die @crlf am ende der zeile
    If @error = -1 Then ExitLoop
    if stringisspace($line)<>1 and $line<>"" then $string&=$line&@crlf ;zeile besteht nicht aus leerstring, leerzeichen oder tab oder cr oder lf....
    wend
    filedelete("out.txt")
    $out=filewrite("out.txt",$string)
    exit

    [/autoit]

    entfernt alle "optisch leeren Zeilen", d.h. Leerzeichen,TAB,LF, CRLF und Kombinationen davon innerhalb einer Zeile

    Alina

    Spoiler anzeigen
    [autoit]

    local $string
    $in=fileopen("in.txt",0)
    $crlf_flag=0
    while 1
    $line=filereadline($in) ;"klaut" die @crlf am ende der zeile
    If @error = -1 Then ExitLoop
    if stringisspace($line)<>1 and $line<>"" then
    if $crlf_flag=0 then
    $string&=$line&@crlf ;zeile besteht nicht aus leerstringleerzeichen oder tab oder cr oder lf....
    Else
    $string&=@crlf&$line&@crlf
    $crlf_flag=0
    endif
    Else
    $crlf_flag=1
    endif
    wend
    filedelete("out.txt")
    $out=filewrite("out.txt",$string)
    exit

    [/autoit]

    entfernt die "optisch leeren Zeilen" und ersetzt sie mit einem @CRLF.
    Ich hatte dich so verstanden, daß mehrere Leerzeilen auf eine einzige Leerzeile (@CRLF) reduziert werden sollten

  • Autoit oft als Virus erkannt

    Hallo,
    das liegt daran, dass einige Viren mit AutoIt programmiert wurden. Da Autoit aber ein Interpreter ist, wird das Script zusammen mit dem Interpreter in die EXE gepackt und beim Starten dieser Datei wird das Script dann nur "abgearbeitet". D.h. der größte Teil der EXE-Datei ist bei allen AutoIt-Programmen identisch.
    Die "Antivirenspezialisten" sind einfach hingegangen und haben die Virus- EXE-Dateien untersucht und Gemeinsamkeiten gefunden, logisch, 90% sind ja wie gesagt identisch (der Interpreter)^^
    Also war es sehr simpel, denn wenn in allen Viren dieser Code enthalten ist, dann ist ja automatisch jedes Programm mit diesem Code ein Virus!
    Und da die Virensignaturen unter den Antivirenherstellern fleissig verteilt und verkauft werden, haben einige Antivirenprogramme AutoIt in der Liste.....
    Einige haben es auch wieder herausgenommen, aber wer für die Virenerkennungsliste viel Geld bezahlt hat, der nimmt ungern einige Teile heraus.
    Und deshalb "erkennen" einige Antivirenprogramme AutoIt als Virus und andere nicht.

    Generell ist aber die Virus-Gefahr bei fremden EXE-Dateien gegeben, bei AutoIt ist es aber glücklicherweise in den allermeisten Fällen möglich, den Quellcode selbst zu kompilieren.

    ciao
    Andy

  • .au3 mit autoit öffnen problem

    Hi,
    Syntax beachten.....
    ShellExecute ( "filename" [, "parameters" [, "workingdir" [, "verb" [, showflag]]]] )

    [autoit]

    ShellExecute (@ProgramFilesDir & "\AutoIt3\autoit3.exe","C:\tools\auto.au3", "C:\tools\","open",@SW_MINIMIZE)

    [/autoit]

  • Benchmarks

    Zitat

    Ausserdem ist auch noch abhängig von den Prozessen die sonst noch auf dem Rechner laufen.

    Ja, und diesen Faktor kann man selten aus einem "Benchmark" draussen halten.
    Also ich "benchmarke" am liebsten auf einer Maschine, auf der gleichzeitig viele Platten- und Netzwerkzugriffe und höchste Prozessorlast stattfinden. Schlimmer kanns nicht kommen, wenn das Script in dieser Umgebung problemlos durchläuft, dann ist sehr unwahrscheinlich, daß bei einem unbelasteten Rechner das Script Probleme macht.
    Daher habe ich auch noch eine sehr alte Kiste hier stehen, um speziell Install-Scripte zu testen.

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

    Hallo,
    dein $volume ist nur der "name" des Sliders, den eigentlichen Wert bestimmst du mit GuictrlSetdata

    [autoit]

    $lautstaerke=50 ;standard
    if $Taste="U" then $lautstaerke=$lautstaerke+10 ;lautstaerke erhöhen
    GUICtrlSetData($Volume, $lautstaerke) ;slider auf neuen Wert setzen

    [/autoit]


    also brauchst du in deine Funktion _VolumeUp nur die Erhöhung zu implementieren

    [autoit]

    Func _VolumeUp()
    If $lautstaerke<100 then $lautstaerke+=10
    GUICtrlSetData($Volume, $lautstaerke)
    EndFunc

    [/autoit]

  • _GDIPlus_GraphicsClear Problem

    Hallo,

    Zitat

    _GDIPlus_GraphicsClear allerdings füllt die nur die ganze Graphic mit einer Farbe und löscht nicht einfach das gemalte


    Das ist ja klasse, dann hast du also nach dem Aufruf von _GDIPlus_GraphicsClear 2 Grafiken? :rolleyes:
    Natürlich wird die Grafik gelöscht, genau wie du auf einer Tafel die Kreide mit einem nassen Schwamm "übermalen" musst, damit sie weg ist.
    Spass beiseite, du "malst" doch auf einen Hintergrund, idr speichert man den Hintergrund und kopiert zum "löschen" den Hintergrund an die Stelle des Bildes.
    ciao
    Andy

  • DLL´s

    Zitat

    einen link zu Dlls die man in skripte einbringen kann bei den meisten fehlen mir die beschreibundgen

    bin grade diverse Platten am scannen, ich meine ich hätte mal ein Programm gehabt, daß u.a. die Übergabeparameter an die DLL ausgeworfen hat. Da gab es aber mit AutoIt oder bei den DLL´s restriktionen, also funktionieren wird es nicht mit jeder DLL.

  • DLL´s

    Hallo,
    ich vermute, daß er "richtige" DLL´s meint, die ja auch mit AutoIt angesprochen werden können.
    Ggf sollte mal jemand :rolleyes: ein kleines Tutorial schreiben. DLL´s gibts ja doch einige und gerade bei zeitkritischen Programmteilen könnte man so einfach eine "schnelle" C-,Basic,Java oder was auch immer Funktion (AutoItkompatibel) nutzen.
    ciao
    Andy