Beiträge von autoBert

**autoBert**

Du musst nur Slashes anstelle der Backslashes verwenden dann klappt es also

[autoit]

_IENavigate($oIE, "file:///" & @ScriptDir & "/Blanks/index.html")

[/autoit]

frohes neues Jahr autoBert

**autoBert**

chip: ich muss dir leider wiedersprechen: ich habe mit folgendem Skript:

Spoiler anzeigen

[autoit]

#include <String.au3>
#include <Array.au3>
#include <File.au3>
Global $Path
$aDatei = _Laden()
_ArrayDisplay($aDatei)

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

Func _Laden()
Local $aTmp, $aSource, $aResult
$Path = FileOpenDialog("Bitte PCB-Datei wählen.", @DesktopDir & "\", "PCB-File (*.pcb)", 1 + 4)
If @error = 1 Then MsgBox(0, "", "Keine Datei ausgewählt.")
If @error = 2 Then MsgBox(0, "", "Falscher Dateifilter")
_FileReadToArray($Path, $aSource)
Dim $aResult[$aSource[0]][9]
For $i = 1 To $aSource[0]
$aTmp = _StringBetween($aSource[$i], '!', '!')
For $j = 0 To UBound($aTmp) - 1
$aResult[$i][$j] = $aTmp[$j]
Next
Next
$aResult[0][0] = $aSource[0]
Return $aResult
EndFunc ;==>_Laden

[/autoit]

ein 2D-Array erstellt:

Code

[0]|46||||||||
[1]|LINE|1740 14 0|1684.3|1566.2|||PLACE_BOUND_TOP|C700|
[2]|TEXT|1744 1|1656.8|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[3]|TEXT|1745 1|1733.5|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||SILKSCREEN_TOP|C700|
[4]|TEXT|1746 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[5]|TEXT|1747 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[6]|TEXT|1748 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[7]|TEXT|1749 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[8]|TEXT|1750 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[9]|TEXT|1751 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[10]|LINE|1752 1|1015.5|1015.5|||ASSEMBLY_BOTTOM|IC800|
[11]|LINE|1803 14 0|885.0|860.0|||PLACE_BOUND_TOP|C604|
[12]|TEXT|1805 1|916.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[13]|TEXT|1807 1|975.8|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||SILKSCREEN_TOP|C604|
[14]|TEXT|1809 1|750.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||BODY_CENTER|C604|
[15]|TEXT|1810 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[16]|TEXT|1811 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[17]|TEXT|1812 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[18]|TEXT|1813 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[19]|TEXT|1814 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[20]|TEXT|1815 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[21]|TEXT|4633 1|552.4|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[22]|TEXT|4635 1|422.4|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||SILKSCREEN_TOP|C600|
[23]|TEXT|4637 1|720.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||BODY_CENTER|C600|
[24]|TEXT|4638 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[25]|TEXT|4639 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[26]|TEXT|4640 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[27]|TEXT|4641 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[28]|TEXT|4642 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[29]|TEXT|4643 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[30]|LINE|4644 1|2501.3|2501.3|||ASSEMBLY_BOTTOM|R543|
[31]|LINE|4644 2|2501.3|2538.7|||ASSEMBLY_BOTTOM|R543|
[32]|LINE|4644 3|2538.7|2538.7|||ASSEMBLY_BOTTOM|R543|
[33]|Y:/projects/ee87/DC_ESM_4x50F_BuckBoost_LIN3402B/cae/schematic/physical/2011_12_01_A.brd|-850.0|21150.0|0.1|SCHEMATIC|4|||
[34]|2068.3|VIA05_STANDARD|||||||
[35]|1050.0|VIA05_STANDARD|||||||
[36]|1974.7|VIA05_STANDARD|||||||
[37]|2045.0|VIA05_STANDARD|||||||
[38]|1654.0|VIA05_NEW|||||||
[39]|1724.8|VIA05_NEW|||||||
[40]|1654.0|VIA05_NEW|||||||
[41]|1724.8|VIA05_NEW|||||||
[42]|1654.0|VIA05_NEW|||||||
[43]|FILMMASKBOTTOM|ARC|1639 1 0|703.4|694.5|694.5|0.0|B02640189NEU|2
[44]|FILMMASKBOTTOM|LINE|1639 2 0|694.5|685.5|||B02640189NEU|2
[45]|FILMMASKBOTTOM|ARC|1639 3 0|685.5|676.6|685.5|0.0|B02640189NEU|2

Alles anzeigen

das Ergebnis ist defintiv nicht korrekt

hexpirator: Mit StringSplit anstelle von _StringBetween:

Spoiler anzeigen

[autoit]

#include <String.au3>
#include <Array.au3>
#include <File.au3>
Global $Path
$aDatei = _Laden()
_ArrayDisplay($aDatei)

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

Func _Laden()
Local $aTmp, $aSource, $aResult
$Path = FileOpenDialog("Bitte PCB-Datei wählen.", @DesktopDir & "\", "PCB-File (*.pcb)", 1 + 4)
If @error = 1 Then MsgBox(0, "", "Keine Datei ausgewählt.")
If @error = 2 Then MsgBox(0, "", "Falscher Dateifilter")
_FileReadToArray($Path, $aSource)
Dim $aResult[$aSource[0]+1][19]
For $i = 1 To $aSource[0]
$aTmp = StringSplit($aSource[$i], '!',2)
For $j = 0 To UBound($aTmp) - 1
$aResult[$i][$j] = $aTmp[$j]
Next
Next
$aResult[0][0] = $aSource[0]
Return $aResult
EndFunc ;==>_Laden

[/autoit]

kommt das korrekte Ergebnis heraus (evtl. muss das eintragen der 1. Spalte und der letzten Zeile noch verhindert werden):

Code

[0]|46||||||||||||||||||
[1]|S|LINE|257|1740 14 0|683.8|1684.3|565.7|1566.2|0.0|||||PLACE_BOUND_TOP|PRNC2975|C700|||
[2]|S|TEXT|260|1744 1|746.8|1656.8|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|+|||ASSEMBLY_TOP|PRNC2975|C700|||
[3]|S|TEXT|260|1745 1|794.0|1733.5|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|+|||SILKSCREEN_TOP|PRNC2975|C700|||
[4]|S|TEXT|260|1746 1|-32.8|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|"This keep out area is possible|||ASSEMBLY_TOP|PRNC2975|C700|||
[5]|S|TEXT|260|1747 1|-95.7|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|to remove, when the elco is not|||ASSEMBLY_TOP|PRNC2975|C700|||
[6]|S|TEXT|260|1748 1|-158.7|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|sealed between component and|||ASSEMBLY_TOP|PRNC2975|C700|||
[7]|S|TEXT|260|1749 1|-221.7|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|PCB by gluing, coating, agglutination|||ASSEMBLY_TOP|PRNC2975|C700|||
[8]|S|TEXT|260|1750 1|-284.7|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|or an other sealing method.|||ASSEMBLY_TOP|PRNC2975|C700|||
[9]|S|TEXT|260|1751 1|-347.7|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|Or take care to the component data sheet."|||ASSEMBLY_TOP|PRNC2975|C700|||
[10]|S|LINE|257|1752 1|631.0|1015.5|509.0|1015.5|0.0|||||ASSEMBLY_BOTTOM|PRNC2076|IC800|||
[11]|S|LINE|257|1803 14 0|1420.0|885.0|1445.0|860.0|0.0|||||PLACE_BOUND_TOP|PRNC2911|C604|||
[12]|S|TEXT|260|1805 1|1309.8|916.9|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|+|||ASSEMBLY_TOP|PRNC2911|C604|||
[13]|S|TEXT|260|1807 1|1309.8|975.8|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|+|||SILKSCREEN_TOP|PRNC2911|C604|||
[14]|S|TEXT|260|1809 1|1310.0|750.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|c|||BODY_CENTER|PRNC2911|C604|||
[15]|S|TEXT|260|1810 1|-546.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|"This keep out area is possible|||ASSEMBLY_TOP|PRNC2911|C604|||
[16]|S|TEXT|260|1811 1|-515.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|to remove, when the elco is not|||ASSEMBLY_TOP|PRNC2911|C604|||
[17]|S|TEXT|260|1812 1|-484.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|sealed between component and|||ASSEMBLY_TOP|PRNC2911|C604|||
[18]|S|TEXT|260|1813 1|-453.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|PCB by gluing, coating, agglutination|||ASSEMBLY_TOP|PRNC2911|C604|||
[19]|S|TEXT|260|1814 1|-422.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|or an other sealing method.|||ASSEMBLY_TOP|PRNC2911|C604|||
[20]|S|TEXT|260|1815 1|-391.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|Or take care to the component data sheet."|||ASSEMBLY_TOP|PRNC2911|C604|||
[21]|S|TEXT|260|4633 1|674.6|552.4|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|+|||ASSEMBLY_TOP|PRNC1454|C600|||
[22]|S|TEXT|260|4635 1|619.4|422.4|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|+|||SILKSCREEN_TOP|PRNC1454|C600|||
[23]|S|TEXT|260|4637 1|620.0|720.0|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|c|||BODY_CENTER|PRNC1454|C600|||
[24]|S|TEXT|260|4638 1|-165.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|"This keep out area is possible|||ASSEMBLY_TOP|PRNC1454|C600|||
[25]|S|TEXT|260|4639 1|-196.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|to remove, when the elco is not|||ASSEMBLY_TOP|PRNC1454|C600|||
[26]|S|TEXT|260|4640 1|-227.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|sealed between component and|||ASSEMBLY_TOP|PRNC1454|C600|||
[27]|S|TEXT|260|4641 1|-258.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|PCB by gluing, coating, agglutination|||ASSEMBLY_TOP|PRNC1454|C600|||
[28]|S|TEXT|260|4642 1|-289.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|or an other sealing method.|||ASSEMBLY_TOP|PRNC1454|C600|||
[29]|S|TEXT|260|4643 1|-320.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|Or take care to the component data sheet."|||ASSEMBLY_TOP|PRNC1454|C600|||
[30]|S|LINE|257|4644 1|199.4|2501.3|130.6|2501.3|0.0|||||ASSEMBLY_BOTTOM|PRNC2157|R543|||
[31]|S|LINE|257|4644 2|130.6|2501.3|130.6|2538.7|0.0|||||ASSEMBLY_BOTTOM|PRNC2157|R543|||
[32]|S|LINE|257|4644 3|130.6|2538.7|199.4|2538.7|0.0|||||ASSEMBLY_BOTTOM|PRNC2157|R543|||
[33]|J|Y:/projects/ee87/DC_ESM_4x50F_BuckBoost_LIN3402B/cae/schematic/physical/2011_12_01_A.brd|Thu Dec 01 09:55:15 2011|-850.0|-1000.0|21150.0|16000.0|0.1|mils|SCHEMATIC|59.000000 mil|4|OUT OF DATE||||||
[34]|S|2068.3|646.7|VIA05_STANDARD|MAIN_CONTROL||||||||||||||
[35]|S|1050.0|1318.0|VIA05_STANDARD|MAIN_CONTROL||||||||||||||
[36]|S|1974.7|510.7|VIA05_STANDARD|UNNAMED_1_PFETDI_I694_G||||||||||||||
[37]|S|2045.0|765.0|VIA05_STANDARD|UNNAMED_1_PFETDI_I694_G||||||||||||||
[38]|S|1654.0|879.5|VIA05_NEW|UNNAMED_1_ELKO_I547_A||||||||||||||
[39]|S|1724.8|940.5|VIA05_NEW|UNNAMED_1_ELKO_I547_A||||||||||||||
[40]|S|1654.0|940.5|VIA05_NEW|UNNAMED_1_ELKO_I547_A||||||||||||||
[41]|S|1724.8|879.5|VIA05_NEW|UNNAMED_1_ELKO_I547_A||||||||||||||
[42]|S|1654.0|818.5|VIA05_NEW|UNNAMED_1_ELKO_I547_A||||||||||||||
[43]|S|FILMMASKBOTTOM|FIG_SHAPE B02640189_FO|ARC|256|1639 1 0|1949.1|703.4|1940.3|694.5|1949.2|694.5|8.9|0.0|COUNTERCLOCKWISE|B02640189NEU|R105|2|
[44]|S|FILMMASKBOTTOM|FIG_SHAPE B02640189_FO|LINE|257|1639 2 0|1940.3|694.5|1940.3|685.5|0.0|||||B02640189NEU|R105|2|
[45]|S|FILMMASKBOTTOM|FIG_SHAPE B02640189_FO|ARC|256|1639 3 0|1940.3|685.5|1949.1|676.6|1949.2|685.5|8.9|0.0|COUNTERCLOCKWISE|B02640189NEU|R105|2|
[46]|||||||||||||||||||

Alles anzeigen

frohes neues Jahr

autoBert

**autoBert**

In dem Hilfe-Beispiel zu GUICtrlCreatePic ist ein Fehler:

[autoit]

$n = GUICtrlSetPos($n, 50, 50, 200, 100)

[/autoit]

müsste

[autoit]

GUICtrlSetPos($n, 50, 50, 200, 100)

[/autoit]

lauten. Und damit das Bild auch anständig angezeigt wird, sollte auch diese Zeile

[autoit]

GUICtrlSetImage($n, "..\GUI\mslogo.jpg")

[/autoit]

direkt dahinter eingefügt werden.

mfg autoBert

**autoBert**

teste diese Skript:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

Global $gui, $guiPos, $pic, $picPos

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

Example1()

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

;----- example 1 ----
Func Example1()
Local $n, $msg

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

GUICreate("My GUI picture", 350, 300, -1, -1, $WS_SIZEBOX + $WS_SYSMENU) ; will create a dialog box that when displayed is centered

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

GUISetBkColor(0xE0FFFF)
$n = GUICtrlCreatePic("D:\Programme\AutoIt3\Examples\GUI\mslogo.jpg", 50, 50, 100, 12)

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

GUISetState()

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

; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()

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

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

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

; resize the control
GUICtrlSetPos($n, 50, 50, 200, 24) ;<================ damt hast du dir die Controlid überschrieben auch das Verhältnis Höhe/Breite hat nicht mehr gestimmt.
GUICtrlSetImage($n, "D:\Programme\AutoIt3\Examples\GUI\mslogo.jpg") ; keine Funktion
; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()

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

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

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

GUIDelete()
EndFunc ;==>Example1

[/autoit]

die Pfade zum Bild musst du anpassen,

Frohes neues Jahr

autoBert

**autoBert**

Hallo LordKingPin,

warum sollte FileWriteLine nicht ausgeführt werden, so wie dein Skriptschnipsel aufgebaut ist wird immer beides ausgeführt FileWriteLine schreibt in die Datei die in der Varibalen $Log definiert ist. FileWrite schreibt in die Datei Tagesdatum_Info.txt wobei Tagesdatum das echte Tagesdatum als String ist. Führe folgendes Testskript:

Spoiler anzeigen

[autoit]

$Log = @ScriptDir & "\Testlog.log"

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

For $i = 1 To 99
$Wert4 = 8
$WertX = 11
$DBRead = "Dies ist ein Teststring"
$Tdaten = "Test"
ConsoleWrite("1. Test hier darf kein Eintrag geschrieben werden (Daten in DB!)" & @CRLF)
_testfunc()

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

$Wert4 = 8
$WertX = 6
$DBRead = "Dies ist ein Teststring"
$Tdaten = "Test"
ConsoleWrite("2. Test hier darf kein Eintrag geschrieben werden (Wert4!)" & @CRLF)
_testfunc()

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

$Wert4 = 8
$WertX = 11
$DBRead = "Dies ist ein Teststring"
$Tdaten = "Testa"
ConsoleWrite("3. Test hier muss ein Eintrag geschrieben werden (alle Bedingungen stimmen)" & @CRLF)
_testfunc()
Next

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

Func _testfunc()
If $Wert4 < $WertX Then
ConsoleWrite("Wert4 ist kleiner" & @CRLF)
If StringInStr($DBRead, $Tdaten) Then
ConsoleWrite("Daten in DB enthalten" & @CRLF)
;Sleep(10) ;<=== unnötig
Else
ConsoleWrite("Daten NICHT in DB enthalten" & @CRLF)
FileWriteLine($Log, $Tdaten & @CRLF & "")
FileWrite(@YEAR & "." & @MON & "." & @MDAY & "_Info.txt", $Tdaten & @CRLF)
;Sleep(10 ;<=== unnötig
EndIf
Else
ConsoleWrite("Wert4 ist Grösser oder gleich" & @CRLF)
EndIf
EndFunc ;==>_testfunc

[/autoit]

aus und du wirst sehen beide Dateien sind identisch.

mfg autoBert

**autoBert**

Hallo milchtrinker,

water schreibt gerade dafür eine UDF: https://autoit.de/index.php?page=Thread&threadID=29516

mfg autoBert

**autoBert**

Hallo Commander21,

~~du bist nicht zufällig bei bplaced.net?~~ Denn dieses Skript:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#Include <FTPEx.au3>

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

Global $ftpOpen, $ftpCon, $sFile = "serverlog.log", $sRemote = "/server/minecraft/", $sLocal = @ScriptDir & "\"
;eingefügt --------^
;$sFile = Dateiname (Remote+lokal)
;$sRemote = Remote-Verzeichis
;$sLocal = Loakes Verzeichnis

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

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ServerLog - Live", 651, 563, 192, 124)
GUISetFont(9, 800, 0, "Arial")
GUISetBkColor(0x808080)
$Label1 = GUICtrlCreateLabel("Server-IP:", 8, 8, 60, 15)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 8, 24, 121, 23, BitOR($GUI_SS_DEFAULT_INPUT, $WS_BORDER))
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("Benutzername:", 152, 8, 90, 15)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Passwort:", 296, 8, 62, 15)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input2 = GUICtrlCreateInput("", 152, 24, 121, 23, BitOR($GUI_SS_DEFAULT_INPUT, $WS_BORDER))
GUICtrlSetColor(-1, 0x000000)
$Input3 = GUICtrlCreateInput("", 296, 24, 121, 23, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD, $WS_BORDER))
GUICtrlSetColor(-1, 0x000000)
$Edit1 = GUICtrlCreateEdit("", 8, 136, 633, 417, $GUI_SS_DEFAULT_EDIT)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Verbinden", 8, 56, 91, 25)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button2 = GUICtrlCreateButton("Serverlog bereinigen", 184, 56, 147, 25)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label4 = GUICtrlCreateLabel("Serverlog:", 8, 120, 62, 15)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button3 = GUICtrlCreateButton("Speichern", 104, 56, 75, 25)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button4 = GUICtrlCreateButton("Aktuallisieren", 336, 56, 99, 25)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

_SaveOpen()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_FTP_Close($ftpOpen)
Exit
Case $Button2
GUICtrlSetData($Edit1, "")
Case $Button3
$Read1 = GUICtrlRead($Input1)
$Read2 = GUICtrlRead($Input2)
$Read3 = GUICtrlRead($Input3)
$fOpen01 = FileOpen(@ScriptDir & "\LogIn.dat", 2)
_LogInSave($Read1, $Read2, $Read3)
FileClose($fOpen01)
Case $Button1
$cRead1 = GUICtrlRead($Input1)
$cRead2 = GUICtrlRead($Input2)
$cRead3 = GUICtrlRead($Input3)
_Connect($cRead1, $cRead2, $cRead3)
Case $Button4 ;<== eingefügt
_Update($ftpCon)
EndSwitch
WEnd

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

Func _Connect($cp1, $cp2, $cp3)
GUICtrlSetData($Edit1, "Verbindung wird aufgebaut." & @CRLF & "Bitte warten...")
$ftpOpen = _FTP_Open("ServerLog")
$ftpCon = _FTP_Connect($ftpOpen, $cp1, $cp2, $cp3,1)
If $ftpCon = 0 Then
GUICtrlSetData($Edit1, ">>> Fehler <<<" & @CRLF & "Verbindung konnte nicht hergestellt werden!" & @CRLF & "Fehlercode: " & @error & " / " & $ftpCon)
Else
GUICtrlSetData($Edit1, "")
_Update($ftpCon)
EndIf
EndFunc ;==>_Connect

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

Func _LogInSave($p1, $p2, $p3)
$EC1 = _StringEncrypt(1, $p1 & "|" & $p2 & "|" & $p3, "fp7igx", 3)
FileWrite($fOpen01, $EC1)
EndFunc ;==>_LogInSave

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

Func _SaveOpen()
If FileExists(@ScriptDir & "\LogIn.dat") Then
$fRead01 = FileRead(@ScriptDir & "\LogIn.dat")
$EC0 = _StringEncrypt(0, $fRead01, "fp7igx", 3)
$Split = StringSplit($EC0, "|")
GUICtrlSetData($Input1, $Split[1])
GUICtrlSetData($Input2, $Split[2])
GUICtrlSetData($Input3, $Split[3])
EndIf
EndFunc ;==>_SaveOpen

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

Func _Update($ccp1)
GUICtrlSetData($Edit1, "Daten werden herunter geladen." & @CRLF & "Bitte warten...")
$ftpGet = _FTP_ProgressDownload($ccp1, $sLocal & $sFile, $sRemote & $sFile)
ConsoleWrite("Remote: " & $sRemote & $sFile & " Lokal: " & $sLocal & $sFile &@CRLF)
If $ftpGet = 0 Then
GUICtrlSetData($Edit1, "Fehler beim Herrunterladen der Datei!" & @CRLF & "Fehlercode: " & @error & " / " & $ftpGet)
Else
$fOpen02 = FileOpen ($sLocal & $sFile) ;<= hier war der Feler
$fRead02 = FileRead ($fOpen02)
GUICtrlSetData ($Edit1, $fRead02)
FileClose($fOpen02) ;<== eingefügt
EndIf
EndFunc ;==>_Update

[/autoit]

~~zeigt zwar einen Download in der Progressbar an, die Dateigrösse ist nach dem Download aber bei 0 Bytes.~~ Der Fehler war im Schreibmodus mit überschreiben zu öffnen. Diesen Fehler hast du erst nachträglich eingebaut. In deinem Ursprungsskript und in meinem 1.Post war er noch nicht. Es läuft also auf bplaced. Weiterhin habe ich es auf square7.ch und lima-city getestet. Bei allen 3 läuft es im aktiven Modus.

Die Daten meines Testaccounts schicke ich dir per PN

guten Rutsch ins neue Jahr

autoBert

**autoBert**

Hallo Commander21,

für

[autoit]

_FTP_ProgressDownload

[/autoit]

sind die Pfade definitiv falsch, da sie gerade anders herum als bei

[autoit]

_FTP_FileGet

[/autoit]

übergeben werden,

mfg autoBert

**autoBert**

Misterspeed meint damit dass bei jedem Aufruf von _generateLagerSpalte (..2 + ..3 ebenso) und _generateSchliessfachSpalte neue Controls erstellt werden, anstatt diese 1-mal am Anfang zu erstellen und dann mit GUICtrlSetState ein- bzw. auszublenden,

mfg autoBert

**autoBert**

Hallo Commander21,

diese version:

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

$sFile = "server.log", $sRemote ="/server/minecraft/"

[/autoit]

stimmt. Du kannst da ganze ja zu Testzwecken in der Console ausgeben lassen:

[autoit]

Consolewrite($sRemote & $sFile & @crlf)

[/autoit]

mfg autoBert

**autoBert**

Hallo Commander21,

mir fällt jetzt nur noch der Passiv-Mode ein:

[autoit]

$ftpCon = _FTP_Connect ($ftpOpen, $cp1, $cp2, $cp3,1)

[/autoit]

mfg autoBert

**autoBert**

Hallo Commander21,

ich habe gerade dein Programm getestet. es läuft bei mir problemlos. Allerdings hatte ich das Programm an eine vorhandene Datei auf dem FTP angepasst:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#Include <FTPEx.au3>

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

Global $ftpOpen, $sFile = "asdf.au3", $sRemote ="/", $sLocal = @ScriptDir & "\"
;$sFile = Dateiname (Remote+lokal)
;$sRemote = Remote-Verzeichis
;$sLocal = Loakes Verzeichnis

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ServerLog - Live", 651, 563, 192, 124)
GUISetFont(9, 800, 0, "Arial")
GUISetBkColor(0x808080)
$Label1 = GUICtrlCreateLabel("Server-IP:", 8, 8, 60, 15)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 8, 24, 121, 23, BitOR($GUI_SS_DEFAULT_INPUT,$WS_BORDER))
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("Benutzername:", 152, 8, 90, 15)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Passwort:", 296, 8, 62, 15)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input2 = GUICtrlCreateInput("", 152, 24, 121, 23, BitOR($GUI_SS_DEFAULT_INPUT,$WS_BORDER))
GUICtrlSetColor(-1, 0x000000)
$Input3 = GUICtrlCreateInput("", 296, 24, 121, 23, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD,$WS_BORDER))
GUICtrlSetColor(-1, 0x000000)
$Edit1 = GUICtrlCreateEdit("", 8, 136, 633, 417, $GUI_SS_DEFAULT_EDIT)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Verbinden", 8, 56, 91, 25)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button2 = GUICtrlCreateButton("Serverlog bereinigen", 184, 56, 147, 25)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label4 = GUICtrlCreateLabel("Serverlog:", 8, 120, 62, 15)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button3 = GUICtrlCreateButton("Speichern", 104, 56, 75, 25)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button4 = GUICtrlCreateButton("Aktuallisieren", 336, 56, 99, 25)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_SaveOpen ()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_FTP_Close ($ftpOpen)
Exit
Case $Button2
GUICtrlSetData ($Edit1, "")
Case $Button3
$Read1 = GUICtrlRead ($Input1)
$Read2 = GUICtrlRead ($Input2)
$Read3 = GUICtrlRead ($Input3)
$fOpen01 = FileOpen (@ScriptDir & "\LogIn.dat", 2)
_LogInSave ($Read1, $Read2, $Read3)
FileClose ($fOpen01)
Case $Button1
$cRead1 = GUICtrlRead ($Input1)
$cRead2 = GUICtrlRead ($Input2)
$cRead3 = GUICtrlRead ($Input3)
_Connect ($cRead1, $cRead2, $cRead3)
EndSwitch
WEnd

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

Func _Connect ($cp1, $cp2, $cp3)
GUICtrlSetData ($Edit1, "Verbindung wird aufgebaut." & @CRLF & "Bitte warten...")
$ftpOpen = _FTP_Open ("ServerLog")
$ftpCon = _FTP_Connect ($ftpOpen, $cp1, $cp2, $cp3)
If @error Then
GUICtrlSetData ($Edit1, "Error" & @CRLF & "Verbindung konnte nicht hergestellt werden!")
Else
GUICtrlSetData ($Edit1, "")
EndIf
_Update ($cp1, $cp2, $cp3, $ftpCon)
EndFunc

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

Func _LogInSave ($p1, $p2, $p3)
$EC1 = _StringEncrypt (1, $p1 & "|" & $p2 & "|" & $p3, "fp7igx", 3)
FileWrite ($fOpen01, $EC1)
EndFunc

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

Func _SaveOpen ()
If FileExists (@ScriptDir & "\LogIn.dat") Then
$fRead01 = FileRead (@ScriptDir & "\LogIn.dat")
$EC0 = _StringEncrypt (0, $fRead01, "fp7igx", 3)
$Split = StringSplit ($EC0, "|")
GUICtrlSetData ($Input1, $Split[1])
GUICtrlSetData ($Input2, $Split[2])
GUICtrlSetData ($Input3, $Split[3])
EndIf
EndFunc

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

Func _Update ($ccp1, $ccp2, $ccp3, $ccp4)
GUICtrlSetData ($Edit1, "Daten werden herunter geldaen." & @CRLF & "Bitte warten...")
$ftpGet = _FTP_FileGet ($ccp4, $sRemote & $sFile, $sLocal & $sFile)
If @error Then
GUICtrlSetData ($Edit1, "Fehler beim herrunterladen der Datei!" & @CRLF & "Errorcode: " & @error)
EndIf
$fRead02 = FileRead ($sLocal & $sFile)
GUICtrlSetData ($Edit1, $fRead02)
EndFunc

[/autoit]

kann sein, dass durch diese Änderung ich einen übersehenen Fehler ausgemerzt habe. Setze also in Zeile 9 die entsprechenden Daten von dir ein:

[autoit]

Global $ftpOpen, $sFile = "asdf.au3", $sRemote ="/", $sLocal = @ScriptDir & "\"
;$sFile = Dateiname (Remote+lokal)
;$sRemote = Remote-Verzeichis
;$sLocal = Loakes Verzeichnis

[/autoit]

frohe Weihnachten

autoBert

**autoBert**

Zitat von Galba

die seite wird nur geöffnet, wenn ich mit autoit den ff starte, sonst nie. also kann ein Virus eig nicht dran schuld sein.

dann poste einmal ein Beispielskript und mache Angaben zu deiner installierten FF und MozRepl-Version,

mfg autoBert

**autoBert**

Hallo Norman Bates,

bei meinen Beispiel mit autoit.de funktioniert es. Stell bitte deine Textdatei ein, damit man sehen kann woran es liegt. Eskommt nämlich sicherlich nicht href=" in deiner Datei vor.

mfg autoBert

**autoBert**

Hallo Norman Bates,

das kannst du mit FileRead und StringBetween machen. Hier ein Beispiel:

[autoit]

#include <array.au3>
#include <string.au3>

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

InetGet("http://www.autoit.de",@ScriptDir&"\test.htm",1) ;diese Zeile kannst du weglassen
$sText = FileRead(@ScriptDir&"\test.htm") ;diesen Pfad musst du anpassen
$aFound = _StringBetween($sText,'href="','"')
_ArrayDisplay($aFound)

[/autoit]

mfg autoBert

**autoBert**

Hallo skybor1994,

hier einmal das Skrpt so abgeändert dass es das tun sollte was du möchtest:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\
$asd = GUICreate("asd", 414, 154, 192, 124)
$hFilepath = GUICtrlCreateInput("Fehlerhafte Datei auswählen", 24, 16, 265, 21)
$hSearch = GUICtrlCreateButton("Durchsuchen", 304, 16, 75, 25)
$Checkbox1 = GUICtrlCreateCheckbox("nfixup", 16, 72, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 16, 96, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 16, 120, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 120, 72, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Checkbox5", 120, 96, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Checkbox6", 120, 120, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Checkbox7", 224, 72, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 224, 96, 97, 17)
$Checkbox9 = GUICtrlCreateCheckbox("Checkbox9", 224, 120, 97, 17)
$Button2 = GUICtrlCreateButton("Repair", 304, 48, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hSearch
_Myfilepath()
Case $Button2
If BitAND(GUICtrlRead($Checkbox1),$GUI_CHECKED) Then
$sCommand = 'nxfixup.exe "'& GUICtrlRead($hFilepath) & '"'
ConsoleWrite($sCommand & @CRLF) ;Ausgabe nur zu debugzwecken
Run($sCommand)
EndIf
EndSwitch
WEnd
Func _myFilepath()
;For $hSearch = 1 To 3 ;warum 3 mal? soll der Anwender doch gleich das richtige eigeben

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

$sFilepath = FileOpenDialog("Wähle die Datei zum durchsuchen aus!", @DesktopDir, "(*.nsf)")
If Not @error Then GUICtrlSetData($hFilepath, $sFilepath)

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

;Next
;Exit schädlich da sich da Programm beendet
EndFunc ;==>$sFilepath

[/autoit]

du musst evtl. $sCommand noch den exakten Pfad zu nsfixup angeben,

mfg autoBert

**autoBert**

Zitat von autoBert

benenn doch bitte die Seite. Wenn ein auslesen dort Forenregeln konform ist, wird dir sicher auch jemand weiterhelfen,

Da Griss in einem anderen Forum mit weniger strengen Regeln ein Thema eröffnet hat und dort unaufgefordert die Seite angibt sollte man davon ausgehen, dass die Seite nicht Forenregeln konform ist und hier nicht helfen.

**autoBert**

Zitat von volle

Wenn ihr jetzt denkt das wird ein Bot, falsch gedacht. Das soll ein Programm werden um die gewünschten Items im Spiel zu ändern

Hat dies etwa keinen Einfluss auf das Spiel? Wenn nicht lass es bleiben, wenn doch gilt

Zitat

J. Die Nutzung jeglicher unauthorisierter Drittanbieterprogramme, einschließlich, aber nicht darauf beschränkt, „Mods“, „Hacks“, „Cheats“, „Scripts“, „Bots“, „Trainer“ und automatisierter Programme, die auf beliebige Weise und aus beliebigem Grund mit dem Spiel interagieren, einschließlich, aber nicht darauf beschränkt, das Abfangen, Emulieren oder Umleiten der Kommunikation zwischen der Software und Riot Games, und das Auslesen von Informationen aus Speicherbereichen, die dort von der Software abgelegt wurden.

mfg autoBert

**autoBert**

Hallo manuel6000,

wenn man mit einer UDF eines Authors Probleme hat ist es eigentlich Usus dies dem Author in seinem Thread mitzuteilen, denn er kennt seine UDF am besten und kann daher den <Fehler am ehesten finden,

mfg autoBert

**autoBert**

Zitat von Griss

Nur wenn ich das jetzt so (aus test in den browser eingebe) kommt ich nur in den login screen bin aber nicht eingeloggt

benenn doch bitte die Seite. Wenn ein auslesen dort Forenregeln konform ist, wird dir sicher auch jemand weiterhelfen,

mfg autoBert

Beiträge von autoBert

_IENavigate() bei lokalen Dateien

Problem mit _stringbetween

Fehler in der deutschen Hilfe bitte hier melden (Hilfedatei 3.3.6.1 2011.05.27)

GUICtrlCreatePic mit GUICtrlSetPos vergrössern ---> Bild verpixelt Workaround?

FileWriteLine wird nicht ausgeführt

Excel Diagram erstellen

Problem mit FTP Script

Problem mit FTP Script

Speichern/Laden Funktioniert nicht richtig ua.

Problem mit FTP Script

Problem mit FTP Script

Problem mit FTP Script

_FFStart() öffnet 4242.com

Aus Quelltext datei String auslesen

Aus Quelltext datei String auslesen

CMD nach ausgeführtem Befehl nicht schließen

Website hidden login

Im Quelltext mit WinHttp gezielte Sachen rausfiltern

rar entpacken

Website hidden login