Ich wünschte ich könnte anfangen
allerdings hab ich kein plan von autoit oder einer sonstigen sprache mit der dies sich bewältigen lässt.
Dann bist du im falschen Forum. Wenn du ein Tool suchst dessen Zweck auch fürs BOTen benutzt werden kann, solltest du zumindest in Programmieranfragen mit Gegenlesitung posten. Aber auch dort gelten die Forenregeln, du müsstest also dem Auftragnehmer sehr genau erklären was es mit den Captcha's auf sich hat.
@Mod/Admin bitte schliessen, danke
autoBert
Was heißt denn für dich StringInStr??
Dass was die Hilfe dazu sagt:
StringInStr
Prüft, ob ein String einen angegebenen Unterstring enthält.
Da die Position innerhalb des zu prüfenden Strings zurückgegeben wird kann man damit gut weiter arbeiten,
mfg autoBert
Hallo water,
im grossen un dganzen bin ich mit der Word-UDF sehr zufrieden. Du könntest aber Serienbrieffunktionen mit einbauen, so dass man nur noch eine Datenquelle und den Namen des gewünschten Serienbreifdokumtes angeben muss,
mfg autoBert
Nach 2 1/2 Stunden schon pishen ist sehr unhöflich:
weiß keiner ne lösung?
Doch die SuFu findet mit dem Stichwort FileListRekursiv Lösungen für das Auflisten von Dateien. Mit StringInStr kannst du dann jede Datei des Arrays prüfen nachdem du sie in eine Vraible eingelesen hast ob das gewünschte Wort in der Variablen enthalten ist,
mfg autoBert
Hallo Skilkor,
so ein Skript kannst du dir ganz einfach selbst erstellen. Du holst dir mit _FileListToArray die Namen der ganzen Dateien. Danach gehts du diese in eienr Schleife durch und stellst dem Dateinamen deine Dropboxkennung davor z.B.: aus AutoAdress.exe wird http://dl.dropbox.com/u/08154711/AutoAdress.exe. wobei 08154711 deiner Kennung entspricht. Ausserdem musst du Umlaute,ß,Leerzeichen etc. nach den Regeln für eine gültige URL darstellen, also aus Einsatz des öffentlichen Ordners.rtf wird http://dl.dropbox.com/u/08154711/Ein…n%20Ordners.rtf.
mfg autoBert
Hallo Erictrials,
du kannst nur mit einer AutoItlösung kein performantes Tool zusammen bekommen das lokal und Remote immer synchron hält. Um Änderungen an einer Datei auf dem FTP mit zu bekommen, müsstest du jede Datei unter einem temporären Namen downloaden, danach einen Hash bilden und mit dem Hash der entsprechenden Datei vergleichen.
Zu deiner Frage warum sich die Dateiliste nicht ändert: Daran ist das Cache schuld. Benutze den Parametr $l_Flags von _Ftp_ListToArray.
FTP_FilelistRekursiv (Link in Sugnatur) sollte dir bei deinem Vorhabennützlich sein,
mfg autoBert
Hallo Donsen64,
teste einmal dieses Skript:
; *******************************************************
; Example 1 - Trap COM errors so that 'Back' and 'Forward'
; outside of history bounds does not abort script
; (expect COM errors to be sent to the console)
; *******************************************************
;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Array.au3>
_IEErrorHandlerRegister()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded()
GUICreate("Embedded Web control Test", 640, 580, _
(@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)
;GUISetState() ;Show GUI
[/autoit] [autoit][/autoit] [autoit];_IENavigate($oIE, "D:\Dokumente und Einstellungen\Bert\Desktop\test.html")
_IENavigate($oIE, "https://server.test.com:8443/webservice/DataServiceServlet")
$sText = _IEBodyReadText($oIE)
[/autoit] [autoit][/autoit] [autoit]ConsoleWrite("--------"&@CRLF &$sText &"--------"&@CRLF)
[/autoit] [autoit][/autoit] [autoit]$aVars = StringSplit($sText, "Group", 3)
_ArrayDelete($aVars, 0)
$iRows = UBound($aVars) ;+ 1 ???
$aVars[0] = StringTrimLeft($aVars[0], 1)
$aSplit = StringSplit($aVars[0], ",", 2)
$iCols = UBound($aSplit) + 1
ConsoleWrite("Zeilen: " & $iRows & @TAB & "Spalten: " & $iCols & @CRLF)
Dim $a2D[$iRows][$iCols]
_ArrayDisplay($aVars)
For $i = 1 To $iRows - 1
If $aVars[$i] <> "" Then
$aSplit = StringSplit($aVars[$i], ",", 2)
;ConsoleWrite("Zeile: " & $i & @TAB)
;_ArrayDisplay($aSplit)
For $j = 0 To $iCols - 1
;ConsoleWrite($j & @TAB)
$a2D[$i][$j] = $aSplit[$j]
Next
EndIf
;ConsoleWrite(@CRLF)
Next
$a2D[0][0] = "Group"
$a2D[0][1] = "Time"
$a2D[0][2] = "Throughput"
_ArrayDisplay($a2D)
GUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit]mit deinen Daten in eine Datei geschrieben funktioniert es Ich bezweifle allerdings dass dies der Quelltext der Seite ist, da ich keinerlei Beschreibungen zur Darstelling finde. Sollte dies so sein und die Variable $sText gefüllt werden dann poste den Inhalt dieser,
mfg autoBert
Hallo Donsen64,
dann stelle einfach einmal den kompletten Quelltext der Seite wie ihn der IE anzeigt ein,
mfg autoBert
Wieso verwendest du nicht einfach eine richtige INI und schreibst alles in eine Zeile, ggf. mit CRLF dazwischen?
CRLF kann in INI's nicht verwendet werden, deshalb arbeite ich in [Beispiel] Textbausteine verwalten (kleines Update) vor dem Speichern mit StringReplace und beim Einlesen vor dem Anzeigen auch wieder.
@christiancdj: Stell einmal deine INI-Datei ein und beschreibe genau was du erreichen willst. Dein Beispiel aus dem Eröffnungsbeitrag würde auch nicht funktionieren, da du laufend Variablen mit neuen Inhalt aus der INI überschreibst,
mfg autoBert
Hallo Kiyubi97,
ich habe dir jetzt einmal die Anzeige der Posution mit eingebaut und geleichzeitig den Quellcode für die beiden GUI's angepasst:
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.8.1
Author: Silver_Shadow97™
Script Function: Infinity TrackZ Player™ [Alpha 0.5]
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#include <Date.au3>
Global $h_Sound
Global $max_sec
Global $a_Sound
$ver = "Infinity trackZ Player™ by Silver_Shadow97™ [Alpha 0.5]"
#Region ### START Koda GUI section ### Form=
$Options_GUI = GUICreate("Optionen", 412, 154, 445, 294)
GUISetBkColor(0x00FF00)
$option_text = GUICtrlCreateLabel("2012® Silver_Shadow97™ Alle Rechte vorbehalten.", 0, 136, 248, 17)
$Copy_rights_btn = GUICtrlCreateButton("Kopier-Rechte", 320, 0, 91, 25)
$contact_btn = GUICtrlCreateButton("Kontakt", 320, 32, 91, 25)
$Close_btn = GUICtrlCreateButton("Schliessen", 336, 128, 75, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("Infinity TrackZ Player by Silver_Shadow97™", 541, 314, 408, 166)
$Exit_btn = GUICtrlCreateButton("Beenden", 224, 288, 91, 25)
$Open_btn = GUICtrlCreateButton("Öffnen", 224, 168, 91, 81, $WS_GROUP)
$Stop_btn = GUICtrlCreateButton("Stop", 136, 224, 75, 33, $WS_GROUP)
$Replay_btn = GUICtrlCreateButton("Replay", 328, 224, 75, 33, $WS_GROUP)
$Play_pause_btn = GUICtrlCreateButton("Play/Pause", 232, 136, 75, 25, $WS_GROUP)
$Forward_btn = GUICtrlCreateButton("Vorspulen", 336, 176, 83, 33)
$Reward_btn = GUICtrlCreateButton("Zurückspulen", 120, 176, 83, 33)
$options_btn = GUICtrlCreateButton("optionen", 216, 256, 107, 25)
$Progress1 = GUICtrlCreateProgress(120,120, 294, 9)
$Slider1 = GUICtrlCreateSlider(0, 0, 150, 29)
$idLblPosition = GUICtrlCreateLabel("",180,5,100,25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1] ;für welches Fenster ist die Message
Case $GUI
Switch $nMsg[0] ;für das Hauptfenster
Case $GUI_EVENT_CLOSE, $Exit_btn
Exit
Case $Open_btn
$f_open = FileOpenDialog("Suche nach Musiktiteln", @DesktopDir, "(*.*)")
If Not @error Then
_SoundClose($h_Sound)
$h_Sound = _SoundOpen($f_open)
$max_sec = _SoundLength($h_Sound, 2) * 1000
_SoundPlay($h_Sound)
WinSetTitle($GUI, "", $f_open)
AdlibRegister("ShowSeek", 250)
AdlibRegister("GetVol", 150)
EndIf
Case $Stop_btn
_SoundStop($h_Sound)
GUICtrlSetData($Progress1, 0)
WinSetTitle($GUI, "", $ver)
AdlibUnRegister("ShowSeek")
AdlibUnRegister("GetVol")
Case $Replay_btn
If _SoundStatus($h_Sound) = "Playing" Or _SoundStatus($h_Sound) = "paused" Then
_SoundStop($h_Sound)
_SoundPlay($h_Sound)
EndIf
Case $Play_pause_btn
If _SoundStatus($h_Sound) = "playing" Then
_SoundPause($h_Sound)
ElseIf _SoundStatus($h_Sound) = "paused" Then
_SoundResume($h_Sound)
EndIf
Case $Forward_btn
ConsoleWrite("Vorwärtsspulen" & @CRLF)
Case $Reward_btn
ConsoleWrite("Rückwärtsspulen" & @CRLF)
Case $options_btn
GUISetState(@SW_SHOW, $Options_GUI)
GUISetState(@SW_DISABLE, $GUI)
EndSwitch
Case $Options_GUI
Switch $nMsg[0] ;für das Optionsfnester
Case $GUI_EVENT_CLOSE, $Close_btn
GUISetState(@SW_ENABLE, $GUI)
GUISetState(@SW_HIDE, $Options_GUI)
Case $Copy_rights_btn
MsgBox(49, "Kopier - Rechte", "Dieser player wurde erstellt von Silver_Shadow97™.Ich verbiete jegliche verbreitungs unter 'anderen namen' und jegliche vermarktung.Dieser Player ist eine Art Free Ware noch im Entwicklungs Status. ver: [Alpha 0.5]", 10, $Options_GUI)
Case $contact_btn
MsgBox(0, "Kontakt", "Ihr könnt mich über meiner E-mail : [email='www.Silver_Shadow97@web.de'][/email] erreichen oder über meinem Youtubechannel: http://www.youtube.com/user/Kiyubi97?feature=mhee . Ich stehe gern für fragen oder Bug berichte zur verfügung.2012® Silver_Shadow97™", 15,$Options_GUI)
EndSwitch
EndSwitch
WEnd
Func ShowSeek()
$sLen = _SoundLength($h_Sound,1)
$sLen = StringReplace($sLen,"00:0","")
$sLen = StringReplace($sLen,"00","")
$iLen =StringLen($sLen)
$pos_sec = _SoundPos($h_Sound, 2) * 1000
$set = $pos_sec / $max_sec * 100
GUICtrlSetData($Progress1, $set)
$sPos = _SoundPos($h_Sound,1)
$sPos = StringRight($sPos,$iLen)
GuiCtrlSetData($idLblPosition,"Pos: " & $sPos & "/" & $sLen)
EndFunc ;==>ShowSeek
Func GetVol()
SoundSetWaveVolume(GUICtrlRead($Slider1))
EndFunc ;==>GetVol
Ein Vor- bzw Zurückspulen über Buttons geht imho nicht, da der Button nur ein Ereignis abfeuert wenn er losgelassen wird so dass man für jeden zu spulenden Zeitabschnitt einmal klicken müsstest, deshalb habe ich es bei mir über einen Slider gelöst, mit dem man genau die Stelle positionieren kann,
mfg autoBert
Hallo Kiyubi97,
schau mal in meinen [Beispiel] NeMP3-P (MP3-Player) Version 0.8.4.7 rein. Vielleicht kannst du dir ja dort etwas abschauen,
mfg autoBert
Hallo Kiyubi97,
hier ein Beispiel für den Umgang mit 2 GUI's:
#include <GUIConstantsEx.au3>
#include<WindowsConstants.au3>
Global $idGui1, $idGui2=-99, $idMsgBox, $idZurueck, $idbtnExit2
_CreateGui2() ;entweder hier oder erst wenn benötigt ($idbtmToGui2 Klick)
$idGui1 = GUICreate('GUI 1', 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
;erzeugt eine GUI die zurückgebebene ID wird in der Variablen $idGui1 gespeichert
;die GUI hat BOXen für Mininmieren, Maximieren und ist in der Größe frei änderbar
$idbtnToGui2 = GUICtrlCreateButton('&Aufruf GUI 2', 20, 20, 100, 21)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
$idbtnICQ = GUICtrlCreateButton('&ICQ', 20, 50, 100, 21)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
;verankert den Button "ICQ" links und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
$idbtnExit1 = GUICtrlCreateButton('be&enden', 20, 80, 100, 21)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
GUISetState(@SW_SHOW, $idGui1)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg(1) ;extended Modus wichtig!!
Switch $nMsg[1] ;für welches Fenster ist die Message
Case $idGui1 ;ab hier ist Gui 1 dran
Switch $nMsg[0] ;welche Message wurde ausgelöst
Case $idbtnToGui2
GUISetState(@SW_Hide, $idGui1) ;Gui 1 verstecken, damit nur Gui2 sichtbar ist und bearbeitet werden kann
;GUISetState(@SW_DISABLE, $idGui1) ;oder Gui 1 disablen, damit nur Gui2 bearbeitet werden kann
;If $idGui2 = -99 Then _CreateGui2() ;nur wenn nicht am Anfang bereits erzeugt nötig, dann auf Vorbelegung der Variable in Global achten)
GUISetState(@SW_SHOW, $idGui2) ;Gui 2 anzeigen
Case $idbtnICQ
MsgBox(0,"","Jetzt würde ICQ gestartet",0,$idGui1)
;Run("C:\Program Files\ICQ7.0\ICQ.exe")
Case $idbtnExit1, $GUI_EVENT_CLOSE
_end()
EndSwitch
Case $idGui2 ;ab hier ist Gui 2 dran
Switch $nMsg[0] ;welche Message wurde ausgelöst
Case $idMsgBox
MsgBox(0, 'Test', 'Test', 0, $idGui2)
Case $idZurueck, $GUI_EVENT_CLOSE
GUISetState(@SW_Show, $idGui1) ;Gui 1 wieder anzeigen
;GUISetState(@SW_ENABLE, $idGui1) ;oder Gui 1 wieder zur Bearbeitung zulsassen
GUISetState(@SW_HIDE, $idGui2) ;Gui 2 verstecken
Case $idbtnExit2
_end()
EndSwitch
EndSwitch
WEnd
Func _CreateGui2()
$idGui2 = GUICreate('GUI 2', 500, 300, 200, 50, -1, -1, $idGui1) ;wichtig ist der letzte Parameter falls beide gleichzeitig sichtbar sein sollen
;erzeugt eine GUI als Child von Gui1, die zurückgebebene ID wird in der Variablen $idGui2 gespeichert
$idMsgBox = GUICtrlCreateButton('&MsgBox', 20, 20, 100, 21)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
;verankert den Button "MsgBox" links und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
$idZurueck = GUICtrlCreateButton('&Zurück zu GUI 1', 20, 50, 100, 21)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
;verankert den Button "zurück" links und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
$idbtnExit2 = GUICtrlCreateButton('be&enden', 20, 80, 100, 21)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
;verankert den Button "beenden" links und oben und fixiert die Größe
;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
EndFunc ;==>_CreateGui2
Func _end()
GUIDelete($idGui2)
GUIDelete($idGui1)
Exit
EndFunc ;==>_end
mfg autoBert
Hallo Mr. Script,
herzlich wollkommen im Forum. Das ganze kannst du über AdLibRegister lösen:
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 402, 173, 193, 125)
$Group1 = GUICtrlCreateGroup("", 8, 8, 385, 153)
$Progress1 = GUICtrlCreateProgress(24, 112, 353, 33) ;<---Soll bei Programm Start anfangen sich zu füllen
$Label1 = GUICtrlCreateLabel("Überschrift", 120, 32, 170, 41)
GUICtrlSetFont(-1, 24, 800, 4, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibRegister("_incProgress") ;Hichzählen einschalten
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _incProgress()
Static $i
$i += 1
GUICtrlSetData($Progress1,$i)
if $i = 100 then
AdlibUnRegister("_incProgress") ;Hochzählen wieder abschalten
;hier kommt die Funktion rein die bei 100% ausgeführt werden soll
MsgBox(0,"","") ;kann gelöscht werden
EndIf
EndFunc
Du solltest dir aber auch die Funktionen Progress... in der Hilfeanschauen,
mfg autoBert
Ha336 Fusel232,
warum ist dein Thema im falschen Forum? Dieses Unterforim ist dafür da um Fehler in der dt. Hilfe zu melden. @Mod/Admin: bitte verschieben, besser löschen.
Jetzt fragst du dich sicher warum dein Thema gellöscht werden soll?
mfg autoBert
Leider habe ich weder in der Autoithilfe noch im Forum etwas passendes gefunden und hoffe deshalb darauf, dass irgendjemand in diesem Forum diese Funktion versteht.
anhand dessen solltest du es lösen können:
Bemerkungen
Information über $FunctionToCall:
Parameter: $Percentage - Fortschritt in Prozent
Rückgabewerte: Download fortsetzen - 1
Download abbrechen - 0 oder negativ
Diese Werte werden ebenfalls von _FTP_ProgressUpload() zurückgegeben,
so kann man auf verschiedene Ereignisse reagieren, wie z.B. einen Abbruch vom Benutzer, Schließen der Anwendung oder ein TimeOut von irgendwas.
Beispiele:
Func _UpdateProgress($Percentage)
ProgressSet($Percentage,$Percentage &"%")
If _IsPressed("77") Then Return 0 ; Abbruch mit F8
Return 1 ; Upload fortsetzen
EndfuncFunc _UpdateProgress($Percentage)
GUICtrlSetData($ProgressBarCtrl,$Percentage)
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Return -1 ; _FTP_UploadProgress Bricht mit -1 ab, so kann man die Anwendung hinterher schließen
Case $Btn_Cancel
Return 0 ; Einfach abbrechen, ohne speziellen Rückgabewert
EndSwitch
Return 1 ; Ansonsten Upload fortsetzen
Endfunc
Quelle: dt. Hilfe Deutsch
wenn du mit der Forensuche nichts gefunden hast lässt dies eigentlich nur den Schluss zu dass du der 1. bist der es nicht anhand der Hilfe lösen konnte. Ich kann dich breuhigen, dem ist nicht so, siehe https://autoit.de/index.php?page…4838#post244838 diesem Skript braucht man nur noch deine GUI verpassen und in der Func _UpdateProgress zwei Zeilen mit GuiCtrlSetData einfügen und 2 Zeilen (Progress...) löschen, das ganze sieht dann so aus:
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FTPEx.au3>
#include <Misc.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]_example1()
_example2()
#cs
Beispiel mit externem Progressfenster zur Demostration der Fortschrittsanzeige mit einer Benutzerfunktion
#ce
Func _example1()
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
GUICreate ("_FTP_ProgressUpload",620,55,-1,-1,BitOr($WS_SYSMENU,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $progressbar=GUICtrlCreateProgress (32,16,489,25)
Global $prozent=GUICtrlCreateLabel ("0",544,16,25,24)
Global $prozentzeichen=GUICtrlCreateLabel ("%",570,16,25,24)
GUICtrlSetFont (-1,12,800,0,"MS Sana Serif")
GUISetState (@SW_SHOW)
Local $s_ServerName = 'autobert.bplaced.net' ;dieser Server existiert nicht
Local $s_Username = "autobert"
Local $s_Password = "13BPBert1158"
Local $i_Passive = 0 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann auch mit 1 für passive Verbung testen
Local $s_LocalFile = @ScriptDir & "\_FTP_FilePut3.au3"
Local $s_RemoteFile = "test.tst"
Local $s_RemoteDir = "/FTPTestfiles/"
Local $l_InternetSession, $l_FTPSession
Local $errOpen, $errFTP
If FileExists(@TempDir & "\tmp.tmp") Then FileDelete(@TempDir & "\tmp.tmp") ;Nur um sicher zustellen dass das File nicht existiert
[/autoit] [autoit][/autoit] [autoit]$l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
$errOpen = @error
If Not @error Then
$l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
$errFTP = @error
If Not @error Then
_FTP_DirSetCurrent($l_FTPSession,$s_RemoteDir)
ConsoleWrite(_FTP_DirGetCurrent($l_FTPSession) & @CRLF)
_FTP_ProgressUpload($l_FTPSession, $s_LocalFile, $s_RemoteFile,"_UpdateProgress")
If @error Then ConsoleWrite("Fehler bei _FTP_ProgressUpload: " & @error & @CRLF)
Else
MsgBox(0, "Connect", "fehlgeschalagen")
ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
EndIf
Else
MsgBox(0, "Open", "fehlgeschalagen")
ConsoleWrite("Open " & " " & $errOpen & @CRLF)
EndIf
_FTP_Close($l_InternetSession)
EndFunc ;==>_example1
Func _UpdateProgress($i_Percent)
GUICtrlSetData($progressbar, $i_Percent)
GUICtrlSetData($prozent, $i_Percent)
If _IsPressed("77") Then Return 0 ; Abbruch bei F8
Return 1 ; bei 1 Fortsetzten
EndFunc ;==>_UpdateProgress
die Anmeldedaten musst du natürlich noch auf dich anpassen,
mfg autoBert
Hallo NetCode,
mach einfach eine Fehlerbehandlung in deine func:
Func BefehlePruefen($oBefehl)
Local $sStringSplit
Local $Para1, $Para2, $Para3
$sStringSplit = StringSplit($oBefehl, ";")
If Not @error Then
$Para1 = StringLen($sStringSplit[1])
if sStringSplit[0] > 1 Then $Para2 = StringLen($sStringSplit[2])
if sStringSplit[0] > 1 Then $Para3 = StringLen($sStringSplit[3])
EndIf
If $Para1 >= 1 And $Para2 >= 1 And $Para3 >= 1 Then
If $sStringSplit[1] == "/start" Then
Run($Pfad & $sStringSplit[2] & "\" & $sStringSplit[3])
If ProcessExists($sStringSplit[3]) Then
_LogWrite("Form :" & $BackAddress & " Program : " & $sStringSplit[3] & " Gestartet !", 2)
ElseIf Not ProcessExists($sStringSplit[3]) Then
_LogWrite("Form :" & $BackAddress & " Program : " & $sStringSplit[3] & " konnte nicht Gestartet werden !", 1)
Else
_LogWrite("Form :" & $BackAddress & " Program : " & $sStringSplit[3] & " Prüfen sie den Pfad des Programmes !", 3)
EndIf
EndIf
EndIf
EndFunc ;==>BefehlePruefen
[/autoit]mfg autoBert
also unter Win XP läuft das skript, vielleicht benötigt ja Win7 den kompletten Pfad zur EXE, da run nicht automatisch im Skriptverzeichnis gestartet wird,
mfg autoBert
Leider ist das so fest vorgegeben.
[KEY1]
keyname=123
keytext=2
keytext=3
Keykey=25hat jemand ne Idee wie ich das sonst noch machen könnte.grussBaldrian
Dann sind die Vorgaben nicht passend, ein Schlüssel kann immer nur einen Wert haben.
mfg autoBert
Schau dir aucj einmal https://autoit.de/index.php?page=Thread&threadID=30900 an,
mfg autoBert
Schön, dann ist dein Problem ja gelöst. Schön wäre es auch wenn du das Thema auf gelöst setzt,
danke autoBert
