Beiträge von Alina

  • Musik-Quiz

    Habe es mal mit 2000 MP3 von den R.SH CD's getestet und ich bin ja mal gar nicht gut. Also mehr 150 Songs wurden es bei fünf Versuchen nicht. Aber so lernt man Titel und Sänger/Gruppe zu den Songs. Super Game !!!

  • _GUICtrlListView_GetItemChecked bzw. _GUICtrlListView_GetItemSelected UND GUICtrlCreateListView

    Habe folgendes Problem bei folgendem Script:

    Script:

    Spoiler anzeigen
    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=D:\AutoIT\icon.ico
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_UseAnsi=y
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    ; Dank an das AutoIt Forum hier Andy und alle die geholfen haben!!!
    #include <GuiListView.au3>
    #include <ListBoxConstants.au3>
    #include <ListViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <GUIConstantsEx.au3>

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

    Opt("GUIOnEventMode", 1)

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

    Global $aIn[1]

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

    Local $iExWindowStyle = BitOR($WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE, $LBS_EXTENDEDSEL)
    Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_CHECKBOXES, $LVS_EX_DOUBLEBUFFER, $LVS_EX_TRACKSELECT)

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

    _FileReadToArray("_inhalt2.txt", $aIn) ; hier angepsst
    For $i = 1 To $aIn[0]
    $aIn[$i] = StringReplace(StringStripWS($aIn[$i], 7), "|", "|", 5) ; hier angepsst
    Next
    _FileWriteFromArray("inhalt2_out.txt", $aIn, 2) ; hier angepsst

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

    GUICreate("listview items", 1250, 530, 10, 10, -1) ; hier angepsst

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

    $listview = GUICtrlCreateListView($aIn[1], 10, 10, 1230, 510, $iExWindowStyle, $iExListViewStyle) ; hier angepsst
    _GUICtrlListView_SetExtendedListViewStyle($listview, $iExListViewStyle)

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

    $context = GUICtrlCreateContextMenu($listview) ;contextmenu, rechtsklick zum kopieren
    $item1 = GUICtrlCreateMenuItem("Kopieren nach...", $context)
    ;$item2 = GUICtrlCreateMenuItem("Markierte Titel aus der Liste löschen", $context)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIClose")
    ; GUICtrlSetOnEvent($item2, "_Delete")
    GUICtrlSetOnEvent($item1, "_kopieren")
    GUICtrlSetOnEvent($listview, "List1Click")
    _GUICtrlListView_RegisterSortCallBack($listview, True, True) ;sortierfunktion einschalten

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

    For $i = 2 To $aIn[0] ; bei Index 2 starten, dann ist die erste Zeile weg
    $item1 = GUICtrlCreateListViewItem($aIn[$i], $listview)
    Next
    GUISetState()

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

    While 1
    Sleep(50)
    WEnd

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

    Func _kopieren()
    DirCreate(@ScriptDir & "\auswahlliste")

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

    MsgBox(0,"Kopiervorgang startet", "Kopiervorgang startet. Bitte haben Sie ein wenig Geduld.")
    For $iIndex = 0 To _GUICtrlListView_GetItemCount($listview) ;nacheinander die listenitems aufrufen
    If _GUICtrlListView_GetItemChecked($listview, $iIndex) Or _GUICtrlListView_GetItemSelected($listview, $iIndex) Then ;wenn angehakt,dann kopieren
    $titel = _GUICtrlListView_GetItem($listview, $iIndex, 1) ;schau mal in die Hilfe....
    $pfad = _GUICtrlListView_GetItem($listview, $iIndex, 8) ;schau mal in die Hilfe....
    ;_arraydisplay($titel)
    FileCopy($pfad[3], @ScriptDir & "\auswahlliste\" & $titel[3] & ".mp3")
    ;MsgBox(0, "Kopieren: " & $titel[3], $pfad[3])

    EndIf
    Next
    MsgBox(0,"Kopiervorgang erfolgreich", "Kopiervorgang erfolgreich.")
    EndFunc ;==>_kopieren

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

    Func List1Click()
    _GUICtrlListView_SortItems(GUICtrlGetHandle($listview), GUICtrlGetState($listview))
    EndFunc ;==>List1Click

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

    Func _bearbeiten()
    _GUICtrlListView_BeginUpdate($listview)
    _GUICtrlListView_EndUpdate($listview)
    EndFunc ;==>_bearbeiten

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

    ;deaktiviert
    #cs
    Func _delete() ;zeilen in der liste löschen
    If MsgBox(262144 + 32 + 4, "", "Markierte bzw. angehakte Zeilen aus der Liste löschen? ") = 6 Then
    _GUICtrlListView_DeleteItemsSelected(GUICtrlGetHandle($listview))
    EndIf
    EndFunc ;==>_delete
    #ce

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

    Func _GUIClose()
    _GUICtrlListView_UnRegisterSortCallBack($listview)
    Exit
    EndFunc ;==>_GUIClose

    [/autoit]

    Bild:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Problem bzw. Frage zur Hilfestellung:

    Im Bild als 1: Frage ich mich, wie ich alle grüne Markierungen auf einmal weg bekomme. Am liebsten re. Maustaste und "Markierungen löschen".

    Im Bild als 2: Wie bekomme ich die beiden ersten Spalten auf eine höhere Breitelänge?


    Ui, hoffe ihr versteht mein Problem.

    Vielen Dank schon jetzt an dieser Stelle für die Hilfe.

  • Countdown Funktion

    @zer0

    Lese die Hilfe und wenn Fragen sind, wir sind ein Forum und hier helfen wir gerne. Also freundlich fragen und zeigen das Du selber lernen möchtest.

    TimerInit ist in der Hilfe gut erklärt.

  • Text einlesen und verwerten

    Also ich weiß nicht was da nicht funktionieren sollte. Habe es gerade nochmals auf dem Laptop ausprobiert und auch da ohne Probleme.

    Nimm mal die Anlage, entpacke sie und dann starte diese.
    Anlage: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Edit: welchen Fehler? Wir möchten alle lernen ;)

  • NetwerkUmgebung ?

    Xenobiologist : GENIALES SCRIPT !!!

    Ich weiß nicht ob Dir das weiter hilft, denn ich habe nur eine Netzwerkanbindung an meine Linkstation.

    Schau es einfach mal durch.

    Spoiler anzeigen
    [autoit]


    #include <GuiConstantsEx.au3>
    #include <NetShare.au3>
    #include <WindowsConstants.au3>

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

    Opt('MustDeclareVars', 1)

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

    Global $iMemo

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

    _Main()

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

    Func _Main()
    Local $hGUI, $sServer, $sShare, $aInfo

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

    ; Erstellt eine GUI
    $hGUI = GUICreate("_Net_Share", 400, 300)

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

    ; Erstellt ein Memo Steuerelement
    $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState()

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

    ; Frage nach Server- und Freigabename
    $sServer = InputBox("Netzwerk Demo", "Gib den Servernamen ein:", "\\Linkstation", "", 200, 130) ;
    ;. für den lokalen Computer
    If @error Then Exit
    $sShare = InputBox("Netzwerk Demo", "Gib den Freigabenamen ein:", "download", "", 200, 130)
    If @error Then Exit

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

    ; Auflistung der Netzwerkverbindungen
    $aInfo = _Net_Share_ConnectionEnum($sServer, $sShare)
    MemoWrite("Fehler...................: " & @error)
    MemoWrite("Einträge gelesen.........: " & $aInfo[0][0])
    For $iI = 1 To $aInfo[0][0]
    MemoWrite("Verbindungs-ID ..........: " & $aInfo[$iI][0])
    MemoWrite("Verbindungstyp ..........: " & _Net_Share_ResourceStr($aInfo[$iI][1]))
    MemoWrite("Geöffnete Dateien .......: " & $aInfo[$iI][2])
    MemoWrite("Benutzerzahl ............: " & $aInfo[$iI][3])
    MemoWrite("Verbindungszeit .........: " & $aInfo[$iI][4])
    MemoWrite("Benutzername ............: " & $aInfo[$iI][5])
    MemoWrite("Netzwerkname ............: " & $aInfo[$iI][6])
    MemoWrite()
    Next

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

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    EndFunc ;==>_Main

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

    ; Schreibt eine Nachricht in das Memo
    Func MemoWrite($sMessage = "")
    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
    EndFunc ;==>MemoWrite

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

  • Text einlesen und verwerten

    @Simmen

    Also als erstes einmal würde ich Dir raten nicht gleich mit so großen Sachen anzufangen.
    Du solltest dich mehr mit der Hilfe befassen, denn das habe ich selber auch die Lsg. für viele Sachen bereits her.
    Als Anfänger gleich mit Array's zu scripten ist sichrlich nicht der gute Weg, aber das solltest Du selber entscheiden.

    Array lassen sich wie folgt anzeigen, wobei ich die Anzeige in einer MsgBox geschrieben habe.

    Info: Script von BugFix und von mir nur angepaßt

    Spoiler anzeigen
    [autoit]


    #include <File.au3>

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

    Local $aFile, $split, $file = @ScriptDir & '\test.txt' ; der Dateipfad
    ; lies gleich in ein Array, dann brauchst du nicht rumstückeln!
    _FileReadToArray($file, $aFile)

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

    For $i = 1 To UBound($aFile) -1
    $split = StringSplit($aFile[$i], '.')
    For $j = 1 To UBound($split) -1
    ; ConsoleWrite('IP: ' & $i & ' Segment: ' & $split[$j] & @CRLF)
    Next
    MsgBox(0,"Test", $aFile[$i] & " " & @CRLF & @CRLF & " Seg. 1: "&$split[1] & " " & @CRLF & " Seg. 2: "&$split[2] & " " & @CRLF & " Seg. 3: "&$split[3] & " " & @CRLF & " Seg. 4: "&$split[4])
    ;ConsoleWrite(@CRLF)
    Next

    [/autoit]

    Das Ergebnis ist dann folgendes:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Wie Du nun mit den Seg. weiter arbeitest, das sollte klar sein.

  • [BUG] Dateien im Pm anhängen

    Also ich finde es so okay wie es ist.

    Wenn eine Datei nicht da gewünscht Format hat dann gibt es den schönen ZIP-Packer und wenn die Datei zu groß ist, dann gibt es "Dateiteiler.exe & Dateizusammenfüger.exe". Also sehe ich keinen Grund das ganze zu verändern.

  • Text einlesen und verwerten

    Hallo BugFix.

    Habe es mal so gemacht, falls es jemand mal benötigt, das man dann in beide Richtungen hin und her schalten kann ( next & bevor). Hoffe mal das es so okay ist und Du nichts dagegen hast.

    Spoiler anzeigen
    [autoit]

    #include<GuiIPAddress.au3>
    #include<File.au3>
    Local $index = 0, $aFile
    $file = @ScriptDir & '\test.txt' ; der Dateipfad
    _FileReadToArray($file, $aFile)

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

    $gui = GUICreate('test')
    $hIPAddress = _GUICtrlIpAddress_Create ($gui, 20, 20)
    $bt = GUICtrlCreateButton('next IP', 180, 20, 60, 20)
    $bt_retour = GUICtrlCreateButton('bevor IP', 250, 20, 60, 20)
    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case -3
    Exit
    Case $bt
    $index += 1
    If $index <= $aFile[0] Then
    _GUICtrlIpAddress_Set($hIPAddress, $aFile[$index])
    EndIf
    Case $bt_retour
    If $index >0 Then
    $index -= 1
    If $index <=$aFile[0] Then
    _GUICtrlIpAddress_Set($hIPAddress, $aFile[$index])
    EndIf
    EndIf
    EndSwitch
    WEnd

    [/autoit]

  • Countdown Funktion

    Hier mal drei einfach Lösungen.
    Du kannst ja mal schauen was Du davon brauchst.
    No. 1:

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>

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

    $sekunden = 3760
    $Stunden = Int($sekunden / 3600)
    $Minuten = Int(($sekunden - ($Stunden * 3600))/60)
    $Sekunden = Int((($sekunden - ($Stunden * 3600)) - ($Minuten * 60)))

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

    ;MsgBox(0,"", $Stunden & " : " & $Minuten & " : " & $Sekunden)
    $cd = $Stunden & ":" & $Minuten & ":" & $Sekunden

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

    If _countDown($cd) Then MsgBox(0, "Countdown", "ENDE") ; SS:MM:SS

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

    Func _countDown($countdown)
    $begin = TimerInit()

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

    Local $string = ""

    While 1
    $start = Round(TimerDiff($begin) / 1000)

    $countUp = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
    Mod($start / 3600, 24), Mod(($start / 60), 60), Mod($start, 60))

    $sec = _DateDiff('s', "2006/01/01 " & $countUp, "2006/01/01 " & $countdown)
    If $sec = 0 Then Return 1

    $string = StringFormat("%.02d" & " : " & "%.02d" & " : " & "%.02d", _
    Mod($sec / 3600, 24), Mod(($sec / 60), 60), Mod($sec, 60))

    ToolTip($string)
    sleep(100)
    WEnd
    EndFunc ;==>_countDown

    [/autoit]


    No. 2:

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>

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

    $sekunden = 3760
    $Stunden = Int($sekunden / 3600)
    $Minuten = Int(($sekunden - ($Stunden * 3600))/60)
    $Sekunden = Int((($sekunden - ($Stunden * 3600)) - ($Minuten * 60)))

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

    ;MsgBox(0,"", $Stunden & " : " & $Minuten & " : " & $Sekunden)
    $cd = $Stunden & ":" & $Minuten & ":" & $Sekunden

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

    If _countDown($cd) Then MsgBox(0, "Countdown", "ENDE") ; SS:MM:SS

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

    Func _countDown($countdown)
    $begin = TimerInit()

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

    Local $string = ""

    While 1
    $start = Round(TimerDiff($begin) / 1000)

    $countUp = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
    Mod($start / 3600, 24), Mod(($start / 60), 60), Mod($start, 60))

    $sec = _DateDiff('s', "2006/01/01 " & $countUp, "2006/01/01 " & $countdown)
    If $sec = 0 Then Return 1

    $string = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
    Mod($sec / 3600, 24), Mod(($sec / 60), 60), Mod($sec, 60))

    MsgBox(0,"Timer", $string,1)
    ;ToolTip($string)

    WEnd
    EndFunc ;==>_countDown

    [/autoit]


    No. 3:

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>

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

    $sekunden = 3760
    $Stunden = Int($sekunden / 3600)
    $Minuten = Int(($sekunden - ($Stunden * 3600))/60)
    $Sekunden = Int((($sekunden - ($Stunden * 3600)) - ($Minuten * 60)))

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

    ;MsgBox(0,"", $Stunden & " : " & $Minuten & " : " & $Sekunden)
    $cd = $Stunden & ":" & $Minuten & ":" & $Sekunden

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

    If _countDown($cd) Then MsgBox(0, "Countdown", "ENDE") ; SS:MM:SS

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

    Func _countDown($countdown)
    $begin = TimerInit()

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

    Local $string = ""

    While 1
    $start = Round(TimerDiff($begin) / 1000)

    $countUp = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
    Mod($start / 3600, 24), Mod(($start / 60), 60), Mod($start, 60))

    $sec = _DateDiff('s', "2006/01/01 " & $countUp, "2006/01/01 " & $countdown)
    If $sec = 0 Then Return 1

    $string = StringFormat("Stunden: "& "%.02d" & " Minuten: " & "%.02d" & " Sekunden: " & "%.02d", _
    Mod($sec / 3600, 24), Mod(($sec / 60), 60), Mod($sec, 60))

    MsgBox(0,"Timer", $string,1)
    ;ToolTip($string)
    WEnd
    EndFunc ;==>_countDown

    [/autoit]

    Alle sind ein wenig anders als der davor. Einfach testen. ;)

  • Nach Pc Neustart Autorun Ordner inhalt Löschen

    Ich glaube das vom Lernvideo meinst Du.

    Das schaut so aus, wenn man es denn abgetippt hat, was ich selber nicht gemacht habe, sondern ich habe es so bekommen.

    Spoiler anzeigen
    [autoit]


    ;~Option setzen
    Opt("WinTitleMatchMode", 2)
    Opt("SendKeyDelay", 100)

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

    ;~Installationspfad
    ;$setup = @ScriptDir & "\daemon4120-lite.exe"

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

    ;~BlockInput(1)
    $neustart = @ScriptDir & "\neustart.txt"

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

    If FileExists($neustart) Then
    $fso = FileOpen($neustart,0)
    $value = FileReadLine($fso)
    FileClose($fso)
    FileDelete($neustart)
    FileDelete(@ScriptDir & "\autoitscriptneustart.lnk")
    Switch $value
    case "Nachneustart1"
    Nachneustart1()
    case Else
    EXIT 5
    EndSwitch
    Else
    Main()
    EndIf
    Exit

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

    ; Die normale Installation
    Func Main()
    CreateRestart("Nachneustart1")
    ;Run($setup)
    ;WinWaitActive("DAEMON Tools Lite 4.12.0")
    ;Send("!n)
    ;WinWaitActive("DAEMON Tools Lite 4.12.0","License Agreement")
    ;Send("!a")
    ; ...
    ; ...
    ; ...
    MsgBox(0,"Moin","Warte bitte bis die MsgBox mit dem MELDUNG 1 Fenster auf geht. Bestätige es. Danach gibt es die neustart.txt . Danach drücke nochmals die F5 und warte Bis das ENDE Fenster erscheint.")

    $result = WinWaitActive("Moin","Warte bitte bis die MsgBox mit dem MELDUNG 1 Fenster auf geht. Bestätige es. Danach gibt es die neustart.txt . Danach drücke nochmals die F5 und warte Bis das ENDE Fenster erscheint.",10)
    if $result = 1 Then
    CreateRestart("Nachneustart1")
    Send("{ENTER}")
    Exit 0
    Else
    OhneNeustart()
    EndIf
    EndFunc

    Func Nachneustart1()

    ; hier rein was NACH dem Neustart passieren soll
    MsgBox(0,"ENDE","ENDE!!! Die neustart.txt ist verschwunden, wenn Du dieses Fenster siehst.")

    EndFunc

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

    Func OhneNeustart()

    ; hier rein was VOR dem Neustart passieren soll
    MsgBox(0,"MELDUNG 1","MELDUNG 1")

    EndFunc

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

    Func CreateRestart($Funktionsname)
    $fso = FileOpen($neustart,2)
    FileWriteLine($fso,$Funktionsname)
    FileClose($fso)
    FileCreateShortcut(@ScriptFullPath,@StartupDir & "\autoitscriptneustart.lnk",@ScriptDir)
    EndFunc

    [/autoit]

    Script von McPoldy (Hilfe Videos), dem ich hiermit nochmals meinen DANK übersende.

  • ausführen beim hochfahren

    gib als pfad einfach @StartupDir ein.

    oder wenn du es da nicht haben willst:
    HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run -- wenn es bei allen benutzern ausgeführt werden soll
    HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run -- nur bei diesem benutzer
    HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce -- nur einmalig gestartet werden soll (bei allen benutzern)
    HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run -- auch einmalig nur bei diesem benutzer