Beiträge von UdoL

Ja das wars danke

LG UdoL

Hallo an alle,

ich habe ein Problem mit Runwait. Was mache ich falsch. Weder lokal noch im Netzwerk kann ich Dateien ausführen.

Was mache ich falsch?

LG UdoL

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Test", 501, 420, 410, 189)
$Button5 = GUICtrlCreateButton("Installieren", 400, 200, 65, 20)
$Button3 = GUICtrlCreateButton("Beenden", 400, 348, 65, 20)
$Checkbox1 = GUICtrlCreateCheckbox("7ZIP", 50, 56, 97, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
case $Button3
    Exit

case $Button5
    If GUICtrlRead($Checkbox1)=1 then RunWait ("\\de-nb-vm-101\sources$\Applications\7Zip\16.04-x86\7z1604.msi" )

    EndSwitch
WEnd

Genau das wo nach ich gesucht habe. Genial. so siehts dann aus...
Danke

Func _iniwrite()


	For $nbr = 1 to 60
   Local $test2 =  GUICtrlRead (Eval("Input" & $nbr))
	ConsoleWrite(  $test2 & @CR)
	  if $nbr = 60 Then ExitLoop
Next

Hallo, ich versuche aus einer Form Werte auszulesen und in einer Ini zu speichern.

Local $inputt1 =  GUICtrlRead ($Input1)
ConsoleWrite($inputt1  &' ' & $input1& @CR)

so funktioniert es natürlich.
aber ich wollte mir 60 Zeilen ersparen, deshalb hatte ich gedacht so....

For $nbr = 1 to 10
	 Dim $test1 = '$inputt'&$nbr
	 Dim $test2 = '$Input'&$nbr
	   ConsoleWrite($test1  &' ' & $test2& @CR)
	   	  Local $test1 =  GUICtrlRead ($test2)
		  if $test1 =0 Then MsgBox (0,"Fehler","Es sind Fehler aufgetaucht!")
		  ;ConsoleWrite($test1& @CR)
	  if $nbr = 10 Then ExitLoop

Das ergibt folgende Ausgabe auf der Console
$inputt1 $Input1
$inputt2 $Input2
$inputt3 $Input3
$inputt4 $Input4
Ich glaube $inputt1 wird nicht als Variable erkannt. "inputt1" soll eigentlich einen Wert zurückgeben. Wie kann ich das ändern ?

LG
UdoL

Alles IO
scheint ein Rechte Problem auf dem Sender-PC. Beide Zeilen funktionieren.
Danke für die Antwort
Gruß UdoL

$iRet = _FTP_FilePut ($hSession, $sFilename , $sFilename)
$iRet = _FTP_ProgressUpload ($hSession, $sFilename , $sFilename)

Hallo Männer und Frauen,
ich möchte mir das Leben etwas leichter machen und ein paar Dateien per FTP automatisch kopiern. Ich habe ein Script von Oskar genutzt.
Leider habe ich mit _FTP_FielPut ein Problem. Ich bekomme keine Fehlermeldung sondern nichts als Resultat.
Auf dem fernen Laufwerk wird eine Datei (.pureftpd-upload.55db1993.15.20b4.59659d1c) angelegt aber die ist leer. Ich habe dort Schreibrechte, mit FTP_DirCreate kann ich
Verzeichnisse anlegen und mit FTP_DirDelete wieder löschen. Habe ich einen Parameter übersehen?

Gurß Udo

#include <FTPEx.au3>


$sDir = @ComputerName
$sPW = '4geheim'
$sUser = '4geheim'
$sIP = '4geheim'
$sPath = FileOpenDialog('Bitte die Datei auswählen.', '', 'All (*.*)', 2)
If Not FileExists($sPath) Then Exit
ConsoleWrite('Path: "' & $sPath & '"' & @CR)
$sFilename = StringRegExpReplace($sPath, '.+\\(.+)', '$1')
ConsoleWrite('Filename: "' & $sFilename & '"' & @CR)


$hOpen = _FTP_Open('myftp')
ConsoleWrite('FTP_Open: ' & $hOpen & @CR)
If Not @error Then
	$hSession = _FTP_Connect($hOpen, $sIP, $sUser, $sPW)
	ConsoleWrite('FTP_Connect: ' & $hSession & @CR)
	If Not @error Then
		$iRet = _FTP_DirCreate($hSession, $sDir)
		ConsoleWrite('FTP_DirCreate: ' & ($iRet = 1 ? 'created' : 'not created') & @CR)
		;$iRet = _FTP_DirDelete ($hSession, $sDir)
		;ConsoleWrite('FTP_DirDelete: ' & ($iRet = 1 ? 'deleted' : 'not deleted') & @CR)
		$iRet = _FTP_FileDelete ( $hSession,$sFilename)
		ConsoleWrite('FTP_delete: ' & ($iRet = 1 ? 'delete ok' : 'delete error') & @CR)
		$iRet = _FTP_FilePut($hSession, $sPath, $sDir & '/' & $sFilename)
		ConsoleWrite('FTP_FilePut: ' & ($iRet = 1 ? 'transfer ok' : 'transfer error') & @CR)
	EndIf
	$iRet = _FTP_Close($hSession)
	ConsoleWrite('FTP Session: ' & ($iRet = 1 ? 'close' : 'error') & @CR)
	$iRet = _FTP_Close($hOpen)
	ConsoleWrite('FTP: ' & ($iRet = 1 ? 'close' : 'error') & @CR)
EndIf

Jup funzt fast alles jetzt greift der Slider irgendwie ins Leere er bewegt sich zwar aber der Lautstärke verändert sich nicht.
Aber was meinst Du mit krude Methode "dass die Control-IDs fortlaufend nummeriert werden" ?
Ach ja dann müßt Ihr noch mir einen Tip geben, wie schliesse ich diesen Beitrag ?

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $exititem
_exit()

Case $bStart
if $pause=False Then
$oWMP.controls.play()
$pause =True
Else
$oWMP.controls.stop()
EndIf

Case $bhome
_homepage()

Case $sender0 To $sender9
$nbrx = $nMsg - $sender0
_send()
Case $infoitem
_hilfe()

Case $slider
$oWMP.settings.volume = GUICtrlRead($slider)

Case $iniview
_iniview()
;GUISetState (@SW_HIDE,$form1)
EndSwitch

Vielen Dank

Hallo zusammen,
ich habe mir ein kleines Script gebastelt. Innerhalb einer Form möchte ich immer wiederkehrenden Code mit eine Schleife oder so was sparen. Leider haben meine Versuche keinen Erfolg gehabt. Könnt Ihr mir helfen ?
muchas gracias

While 1
$nMsg = GUIGetMsg()
If $nMsg = $GUI_EVENT_CLOSE or $nMsg = $exititem Then
Call ("_exit")
EndIf
If $nMsg = $bStart Then
if $pause = False Then
$oWMP.controls.stop()
$pause = True
Else
$oWMP.controls.play()
$pause = False
EndIf
EndIf
if $nMsg =$bhome Then
Call ("_homepage")
EndIf
If $nMsg = $sender0 Then
Global $nbrx=0
Call ("_send")
EndIf
.
.
.
If $nMsg = $sender9 Then
Global $nbrx=9
Call ("_send")
EndIf
If $nMsg = $infoitem Then
Call ("_hilfe")
EndIf

Ich habe gerade auf meinem Spielrechner Avira getestet- ohne zu murren alles erfolgreich auch das Komplieren. Mit und ohne UPX alles schick.
Mal sehen vieleicht steige ich um.

Wie ich sehe habt Ihr auch kein Allheilmittel so muß ich mir wirklich überlegen ob ich bei AUTOIT bleibe.
Also ich werde mir Visual Express mal ansehen. Keine Ahnung ob ich da schnell einsteigen kann so wie in autoit.

Ich habe im Forum schon Einträge mit Virusmeldungen gefunden.
Jede Meldung von Avast sende ich an Avast. Mit dem Suport habe ich mich auch schon auseinander gesetzt. Aber es gab wohl in vergangener Zeit Viren die mit UPX usw.

Hallo Männer und Frauen,
ich muß euch erstmal loben. Das Projekt Autoit ist großartig. Die Sprache ist leicht zu erlernen und das Forum ist super. Man merkt Ihr steckt tief in der Sprache und es macht euch Spaß zu helfen. Great Job!!!
Ich fühle mich hier gut aufgehoben.
Jetzt kommt das ABER, ich habe während des Kompilieren immer eine Virusmeldung. OK- also habe ich währen des kompilieren den Scanner ausgeschaltet. Natürlich kommt dann später der Alarm. Ohne UPX und Icon bringt auch kein Erfolg.
Ich verwende AVAST weil immer wieder Testsieger in Magazinen usw. Ich empfehle es auch Bekannten und Familie. Deshalb kann ich die fertigen Scirpte nicht weiter geben. Weil jedesmal wird die Datei gelöscht.
Gibt es eine andere Lösung ohne "Virus"?

Ja das klappert.

Vielen Dank

UdoL

Hallo, ich probiere mit Autoit noch nicht lange. Da bleiben die eine oder andere Frage. Bei einer komme ich nicht weiter.
Bei
Verwendung einer Combobox kann ich verschiedene Werte vorgeben. Ich
möchte aber Werte aus einer INI Datei auslesen, und diese an die
Combobox übergeben.
Mit einem Wert klappt das sehr gut.

GUICtrlSetData(-1, $source0,$source0)

Aber mit mehreren bekomme ich immer Syntaxfehler. In der Hilfe sind immer nur Texte in "" , wie kann ich Variblen trennen?

$Combo1 =GUICtrlCreateCombo("", 64, 88, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $source0|source1|source2,$source0)

MfG
UdoL

Wahrscheinlich bin ich zu dumm. Aber ich kann den Button nicht finden Präfix geschlossen.

Klasse

Großes DANKE

Hallo an alle.
Ich bin neu hier und wende mich mit einem Problem an euch.
Ich habe ein Skript und möchte eine INI-Datei erstellen die den gleichen Namen hat wie das Skript.
Wie kann ich den String '.ini' anfügen ?

$Skriptname=StringTrimRight(@ScriptName,4)
MsgBox(0, 'Check', $Skriptname)
Local $inifile = $Skriptname(.ini)