Beiträge von Greenhorn

[autoit]

#include <Array.au3>

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

$target = "C:\Programme\Mozilla Firefox\firefox.exe"

; Dateiname auslesen
$file = StringSplit($target, "\")
_ArrayDisplay($file, "Dateiname")

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

; Dateiname
MsgBox(64 + 8192, "Dateiname", $file[$file[0]])

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

; Pfadname
_ArrayPop($file)
_ArrayDisplay($file, "Pfad")
$Path = _ArrayToString($file, "\",1)
MsgBox(0, "Pfad", $Path)

[/autoit]

shorten for DOS/Windows
-----------------------

shorten has been built for DOS/Windows using the Cygwin toolkit, available at
<http://sources.redhat.com/cygwin/>.

------------
Installation
------------

To install shorten, first extract the files contained in the distribution .zip
file to a temporary directory, and copy shorten.exe and cygwin1.dll to a
directory that is in your PATH. To find out what directories are in your PATH,
go to the DOS prompt and type:

C:\> echo %PATH%

Any of the listed directories will do, but perhaps the best choice is one of the
Windows directories, e.g. C:\Windows, C:\Windows\Command, C:\Windows\System,
C:\WinNT, C:\WinNT\System32, et cetera. Of course, yours may be different than
these, and there may be more than one Windows directory listed.

To make sure shorten working correctly, go to the DOS prompt and type:

C:\> shorten -h

You should see shorten's version information (verify that it shows the correct
version - if not, then you probably have an outdated copy of shorten.exe
somewhere on your hard drive that you need to remove). If you don't see the
version information, or if you get a message saying that the command was not
found, then shorten is not installed correctly.

------
Quirks
------

Due to the way Cygwin works, there are certain times when file names need to be
specified in a way different from the normal DOS syntax. Essentially, the
differences are that (a) you use forward slashes instead of backslashes, and (b)
if you want to access files on a different drive than the one you are currently
on, you use can either use "d:", or if that doesn't work, "/cygdrive/d", where "d"
is the drive you want to access.

Case 1
======

If you are shortening files in the current directory, you can simply issue a
command similar to this:

C:\> shorten track01.wav

Case 2
======

Now suppose your .wav's are in a different directory than the current directory
you are in, but they are on the same drive (drive C: for instance). Then you
can specify where they are in one of two ways.

1. Example using a relative path to get to them:

C:\> shorten ../disc2/track01.wav

2. Example using an absolute path to get to them:

C:\> shorten c:/other/directory/track01.wav

or:

C:\> shorten /cygdrive/c/other/directory/track01.wav

Case 3
======

Finally, suppose the .shn's you want to extract are on a completely different
drive. Then you need to specify the drive letter, as well as the path to the
files, similar to the following:

C:\> shorten -x d:/directory/on/this/drive/track01.shn

or:

C:\> shorten -x /cygdrive/d/directory/on/this/drive/track01.shn

You can easily avoid having to remember to do any of this, however, if you
always change to the desired directory before running shorten. Taking the
example from Case 3, this is how you would go about doing this:

C:\> d:
D:\> cd directory\on\this\drive
D:\directory\on\this\drive> shorten -x track01.shn

Note that you use forward slashes as a pathname separator *only* when invoking
shorten, not when you are issuing normal DOS commands.

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.2.0
Author: myName

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

Script Function:
WinShorten a GUI for Shorten

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

#ce ----------------------------------------------------------------------------

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

#include <GuiConstants.au3>
#include <GUIList.au3>

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

Dim $Array

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

GuiCreate("WinShorten", 634, 419,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

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

$Group_1 = GuiCtrlCreateGroup("Dateien auswählen", 20, 30, 580, 270)
$Add = GuiCtrlCreateButton("Hinzufügen", 490, 70, 90, 30)
GUICtrlSetState(-1, $GUI_FOCUS)
$Del = GuiCtrlCreateButton("Entfernen", 490, 140, 90, 30)
$List = GuiCtrlCreateList("", 60, 60, 370, 214)
$Group_2 = GuiCtrlCreateGroup("", 20, 310, 180, 100)
$Compress = GuiCtrlCreateRadio("Komprimieren", 30, 330, 100, 20)
$Extract = GuiCtrlCreateRadio("Extrahieren", 30, 370, 100, 20)
$Start = GuiCtrlCreateButton("Start", 500, 320, 100, 30)
$Cancel = GuiCtrlCreateButton("Abbrechen", 500, 370, 100, 30)

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

GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $Add
$message = "Hold down Ctrl or Shift to choose multiple files."
$var = FileOpenDialog($message, @DesktopDir & "\", "(*.wav)", 1 + 4 )
If @error Then
MsgBox(4096,"","No .wav File(s) chosen")
Else
$Array = StringSplit($var, "|")
For $i = 2 To UBound($Array)-1
$File = $Array[$i]
GUICtrlSetData($List, $File)
Next
EndIf
Case $msg = $Del
$chosen = _GUICtrlListSelectedIndex($List)
_GUICtrlListDeleteItem($List, $chosen)
Case $msg = $Compress
$c = ""
Case $msg = $Extract
$c = "-x "
Case $msg = $Start
$tmp = $Array[1]
$Path = StringRegExpReplace($tmp, "\\", "/")
For $i = 2 To UBound($Array)-1
;ShellExecuteWait("shorten.exe ", $c & $Path & "/" & $Array[$i])
;RunWait("shorten.exe " & $c & $Path & "/" & $Array[$i])
;RunWait(@ComSpec & " /c " & "shorten " & $c & $Path & "/" & $Array[$i], "", @SW_MAXIMIZE)
Next
Case $msg = $Cancel
ExitLoop
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
Exit

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

Case 1
======

If you are shortening files in the current directory, you can simply issue a
command similar to this:

C:\> shorten track01.wav

Case 2
======

Now suppose your .wav's are in a different directory than the current directory
you are in, but they are on the same drive (drive C: for instance). Then you
can specify where they are in one of two ways.

1. Example using a relative path to get to them:

C:\> shorten ../disc2/track01.wav

2. Example using an absolute path to get to them:

C:\> shorten c:/other/directory/track01.wav

or:

C:\> shorten /cygdrive/c/other/directory/track01.wav

Case 3
======

Finally, suppose the .shn's you want to extract are on a completely different
drive. Then you need to specify the drive letter, as well as the path to the
files, similar to the following:

C:\> shorten -x d:/directory/on/this/drive/track01.shn

or:

C:\> shorten -x /cygdrive/d/directory/on/this/drive/track01.shn

You can easily avoid having to remember to do any of this, however, if you
always change to the desired directory before running shorten. Taking the
example from Case 3, this is how you would go about doing this:

C:\> d:
D:\> cd directory\on\this\drive
D:\directory\on\this\drive> shorten -x track01.shn

Note that you use forward slashes as a pathname separator *only* when invoking
shorten, not when you are issuing normal DOS commands.

[autoit]

#include <GUIConstants.au3>

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

$maingui = "WinUPX - The Ultimate Packer for eXecutables"
GUICreate( $maingui, 600, 400, -1, -1)

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

Global $defaultstatus = "Ready"
Global $status

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

$filemenu = GUICtrlCreateMenu ("&Datei")
$fileitem = GUICtrlCreateMenuitem ("Öffnen",$filemenu)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$helpmenu = GUICtrlCreateMenu ("?")
$saveitem = GUICtrlCreateMenuitem ("Speichern",$filemenu)
GUICtrlSetState(-1,$GUI_DISABLE)
$infoitem = GUICtrlCreateMenuitem ("Info",$helpmenu)
$exititem = GUICtrlCreateMenuitem ("Beenden",$filemenu)
$recentfilesmenu = GUICtrlCreateMenu ("Zuletzt",$filemenu,1)

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

$separator1 = GUICtrlCreateMenuitem ("",$filemenu,2) ; create a separator line

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

$viewmenu = GUICtrlCreateMenu("Ansicht",-1,1) ; is created before "?" menu
$viewstatusitem = GUICtrlCreateMenuitem ("Statusbar",$viewmenu)
GUICtrlSetState(-1,$GUI_CHECKED)
$okbutton = GUICtrlCreateButton ("OK",50,130,70,20)
GUICtrlSetState(-1,$GUI_FOCUS)
$cancelbutton = GUICtrlCreateButton ("Abbrechen",180,130,70,20)

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

$statuslabel = GUICtrlCreateLabel ($defaultstatus,0,364,600,16,BitOr($SS_SIMPLE,$SS_SUNKEN))

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

$checkCN = GUICtrlCreateCheckbox ("CHECKBOX 1", 10, 10, 120, 20)
$Input = GUICtrlCreateInput ("", 10, 35, 300, 20)
$decompress = GUICtrlCreateRadio ("Datei entpacken", 10, 70)
$compress = GUICtrlCreateRadio ("Datei packen", 10, 100)
$browse = GUICtrlCreateButton ("Durchsuchen...", 340, 35, 90, 20)

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

GUISetState ()
While 1
$msg = GUIGetMsg()

Select
Case $msg = $browse
$file = FileOpenDialog("Datei auswählen...",@MyDocumentsDir,"Executables (*.exe)")
$datei = FileGetShortName($file)
MsgBox(0, "TT", $datei)
$tmp = FileOpen("Temp.txt", 2)
FileWrite($tmp, $datei)
FileChangeDir($tmp)
Case $msg = $fileitem
$file = FileOpenDialog("Datei auswählen...",@DesktopCommonDir,"Executables (*.exe)")
Case $msg = $viewstatusitem
If BitAnd(GUICtrlRead($viewstatusitem),$GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($viewstatusitem,$GUI_UNCHECKED)
GUICtrlSetState($statuslabel,$GUI_HIDE)
Else
GUICtrlSetState($viewstatusitem,$GUI_CHECKED)
GUICtrlSetState($statuslabel,$GUI_SHOW)
EndIf
Case $msg = $decompress
$option = "-d"
Case $msg = $okbutton
$Exec = ShellExecute ("upx.exe ", "-d " & $datei)
If $Exec <> 1 Then MsgBox(4096, "error", "error")
Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Or $msg = $exititem
ExitLoop
Case $msg = $infoitem
Msgbox(64,"Info","Nur ein Test...")
EndSelect
WEnd
GUIDelete()

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

Exit

[/autoit]

[autoit]

Dim $RegScript = FileOpen($regdest, 2)

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

; Funktion Pfade im Script ändern
Func PathReplace()
Dim $arFile

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

If _FileReadToArray($RegScript, $arFile) = 0 Then
MsgBox(0, 'Achtung', "Datei konnte nicht eingelesen werden!")
Exit
EndIf
$Replace = '@WorkingDir & "'
$Path = "[A-Z]" & ":" & "\\" & "Programme"
For $i = 1 To UBound($arFile) - 1
$Line = $arFile[$i]
$vRes = StringRegExp($Line, $Path, 1)
If @extended Then $arFile[$i] = StringRegExpReplace($Line, '"' & $Path, $Replace)
Next
_FileWriteFromArray($RegScript, $arFile,1)
EndFunc ;==>PathReplace

[/autoit]

[autoit]

#include <Array.au3>
#include <File.au3>
#include <String.au3>

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

Dim $ArFile, $Dest = FileOpen(@MyDocumentsDir & "\Test.usd", 2)

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

If _FileReadToArray(@MyDocumentsDir & "\Tut.usd", $ArFile)= -1 Then
MsgBox(0, "Error", "Datei konnte nicht eingelesen werden !")
EndIf

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

For $i=1 To UBound($ArFile)-1
$tmp = $ArFile[$i]
If StringInStr($tmp, "/url") Then
$ArFile[$i] = StringRegExpReplace($tmp, "[][]"& "(/url)" & "[][]", "")
EndIf
Next

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

_FileWriteFromArray($Dest, $ArFile,1)
;FileClose($Dest)
Exit

[/autoit]

[autoit]

_ArrayAdd($arTemp, "")
$arTemp[0] = UBound($arTemp)

For $i = 1 To UBound($arTemp)-1
$tmp0 = $arTemp[$i]
$tmp1 = $tmp0 & "\"
$Pos = _ArraySearch($arTemp, $tmp1, 0, 0, 0, True)
Select
Case $Pos = -1
FileWriteLine($UnRegScript, 'RegDelete("' & $tmp0 & '")')
Case Else
If $tmp1 = "\" Then ExitLoop
$v = _ArrayDelete($arTemp, $Pos)
$i = $i-1
EndSelect
Next
FileWriteLine($UnRegScript, "; EndFunc")
FileClose($pfadRead)
FileDelete(@TempDir & "\Temp.txt")

[/autoit]

[Blockierte Grafik: http://xs411.xs.to/xs411/07040/ar.png]

[autoit]

Func Unregister()
#include <File.au3>
#include <String.au3>
#include <Array.au3>

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

$RegASCI = StringReplace(FileGetShortName($regsource), ".reg", ".old")
RunWait(@ComSpec & " /c type " & FileGetShortName($regsource) & ">" & $RegASCI, @MyDocumentsDir, @SW_HIDE)
FileCopy($RegASCI, $regsource, 1)
FileDelete($RegASCI)

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

Dim $arFile, $str, $v, $tmp
Dim $pfadRead = FileOpen($regsource, 0)
Dim $arTemp[1]

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

FileWriteLine($UnRegScript, "; Func Unregister()")

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

If _FileReadToArray($regsource, $arFile) = 0 Then
MsgBox(0, 'Achtung', "Datei konnte nicht eingelesen werden!")
Exit
EndIf
For $i = 1 To UBound($arFile)-1
$tmp = $arFile[$i]
$vResult = StringRegExp($tmp, "[][]", 1)
If @extended Then
$keyname = StringRegExpReplace($tmp, "[][]", "")
_ArrayAdd($arTemp, $keyname)
EndIf
Next

$arTemp[0] = UBound($arTemp)

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

For $i = 1 To UBound($arTemp)-1
$tmp = $arTemp[$i]
$tmp1 = $tmp & "\"
$Pos = _ArraySearch($arTemp, $tmp1, 0, 0, 0, True)
Select
Case $Pos = -1
FileWriteLine($UnRegScript, 'RegDelete("' & $tmp & '")')
Case Else
If $tmp1 = "\" Then ExitLoop
$v = _ArrayDelete($arTemp, $Pos)
$i = $i - 1
EndSelect
Next
FileWriteLine($UnRegScript, "; EndFunc")
FileClose($pfadRead)
FileDelete(@TempDir & "\Temp.txt")
EndFunc ;==>Unregister

[/autoit]

[autoit]

#include <Array.au3>
#include <File.au3>
#include <String.au3>

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

Dim $aSource

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

If _FileReadToArray("D:\Eigene Dateien\Register-1.reg", $aSource) = 0 Then
MsgBox(0, 'Achtung', "Datei konnte nicht eingelesen werden!")
Exit
EndIf
_ArrayDisplay($aSource, "before...")
$Pos = _ArraySearch ($aSource, "", 0, 0, 0, True)
If $Pos <> -1 Then _ArrayDelete($aSource, $Pos)
_ArrayDisplay($aSource, "after !")

[/autoit]