Genial
Am besten war ja noch immer das von gestern Abend (das mit Fliwatt und m6k)
Genial
Am besten war ja noch immer das von gestern Abend (das mit Fliwatt und m6k)
suuuuper danke!
//closed
1. Du kannst keine Themen schleißen.
2. Hier werden auch (normalerweise) keine Themen geschloßen.
Es genügt den Präfix auf "gelöst" zu stellen".
Nur ein kleiner Tipp
Mfg
Du könntest auch einfach mit "Run" Outlook starten und dann mit der UDF weiterarbeiten!
[autoit]
Run("D:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE")
Und noch was:
Falls es dir nicht passt, das du ein wenig auf eine Antwort warten musst, dann geh doch in ein anderes Forum.
Nur hier wirst du wohl die besten Antworten zu AutoIt-Fragen auf Deutsch bekommen!
Du kannst es ja auch mal im englischen Forum probieren.
Mfg
Frohes neues Jahr!
@chess: Bitte kein pinkes Jahr. *brrrr*
Ich hab einen Formatierungsfehler bei "@OSLang-Sprachcodes" gefunden (kein Syntax-Highlighting des Beispiels):
[Blockierte Grafik: http://i.imgur.com/M1Td1.png]
Mfg
Willkommen im Forum!
Du wirst noch viel Spaß bei uns haben
Mfg
Joa,
Alles Gute zum Geburtstag, letsgo!
[Blockierte Grafik: http://3.bp.blogspot.com/-XabV13qjbNs/T7eLaTQaBnI/AAAAAAAAQrM/rMlesieq0Cw/s1600/singender_kuchen.gif]
Dann feier mal schön und lass krachen
Das sind Grundlagen. Lies dir mal die Tutorials durch
Kleiner Denkanstoß:
_IsPressed()
[/autoit]Und wofür ist das eigentlich/Was soll das werden?
Mfg
Hallo,
danke für dein Beispielscript, aber darauf bin ich auch gekommen. Mit den unterordnern ist es zwar ein bisschen Arbeit, aber es geht schon ( fast ).
mfg
Hauke
Sehr gut, wenn es jetzt schon fast funktioniert.
Das mit Unterordner sollte nicht allzu schwer sein, ist ja eigentlich nur Verschachtelung
Mfg
Aber nur wenn der Ordner keine Unterordner enthält.mfg autoBert
Selbst wenn, das wird hauke dann wohl selbst hinbekommen.
Das war nur mal schnell ein Beispiel wie man es lösen könnte.
Mfg
Probier mal das:
#Include <FTPEx.au3>
if NOT FileExists(@ScriptDir & "\config.ini") Then
Exit
EndIf
$SourceDir = IniRead(@ScriptDir & "\config.ini", "Config", "Source_DIR", "")
$FTPDir = IniRead(@ScriptDir & "\config.ini", "Config", "FTP_DIR", "")
$IP = IniRead(@ScriptDir & "\config.ini", "Config", "Server_IP", "")
$Username = IniRead(@ScriptDir & "\config.ini", "Config", "Benutzername", "")
$Password = IniRead(@ScriptDir & "\config.ini", "Config", "Passwort", "")
$FTP_Open = 0
$FTP_Connect = 0
while $FTP_Open = 0
$FTP_Open = _FTP_Open("FTP Server")
sleep(2000)
WEnd
while $FTP_Connect = 0
$FTP_Connect = _FTP_Connect($FTP_Open, $IP, $Username, $Password)
sleep(2000)
WEnd
While 1
$FTP_PutDir = 0
while $FTP_PutDir = 0
_FTP_DirSetCurrent($FTP_Connect,$FTPDir) ;## Remote-Verzeichnis setzen für _FTP_ListToArray
$aList = _FTP_ListToArray($FTP_Connect) ;## Liste der Dateien in ein Array schreiben
For $i = 1 To UBound($aList)-1 ;## Die Dateien einzeln löschen
_FTP_FileDelete($FTP_Connect,$aList[$i])
Sleep(3000) ;## ggf. die Zeit an Dateigröße anpassen
Next
;-- Falls DirDelete fehlschlägt, am besten mit _FTP_DirSetCurrent einen Oberornder (ggf. Root-Verzeichnis) setzen!
_FTP_DirDelete($FTP_Connect, $FTPDir); RÜCKGABEWERT: 0
$FTP_PutDir = _FTP_DirPutContents($FTP_Connect, $SourceDir, $FTPDir, 1)
Sleep(1000)
WEnd
Sleep(60000)
WEnd
Ist ungtestet, sollte aber soweit funktionieren.
Mfg
1. Bitte lies dir mal deine Nachricht durch bevor du sie schickst (Rechtschreibfehler etc.). Danke.
2. Du musst die Datei runterladen, in "locale.properties" (ohne ") umbennen und DANN in den SciTe Ordner kopieren
3. Bin chip's Meinung, es ist besser SciTe auf English zu haben.
Mfg
Nö, du hast dir anscheined nur die Befehle nicht in der Hilfe angeschaut.
FileOpen gibt ein Handle zurück, mit welchen du arbeiten musst.
Dadurch schließt du die Datei auch niemals!
$sFile = @ScriptDir & "\test.txt"
[/autoit][autoit][/autoit][autoit]$hFile = FileOpen($sFile)
$s = FileRead($hFile)
ConsoleWrite($s)
FileClose($hFile)
FileDelete($sFile)
[/autoit]
Das z.B. funktioniert, da ich mit dem FileHandle arbeite, das eben von FileOpen zurückgegeben wird.
Mfg
Edit: Viiiieel zu langsam -.-
Nur so... als Anmerkung.
Es wird Standard geschrieben, nicht Standart.
Bin ja normalerweise nicht so kleinkarriert, aber du hast das im Titel.
Danke für den Hinweis, habs ausgebessert
Ich war müde wie ich den Thread geschrieben hatte, da ich ne Nacht nicht geschlafen hatte
Mfg
#Update
Die _GetDefaultBrowser Funktion sollte nun bei so ziemlich jedem Browser den vollen Namen anzeigen, solange er die Standart Registry-Einträge erstellt.
Nun schau ich noch das die _GetInstalledBrowser Funktion komplett funktioniert
Mfg
Hallo,
Die Idee für diese UDF fiel mir vor ein paar Tagen spontan ein.
Es kann schon sein das es so eine ähnliche UDF schon gibt, habe Google nicht gequält
#include-once
#include <Array.au3>
Global Const $REG_X86_HKCU_DB = "HKCU\Software\Clients\StartMenuInternet"
Global Const $REG_X86_HKLM_IB = "HKLM\Software\Clients\StartMenuInternet"
Global Const $REG_X64_HKCU_DB = "HKCU64\Software\Clients\StartMenuInternet"
Global Const $REG_X64_HKLM_IB = "HKLM64\Software\Clients\StartMenuInternet"
; #FUNCTION# ====================================================================================================================
; Name ..........: _GetDefaultBrowser
; Description ...: Returns the name of the default browser.
; Syntax ........: _GetDefaultBrowser()
; Parameters ....:
; Return values .: Success: Returns the name of the default browser.
; Failure: Returns 0
; Author ........: PainTain @ Autoit.de (Christoph H.)
; Related .......: _GetInstalledBrowser()
; Link ..........: http://www.autoitscript.com/forum/topic/14…bkeys-function/
; ===============================================================================================================================
Func _GetDefaultBrowser()
If @CPUArch = "X86" Then
$sUserDefaultBrowserX86 = RegRead($REG_X86_HKCU_DB,"")
If @error Then
Return 0
Else
$asInstalledBrowserX86 = _GetRegSubKeys($REG_X86_HKLM_IB)
$iIndexOfDB = _ArraySearch($asInstalledBrowserX86,$sUserDefaultBrowserX86)
$sFullName = RegRead($REG_X86_HKLM_IB & "\" & $asInstalledBrowserX86[$iIndexOfDB],"")
Return $sFullName
EndIf
ElseIf @CPUArch = "X64" Then
$sUserDefaultBrowserX64 = RegRead($REG_X64_HKCU_DB,"")
If @error Then
Return 0
Else
$asInstalledBrowserX64 = _GetRegSubKeys($REG_X64_HKLM_IB)
$iIndexOfDB = _ArraySearch($asInstalledBrowserX64,$sUserDefaultBrowserX64)
$sFullName = RegRead($REG_X64_HKLM_IB & "\" & $asInstalledBrowserX64[$iIndexOfDB],"")
Return $sFullName
EndIf
Else
Return 0
EndIf
EndFunc
; #FUNCTION# ====================================================================================================================
; Name ..........: _GetInstalledBrowser
; Description ...: Returns an array with the names of installed browser.
; Syntax ........: _GetInstalledBrowser()
; Parameters ....: None
; Return values .: Success: Returns an array with the names of installed browsers (See remarks!).
; Failure: Returns 0
; Author ........: PainTain @ Autoit.de (Christoph H.)
; Remarks .......: Index 0 of the array contains the number of installed browsers.
; Related .......: _GetDefaultBrowser()
; Link ..........:
; ===============================================================================================================================
Func _GetInstalledBrowser()
If @CPUArch = "X86" Then
Local $aListFullX86[2]
$aInstalledBrowserX86 = _GetRegSubKeys($REG_X86_HKLM_IB)
_ArrayAdd($aListFullX86,$aInstalledBrowserX86[0])
For $i = 0 To UBound($aInstalledBrowserX86) - 1
$sReadBrowserNameX86 = RegRead($REG_X86_HKLM_IB & "\" & $aInstalledBrowserX86[$i],"")
_ArrayAdd($aListFullX86, $sReadBrowserNameX86)
ReDim $aListFullX86[UBound($aListFullX86)]
Next
_ArrayDelete($aListFullX86, 0)
_ArrayDelete($aListFullX86, 0)
Return $aListFullX86
ElseIf @CPUArch = "X64" Then
Local $aListFullX64[2]
$aInstalledBrowserX64 = _GetRegSubKeys($REG_X64_HKLM_IB)
_ArrayAdd($aListFullX64,$aInstalledBrowserX64[0])
For $i = 1 To UBound($aInstalledBrowserX64) - 1
$sReadBrowserNameX64 = RegRead($REG_X64_HKLM_IB & "\" & $aInstalledBrowserX64[$i],"")
_ArrayAdd($aListFullX64,$sReadBrowserNameX64)
ReDim $aListFullX64[UBound($aListFullX64)]
Next
_ArrayDelete($aListFullX64, 0)
_ArrayDelete($aListFullX64, 0)
Return $aListFullX64
Else
Return 0
EndIf
EndFunc
; #FUNCTION# ====================================================================================================================
; Name ..........: _GetRegSubKeys
; Description ...: Returns an array with the sub keys of a given registry key.
; Syntax ........: _GetRegSubKeys($sHKEY)
; Parameters ....: $sHKEY - The registry key
; Return values .: Success: Returns an array with the Subkeys (See remarks!).
; Failure: Returns 0.
; Author ........: PainTain @ Autoit.de (Christoph H.)
; Remarks .......: Index 0 of the array contains the number of the read keys.
; Link ..........:
; ===============================================================================================================================
Func _GetRegSubKeys($sHKEY)
Local $i = 1
Local $aSubKeys[$i]
Do
$sSubKey = RegEnumKey($sHKEY,$i)
If @error Then Return 0
ReDim $aSubKeys[UBound($aSubKeys)]
_ArrayAdd($aSubKeys,$sSubKey)
$i += 1
Until RegEnumKey($sHKEY, $i) = "" And @error = "-1"
_ArrayInsert($aSubKeys, 0, UBound($aSubKeys) - 1)
_ArrayDelete($aSubKeys, 1)
Return $aSubKeys
EndFunc
Beschreibung der 2 Funktionen steht in der UDF drinnen
Ich werde beide Funktionen in den nächsten Tagen nochmal updaten, da sie noch nicht ganz fertig sind (vorallem _GetDefaultBrowser).
Für diese UDF benötigte ich eine Funktion, um alle Unterschlüssel eines Regisrty-Schlüssels auszulesen.
Nachdem BugFix's Variante nicht funktioniert hatte (RegFunc), schrieb ich mir meine eigene Funktion.
Diese funktioniert (zumindest bei mir) ohne Probleme, also dachte ich mir, das ich diese hier auch gleich posten kann.
BugFix möge mir es verzeihen, dass ich die Funktion genauso wie seine benannt habe
#include-once
#include <Array.au3>
; #FUNCTION# ====================================================================================================================
; Name ..........: _GetRegSubKeys
; Description ...: Returns an array with the sub keys of a given registry key.
; Syntax ........: _GetRegSubKeys($sHKEY)
; Parameters ....: $sHKEY - The registry key
; Return values .: Success: Returns an array with the Subkeys (See remarks!).
; Failure: Returns 0.
; Author ........: PainTain @ Autoit.de (Christoph H.)
; Remarks .......: Index 0 of the array contains the number of the read keys.
; Link ..........: http://www.autoitscript.com/forum/topic/14…bkeys-function/
; ===============================================================================================================================
Func _GetRegSubKeys($sHKEY)
Local $i = 1
Local $aSubKeys[$i]
Do
$sSubKey = RegEnumKey($sHKEY,$i)
If @error Then Return 0
ReDim $aSubKeys[UBound($aSubKeys)]
_ArrayAdd($aSubKeys,$sSubKey)
$i += 1
Until RegEnumKey($sHKEY, $i) = "" And @error = "-1"
_ArrayInsert($aSubKeys, 0, UBound($aSubKeys) - 1)
_ArrayDelete($aSubKeys, 1)
Return $aSubKeys
EndFunc
Beide UDF's sind zudem nochmal in unten angehängt.
Bei der "DefaultBrowser.au3" ist bereits die _GetRegSubKeys - Funktion drinnen
Wer (Rechtschreib-/Grammatik-) Fehler findet bitte ich mich darauf hinzuweisen.
Falls noch jemand irgendeine ähnliche Funktion möchte, schreibt es
Ansonst wünsche ich euch noch einen schönen Abend und vorallem
Ein frohes Fest & neues Jahr euch allen
Mfg
Edit: 6 Downloads und kein Feedback?