Original von Spion
PS: Einen 100Mbit Server könnte ich organisieren
Vielleicht könnt ihr da ein eigenes kleines Repository aufsetzen um für alle ständig den gleichen Stand zu haben und Aktualisierungen immer sofort sichtbar zu haben.
Aber bevor ihr mit wildem Coden loslegt 
erstellt mal einen klaren Plan, was gemacht werden muss, wer welche Teilaufgaben übernimmt etc.
Alsdann: Happy Coding
Es stand zwar überall, das es nicht ging, aber bei mir gings.
Auch mal mit dem compilierten Skript getestet?
Hi Lina,
kann diese INI auf jedem beliebigen Laufwerk liegen? Dauert dann etwas, weil alle Festplatten rekursiv durchsucht werden müssen, aber geht.
Du willst installieren. Schau dir FileInstall() an. Vielleicht hilft das hier dir auch etwas weiter.
Erklär mal näher, was du damit erreichen möchtest. Zur Laufzeit kannst du das Script nicht verschieben (glaub ich).
Du kannst es selbst löschen lassen ( SelfDelete ), müsstest dann vorher eine Kopie erstellen an dem gewünschten neuen Platz. Nur wäre in der Kopie auch wieder der Befehl zum selbstlöschen.
Hab ich noch nie probiert sowas - also sag: wozu?
Edit @Filin: probiert?, lass mich gern überraschen werds mal testen
Das Script soll sich während der Ausführung selbst verschieben ? Oder was meinst du?
"..Telefon für den Spion" 
Hi, sei uns willkommen. Spionieren brauchst du hier auch nicht. 
Wir teilen freiwillig unser Wissen.
:mod: ==> das wollte ich schon immer mal sagen!
Mit AutoitSetOption("GUIResizeMode",802) wird für ALLE Controls festgelegt, dass sie sich weder in Größe noch in Position verändern, wenn die GUI verändert wird.
Wenn du aber das nur für einige Controls haben möchtest und für andere nicht, ist die Lösung von DjBasslord anzuwenden.
Oder nur eine Zeile, um Schreibarbeit zu sparen 
AutoitSetOption("GUIResizeMode",802)
[/autoit]Hier ein Beispiel, du mußt die aktuellen Daten für die Größe und Position auswerten.
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
Dim $minWidth = 464, $Width = 635, $minHeight = 232, $Height = 456
Dim $x, $y, $PosX = 192, $PosY = 113
#Region ### START Koda GUI section ### Form=d:\koda\winmove.kxf
$Form1 = GUICreate("Form1", $Width, $Height, $PosX, $PosY)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
$Group1 = GUICtrlCreateGroup("Position", 16, 16, 200, 117)
$bLiOb = GUICtrlCreateButton("Links Oben", 28, 40, 75, 20, 0)
GUICtrlSetOnEvent(-1, "bLiObClick")
$bReOb = GUICtrlCreateButton("Rechts Oben", 131, 40, 75, 20, 0)
GUICtrlSetOnEvent(-1, "bReObClick")
$bLiUn = GUICtrlCreateButton("Links Unten", 28, 97, 75, 19, 0)
GUICtrlSetOnEvent(-1, "bLiUnClick")
$bMitte = GUICtrlCreateButton("Mitte", 79, 70, 75, 20, 0)
GUICtrlSetOnEvent(-1, "bMitteClick")
$bReUn = GUICtrlCreateButton("Rechts Unten", 131, 97, 75, 20, 0)
GUICtrlSetOnEvent(-1, "bReUnClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Größe ändern (+/- Pixel)", 232, 16, 200, 117)
$Label1 = GUICtrlCreateLabel("Breite:", 249, 42, 34, 17)
$Label2 = GUICtrlCreateLabel("Höhe:", 249, 75, 33, 17)
$iWidth = GUICtrlCreateInput("", 332, 39, 65, 21)
$iHeight = GUICtrlCreateInput("", 332, 72, 65, 21)
$bChange = GUICtrlCreateButton("Ändern", 267, 103, 130, 20, 0)
GUICtrlSetOnEvent(-1, "bChangeClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func AForm1Close()
Exit
EndFunc
Func bChangeClick()
$x = GUICtrlRead($iWidth)
$y = GUICtrlRead($iHeight)
If ($Width + $x) < $minWidth Then
MsgBox(16, '',"Breitenänderung nicht möglich!"& @LF &"Mindestbreite wird unterschritten.")
Return
EndIf
If ($Height + $y) < $minHeight Then
MsgBox(16, '',"Höhenänderung nicht möglich!"& @LF &"Mindesthöhe wird unterschritten.")
Return
EndIf
WinMove($Form1, "", $PosX, $PosY, $Width+$x, $Height+$y)
_size()
EndFunc
Func _size()
Local $size
$size = WinGetPos("Form1")
$PosX = $size[0]
$PosY = $size[1]
$Width = $size[2]
$Height = $size[3]
EndFunc
Func bLiObClick()
WinMove($Form1, "", -1, -1)
_size()
EndFunc
Func bLiUnClick()
WinMove($Form1, "", -1, @DesktopHeight-$Height)
_size()
EndFunc
Func bMitteClick()
WinMove($Form1, "", (@DesktopWidth-$Width)/2, (@DesktopHeight-$Height)/2)
_size()
EndFunc
Func bReObClick()
WinMove($Form1, "", @DesktopWidth-$Width, -1)
_size()
EndFunc
Func bReUnClick()
WinMove($Form1, "", @DesktopWidth-$Width, @DesktopHeight-$Height)
_size()
EndFunc
EDIT:
Einen großen Nachteil hat allerdings WinMove(). Wenn du die Größe veränderst, werden die Positionen deiner Controls relativ dazu auch verändert. Ebenso deren Größe.
Guckst du:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 451, 317, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
$Button1 = GUICtrlCreateButton("AButton1", 160, 132, 121, 29, 0)
GUICtrlSetOnEvent(-1, "AButton1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func AButton1Click() ; rechts oben andocken und vergrößern
WinMove($Form1, "", @DesktopWidth-500, -1, 500, 600)
EndFunc
Func AForm1Close()
Exit
EndFunc
Edit: 
Selbst am frühen Samstagmorgen ist schon wer schneller
Hi, habs noch nicht im Detail durchgesehen. Aber was mir sofort auffällt: Du setzt innerhalb der While-Schleife $i nicht zurück. D.h., wenn der Wert einmal >600 ist, ist er das auch in jedem folgenden Durchlauf.
Kam ein Korintenkacker des Weges und sagte: Jetzt sind nach dem Bindestrich aber noch 2 Leerzeichen. 
$Titlefoo = "Basshunter - [LOL #02] Boten] Anna"
MsgBox(64, 'Replaced', StringRegExpReplace($Titlefoo, '\s\[.*?\]',''))
Dann schau doch mal wie man Daten an ein TreeView übergibt.
Lies die Dateinamen aus deinem Ordner aus und erstelle für jeden Namen ein Item
Du verwendest einen "bösen" Hotkey
Alt+Shift ist von Windows vorbelegt für die Umschaltung des Tastaturlayouts.
Ich hab auch ne Lösung gefunden:
[autoit]Func _getcurrenttrack()
$oiTunes = ObjCreate("iTunes.Application") ;erzeugt itunesobject
For $track in $oiTunes.SelectedTracks ;auslesen der Daten
$artist = $track.Artist ;Artist
$name = $track.Name ; Lied
Next
Send("/me is listening to "&$artist&" - "&$name&" ")
$smiley = ClipPut("(headphones)")
Send("^v")
EndFunc
Auf mehrfachen Wunsch eines einzelnen Herren ( ) habe ich eine Funktion zum Überprüfen von Strings auf Pfadkonformität erstellt.
Falls es wer braucht:
;****************************************************************************************************************
; Funktion _PathCheck($PATHSTRING [,$TYPE [,$SZ]])
;
; Parameter $PATHSTRING: zu überprüfender String
; $TYPE: -1 (default) prüft auf Pfad inkl. Laufwerk, abschließender Backslash optional
; 0 prüft Pfad o. Lw., abschließender Backslash erforderlich ("\adga\adf\")
; 1 prüft Pfad o. Lw., abschließender Backslash optional ("\adga\adf")
; $SZ: -1 (default) prüft keine Sonderzeichen ( ! oder ? oder Umlaute etc. )
; "zeichen1zeichen2zeiche3" zu prüfende Sonderzeichen, ohne Trenner oder Leerzeichen
;
; Return 1 = Übereinstimmung mit Suchmuster
; 0 = keine Übereinstimmung mit Suchmuster
;
; Autor [email='bugfix@autoit.de'][/email]
;****************************************************************************************************************
Func _PathCheck($PATHSTRING, $TYPE=-1, $SZ=-1)
Local $SONDERZEI = ""
If $SZ <> -1 Then
$SONDERZEI = $SZ
EndIf
Local $PATT_FULL = "((?<!.)([a-zA-Z]\:\\)(?!\s)(([\w-+." & $SONDERZEI & "]*((?<!\s)(\s{1})(?!\\)|(?<!\\)(\\{1})(?!\s))*)*)(\\?)(?!.))"
Local $PATT_O_LW_M_BS = "((?<!.)(\\)(?!\s)(([\w-+." & $SONDERZEI & "]*((?<!\s)(\s{1})(?!\\)|(?<!\\)(\\{1})(?!\s))*)*)(?<!\\)(\\)(?!.))"
Local $PATT_O_LW_O_BS = "((?<!.)(\\)(?!\s)(([\w-+." & $SONDERZEI & "]*((?<!\s)(\s{1})(?!\\)|(?<!\\)(\\{1})(?!\s))*)*)(?<!\\)(\\?)(?!.))"
Local $RET
Switch $TYPE
Case -1 ; prüft auf "C:\abd\vllb" bzw. "C:\abd\vllb\"
$RET = StringRegExp($PATHSTRING, $PATT_FULL)
Case 0 ; prüft auf "\agv\ad\"
$RET = StringRegExp($PATHSTRING, $PATT_O_LW_M_BS)
Case 1 ; prüft auf "\agv\ad"
$RET = StringRegExp($PATHSTRING, $PATT_O_LW_O_BS)
EndSwitch
Return $RET
EndFunc ;==>PathCheck
EDIT:
Ich habe hier mal versucht den verwendeten regulären Ausdruck zu erläutern.
Wenn man noch nichts damit zu tun hatte und dann auf so ein Gebilde schaut, ist das wie der vielzitierte Blick vom Schwein ins Uhrwerk.
Ging mir genauso.
EDIT2:
Hab noch eine Erweiterung zur optionalen Einbindung von Sonderzeichen ( Umlaute, !, ? etc. ) hinzugefügt.
Manch einer hat so etwas ja in seinen Pfaden.
Einfach als Parameter mit übergeben.
Hab die Erklärung nochmal überarbeitet, etwas übersichtlicher gestaltet.
; Generated by AutoIt Scriptomatic
[/autoit][autoit][/autoit][autoit]$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$Output=""
$Output = $Output & "Computer: " & $strComputer & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_GroupUser", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
For $objItem In $colItems
$Output = $Output & "GroupComponent: " & $objItem.GroupComponent & @CRLF
$Output = $Output & "PartComponent: " & $objItem.PartComponent & @CRLF
if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
$Output=""
Next
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_GroupUser" )
Endif
$listview=GUICtrlCreateListView("Rechnername|Kommentar", 80, 170, 256, 250, $LVS_EX_ONECLICKACTIVATE)
[/autoit]Das ist 'extended' Style. Also:
[autoit]$listview=GUICtrlCreateListView("Rechnername|Kommentar", 80, 170, 256, 250, -1, $LVS_EX_ONECLICKACTIVATE)
[/autoit]Das hatte ich gemeint.
[autoit]_GUICtrlListViewSetHoverTime($listview, 1000)
[/autoit]Bedeutet: Nach 1 s (1000 ms) wird der unter dem Mauszeiger befindliche Eintrag ausgewählt (als ob du ihn anklickst).
Den Inhalt des Eintrags kannst du jetzt so auslesen:
[autoit]$Inhalt = _GUICtrlListViewGetItemText($listview, -1, $SpaltenIndex) ; $SpaltenIndex ist 0-basiert; also Spalte 1 = 0, Spalte 2 = 1, usw.
[/autoit]Zu beachten:
The hover time only affects list-view controls that have the
$LVS_EX_TRACKSELECT, $LVS_EX_ONECLICKACTIVATE, or
$LVS_EX_TWOCLICKACTIVATE extended list-view style
Ich glaube es gibt die Möglichkeit durch MouseHoover-Effekt nach festgelegter Zeitspanne, den unter der Maus liegenden Eintrag zu aktivieren.
Somit fragst du den Index dieses Eintrags ab und mit dem Index kannst du den Inhalt auslesen - weiterverarbeiten und an den Tooltip übergeben.
EDIT:
MouseHoover hab ich jetzt nicht gefunden. Aber ich hatte sowas schonmal hier gemacht. Schau dir mal die Funktion 'ListClick( )' an. Dazu mußt du aber im OnEvent-Modus arbeiten.
