OK, vielen Dank erstmal dafür.
Ich habe die Variable Port fest angelegt und in Connect übergeben. Die Verbindung steht.
Ein Upload oder Download muss ich mir jetzt noch überlegen, am besten wäre es, die Datei direkt zu bearbeiten. Dazu muss ich aber bereits vorhanden Programme umschreiben.
Beiträge von BigOldDad
-
-
Ich möchte einen Dateiupload per FTP zu einer IP 192.168.0.64 Port 8081 realisieren.
Bisher habe ich lediglich Connect per Name gefunden.#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <FTPEx.au3>
#Include <File.au3>
;===========================================================================> Globals
Global $FTP_Name = "192.168.0.64:8081"
Global $FTP_User = "Administrator"
Global $FTP_Pass = "*******"
Global $FTP_Dir = "/Documents/ADaSi/ADaSi.txt" ;===> Ich vermute es liegt daran._Connect()
;===========================================================================> Func _Connect
Func _Connect()
Global $FTPOpen, $FTPConnect
$FTPOpen = _FTP_Open ("FTP")
$FTPConnect = _FTP_Connect ($FTPOpen, $FTP_Name, $FTP_User, $FTP_Pass)
If $FTPConnect = 0 Or $FTPConnect < 0 Then
MsgBox (16, "Fehler", "Es konnte keine Verbindung mit dem Server hergestellt werden!" & @CRLF & _
"Bitte versuchen Sie es später erneut oder setzen Sie sich mit dem Admin in verbindung." & @CRLF & @CRLF & _
"Danke.")
Exit
EndIf
EndFuncWie geht das?
Danke! -
Hallo,
beide Antworten waren super hilfreich. Danke dafür. Leider ergibt sich daraus ein neues Problem.
Ich wollte mit Hilfe einer GUI die Werte zu einem Datensatz suchen, bearbeiten und wieder zurückschreiben, sowie ganze Datensätze ergänzen. Eventuell auch die gesamte .Ini Datei zurück schreiben.
Bin ich hier auf einem totalen Holzweg . Geht sowas auch einfacher? Z.B. mit einer .txt Datei, oder .csv?
Brauche ich hier einen völlig neuen Denkansatz?Gruss BigOD
-
In einem Tutorial von BugFix heißt es:
Auch einige Funktionen liefern von Haus aus ein 2-D Array zurück.
Nehmen wir als Bsp. IniReadSection("filename", "section")
So sieht unsere INI-Datei aus:
[sektion]
schluesselA=1
schluesselB=2
schluesselC=3
schluesselD=4
Jetzt lesen wir die Sektion ein:
#include
Local $val ; Variable für Array deklarieren
$val = IniReadSection($pathINI, "sektion") ; Sektion einlesen
If (Not IsArray($val)) Then ; Wenn zurückgegebene Variable kein Array ist
MsgBox(0, '', 'INI-Sektion konnte nicht gelesen werden')
Exit
EndIf
_ArrayDisplay($val, 'Inhalt INI-Sektion: [sektion]') ; eingelesenes Array anzeigen
Schauen wir uns den Inhalt des Array an:
$val[0][0] = 4 ; Anzahl der eingelesenen Schlüssel-Wert Paare
$val[1][0] = 'schluesselA' ; Name des Schlüssels
$val[1][1] = 1 ; Wert des Schlüssels
Wie bekomme ich jedoch die restlichen Sektionen in das Array?
Inhalt der .Ini ist:
[1]
Nachname=Mustermann
Vorname=Maria
Strasse=Heidestr. 17
Plz=10557
Ort=Berlin
Bearbeiter=
Bemerkungen=
Erledigt=
[2]
Nachname=Musterfrau
Vorname=Heiner
Strasse=Heidestr. 17
Plz=10557
Ort=Berlin
Bearbeiter=
Bemerkungen=
Erledigt=
Mit _Arrayadd wird der Inhalt des Arrays immer wieder überschrieben?!?!
Vielen Dank BugFix für den ersten Ansatz! -
Genial.
Danke Schön!!! -
Hallo,
ich möchte ein ComboControl in einer GUI mit Daten aus einer .Ini Datei füllen
C
Alles anzeigen#include #include #include #Region ### START Koda GUI section ### Form=H:\Documents\Autoit\Scripts\Aktuell\Fall.kxf $Fall = GUICreate("Fall", 629, 484, 926, 321) GUISetIcon("C:\Windows\System32\shell32.dll", -246) $Akte = GUICtrlCreateCombo("Akte", 8, 16, 177, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) $Datenuebernahme = GUICtrlCreateButton("Datenuebernahme", 232, 408, 169, 33) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Akte $Imageanzahl = IniRead ( "L:\Fall.ini", "Config", "LastSektion", "0" ) For $m = 1 To $Imageanzahl Step 1 $Az = IniRead ( "L:\Fall.ini", "Allgemein", "Akte", "" ) GUICtrlSetData ( $Akte, $Az, $m ) Next Case $Datenuebernahme Datenuebernahme () EndSwitchWEnd
Die Funktion Datenübernahme funktioniert. Nur das ComboControl bleibt leer. Was mache ich denn da falsch?
Danke vorab.
-
Hallo s nowatzki,
Ich denke so:
If FileExists(@ProgramFilesDir & "\netinst\niagnt32.exe") Then
$CName= @ComputerName
$strUserPW = ($CName & "08154711")
$rc=_RunDos("cusrmgr.exe -u " & $strLocalUser1 & " -m \\%Computername% -r " & $strLocalUser2) -
-
-
If $Verify = 0 Then
WinSetOnTop ( "Creating Image", "", 1 )
While ControlFocus( "[CLASS:#32770]", "", "&Image Summary..." ) = 0
Sleep ( 1000 )
WEnd
ElseSolange diese While Schleife( wartet auf ein bestimmtes Fenster, welches noch gar nicht existiert) läuft ist der Button Abbruch ohne Funktion!
Das Case 0 ist so nicht gewollt ! Aber Lösung habe ich über HotKey gelöst. Danke
-
Der Abbruch kann zu jeder Zeit durch einen HotKey erzwungen werden.
Die GUI ist dadurch unnötig!
Code
Alles anzeigen;Abbruch mit Strg-Alt-a HotKeySet ( "^!a", "Abbruch" ) Func Abbruch() If MsgBox ( 52, "Abbruch?", "Die Tastenkombination für Abbruch wurde erkannt!" & @CRLF & "Wirklich beenden?" ) = 6 Then $PID = ProcessExists ( "xx.exe" ) If $PID Then ProcessClose ( $PID ) GUIDelete () EndIf If MsgBox ( 52, "Abbruch?", "Die Tastenkombination für Abbruch wurde erkannt!" & @CRLF & @CRLF & "Sollen die Sicherungsdateien gelöscht werden!!!" ) = 6 Then FileDelete ( $ImageDestinationFolder & $UniqueDescription & ".*" ) If IniRead ( $Falldaten, "Image_" & $ImageCount, "x91ImageName1", "" ) = $UniqueDescription Then IniDelete ( $Falldaten, "Image_" & $ImageCount ) $ImageCount = $ImageCount - 1 IniWrite ( $Falldaten, "Allgemein" , "Imageanzahl", $ImageCount ) EndIf EndIf Exit 0 EndFunc
;
Danke Forum!!!!
-
Ich brauche bitte mal Hilfe für eine GUI.
Ich habe ein Programm geschrieben, welches auf ein externes Datensicherungsprogramm zugreift, dort die notwendigen Eingaben macht und den Ablauf kontrolliert.
Jetzt wollte ich das Programm um eine zusätzliche GUI erweitern, die bei betätigen eine Buttons die xx.exe killt und das Programm beendet. (siehe Quellcode). Jedoch funktioniert der Button ncht wirklich während das Programm läuft. Kann mir jemand sagen wo da der Fehler ist?
Danke!!!Code
Alles anzeigen#Region ### START Koda GUI section ### Form=ADaSi2 $ADaSi2 = GUICreate("ADaSi v5.0", 509, 345, 192, 124) $Top1 = GUICtrlCreateLabel("Datensicherung wurde gestartet", 32, 32, 270, 26) GUICtrlSetFont(-1, 14, 800, 0, "Times New Roman") $Top2 = GUICtrlCreateLabel("Image Name: " & $UniqueDescription, 32, 80, 335, 23) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") $Top3 = GUICtrlCreateLabel("HD Größe: " & $Notes & " GB", 32, 120, 335, 23) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") $Top4 = GUICtrlCreateLabel("Kompression: " & $Compression, 32, 160, 335, 23) GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman") $Button1 = GUICtrlCreateButton("Abbruch", 216, 256, 177, 49, $WS_GROUP) GUICtrlSetFont(-1, 14, 800, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0xFF0000) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg1 = GUIGetMsg() Switch $nMsg1 Case $Button1 $PID = ProcessExists ( "xx.exe" ) If $PID Then ProcessClose ( $PID ) FileDelete ( $ImageDestinationFolder & $UniqueDescription & ".**" ) Exit Case 0 If $Verify = 0 Then WinSetOnTop ( "Creating Image", "", 1 ) While ControlFocus( "[CLASS:#32770]", "", "&Image Summary..." ) = 0 Sleep ( 1000 ) WEnd Else WinWaitActive ( "Drive/Image Verify Results" ) Sleep ( 200 ) EndIf ; xx zwangsbeenden $PID = ProcessExists ( "xx.exe" ) If $PID Then ProcessClose ( $PID ) ; Directory Listing löschen oder mit der Log nach Dokumentation verschieben If $Compression > 5 Then FileMove ( $ImageDestinationFolder & $UniqueDescription & $Format & ".txt", $LW & $Az & "\Dokumentation\" & $UniqueDescription & "_Compressed.txt", 9 ) FileMove ( $ImageDestinationFolder & $UniqueDescription & $Format & ".csv", $LW & $Az & "\Dokumentation\" & $UniqueDescription & "_Compressed.csv", 9 ) ShellExecute ( $LW & $Az & "\Dokumentation\" & $UniqueDescription & "_Compressed.txt", "" , "" , "edit" ) Else FileDelete ( $ImageDestinationFolder & $UniqueDescription & $Format & ".csv" ) FileCopy ( $ImageDestinationFolder & $UniqueDescription & $Format & ".txt", $LW & $Az & "\Dokumentation\" & $UniqueDescription & "_Imaged.txt", 9 ) ShellExecute ( $LW & $Az & "\Dokumentation\" & $UniqueDescription & "_Imaged.txt", "" , "" , "edit" ) EndIf Exit EndSwitch WEnd Exit