Beiträge von BigOldDad

BigOldDad

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.

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
EndFunc

Wie geht das?
Danke!

BigOldDad

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

BigOldDad

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!

BigOldDad

Raupi

Genial.
Danke Schön!!!

BigOldDad

Hallo,

ich möchte ein ComboControl in einer GUI mit Daten aus einer .Ini Datei füllen

C

#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

Alles anzeigen

Die Funktion Datenübernahme funktioniert. Nur das ComboControl bleibt leer. Was mache ich denn da falsch?

Danke vorab.

BigOldDad

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)

BigOldDad

Schau mal hier:

http://www.serverhowto.de/Applikationen-…hten.228.0.html

BigOldDad

also wenn du Windoof Remotedesktop meinst und das Fenster einfach nur zu machst, meldet dich der Server automatisch ab.

Ich würde es mal per Dienst probieren?!?

BigOldDad

If $Verify = 0 Then
WinSetOnTop ( "Creating Image", "", 1 )
While ControlFocus( "[CLASS:#32770]", "", "&Image Summary..." ) = 0
Sleep ( 1000 )
WEnd
Else

Solange 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

BigOldDad

Der Abbruch kann zu jeder Zeit durch einen HotKey erzwungen werden.

Die GUI ist dadurch unnötig!

Code

;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

Alles anzeigen

;

Danke Forum!!!!

BigOldDad

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

#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

Alles anzeigen

Beiträge von BigOldDad

FTP Connect per IP

FTP Connect per IP

.Ini vollständig in ein Array lesen

.Ini vollständig in ein Array lesen

guicombo mit daten aus einer ini füllen

guicombo mit daten aus einer ini füllen

Lokales Admin Passwort inkl. Rechnername

Script wird nicht richtig ausgeführt bei ablegen des RDP Fensters

Script wird nicht richtig ausgeführt bei ablegen des RDP Fensters

Abbruch Button der GUI funktioniert nicht

Abbruch Button der GUI funktioniert nicht

Abbruch Button der GUI funktioniert nicht