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.
Ich befürchte, mit AutoIt-Mitteln gar nicht.
AutoIt kann nicht mehrere Prozesse parallel laufen lassen. Es wird alles nacheinander abgearbeitet. Also Kopiervorgang wird gestartet und erst wenn er vorbei ist, kannst du eine neue Aktion starten.
Ich hatte es bisher nicht gefunden, aber vielleicht läßt sich doch irgendwie vorher die 'Eieruhr' starten und am Ende des Vorgangs wieder schließen.
\off topic
Dein Avatar gefällt mir: "Meister der idiotischen Kommentare"
Hi,
Feiertagsberechnung hatte ich schon mal gemacht. Findest du auch bei den Skripten. Hier nochmal die Funktion:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Funktion _Feiertage($Jahr)
;
; gibt die Feiertage des übergebenen Jahres
; als sortiertes Array[TT.MM.JJJJ \ Feiertag] zurück
; (Trennzeichen veränderbar über Variable: $Delimiter)
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <math.au3>
#include <Date.au3>
#include <Array.au3>
Func _Feiertage($year)
Dim $4AdvDat, $3AdvDat, $2AdvDat, $1AdvDat, $TotSoDat, $BuBDat, $MutterDat, $ErnteDat, $tmp, $Delimiter = "\"
Dim $HDays[32]
;fixe Feiertage
$HDays[0] = $year & "/01/01" & $Delimiter & "Neujahr"
$HDays[1] = $year & "/01/06" & $Delimiter & "Heilige Drei Könige"
$HDays[2] = $year & "/02/14" & $Delimiter & "Valentinstag"
$HDays[3] = $year & "/05/01" & $Delimiter & "Maifeiertag"
$HDays[4] = $year & "/10/03" & $Delimiter & "Tag der Deutschen Einheit"
$HDays[5] = $year & "/10/31" & $Delimiter & "Reformationstag"
$HDays[6] = $year & "/11/01" & $Delimiter & "Allerheiligen"
$HDays[7] = $year & "/12/24" & $Delimiter & "Heiligabend"
$HDays[8] = $year & "/12/25" & $Delimiter & "1. Weihnachtsfeiertag"
$HDays[9] = $year & "/12/26" & $Delimiter & "2. Weihnachtsfeiertag"
$HDays[10] = $year & "/12/31" & $Delimiter & "Silvester"
;variable Feiertage
$aa = Mod($year, 19)
$bb = Mod($year, 4)
$cc = Mod($year, 7)
$H1 = Int($year / 100)
$H2 = Int($year / 400)
$N = 4 + $H1 - $H2
$MM = 15 + $H1 - $H2 - _Floor (Int((8 * $H1 + 13) / 25))
$dd = Mod((19 * $aa + $MM), 30)
$ee = Mod((2 * $bb + 4 * $cc + 6 * $dd + $N), 7)
If $dd + $ee = 35 Then
$Easter = 50
Else
If $dd = 28 And $ee = 6 And $aa > 10 Then
$Easter = 49
Else
$Easter = 22 + $dd + $ee
EndIf
EndIf
If $Easter < 32 Then
$EasterDay = $Easter
$EasterMonth = "03"
Else
$EasterDay = $Easter - 31
$EasterMonth = "04"
EndIf
If $EasterDay < 10 Then
$EasterDay = "0" & $EasterDay
EndIf
If $year < 1900 Then ;Datumsoperationen nur mgl. wenn > 1900 , Jahr wird konvertiert
$RestJahr = Mod($year, 100)
If _DateIsLeapYear($year) Then
If $RestJahr < 10 Then
$RestJahr = "0" & $RestJahr
EndIf
$Tempyear = 20 & $RestJahr
Else
If $RestJahr < 10 Then
$RestJahr = "0" & $RestJahr
EndIf
$Tempyear = 19 & $RestJahr
EndIf
$EasterDate = $Tempyear & "/" & $EasterMonth & "/" & $EasterDay
Else
$EasterDate = $year & "/" & $EasterMonth & "/" & $EasterDay
EndIf
$WFastDate = _DateAdd( 'd', -52, $EasterDate)
$RosDat = _DateAdd( 'd', -48, $EasterDate)
$FastDat = _DateAdd( 'd', -47, $EasterDate)
$AschDat = _DateAdd( 'd', -46, $EasterDate)
$GrDoDat = _DateAdd( 'd', -3, $EasterDate)
$KarDat = _DateAdd( 'd', -2, $EasterDate)
$OSaDat = _DateAdd( 'd', -1, $EasterDate)
$OSoDat = $EasterDate
$OMoDat = _DateAdd( 'd', 1, $EasterDate)
$HiFaDat = _DateAdd( 'd', 39, $EasterDate)
$PfSoDat = _DateAdd( 'd', 49, $EasterDate)
$PfMoDat = _DateAdd( 'd', 50, $EasterDate)
$FroDat = _DateAdd( 'd', 60, $EasterDate)
;Ermitteln nicht von Ostern abhängiger, veränderlicher Feiertage
;Muttertag = 2. Sonntag im Mai ABER wenn Pfingsten = 2.Sonntag im Mai dann ist Muttertag am 1. Sonntag
;Der 2. Sonntag kann nur zw. dem 8. u. 14.5. liegen
For $maitag = 8 To 14
If _DateToDayOfWeek($year, 5, $maitag) = 1 Then
If $maitag < 10 Then
$maitag = "0" & $maitag
EndIf
$MutterDat = $year & "/05/" & $maitag
If $MutterDat = $PfSoDat Then
$MutterDat = _DateAdd( 'd', -7, $year & "/05/" & $maitag)
EndIf
ExitLoop
EndIf
Next
;Erntedankfest 1. Sonntag im Oktober (zw. 1. u. 7.10.)
For $oktobertag = 1 To 7
If _DateToDayOfWeek($year, 10, $oktobertag) = 1 Then
$oktobertag = "0" & $oktobertag
$ErnteDat = $year & "/10/" & $oktobertag
ExitLoop
EndIf
Next
;4.Advent = Sonntag vor 25.12. (zw. 18. u. 24.12.)
For $deztag = 18 To 24
If _DateToDayOfWeek($year, 12, $deztag) = 1 Then
$4AdvDat = $year & "/12/" & $deztag
$3AdvDat = _DateAdd( 'd', -7, $4AdvDat)
$2AdvDat = _DateAdd( 'd', -14, $4AdvDat)
$1AdvDat = _DateAdd( 'd', -21, $4AdvDat)
$TotSoDat = _DateAdd( 'd', -28, $4AdvDat)
$BuBDat = _DateAdd( 'd', -32, $4AdvDat)
ExitLoop
EndIf
Next
$HDays[11] = $WFastDate & $Delimiter & "Weiberfastnacht"
$HDays[12] = $RosDat & $Delimiter & "Rosenmontag"
$HDays[13] = $FastDat & $Delimiter & "Fastnacht"
$HDays[14] = $AschDat & $Delimiter & "Aschermittwoch"
$HDays[15] = $GrDoDat & $Delimiter & "Gründonnerstag"
$HDays[16] = $KarDat & $Delimiter & "Karfreitag"
$HDays[17] = $OSaDat & $Delimiter & "Ostersamstag"
$HDays[18] = $OSoDat & $Delimiter & "Ostersonntag"
$HDays[19] = $OMoDat & $Delimiter & "Ostermontag"
$HDays[20] = $HiFaDat & $Delimiter & "Christi Himmelfahrt"
$HDays[21] = $PfSoDat & $Delimiter & "Pfingstsonntag"
$HDays[22] = $PfMoDat & $Delimiter & "Pfingstmontag"
$HDays[23] = $MutterDat & $Delimiter & "Muttertag"
$HDays[24] = $FroDat & $Delimiter & "Fronleichnam"
$HDays[25] = $ErnteDat & $Delimiter & "Erntedankfest"
$HDays[26] = $BuBDat & $Delimiter & "Buß- und Bettag"
$HDays[27] = $TotSoDat & $Delimiter & "Totensonntag"
$HDays[28] = $1AdvDat & $Delimiter & "1. Advent"
$HDays[29] = $2AdvDat & $Delimiter & "2. Advent"
$HDays[30] = $3AdvDat & $Delimiter & "3. Advent"
$HDays[31] = $4AdvDat & $Delimiter & "4. Advent"
_ArraySort($HDays)
;Datum konvertieren zu TT.MM.JJJJ
For $i = 0 To 31
$tmp = StringSplit($HDays[$i], $Delimiter)
$HDays[$i] = StringMid($tmp[1], 9) & "." & StringMid($tmp[1], 6, 2) & "." & StringMid($tmp[1], 1, 4) & $Delimiter & $tmp[2]
Next
Return $HDays
EndFunc ;==>_Feiertage
