Beiträge von autoBert

**autoBert**

Zitat von CyRoX

Ich weiß nicht, ob man den Login wirklich nur vor die Schleife setzen kann, da ja auch irgendwann ein Timeout eintritt, oder?

Stimmt an eine evtl. Zwangstrennung durch den FTP-Server wegen Inaktivität habe ich nicht gedacht. Deshlb jetzt Login bei Bedarf:

Spoiler anzeigen

[autoit]

#NoTrayIcon

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

#include <FTPEx.au3>
;HotKeySet("{ESC}", "Terminate") nur falls der Benutzer das Skript abbreche können soll
OnAutoItExitRegister("Terminate")

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

Const $sServer = 'test.mymabbo.org' ; Servername
Const $sUser = 'test234' ; Benutzername
Const $sPassword = 'x' ; Passwort des Benutzers
Const $sLocalFile = @ScriptDir & '\Beispiel.dat' ; Lokale Datei, die hochgeladen werden soll
Const $sRemoteFile = 'Beispiel.dat' ; Datei auf dem Server
Global $hFTP_Open, $hConnection = _LogIn($sServer, $sUser, $sPassword) ; Loginvorgang

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

_StartLoop(15)

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

Func _StartLoop($iMin)
Local $hConnection, $iMS, $iCounter = 1
$iMS = $iMin * 60 * 1000
While FileExists($sLocalFile)
If $hFTP_Open = 0 Then
; Loginvorgang beim 1. Mal und später nach einer Zwangstrennung => ergibt Fehler bei FilePut
$hConnection = _LogIn($sServer, $sUser, $sPassword)
EndIf
_FTP_FilePut($hConnection, $sLocalFile, $sRemoteFile) ; Datei $sLocalFile hochladen
If @error Then
MsgBox(16, 'Fehler', 'Fehler beim Upload der Datei.')
Terminate()
$hFTP_Open = 0
Else
MsgBox(64, 'Info', 'Datei erfolgreich hochgeladen (zum ' & $iCounter & '. Mal).')
$iCounter += 1
EndIf
Sleep($iMS) ; wartet 15 Minuten
WEnd
EndFunc ;==>_StartLoop

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

Func _LogIn($sServer, $sUser, $sPassword)
Local $hFTP_Connect
$hFTP_Open = _FTP_Open('FTP')
$hFTP_Connect = _FTP_Connect($hFTP_Open, $sServer, $sUser, $sPassword)
If @error Then
MsgBox(16, 'Fehler', 'Benutzerdaten überprüfen, konnte keine Verbindung zum Server herstellen.')
Exit
Else
Return $hFTP_Connect
EndIf
EndFunc ;==>_LogIn

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

Func Terminate()
_FTP_Close($hFTP_Open)
Exit
EndFunc ;==>Terminate

[/autoit]

mfg autoBert

**autoBert**

In ...\AutoIt3\Extras\AutoUpdateIt\ befindet sich ein Beispielprogramm: AutoUpdateIt.au3, welches bei Bedarf AutoIt updatet. Ein Blick in das Skript kann nicht schaden,

mfg autoBert

**autoBert**

Zitat von Torni

denke da sollte noch ein _FTP_Close in die Schleife, sonst öffnet man doch ewig FTP-Sitzungen ?!?

Noch besser den Login vor die Schleife und wie sollte dieses Skript bisher eigentllch beendet werden?

Spoiler anzeigen

[autoit]

#include <FTPEx.au3>
HotKeySet("{ESC}", "Terminate")

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

Const $sServer = 'test.mymabbo.org' ; Servername
Const $sUser = 'test234' ; Benutzername
Const $sPassword = 'x' ; Passwort des Benutzers
Const $sLocalFile = @ScriptDir & '\Beispiel.dat' ; Lokale Datei, die hochgeladen werden soll
Const $sRemoteFile = 'Beispiel.dat' ; Datei auf dem Server
Global $hFTP_Open, $hConnection = _LogIn($sServer, $sUser, $sPassword) ; Loginvorgang

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

_StartLoop(15)

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

Func _StartLoop($iMin)
Local $hConnection, $iMS, $iCounter = 1
$iMS = $iMin * 60 * 1000
while FileExists($sLocalFile)
$hConnection = _LogIn($sServer, $sUser, $sPassword) ; Loginvorgang
If $hConnection = 0 Then
MsgBox(16, 'Fehler', 'Benutzerdaten überprüfen, konnte keine Verbindung zum Server herstellen.')
EndIf
_FTP_FilePut($hConnection, $sLocalFile, $sRemoteFile) ; Datei $sLocalFile hochladen
If @error Then
MsgBox(16, 'Fehler', 'Fehler beim Upload der Datei.')
Else
MsgBox(64, 'Info', 'Datei erfolgreich hochgeladen (zum ' & $iCounter & '. Mal).')
EndIf
$iCounter = $iCounter + 1
Sleep($iMS) ; wartet 15 Minuten
WEnd
EndFunc

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

Func _LogIn($sServer, $sUser, $sPassword)
Local $hFTP_Connect
$hFTP_Open = _FTP_Open('FTP')
$hFTP_Connect = _FTP_Connect($hFTP_Open, $sServer, $sUser, $sPassword)
Return $hFTP_Connect
EndFunc

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

Func Terminate()
_FTP_Close($hFTP_Open)
Exit
EndFunc

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

mfg autoBert

**autoBert**

Das löschen der Datei in Zele 4 kann auch nicht mehr funktionieren da es desen Dateinamen nicht mehr gibt sie wurde ja in Zeile 3 umbenannt.

mfg autoBert

**autoBert**

Zitat von Dtex

also kann man nicht vom verständnis her beim lesen des codeteils sehen ob da iwo nen denkfehler ist oder so?

Nein

Zitat von Dtex

..und ungerne poste ich alles

Dann must du halt auf profesionelle Hilfe verzichten und die Fraktion der Kaffeesatzleser darf Vermutungen anstellen was der Fehler ist.

Was hat dein Thema mit Datenbankem zu tun?

mfg autoBert

**autoBert**

Zitat von General Kaboom

Also bei mir gibts beim Starten schon mal viele Errormeldungen

2 Zeilen auskommentiert und das Skript startet:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
Opt("GUIOnEventMode", 1)
$textresult = ""
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 203, 139, 289, 253)
$Button1 = GUICtrlCreateButton("=", 152, 104, 43, 25)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("/", 152, 72, 41, 25)
GUICtrlSetOnEvent(-1, "Button2Click")
$Button3 = GUICtrlCreateButton("*", 152, 40, 41, 25)
GUICtrlSetOnEvent(-1, "Button3Click")
$Button = GUICtrlCreateButton("+", 152, 8, 41, 25)
GUICtrlSetOnEvent(-1, "ButtonClick")
$Button5 = GUICtrlCreateButton("9", 104, 104, 41, 25)
GUICtrlSetOnEvent(-1, "Button5Click")
$Button6 = GUICtrlCreateButton("8", 56, 104, 41, 25)
GUICtrlSetOnEvent(-1, "Button6Click")
$Button7 = GUICtrlCreateButton("7", 8, 104, 41, 25)
GUICtrlSetOnEvent(-1, "Button7Click")
$Button8 = GUICtrlCreateButton("6", 104, 72, 41, 25)
GUICtrlSetOnEvent(-1, "Button8Click")
$Button9 = GUICtrlCreateButton("5", 56, 72, 41, 25)
GUICtrlSetOnEvent(-1, "Button9Click")
$Button10 = GUICtrlCreateButton("3", 104, 40, 41, 25)
GUICtrlSetOnEvent(-1, "Button10Click")
$Button11 = GUICtrlCreateButton("2", 56, 40, 41, 25)
GUICtrlSetOnEvent(-1, "Button11Click")
$Button12 = GUICtrlCreateButton("4", 8, 72, 41, 25)
GUICtrlSetOnEvent(-1, "Button12Click")
$Button13 = GUICtrlCreateButton("1", 8, 40, 41, 25)
GUICtrlSetOnEvent(-1, "Button13Click")
$Button4 = GUICtrlCreateButton("-", 104, 8, 41, 25)
GUICtrlSetOnEvent(-1, "Button4Click")
$Result = GUICtrlCreateButton($textresult, 8, 8, 89, 25)
GUICtrlSetOnEvent(-1, "ResultClick")

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
Sleep(100)
WEnd
#cs
($cButton, guictrlread($cButton)&"Text")
msgbox(0,"", Guictrlread($result))
#ce

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

Func Form2close()
Exit
EndFunc ;==>Form2close

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

Func Button10Click()
$3 = _GUICtrlButton_GetText($Button10)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $3)

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

EndFunc ;==>Button10Click

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

Func Button11Click()
$2 = _GUICtrlButton_GetText($Button11)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $2)

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

EndFunc ;==>Button11Click

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

Func Button12Click()
$4 = _GUICtrlButton_GetText($Button12)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $4)

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

EndFunc ;==>Button12Click

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

Func Button13Click()
$1 = _GUICtrlButton_GetText($Button13)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $1)
EndFunc ;==>Button13Click

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

Func Button2Click()
$division = _GUICtrlButton_GetText($Button2)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $division)

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

EndFunc ;==>Button2Click

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

Func Button3Click()
$multiplikation = _GUICtrlButton_GetText($Button3)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $multiplikation)

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

EndFunc ;==>Button3Click

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

Func Button4Click()
$minus = _GUICtrlButton_GetText($Button4)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $minus)

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

EndFunc ;==>Button4Click

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

Func Button5Click()
$9 = _GUICtrlButton_GetText($Button5)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $9)

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

EndFunc ;==>Button5Click

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

Func Button6Click()
$8 = _GUICtrlButton_GetText($Button6)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $8)
EndFunc ;==>Button6Click

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

Func Button7Click()
$7 = _GUICtrlButton_GetText($Button7)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $7)

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

EndFunc ;==>Button7Click

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

Func Button8Click()
$6 = _GUICtrlButton_GetText($Button8)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $6)

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

EndFunc ;==>Button8Click

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

Func Button9Click()
$5 = _GUICtrlButton_GetText($Button9)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $5)
EndFunc ;==>Button9Click

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

Func ButtonClick()
$plus = _GUICtrlButton_GetText($Button)
$textresult = _GUICtrlButton_GetText($Result)

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

_GUICtrlButton_SetText($Result, $textresult & $plus)
EndFunc ;==>ButtonClick
Func ResultClick()

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

EndFunc ;==>ResultClick
$textresult = _GUICtrlButton_GetText($Result)

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

MsgBox(0, "", $textresult)
Func Button1Click()
$resultmenge = GUICtrlRead($Result)
$resultarray = StringSplit($resultmenge, "")
MsgBox(0, "", $resultmenge)
If $resultarray[2] = "*" Then

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

EndIf

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

EndFunc ;==>Button1Click

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

;splitstring
; if else statements + - * /

[/autoit]

Zitat von General Kaboom

Uhhh...du solltest wirklich mal einige Tutorials durcharbeiten und die Hilfe lesen.

Das sollte man eher dir empfehlen wenn du mt dem GuiOnEvent-Mdus nicht zurecht kommst und dich dann och ertreistet falsche Behauptungen aufzustellen:

Zitat von General Kaboom

Ebenfalls ist mir dies hier aufgefallen:
[autoit]
While 1
Sleep(100)
WEnd
[/autoit]
Diese Schlaufe führt in einen Endlos-Loop und Loops sind bei einem Taschenrechner wohl eher unerwünscht.

Sie sind bei jedem AutoItskript Pflicht da sich ansonsten die GUI sofort wieder schliesst. Dass er ein Sleep in der Schleife an der Stelle hat wo du GuGetMsg benutzt liegt am GuiOnEvent-Modus oder wie du es nennt an seiner "speziellen Art" Buttonklicks abzufragen. Nur weil du diesen Modus (den ich bevorzuge) nicht verstehst musst du nicht versuchen ihn zu dem bei Anfängern beliebteren MsgLoopModus zu bekehren.

@Kickass: Schau dir

[autoit]

Execute

[/autoit]

in der Hilfe an, damit ersparst du dir das Parsen nach Rechenoperatoren.

mfg autoBert

**autoBert**

Zitat von sdce

Son IT Projekt für eine Schulpräsentation...

Dann frägst du am besten den Projekt betreuenden Lehrer, ich gehe davon aus dass er versteht was Sache ist und kann dir speziellen Lese-/Lernstoff empfehlen. Ich jedenfalls weiss nach den paar Infos noch nicht was du wirklich willst. Bis dahin rate ich dir die Hilfe durch zu arbeiten, damit du wenigstens ein Verständnis für die Grundlagen bekommst. Wundert mich eh, dass ihr vor Projektbeginn nicht in die Grundlagen eingewiesen wurdest.

Zitat von sdce

Ich hab mich jetzt die letzten 4 Tage mit AutoIT beschäftigt...

Hättest du an jedem dieser 4 Tage 1 Stunde intensiv die Hilfe durchgearbeitet wärst du warscheins mit deinem KlckBOT schon fertig, soviel zu:

Zitat von sdce

Der aber sehr schnell lernt

mfg autoBert

**autoBert**

Für Outlook gint es eine UDF. Such mal einen Beitrag von water und schau in seine Signatur.

mfg autobert

**autoBert**

Hallo Teare,

bei dem eingestellten Skriptcode flackert bei mir auch nichts. Dies liegt warscheins daran das kein DL stattfindet. Sollte wie ich vermute die Progressbar während des DL flackern solltest du einen Blick in [Beispiel] mini-Downloader werfen. Wenn du dort die Zeilen 89, 96 und 100 auskommentierst siehst du das dir bekannte Flackern (Unabhängig vom BS).

Edit: Die Exe zu testen halte ich für unsinnig, selbst wenn man sieht das es flackert kann man de Grund mangels Skript nicht finden.

mfg autoBert

**autoBert**

Schau dir

[autoit]

StringSplit

[/autoit]

in der Hilfean,

mfg autoBert

**autoBert**

Zitat von bobekos

Ich hab jetzt das Problem nicht so ganz verstanden Also mein Array hat doch 2 Spalten oder sehe ich da was falsch?

Das siehst du falsch dein Array hat 2 Dimensionen, 24 Zeilen und jede Zeile 24 Spalten.

Zitat von bobekos

Ich hab das Problem jetzt mit:
[autoit]
IniWrite($iniMAIN,"TEST",$x,$y)
[/autoit]

gelöst.

Kann mir nicht vorstellen dass die Werte in der Ini das sind was du möchtest. Falls du dein Skript nicht noch anders umgebaut hast erhälst du folgendes Ergebnis:

Spoiler anzeigen

Code

[TEST]
0=23
1=23
2=23
3=23
4=23
5=23
6=23
7=23
8=23
9=23
10=23
11=23
12=23
13=23
14=23
15=23
16=23
17=23
18=23
19=23
20=23
21=23
22=23
23=23

Alles anzeigen

was ja sonlos ist. Solltest du also noch Prbleme haben solltest du dein Vorhaben genauer schildern und am besten dein Skript mit einstellen.

Zitat von bobekos

Sonst würde mir natürlich Iniwritesection auch jedesmal eben eine neue Section machen (denke ich mal).

Nein es würde jedesmal die Sektion "Test" überschrieben.

**autoBert**

Zitat von x0r

es funktioniert wirklich nur mit $aFELD[$x][$y]

Dei Testskript prduzert eine nicht Windowskonforme IniDatei:

Spoiler anzeigen

Code

[TEST]
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb
blubb

Alles anzeigen

aber dadurch sehe ich den Fehler, der Aufbau den bobekos erreichen will kann nicht funktionieren da das Array nur 2 Spalten haben darf:

Spoiler anzeigen

[autoit]

dim $aFELD[24][2]
IniDelete("test.ini","TEST")

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

for $i = 1 to 23
$aFELD[$i][0] = "Wert"&$i
$aFELD[$i][1] = "blubb"&$i
Next

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

IniWriteSection("test.ini","TEST",$aFELD)

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

er muss sich also ein anderes Schma einfallen lassen.

mfg autoBert

**autoBert**

Zitat von x0r

"IniWriteSection($iniMAIN,"TEST",$aFELD)" <- nimm doch statt der Variable einfach dein Array?
[autoit]
$aFELD[$x][$y]
[/autoit]

$aFeld ist das Array, $aFELD[$x][$y] dagegen nur ein Element des Arrays. Von daher kann ich anhand des Skriptschnipsels keine Fehler erkennen, wundere mich aber warum immer die komplette Sektion in der Schleife zurückgeschrieben wird.

bobekos: poste zumindest die Fehlermeldung und die kopierte Ausgabe von

[autoit]

_ArrayDisplay($aFeld);vor GUICtrlSetImage einfügen

[/autoit]

besser auch noch dein Skript.

mfg autoBert

**autoBert**

Zitat von RedHead

nun meine frage ist jetzt ob man das so machen kann das alle datein im selben ff-fenster geöffnet werden? und wenn ja, wie??

Alle im selben Fester zu öffnen ist mit der besagten ff.au3 möglich, du musst nur jedesmal einen neuen Tab erstellen:

Spoiler anzeigen

[autoit]

#include <FF.au3>
#include <Array.au3>
Global $a_found[2]

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

_FileFindAll("Z:\Chemie - Facharbeit\Facharbeit\Online", $a_found)
_ArrayDisplay($a_found)
If _FFConnect() Then
$bfirst = True
For $a = 1 To $a_found[0]
If StringUpper(StringLeft(StringRight($a_found[$a],5),4)) = ".HTM" Then
If $bfirst Then
_FFOpenURL("file:///" & $a_found[$a])
Else
_FFTabAdd("file:///" & $a_found[$a])
EndIf
$bfirst = False
EndIf
Next
EndIf

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

Func _FileFindAll($s_path, ByRef $a_found, $s_filetype = False, $s_filename = False)
If $s_path == "" Or Not IsArray($a_found) Then Return SetError(-1)
If StringRegExp(StringLeft($s_path, 1), "[a-zA-Z]") And StringMid($s_path, 2, 1) == ":" Then
If StringRight($s_path, 1) <> "\" Then $s_path &= "\"
Local $s_suchen, $s_weitersuchen, $i_ubound
If $s_filetype And StringLeft($s_filetype, 1) <> "*" Then $s_filetype = "*" & $s_filetype
$s_suchen = FileFindFirstFile($s_path & "*")
If $s_suchen == -1 Then Return SetError(-2)
While 1
$s_weitersuchen = FileFindNextFile($s_suchen)
If @error Then ExitLoop
If Not @extended Then
If $s_filetype And Not $s_filename Then
If StringRight($s_weitersuchen, StringLen($s_filetype) - 1) == StringTrimLeft($s_filetype, 1) Then
$i_ubound = UBound($a_found, 1)
ReDim $a_found[$i_ubound + 1]
$a_found[$i_ubound] = $s_path & $s_weitersuchen
EndIf
ElseIf $s_filename And Not $s_filetype Then
If StringLeft($s_weitersuchen, StringLen($s_filename)) == $s_filename Then
$i_ubound = UBound($a_found, 1)
ReDim $a_found[$i_ubound + 1]
$a_found[$i_ubound] = $s_path & $s_weitersuchen
EndIf
ElseIf $s_filename And $s_filetype Then
If (StringRight($s_weitersuchen, StringLen($s_filetype) - 1) == StringTrimLeft($s_filetype, 1)) And (StringLeft($s_weitersuchen, StringLen($s_filename)) == $s_filename) Then
$i_ubound = UBound($a_found, 1)
ReDim $a_found[$i_ubound + 1]
$a_found[$i_ubound] = $s_path & $s_weitersuchen
EndIf
Else
$i_ubound = UBound($a_found, 1)
ReDim $a_found[$i_ubound + 1]
$a_found[$i_ubound] = $s_path & $s_weitersuchen
EndIf
EndIf
WEnd
$a_found[0] = UBound($a_found) - 1
Return $a_found
Else
Return SetError(-1)
EndIf
EndFunc ;==>_FileFindAll

[/autoit]

Du benötigst dafür noch Mozrepl.

Edit: ein 1. Test verlief negativ, anscheinend ist es mit der ff.au3 nicht möglich lokale Dateie zu öffnen:

Code

_FFConnect: OS:	WIN_XP WIN32_NT 2600 Service Pack 3
_FFConnect: AutoIt:	3.3.6.1
_FFConnect: FF.au3:	0.6.0.1b-7
_FFConnect: IP:	127.0.0.1
_FFConnect: Port:	4242
_FFConnect: Delay: 	2ms
_FFConnect: Socket: 	1516
_FFConnect: Browser:	Mozilla/5.0 (Windows NT 5.1; rv:10.0.5) Gecko/20100101 Firefox/10.0.5
__FFSendJavaScripts: Sending functions to FireFox .......... done
_FFOpenURL: file:///D:\Dokumente und Einstellungen\Bert\Eigene Dateien\Downloads\CMS+Inet\Wordpress3.3\wordpress\liesmich.html
__FFSend: try{window.content.top.document.location.href='file:///D:\Dokumente und Einstellungen\Bert\Eigene Dateien\Downloads\CMS+Inet\Wordpress3.3\wordpress\liesmich.html'}catch(e){'_FFCmd_Err';};
__FFRecv: _FFCmd_Err
_FFOpenURL ==> No match: file:///D:\Dokumente und Einstellungen\Bert\Eigene Dateien\Downloads\CMS+Inet\Wordpress3.3\wordpress\liesmich.html
+>19:31:45 AutoIT3.exe ended.rc:0
+>19:31:46 AutoIt3Wrapper Finished
>Exit code: 0    Time: 27.369

Alles anzeigen

mfg autoBert

**autoBert**

Zitat von MrB

Nur eine kurze Frage. Wie bekomme ich den inneren Bereich auch dazu horizontal zu scrollen??

Schau dir dazu das Biespiel in der Hilfe zu _GUIScrollBars_Init an.

mfg autoBert

**autoBert**

Hallo MrB,

anhand deiner In Informationen ist die Frage nicht zu beantworten da es ja auf den Qjelltext der Bild.htm ankommt wo das Bild plaziert wird, Üblicherweise müsste es aber 0,0 sein dazu musst du dann noch die Position deines eingetetten IE,s zählen also 0+0,0+70 = 0,70.

mfg autoBert

**autoBert**

Zitat von AnnaM

Aber für die Statusleiste geht es nicht. Sie bleibt nicht unten. Kann das jmd auch nachvollziehen?

Sie ist ja auch kein Standardsteuerelement und mit GUICtrlSetResizing lassen sich nur Standardsteuerelemente beeinflussen. Ich baue aus diesem Grund die Statusbar mit mehreren Inputs ($ES_READONLY) nach, du kannst aber auch auf $GUI_EVENT_RESIZED reagieren und die Statusbar mit ControlMove bzw. WinMove verschieben.

mfg autoBert

**autoBert**

Zitat von Zattoo

mir wurde dazu geraten den variablennamen (zb des inputs) und deren Wert zu speichern
um ihn dann wieder einzulesen

Bezüglich des Variablennamens ein schlechter Rat. Mache es für jedes Skript individuell/manuell denn dieses Konzept funktioniert im Gegensatz zu deinem.

Wenn du aber aus Faulheit eine eierlegende Wollmichsau benötigst musst du dir diese schon selbst entwickeln. Oder meist du hier entwickelt einer für dich ein Konzept von dessen Sinn er nicht überzeugt ist? Vor allem da du bisher noch kein komplettes (noch nicht einmal mit Laufzeitfehlern behaftetes) Skript eingestellt hast! Gehe davon aus das andere genaus bequem sind wie du und sich keine unnötige Arbeit machen.

mfg autoBert

**autoBert**

Hallo ExChill,

dieses Problem ist bereits bekant und gelöst. Schau dich mal im Uterforum FireFox-Automatisierung danach um,

mfg autoBert

**autoBert**

Zitat von Captcha

Ich benutze die Autoit version: 3.3.6.1 doch bei mir kommen immer Errors wenn ich versuche
das Script zu starten weiß jemand Rat ?

Ja, den Ersteller der UDF zu fragen oder dein Testskript mit den dazugehörigen Fehlermeldungen hier einstellen,

mfg autoBert

Beiträge von autoBert

FTP Upload

Autoupdater/Autoinstaller

FTP Upload

Filemove Befehl funktioniert nicht?

Programm tut das was es soll, aber nur einmalig :(

taschenrechner problem

ControlClick

Outlook 2010 Listbox Problem

Downloader Problem

FileReadLine bis zu einem Maker

Iniwritesection Problem mit einem Array

Iniwritesection Problem mit einem Array

Iniwritesection Problem mit einem Array

mehrere html datein im selben firefoxfenster öffnen

Scrollen in der Gui, aber nur ein bestimmter bereich

Cursor Position mit _IECreateEmbedded() und GUICtrlCreateObj

Gui vergrößern

Wert auslesen und zur Variable machen

FF.au3 öffnet falsche URL

Desktop.remote