Genial 
Am besten war ja noch immer das von gestern Abend (das mit Fliwatt und m6k) 
Beiträge von PainTain
-
-
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]
[/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*
-
?? Würdest du bitte den vermeintlichen Fehler posten. Das Abbild zeigt keinen Fehler.
Dann haben Beispiele jetzt kein syntax-highlighting mehr?
Doch, alle anderen Beispiele haben Syntax-Highlighting, dieses nicht!
Genau das wollt ich melden.
Mfg
-
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
-
Wow... wirklich tolle Arbeit, Respekt.
Ich werd mir demnächst auch mal die Mathematik dahinter ansehen
-
Du könntest mithilfe von "_FileListToArray" die Textdatei in einem Array speichern, dann den betreffenden Index(Zeile) bearbeitrn und wieder das Array wieder in ne Textdatei schreiben.
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
[autoit]
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:
Spoiler anzeigen
[autoit]#Include <FTPEx.au3>
[/autoit] [autoit][/autoit] [autoit]
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)
WEndWhile 1
[/autoit]
$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
-
Eventuell liegt es daran, das die Website kürzlich verändert wurde.
Um welche Seite handelt es sich eigentlich?
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!
[autoit]$sFile = @ScriptDir & "\test.txt"
[/autoit][autoit][/autoit][autoit]$hFile = FileOpen($sFile)
[/autoit][autoit][/autoit][autoit]
$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 ausgebessertIch 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ältDefaultBrowser.au3
[autoit]#include-once
[/autoit] [autoit][/autoit] [autoit]
#include <Array.au3>Global Const $REG_X86_HKCU_DB = "HKCU\Software\Clients\StartMenuInternet"
[/autoit] [autoit][/autoit] [autoit]
Global Const $REG_X86_HKLM_IB = "HKLM\Software\Clients\StartMenuInternet"Global Const $REG_X64_HKCU_DB = "HKCU64\Software\Clients\StartMenuInternet"
[/autoit] [autoit][/autoit] [autoit]
Global Const $REG_X64_HKLM_IB = "HKLM64\Software\Clients\StartMenuInternet"; #FUNCTION# ====================================================================================================================
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
; 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# ====================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; 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)
[/autoit] [autoit][/autoit] [autoit]
_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)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_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# ====================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; 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
[/autoit]
$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
_GetRegSubKeys.au3
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include-once
#include <Array.au3>; #FUNCTION# ====================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; 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
[/autoit]
$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
EndFuncBeide 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?
