Beiträge von Skar

  • Benötige Hilfe Einweißung in Treeview

    Vielen Dank für die Tips.

    @ Schnitzel
    Hab es umgesetzt und nur auf die Treeview beschränkt.

    [autoit]

    Local $buttoncontext = GUICtrlCreateContextMenu($TreeView1)

    [/autoit]

    @ Kanashius
    Ich bin Froh das ich das mit einer InI mach. Sehr vorteilhaft. Er schreibt gleich alles so auf ichs baue.
    Mein Großes Problem wurde wirklich behoben mit
    GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
    und die While inhalte sind nun in einer Funktion.
    Zum Thema Drag and Drop hab ich auch was gefunden, konnte aber es noch nicht umsetzen. Komme später dazu. So ich hab noch ein paar Fehler drinnen, die ich jetzt erstmal ausmerzen muss.

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <TreeViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GuiTreeView.au3>
    #include <Array.au3>

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

    If FileExists(@ScriptDir &"\Folder Icon.JPG") Then
    FileInstall(@ScriptDir &"\Folder Icon.JPG", @ScriptDir &"\Folder Icon.JPG")
    EndIf

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

    If FileExists(@ScriptDir &"\Session Icon.JPG") Then
    FileInstall(@ScriptDir &"\Session Icon.JPG", @ScriptDir &"\Session Icon.JPG")
    EndIf
    Opt("GUIDataSeparatorChar", "")

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

    #Region ### START Koda GUI section ### Form=c:\hans busch\daimler\programme (anwendungen)\portableapps\autoit3\app\autoit\skripte\pergon cfg\koda_1.7.3.0\forms\mobaxtermcreateinigui.kxf
    $Form1_1 = GUICreate("MobaXterm Create INI", 1265, 879, 266, 124)
    $Menu1 = GUICtrlCreateMenu("Start")
    $MenuItem1 = GUICtrlCreateMenuItem("Beenden", $Menu1)
    $TreeView1 = GUICtrlCreateTreeView(8, 8, 265, 825)
    $TreeView1_0 = GUICtrlCreateTreeViewItem("Sessions", $TreeView1)
    Local $buttoncontext = GUICtrlCreateContextMenu($TreeView1)
    ;$buttoncontext = GUICtrlCreateContextMenu($TreeView1_0)
    $buttonitemIP = GUICtrlCreateMenuitem("Import Vorlagen aus Textdatei", $buttoncontext)
    $buttonitemGA = GUICtrlCreateMenuitem("Gruppe Anlegen", $buttoncontext)
    $buttonitemIA = GUICtrlCreateMenuitem("Item Anlegen", $buttoncontext)
    $Tab1 = GUICtrlCreateTab(288, 8, 969, 825)
    GUICtrlSetFont(-1, 12, 400, 0, "Modern No. 20")
    If FileExists(@ScriptDir &"\Folder Icon.JPG") Then
    $TabSheet1 = GUICtrlCreateTabItem("Folder Icons List for chose Icon Number")
    $Pic3 = GUICtrlCreatePic(@ScriptDir &"\Folder Icon.JPG", 304, 51, 692, 268)
    EndIf
    If FileExists(@ScriptDir &"\Session Icon.JPG") Then
    $TabSheet2 = GUICtrlCreateTabItem("Session Icons List for chose Icon Number")
    $Pic1 = GUICtrlCreatePic(@ScriptDir &"\Session Icon.JPG", 307, 52, 932, 556)
    EndIf
    GUICtrlCreateTabItem("")
    _GUICtrlTreeView_Expand($TreeView1)
    GUISetState(@SW_SHOW)

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

    $Form22 = GUICreate("Session Select", 490, 260, 313, 208)
    $Label21 = GUICtrlCreateLabel("Wähle die Session aus:", 24, 24, 152, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Modern No. 20")
    $Combo21 = GUICtrlCreateCombo("", 24, 48, 441, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Label22 = GUICtrlCreateLabel("oder", 24, 72, 31, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Modern No. 20")
    $Input21 = GUICtrlCreateInput("", 24, 96, 441, 21)
    $Button21 = GUICtrlCreateButton("OK", 328, 200, 139, 25)
    ;~ Sessions Typs:
    ;~ Bash [Local]
    ;~ Host (User) [RDP]
    ;~ Hostname (Username) [SFTP]
    ;~ Hostname [VNC]
    ;~ Hostname aktiv (Username) [FTP]
    ;~ Hostname passiv (Username) [FTP]
    ;~ Ordner [Url]
    ;~ ping [Local] (1)
    ;~ ssh_1 [SSH]
    ;~ SSO Konfig.docx [Url]
    ;~ telnet_1 (Username) [Telnet]
    ;~ http://www.google.de [Url]
    $Combo22 = GUICtrlCreateCombo("", 24, 136, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    ; Set max number of combo elements
    Global $iMaxList = 14
    ; Initialise combo list
    Global $iComboCount = 13
    Global $aComboArray[$iMaxList] = ["Session Typ","Bash","CMD","RDP","SFDP","VNC","FTP aktiv","FDP Passiv","URL","SSH","Telnet","Dokument","Ordner_Explorer"]
    ; Clear existing combo data
    GUICtrlSetData($Combo22, "")
    ; Loop through list inserting elements into combo
    For $i = 0 To $iComboCount - 1
    GUICtrlSetData($Combo22, $aComboArray[$i])
    Next
    ; Set the top element into the combo edit box
    ;_GUICtrlComboBox_SetEditText($Combo22, $aComboArray[0])
    ;GUICtrlSetData(-1, "Session Typ|Bash|CMD|RDP|SFDP|VNC|FTP aktiv|FDP Passiv|URL|SSH|Telnet|Dokument|Ordner_Explorer")
    $Input22 = GUICtrlCreateInput("", 24, 192, 121, 21)
    $Label23 = GUICtrlCreateLabel("Login (Optional):", 24, 168, 120, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Modern No. 20")
    ;~ [Display]
    ;~ SidebarRight=0
    ;~ VisibleTabNum=1
    ;~ VisibleTabClose=1
    ;~ MenuAndButtons=2
    ;~ BtnType2=2
    Iniwrite(@Scriptdir & "\MobaXterm.ini", "Display", "SidebarRight", 0 )
    Iniwrite(@Scriptdir & "\MobaXterm.ini", "Display", "VisibleTabNum", 1 )
    Iniwrite(@Scriptdir & "\MobaXterm.ini", "Display", "VisibleTabClose", 1 )
    Iniwrite(@Scriptdir & "\MobaXterm.ini", "Display", "MenuAndButtons", 2 )
    Iniwrite(@Scriptdir & "\MobaXterm.ini", "Display", "BtnType2", 2 )

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

    ;GUISetOnEvent($GUI_EVENT_DROPPED,"_Event_DragAndDrop",$FTPGui)

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

    #EndRegion ### END Koda GUI section ###
    $counterGruppe = 0
    $counterItem = 0

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

    GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")

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

    While 1
    WEnd

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

    Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16)
    Local $nID = BitAND($wParam, 0x0000FFFF)
    Local $hCtrl = $lParam

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

    If $nID <> 2 And $nNotifyCode = 0 Then ; Prüft auf IDCANCEL - 2
    ; Ownerdrawn Buttons senden keine Nachricht wenn ENTER gedrückt wird
    ; Also, IDOK - 1 tritt auf, prüfe nun das Control mit dem aktuellen Fokus
    If $nID = 1 Then
    Local $hFocus = DllCall("user32.dll", "hwnd", "GetFocus")
    Local $nCtrlID = DllCall("user32.dll", "int", "GetDlgCtrlID", "hwnd", $hFocus[0])
    PostButtonClick($hWnd, $nCtrlID[0])
    EndIf
    Switch $nID
    Case $MenuItem1 ;Close
    Exit

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

    Case $TreeView1

    Case $buttonitemGA
    $value = InputBox("Gruppe Anlegen", "Bitte geben Sie den Namen der Gruppe an.", "", " M20")
    $value2 = InputBox("Bildnummer", "Bitte geben Sie Icon nummer an. Oder einfach OK", "52", " M2")
    _GUICtrlTreeView_BeginUpdate($TreeView1)
    $counterGruppe = $counterGruppe + 1
    ;$TreeView1_GA = _GUICtrlTreeView_AddChild($TreeView1, 0, StringFormat($value, $counterGruppe))
    $TreeView1_GA = GUICtrlCreateTreeViewItem($value, GUICtrlRead($TreeView1))

    _GUICtrlTreeView_EndUpdate($TreeView1)
    ;Prozedur um INI zu schreiben
    ;...
    ;~ Ordnerstrucktur:
    ;~ [Bookmarks_1]
    ;~ SubRep=ME
    ;~ ImgNum=41
    ;MsgBox(4160, "Information", _GUICtrlTreeView_GetTree($TreeView1) & "" & $value )
    ;SubRep=ME\Prismakonzentrator\TCP
    Iniwrite(@Scriptdir & "\MobaXterm.ini", "Bookmarks_"&$counterGruppe, "SubRep", _GUICtrlTreeView_GetTree($TreeView1) & "" & $value )
    Iniwrite(@Scriptdir & "\MobaXterm.ini", "Bookmarks_"&$counterGruppe, "ImgNum", $value2 )
    ConsoleWrite ("Fertig"& @CRLF &".................................."& @CRLF)

    Case $buttonitemIA
    GUISetState(@SW_SHOW, $Form22)

    Case $Button21

    $combotext = GUICtrlRead($Combo21)
    $inputtext = GUICtrlRead($Input21)
    $combotext2 = GUICtrlRead($Combo22)
    $inputtext2 = GUICtrlRead($Input22)
    $value22 = InputBox("Bildnummer", "Bitte geben Sie Icon nummer an. Oder einfach OK", "103", " M3")
    ;~ [Verbindungsname] ([Loginname]) [Protokoll]=
    _GUICtrlTreeView_BeginUpdate($TreeView1)
    $counterItem = $counterItem + 1
    ;$TreeView1_GA = _GUICtrlTreeView_AddChild($TreeView1, 0, StringFormat($combotext & $inputtext & " ("&$inputtext2&")"& " ["&$combotext2&"]", $counterGruppe))
    if $inputtext2 = "" Then
    $TreeView1_IA = GUICtrlCreateTreeViewItem($combotext & $inputtext & " ["&$combotext2&"]", GUICtrlRead($TreeView1))
    $merkeinhalt = $combotext & $inputtext & " ["&$combotext2&"]"
    else
    $TreeView1_IA = GUICtrlCreateTreeViewItem($combotext & $inputtext & " ("&$inputtext2&")"& " ["&$combotext2&"]", GUICtrlRead($TreeView1))
    $merkeinhalt = $combotext & $inputtext & " ("&$inputtext2&")"& " ["&$combotext2&"]"
    EndIf
    _GUICtrlTreeView_EndUpdate($TreeView1)


    ;Prozedur um INI zu schreiben
    ;...
    ;~ Sessions Typs:
    ;~ Bash [Local]= #112#10%0%C:\%Commandline1%Commandline2%Commandline3%__DIEZE__%! Basch%@%$%__POURCENT__%&%?%<%>%__PIPE__%*%+%~%?MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "Bash" Then
    ;$counterGruppe Counter in Array + Prüfung?
    Iniwrite(@Scriptdir & "\MobaXterm.ini", "Bookmarks_"&$counterGruppe, $merkeinhalt, "#"&$value22&"#10%0%"&$combotext & $inputtext&"%#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0" )
    EndIf
    ;~ Host (User) [RDP]= #91#4%Host%3389%User%0%-1%-1%-1%-1%0%0%-1%%%22%%-1%0#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "RDP" Then

    EndIf
    ;~ Hostname (Username) [SFTP]= #140#7%Hostname%22%Username%-1%-1%#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "SFTP" Then

    EndIf
    ;~ Hostname [VNC]= #128#5%Hostname%5900%-1%0%%22%#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "VNC" Then

    EndIf
    ;~ Hostname aktiv (Username) [FTP]= #130#6%Hostname%21%Username%0%#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "FTP aktiv" Then

    EndIf
    ;~ Hostname passiv (Username) [FTP]= #130#6%Hostname%21%Username%-1%#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "FDP Passiv" Then

    EndIf
    ;~ Ordner [Url]= #84#9%C:\Hans Busch#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "Ordner->Explorer" Then

    EndIf
    ;~ ping [Local] (1)= #112#10%1%C:\%ping -a avsh#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "CMD" Then

    EndIf
    ;~ ssh_1 [SSH]= #109#0%ssh_1%22%login%%-1%-1%%%22%%0%0#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "SSH" Then

    EndIf
    ;~ SSO Konfig.docx [Url]= #84#9%\\sstr120f.edc.corpintra.net\BUSCHH$\data\My Documents\SSO Konfig.docx#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "Dokument" Then

    EndIf
    ;~ telnet_1 (Username) [Telnet]= #98#1%telnet_1%23%Username%Extra options#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "Telnet" Then

    EndIf
    ;~ http://www.google.de [Url]= #84#9%http://www.google.de#MobaFont%10%0%0%0%0%236,236,236%0,0,0%180,180,192%0%-1%0%%xterm#0
    If $combotext2 = "URL" Then

    EndIf

    ConsoleWrite ("Fertig"& @CRLF &".................................."& @CRLF)
    GUISetState(@SW_HIDE, $Form22)


    Case $buttonitemIP ;, $MenuItem1
    $error = 0
    $filetoreadselect = FileOpenDialog("Computerliste öffnen", @scriptdir & "", "Textdatei (*.txt)|All (*.*)")
    $filetoread = FileOpen($filetoreadselect, 0)
    ConsoleWrite ( " Open List....$filetoread"& $filetoread&@CRLF)
    If $filetoread = -1 Then
    MsgBox($MB_SYSTEMMODAL, "", "Unable to open file.")
    $error = 1
    EndIf

    If $error = 0 Then
    $lineComplete = ""
    ; Read in lines of text until the EOF is reached
    While 1
    Local $line = FileReadLine($filetoread)
    If @error = -1 Then ExitLoop
    $lineComplete = $lineComplete & "|" & $line
    Wend
    EndIf
    FileClose($filetoread)
    GUICtrlSetData($Combo21, $lineComplete )
    ConsoleWrite ("Fertig"& @CRLF &".................................."& @CRLF)
    EndSwitch

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

    Return 0 ; Wird nur zurückgegeben, wenn Button gedrückt wurde
    EndIf
    ; Führt die Standard 'Autoit3 internal message commands' aus.
    ; Man kann die Zeile auch komplett weglassen.
    ; !!! Jedoch nur 'Return' (ohne irgendeinen Wert) führt in Zukunft nicht
    ; Die Standard 'Autoit3 internal message commands' aus !!!
    Return $GUI_RUNDEFMSG
    EndFunc ;==>MY_WM_COMMAND

    [/autoit]

  • Benötige Hilfe Einweißung in Treeview

    Achso hier ist das Skript das ich schon habe.
    Hier ist die GUI mit Treeview + Kontextmenüe (allerdings grade nur für den ersten eintrag. der Import für die Vorlagen geht auch.

    Ein Probelem passiert, wenn ich ein neues Item hinzufüge, es kommt zu einer ungewollten wiederholung. Normal sollte er einmal abfragen. Was hab cih da für einen fehler? Wie bekomme ich den behoben?
    Massenimport kommt später drann.

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <TreeViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>

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

    #include<GuiTreeView.au3>
    #include <GuiListView.au3>

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

    #Region ### START Koda GUI section ###
    $Form1_1 = GUICreate("MobaXterm Create INI", 1265, 879, 266, 124)
    ;$MenuItem1 = GUICtrlCreateMenu("&Import Vorlagen")

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

    $TreeView1 = GUICtrlCreateTreeView(8, 8, 265, 825)

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

    $TreeView1_0 = GUICtrlCreateTreeViewItem("Sessions", $TreeView1)
    $buttoncontext = GUICtrlCreateContextMenu($TreeView1_0)
    $buttonitemGA = GUICtrlCreateMenuitem("Gruppe Anlegen", $buttoncontext)
    $buttonitemIA = GUICtrlCreateMenuitem("Item Anlegen", $buttoncontext)
    $buttonitemIP = GUICtrlCreateMenuitem("Import Vorlagen aus Textdatei", $buttoncontext)

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

    $Tab1 = GUICtrlCreateTab(288, 8, 969, 825)
    GUICtrlSetFont(-1, 12, 400, 0, "Modern No. 20")
    $TabSheet1 = GUICtrlCreateTabItem("Folder Icons List for chose Icon Number")
    $Pic3 = GUICtrlCreatePic(".\My Documents\My Pictures\Folder Icon.JPG", 304, 51, 692, 268)
    $TabSheet2 = GUICtrlCreateTabItem("Session Icons List for chose Icon Number")
    $Pic1 = GUICtrlCreatePic(".\My Documents\My Pictures\Session Icon.JPG", 307, 52, 932, 556)
    GUICtrlCreateTabItem("")
    _GUICtrlTreeView_Expand($TreeView1)
    GUISetState(@SW_SHOW)

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

    $Form22 = GUICreate("Session Select", 490, 164, 313, 208)
    $Label21 = GUICtrlCreateLabel("Wähle die Session aus:", 24, 24, 152, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Modern No. 20")
    $Combo21 = GUICtrlCreateCombo("Session Vorlagen", 24, 48, 441, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Label22 = GUICtrlCreateLabel("oder", 24, 72, 31, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Modern No. 20")
    $Input21 = GUICtrlCreateInput("", 24, 96, 441, 21)
    $Button21 = GUICtrlCreateButton("OK", 160, 128, 139, 25)

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

    #EndRegion ### END Koda GUI section ###
    $counterGruppe = 0
    $counterItem = 0
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $TreeView1

    Case $buttonitemGA
    $value = InputBox("Gruppe Anlegen", "Bitte geben Sie den Namen der Gruppe an.", "", " M20")
    _GUICtrlTreeView_BeginUpdate($TreeView1)
    $counterGruppe = $counterGruppe + 1
    $TreeView1_GA = _GUICtrlTreeView_AddChild($TreeView1, 0, StringFormat($value, $counterGruppe))
    ;$TreeView1_0 = GUICtrlCreateTreeViewItem("Sessions", $TreeView1)
    $buttoncontext = GUICtrlCreateContextMenu($TreeView1_0)
    $buttonitemGA = GUICtrlCreateMenuitem("Gruppe Anlegen", $buttoncontext)
    $buttonitemIA = GUICtrlCreateMenuitem("Item Anlegen", $buttoncontext)
    _GUICtrlTreeView_EndUpdate($TreeView1)
    ConsoleWrite ("Fertig"& @CRLF &".................................."& @CRLF)

    Case $buttonitemIA
    GUISetState(@SW_SHOW, $Form22)

    Case $Button21

    $combotext = GUICtrlRead($Combo21)
    $inputtext = GUICtrlRead($Input21)
    _GUICtrlTreeView_BeginUpdate($TreeView1)
    $counterItem = $counterItem + 1
    $TreeView1_GA = _GUICtrlTreeView_AddChild($TreeView1, 0, StringFormat($combotext & $inputtext, $counterGruppe))
    ;$TreeView1_0 = GUICtrlCreateTreeViewItem("Sessions", $TreeView1)
    $buttoncontext = GUICtrlCreateContextMenu($TreeView1_0)
    $buttonitemGA = GUICtrlCreateMenuitem("Gruppe Anlegen", $buttoncontext)
    $buttonitemIA = GUICtrlCreateMenuitem("Item Anlegen", $buttoncontext)
    _GUICtrlTreeView_EndUpdate($TreeView1)
    ConsoleWrite ("Fertig"& @CRLF &".................................."& @CRLF)
    GUISetState(@SW_HIDE, $Form22)


    Case $buttonitemIP ;, $MenuItem1
    $error = 0
    $filetoreadselect = FileOpenDialog("Computerliste öffnen", @scriptdir & "", "Textdatei (*.txt)|All (*.*)")
    $filetoread = FileOpen($filetoreadselect, 0)
    ConsoleWrite ( " Open List....$filetoread"& $filetoread&@CRLF)
    If $filetoread = -1 Then
    MsgBox($MB_SYSTEMMODAL, "", "Unable to open file.")
    $error = 1
    EndIf

    If $error = 0 Then
    $lineComplete = ""
    ; Read in lines of text until the EOF is reached
    While 1
    Local $line = FileReadLine($filetoread)
    If @error = -1 Then ExitLoop
    $lineComplete = $lineComplete & "|" & $line
    Wend
    EndIf
    FileClose($filetoread)
    GUICtrlSetData($Combo21, $lineComplete )
    ConsoleWrite ("Fertig"& @CRLF &".................................."& @CRLF)

    EndSwitch
    WEnd

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


    Noch eine Frage wie ist move von Items möglich per drag and drop?

  • Benötige Hilfe Einweißung in Treeview

    Hi,

    Ich möchte ein Programm schreiben in dem am ende eine INI datei mit den einstellungen ausgeworfen wird. Der benutzer bekommt eine GUI in der nur eine Treeview und 2 Bilder drinne sind. Mehr nicht. Der Benutzer soll nun den Treeview gestalten, er legt sozusagen Folder an und in die Folder dann, über Kontextmenüe -> Dropdown Items.
    Die Items kommen aus einer Vorlage. zb

    Sessions.txt Inhalt (Jede Zeile ist ein Item):

    https://autoit.de/www.google.de
    c:/Documentationen\
    Hostname1
    Hostname2
    FTP-Session1
    "Mein Gott was weiß ich"


    So. Das zum Ablauf des Programms.
    Aus der Suche über Google und AutoIT suche kommt nicht grade viel bei raus.

    Treeview mit Checkbox nett aber hilft mir nicht.

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include<GUIConstantsEx.au3>
    #include<GuiTreeView.au3>
    #include<TreeViewConstants.au3>
    #include<WindowsConstants.au3>

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

    Global $hGui = GUICreate('TreeView-(Un)Checked-Example', 400, 600)
    Global $hTreeView = GUICtrlCreateTreeView(5, 5, 390, 590, BitOR($GUI_SS_DEFAULT_TREEVIEW, $TVS_CHECKBOXES), $WS_EX_CLIENTEDGE)
    Global $hRoot = GUICtrlCreateTreeViewItem('Root', $hTreeView)
    _GUICtrlTreeView_SetBold($hTreeView, $hRoot)
    _GUICtrlTreeView_BeginUpdate($hTreeView)
    For $x = 1 To 3
    $hItem1 = _GUICtrlTreeView_AddChild($hTreeView, GUICtrlGetHandle($hRoot), StringFormat('[d] Child 1st Gen.', $x))
    For $y = 1 To 3
    $hItem2 = _GUICtrlTreeView_AddChild($hTreeView, $hItem1, StringFormat('[d] Child 2nd Gen.', $y))
    For $z = 1 To 2
    $hItem3 = _GUICtrlTreeView_AddChild($hTreeView, $hItem2, StringFormat('[d] Child 3rd Gen.', $z))
    Next
    Next
    Next
    _GUICtrlTreeView_EndUpdate($hTreeView)
    _GUICtrlTreeView_Expand($hTreeView)
    GUISetState()

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

    While True
    Switch GUIGetMsg()
    Case $GUI_EVENT_PRIMARYDOWN ; (*)
    $aInfo = GUIGetCursorInfo($hGui) ; (*)
    If $aInfo[4] = $hTreeView Then ; (*)
    $aAdjust = ControlGetPos($hGui, '', $hTreeView) ; (*)
    If BitAND(_GUICtrlTreeView_HitTest($hTreeView, $aInfo[0]-$aAdjust[0]-2, $aInfo[1]-$aAdjust[1]-2), 64) Then ; (*)
    $hSelect = _GUICtrlTreeView_GetSelection($hTreeView)
    $checked = _GUICtrlTreeView_GetChecked($hTreeView, $hSelect)
    $hItem = _GUICtrlTreeView_GetFirstChild($hTreeView, $hSelect)
    If $hItem Then _SetChildItemsChecked($hTreeView, $hItem, $checked)
    If $checked Then
    _VerifySiblingItems($hTreeView, $hSelect)
    Else
    _SetParentItemsUnchecked($hTreeView, $hSelect)
    EndIf
    EndIf
    EndIf
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd
    ; (*) = diese Konstruktion ist notwendig, weil man sonst nicht zwischen einem Mausklick
    ; auf den Item-Text und der Checkbox unterscheiden kann

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

    ; Überprüft (rekursiv) ob alle Sibling-Items angehakt sind und setzt, wenn zutreffend, den Haken beim Parent-Item
    Func _VerifySiblingItems($hTreeView, $hItem)
    Local $hTmp, $hSave = $hItem, $iCount = _GUICtrlTreeView_GetSiblingCount($hTreeView, $hItem)
    While True
    $hTmp = _GUICtrlTreeView_GetNextSibling($hTreeView, $hItem)
    If Not $hTmp Then ExitLoop
    $hItem = $hTmp
    WEnd
    Do
    If _GUICtrlTreeView_GetChecked($hTreeView, $hItem) Then $iCount -= 1
    $hItem = _GUICtrlTreeView_GetPrevSibling($hTreeView, $hItem)
    Until Not $hItem
    If Not $iCount Then
    Local $hParent = _GUICtrlTreeView_GetParentHandle($hTreeView, $hSave)
    If $hParent Then
    _GUICtrlTreeView_SetChecked($hTreeView, $hParent)
    _VerifySiblingItems($hTreeView, $hParent)
    EndIf
    EndIf
    EndFunc

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

    ; Setzt (rekursiv) den Haken bei allen Child-Items, wenn der Haken bei einem Item gesetzt wurde
    Func _SetChildItemsChecked($hTreeView, $hItem, $checked)
    Do
    Local $hNewItem = _GUICtrlTreeView_GetFirstChild($hTreeView, $hItem)
    If $hNewItem Then _SetChildItemsChecked($hTreeView, $hNewItem, $checked)
    _GUICtrlTreeView_SetChecked($hTreeView, $hItem, $checked)
    $hItem = _GUICtrlTreeView_GetNextChild($hTreeView, $hItem)
    Until Not $hItem
    EndFunc

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

    ; Entfernt (rekursiv) den Haken bei allen Parents, wenn der Haken von einem Item entfernt wurde
    Func _SetParentItemsUnchecked($hTreeView, $hItem)
    Local $hParent = _GUICtrlTreeView_GetParentHandle($hTreeView, $hItem)
    If $hParent Then _SetParentItemsUnchecked($hTreeView, $hParent)
    _GUICtrlTreeView_SetChecked($hTreeView, $hItem, False)
    EndFunc

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

    Treeview das mit ein Explorer darstellt. Nett hilft mir leider auch nicht.

    Spoiler anzeigen
    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_UseX64=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstantsEx.au3>
    #include <GuiImageList.au3>
    #include <GuiTreeView.au3>
    #include <StructureConstants.au3>
    #include <TreeViewConstants.au3>
    #include <WindowsConstants.au3>

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

    Opt('MustDeclareVars', 1)

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

    Global $hGui = GUICreate('FileExplorer', 400, 400)

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

    Global Const $Delim = '\', $Delim1 = '|'

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

    Global $hTreeview = GUICtrlCreateTreeView(10, 10, 380, 360)
    Global $hWndTreeview = GUICtrlGetHandle($hTreeview)
    Global $hOk = GUICtrlCreateButton('Ok', 240, 375, 60, 22)
    Global $hCancel = GUICtrlCreateButton('Cancel', 320, 375, 60, 22)

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

    Global $hImage = _GUIImageList_Create(16, 16, 5, 1)
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 3) ; Verzeichnis-Icon
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 110) ; Verzeichnis-Icon mit Haken
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 1) ; Datei-Icon
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 5) ; Diskette
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 7) ; Wechseldatenträger
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 8) ; Festplatte
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 11) ; CDROM
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 12) ; Netzwerklaufwerk
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 53) ; Unbekannt
    _GUICtrlTreeView_SetNormalImageList($hTreeview, $hImage)

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

    GUISetState()
    GUICtrlSetStyle($hTreeview, Default, BitOR($WS_EX_COMPOSITED, $WS_EX_CLIENTEDGE))

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

    If ToolTip('Please wait...', Default, Default, 'Read Directory', 1) Then Local $aDrives = DriveGetDrive('ALL'), $iLWindex, $hRoot
    For $i = 1 To $aDrives[0]
    $iLWindex = 0
    Switch DriveGetType($aDrives[$i])
    Case 'Fixed'
    $iLWindex = 5
    Case 'CDROM'
    $iLWindex = 6
    Case 'RAMDisk'
    $iLWindex = 7
    Case 'Removable'
    $iLWindex = 4
    If StringLeft($aDrives[$i], 2) = 'a:' Or StringLeft($aDrives[$i], 2) = 'b:' Then $iLWindex = 3
    Case Else
    $iLWindex = 8
    EndSwitch
    $hRoot = _GUICtrlTreeView_Add($hTreeview, $hTreeview, StringUpper($aDrives[$i]), $iLWindex, $iLWindex)
    If DriveStatus($aDrives[$i]) <> 'READY' Then ContinueLoop
    If _GUICtrlTreeView_BeginUpdate($hTreeview) And _GUICtrlTreeView_FileExplorer($hTreeview, $hRoot, $aDrives[$i]) Then _GUICtrlTreeView_EndUpdate($hTreeview)
    Next
    ToolTip('')

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

    GUIRegisterMsg($WM_NOTIFY, '_WM_NOTIFY')
    While True
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE, $hCancel
    Exit
    Case $hOk
    MsgBox(0, 'Selected Path/File', StringReplace(_GUICtrlTreeView_GetTree($hTreeview, _GUICtrlTreeView_GetSelection($hTreeview)), $Delim1, $Delim))
    EndSwitch
    WEnd

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

    Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hChild, $hITEM, $tNMTREEVIEW = DllStructCreate($tagNMTREEVIEW, $ilParam)
    If DllStructGetData($tNMTREEVIEW, 'hWndFrom') = $hWndTreeview Then
    Switch DllStructGetData($tNMTREEVIEW, 'Code')
    Case $TVN_ITEMEXPANDINGA, $TVN_ITEMEXPANDINGW
    Switch DllStructGetData($tNMTREEVIEW, 'Action')
    Case $TVE_EXPAND
    If ToolTip('Please wait...', Default, Default, 'Read Directory', 1) Then $hITEM = DllStructGetData($tNMTREEVIEW, 'NewhItem')
    If _GUICtrlTreeView_GetExpanded($hTreeview, $hITEM) Then Return $GUI_RUNDEFMSG
    $hChild = _GUICtrlTreeView_GetFirstChild($hTreeview, $hITEM)
    If Not $hChild Then Return $GUI_RUNDEFMSG
    If _GUICtrlTreeView_BeginUpdate($hTreeview) Then _GUICtrlTreeView_DeleteChildren($hTreeview, $hChild)
    _GUICtrlTreeView_FileExplorer($hTreeview, $hChild, StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $hChild), $Delim1, $Delim))
    Do
    $hChild = _GUICtrlTreeView_GetNextChild($hTreeview, $hChild)
    If Not $hChild Then ExitLoop
    _GUICtrlTreeView_DeleteChildren($hTreeview, $hChild)
    _GUICtrlTreeView_FileExplorer($hTreeview, $hChild, StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $hChild), $Delim1, $Delim))
    Until False
    If _GUICtrlTreeView_EndUpdate($hTreeview) Then ToolTip('')
    EndSwitch
    EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
    EndFunc ;==>_WM_NOTIFY

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

    Func _GUICtrlTreeView_FileExplorer($hTreeview, $hITEM, $sPath)
    Local $sFileList, $sFolderList, $aDirList, $hSearch, $sFile
    Local $iHidden = RegRead('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', 'Hidden') - 1
    Local $iSuperHidden = Not RegRead('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', 'ShowSuperHidden')
    $hSearch = FileFindFirstFile($sPath & $Delim & '*')
    If $hSearch = -1 Then Return True
    Do
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    Switch @extended
    Case False
    If $iHidden And StringInStr(FileGetAttrib($sPath & $Delim & $sFile), 'H') Then ContinueLoop
    If $iSuperHidden And StringInStr(FileGetAttrib($sPath & $Delim & $sFile), 'S') Then ContinueLoop
    $sFileList &= $sFile & $Delim1
    Case True
    If _IsReparsePoint($sPath & $Delim & $sFile) Then ContinueLoop
    $sFolderList &= $sFile & $Delim1
    EndSwitch
    Until False
    FileClose($hSearch)
    If $sFolderList & $sFileList = '' Then Return True
    $aDirList = StringSplit(StringTrimRight($sFolderList & $sFileList, 1), $Delim1, 2)
    For $sFile In $aDirList
    If StringInStr(FileGetAttrib($sPath & $Delim & $sFile), 'D') Then
    _GUICtrlTreeView_AddChild($hTreeview, $hITEM, $sFile, 0, 1)
    Else
    _GUICtrlTreeView_AddChild($hTreeview, $hITEM, $sFile, 2, 2)
    EndIf
    Next
    Return True
    EndFunc ;==>_GUICtrlTreeView_FileExplorer

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

    Func _IsReparsePoint($FLS) ; progandy
    Dim Static $K32 = DllOpen('kernel32.dll')
    Dim $DA = DllCall($K32, 'dword', 'GetFileAttributesW', 'wstr', $FLS)
    If @error Then Return SetError(1, @error, False)
    Return BitAND($DA[0], 1024) = 1024
    EndFunc ;==>_IsReparsePoint

    [/autoit]

    Könnt ihr mir Helfen? Ich brauch Eine Treeview in der man Folder und Items anlegen kann. Items werden aus einem Dropdown (vordefiniert) oder extra zusätzlich eingetragen über ein Inputfeld. Das man über ein Kontextmenüe erreichen kann. Wie bau ich da pro Term ein Kontextmenü drann? Jede änderung soll gleich in die InI geschrieben werden. Wie programire ich das so? Ich habe bisher immer nur mit Button "Speichern" gearbeitet. Wo man zum Schluss alles Speichert. Habe also Keine erfahrung mit so einem Luxus ^^

    Normal ließt er die Ini wenn vorhanden ein beim Starten. Dann stellt er was dar. Wenn ich da was ändere soll es mit geändert werden. Finde das ist schwer. Normal hab ich die alte datei einfach gelöscht und neu erstellt. Breuchte also ne art wegweißer dazu.

    Mal sehen was zusammen kommt. Danke
    :)

  • CSV / Excel to Listview

    Hallo da bin ich mal wieder.

    Ich möchte ien Kalkulationsprogramm schreiben. Ich habe dazu in einer CSV Datei oder als Excel Rechenwerte vorliegen.
    Zb Form
    Col1;Col2;Col3;.....bis Col19
    ItemText;Itemzahl;Itemleer;ItemZahl;Itemleer;.....
    zb
    Zutaten;gewicht;St„rkend;Heilend;Beweglich;Erfrischend;Erhellend;Astralenergetisch;Giftressi;Feuerressi;Wasserrressi;Erdressi;Liftressi;Vergiftend;Entgiftend;Erblindend;Leuchtend;Explodierend;Versteckend;;;;;;;;;;
    Alraune;1;0,3;0,3;0,3;0,3;0,3;0,3;0,3;0,3;0,3;0,3;0,3;0,3;0,3;0,3;0,3;0,3;0,3;;;;;;;;;;
    Apfelwein;1;0,08;;;;;;;;;;;;0,1;;;;;;;;;;;;;;
    Asche;1,25;;;;;;;;;;0,62;;;0,45;;;;0,24;;;;;;;;;;
    Bambusstock;1;0,27;;;;;;;;;;;;;;;0,1;;;;;;;;;;;


    Das ist der Zustand.
    Ich lese das in ein Array (gesichert auch für die weiterverarbeitung, (glaube ^^)) aus der Excel (zurzeit). Mit ist CSV viel lieber!! Ich hab einiges probiert aber nix half.

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <Excel.au3>
    #include <Array.au3>

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

    #Region ### START Koda GUI section ### Form=H:\Daimler\Programme (Anwendungen)\PortableApps\AutoIT3\App\AutoIT\Skripte\Pergon Alchemie Kalkulator\Forms\Kalkulator.kxf
    $Form1 = GUICreate("Pergon Alchemie Kalkulator 1.0", 615, 438, 535, 365)
    $Tab1 = GUICtrlCreateTab(8, 8, 601, 425)
    $TabSheet1 = GUICtrlCreateTabItem("Übersicht")
    $csvubersicht = GUICtrlCreateListView("", 16, 40, 586, 390)

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

    Local $sFilePath1 = @ScriptDir & "\Pergon_Alchemie_Kalkulation.xls" ;This file should already exist
    Local $oExcel = _ExcelBookOpen($sFilePath1)
    If @error = 1 Then
    MsgBox(0, "Error!", "Unable to Create the Excel Object")
    Exit
    ElseIf @error = 2 Then
    MsgBox(0, "Error!", "File does not exist - Shame on you!")
    Exit
    EndIf
    Local $aArray = _ExcelReadSheetToArray($oExcel) ;Using Default Parameters
    ;_ArrayDisplay($aArray, "Array using Default Parameters")
    ;19 Colums
    _ExcelBookClose($oExcel) ; And finally we close out
    For $i = 0 to Ubound($aArray) - 1
    GUICtrlCreateListViewItem($aArray[$i][0]&"|"&$aArray[$i][1]&"|"&$aArray[$i][2]&"|"&$aArray[$i][3], $csvubersicht)
    Next

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

    $TabSheet2 = GUICtrlCreateTabItem("Kalkulator")
    $Label1 = GUICtrlCreateLabel("Rezept", 32, 40, 103, 28)
    GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
    $Combo1 = GUICtrlCreateCombo("Combo1", 32, 88, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo2 = GUICtrlCreateCombo("Combo1", 32, 112, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo3 = GUICtrlCreateCombo("Combo1", 32, 136, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo4 = GUICtrlCreateCombo("Combo1", 32, 160, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo5 = GUICtrlCreateCombo("Combo1", 32, 184, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo6 = GUICtrlCreateCombo("Combo1", 32, 208, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo7 = GUICtrlCreateCombo("Combo1", 32, 232, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo8 = GUICtrlCreateCombo("Combo1", 32, 256, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo9 = GUICtrlCreateCombo("Combo1", 32, 280, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo10 = GUICtrlCreateCombo("Combo1", 32, 304, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $ListView1 = GUICtrlCreateListView("", 288, 88, 154, 238)
    $List1 = GUICtrlCreateList("", 184, 88, 97, 240)
    $Label2 = GUICtrlCreateLabel("Wirkungen", 184, 64, 56, 17)
    $Input1 = GUICtrlCreateInput("Input1", 32, 384, 121, 21)
    $Label3 = GUICtrlCreateLabel("Skill höhe des Anwenders", 32, 360, 134, 17)
    $Label4 = GUICtrlCreateLabel("Weitere Werte", 288, 64, 73, 17)
    $TabSheet3 = GUICtrlCreateTabItem("Simulator")
    GUICtrlSetState(-1,$GUI_SHOW)
    $Combo11 = GUICtrlCreateCombo("Combo11", 32, 120, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo12 = GUICtrlCreateCombo("Combo11", 32, 144, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo13 = GUICtrlCreateCombo("Combo11", 32, 168, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Combo14 = GUICtrlCreateCombo("Combo11", 32, 192, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    $Label5 = GUICtrlCreateLabel("Gewünsche Wirkungen", 32, 88, 116, 17)
    $Input2 = GUICtrlCreateInput("Input2", 184, 120, 121, 21)
    $Input3 = GUICtrlCreateInput("Input2", 184, 144, 121, 21)
    $Input4 = GUICtrlCreateInput("Input2", 184, 168, 121, 21)
    $Input5 = GUICtrlCreateInput("Input2", 184, 192, 121, 21)
    $Label6 = GUICtrlCreateLabel("Gewünschte Stärke", 184, 88, 114, 17)
    $Checkbox1 = GUICtrlCreateCheckbox("Werfbar", 80, 216, 97, 17)
    $List2 = GUICtrlCreateList("", 424, 120, 145, 279)
    $Label7 = GUICtrlCreateLabel("Rezept ergebnis", 424, 88, 81, 17)
    $Input6 = GUICtrlCreateInput("Range 1 - 6", 184, 216, 121, 21)
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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


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


    EndSwitch
    WEnd

    [/autoit]


    Zur Frage:
    Wie lese ich korreckt die CSV aus und lasse die werte für Kontrolle in Listview $csvubersicht ausgeben?

    Mehr nicht ^^

  • Ändern von Eigentümer/Firma

    Sollte jemand mal nachträglich und in massen den Eigentümer und die Firma ändern wollen damit geht es einfacher ^^.

    Funzt bei Win 2000 und XP. Bei Win 7 weiß ich nicht mal wo das zu finden ist xD.

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Registry verändern des Eigentümers oder des Firmennamens...", 601, 150, 193, 125)
    ;GUISetFont(8, 400, 4, "MS Sans Serif")
    GUISetBkColor(0xC0C0C0)
    $Label1 = GUICtrlCreateLabel("Name des Eigentümers:", 112, 70, 116, 17)
    $Input1 = GUICtrlCreateInput("", 254, 70, 217, 21)
    $Label3 = GUICtrlCreateLabel("Name der Firma:", 112, 100, 116, 17)
    $Input2 = GUICtrlCreateInput("", 254, 100, 217, 21)
    GUICtrlSetData($Input2, "GAIA Akkumulatorenwerke GmbH" )
    $Label2 = GUICtrlCreateLabel("Empfehlung: Eigentümer bekommt die Inventarnummer!", 184, 24, 400, 20)
    $Button1 = GUICtrlCreateButton("Ändern", 488, 70, 75, 25, 0)
    $Button2 = GUICtrlCreateButton("Ändern", 488, 100, 75, 25, 0)
    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]

    Case $Button1
    $Inhalt = GUICtrlRead($Input1)
    RegWrite ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" , "RegisteredOwner", "REG_SZ", $Inhalt )
    MsgBox(64, "Änderung", $Inhalt & " Erfolgreich übernommen" )

    Case $Button2
    $Inhalt2 = GUICtrlRead($Input2)
    RegWrite ( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" , "RegisteredOrganization", "REG_SZ", $Inhalt2 )
    MsgBox(64, "Änderung", $Inhalt2 & " Erfolgreich übernommen" )
    EndSwitch
    WEnd

    [/autoit]

  • Thread

    Ich danke für die Lösung. Ich werde mich mal mit dem oberen skript auseinsandersetzen um es zu verstehen.
    Ich denke da nicht mehr geht aber ich was gelernt hab ^^ und es für viele sachen geht im fenstermodus, denk ich das ich nun den Tread schließen kann ^^.
    Danke bis zum nächsten mal

  • Thread

    WOW das funktioniert. Der punkt ist bei programmen immer in vodergrund. Nur bei Programmen im Vollbildmodus wandert es in den Hintergrund. Das ist das problem jetzt grade. Mit dem Skript von oben.


    Mich würde jetzt noch interresieren wie das genau mit der GUI+ funktioniert. Ich habe den Tread von name22 auch vorhin gefunden.

  • Thread

    Ein kumpel wollte einen Blinkenden Punkt auf dem Bildschirm haben. Dazu hab ich ein programm geschrieben.
    Der punkt soll immer da sein. Wenn er nun ein Spiel startet überschneiden sich 2 Programme.
    AutoIT versucht den punkt beizubehalten troz des Spieles. Das funzt. Doch die interaktion im Spiel wird probleatisch.
    Was passiert: Er hat das spiel gestartet, das problem außert sich wie wenn man "Windowstaste" drückt wärend des spiels. Versucht man dann wieder in das spiel zu kommen lost es wieder "Windowstaste" aus.

    Gibt es eine Möglichkeit das Autoit programm als Hintergrund prozess zu staten in einem eigenen Thread?

    Spoiler anzeigen
    [autoit]


    #include<GUIConstantsEx.au3>
    #include<WindowsConstants.au3>
    $read = "Gruen"
    $color2 = 0x00FF00
    AdlibRegister ( "_Test1" , 500 )
    AdlibRegister ( "_Test2" , 1000 )
    AdlibRegister ( "_Test3" , 1500 )

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

    While 1
    WEnd

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

    Func _Test1 ()
    $read = "Gruen"
    Dim $color2 = 0x00FF00
    _setPixel(@DesktopWidth / 2, @DesktopHeight / 2, 4, 4)
    ;MsgBox (64, "Farbe", $read )
    EndFunc

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

    Func _Test2 ()
    $read = "Blau"
    Dim $color2 = 0x0000FF
    _setPixel(@DesktopWidth / 2, @DesktopHeight / 2, 4, 4)
    ;MsgBox (64, "Farbe", $read )
    EndFunc

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

    Func _Test3 ()
    $read = "Rot"
    Dim $color2 = 0xFF0000
    _setPixel(@DesktopWidth / 2, @DesktopHeight / 2, 4, 4)
    ;MsgBox (64, "Farbe", $read )
    EndFunc

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

    Func _setPixel($left, $top, $width = 5, $height = 5, $color = $color2 )
    GUICreate("", $width, $height, $left, $top, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
    GUISetBkColor($color)
    GUISetState(@SW_SHOW)
    EndFunc ;==>_setPixel

    [/autoit]

  • Zahlen Kombinationen x= n!/(k!(n-k)!)

    Was ich hir will ist aber kein Lotto ^^ und auch kein gewinnspiel ^^.
    Aber ja das ist mir schon mal untergelaufen. Doch war es irgend wie nicht so das ich da durchblickte...

    Spoiler anzeigen


    Doch ist mir das zu blöd. Ich möchte es so haben wenn ich n und k angebe das ich dann die ergebnisse bekomme, und nicht mit VBS sondern mit Auto IT.

  • Zahlen Kombinationen x= n!/(k!(n-k)!)

    Das ist ein Fakultäts zeichen.
    0!=1
    1!=1
    2!=1*2=2
    3!=1*2*3=6
    u.s.w


    Ich hab n=11 -> 11 Sachen, Murmeln, Apfel, Buchstaben, Zahlen ^^
    und k=3 -> das ist die Kombination
    Also folgt
    n=11= {1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11} = 11 Zahlen
    mit k ergibt sich {1 , 2 , 3} = eine möglichkeit von oben

    Mein Beispiel:
    Was ich haben will ist ...
    11!/(3!(11-3)!) = 165 möglichkeiten

    Kombinationsmöglichkeiten:
    {1,2,3} , {1,2,4} , {1,2,5} , {1,2,6} , {1,2,7} , {1,2,8} , {1,2,9 }, {1,2,10} , {1,2,11}
    {2,3,1} ist nicht koreckt da {1,2,3} die zahlen schon enthält, ... , {2,3,4}
    usw

    Hilft das als zusätzliche erklärung dir?

  • Zahlen Kombinationen x= n!/(k!(n-k)!)

    Ich hab mal eine frage ich möchte gerne ein programm schreiben das mein problem löst. Ich habe noch kein Code. Mit Excel + Macro kommt nur müll raus.

    Problem:
    anzahl an möglichkeiten= n!/(k!(n-k)!)
    Das programm soll nicht nur die möglichkeiten ausrechnen sondern mir eine Liste mit allen Möglichkeiten liefern.

    Ein Test mit n = 11 und k = 3 zum nachvollziehen wäre toll.
    Könnt ihr mir einen Code schreiben oder mich auf seiten mit einer Lösung die mir hilft zeigen?

    Danke Skar

  • Suche Lösung für...

    Ich möchte das mein Skript in einen Ordner navigiert. Dort nach Daten mit der endung .txt sucht. Und den Pfad in einer INI daei abspeichert.
    Was mein Skript schon kann ist in einen Ordner navigieren. Dann trägt man manuell den Pfad ein und drückt auf Abspeichern. Nun wird der Pfad in die INI geschrieben.


    Was ich brauch ist eine Lösung in der das Skript selber nach .txt daten sucht und alles in die Ini schreibt. Wer kann mir dazu was zeigen oder mir die lösung schon präsentieren?

  • IOM 4 - Skripte

    Auf der seite des ehemaligen PC Magazin nun magnum oder so, funktioniert der IOM 4 nicht mehr. Es ist Zip ähnlich aber es ist beschädigt. Man kann es nicht mehr verwenden.

    Kann man es wieder verfügbar machen? Ich wollte es mal wider für OPSI Server verwenden.
    Ist das WSK nun verfügbar? Das richtige meine ich.