Danke Micha_he!!!
Problem gelöst, es lag wirklich am Passiv mode...
Seltsamerweise hat das bis vor ein paar Tagen auch ohne den 5. Parameter tadellos funktioniert...
Danke Micha_he!!!
Problem gelöst, es lag wirklich am Passiv mode...
Seltsamerweise hat das bis vor ein paar Tagen auch ohne den 5. Parameter tadellos funktioniert...
Moin zusammen,
ich habe da gerade ein seltsames Problem mit dieser Funktion.
Diese Func:
Func ScreenshotCopy()
$slot = $slotname1
_FTP_DirSetCurrent($Conn, $slot)
If @error Then
MsgBox(16, "FTP-Error", "No FTP connection to" & @CRLF & $slot & " possible!")
EndIf
If FileExists(@ScriptDir & "\Settings\screenshot.exe") Then
If _FTP_FilePut($Conn, @ScriptDir & "\Settings\Screenshot.exe", $slot & "\Screenshot.exe") Then
Consolewrite("Screenshot.exe erfolgreich kopiert" & @CRLF)
GUICtrlSetState($screenButton, $GUI_ENABLE)
GUICtrlSetBkColor(-1, 0x00FF00) ;### > >
else
MsgBox(16, "FTP-Error", "Could not copy Screenshot.exe to: " & @CRLF & $slot & " !")
EndIf
Else
MsgBox(16, "Copy error", "No screenshot.exe in script folder." _
& " Please be shure, that all neccassary files have been copied to your desktop!")
EndIf
EndFunc ;==>ScreenshotCopy
soll mir eine Screenshot.exe per FTP auf ein anderes Gerät kopieren...
Das funktioniert aber nicht richtig, die Func kommt nicht aus dem _FTP_FilePut() raus, sondern bleibt da hängen.
Die Consolenausgabe kommt nämlich nciht, sondern die App hängt sich weg.
Auf dem Gerät habe ich dann zwar eine Screenshot.exe, diese hat aber 0 Bytes.
Kopieren per Drag&Drop per FileZilla funktionert....
Seht Ihr da einen Fehler im Script, oder könnte das die Firewall sein???
tl;drIch gehe mal davon aus, dass es sich um AD Benutzerkonten handelt. Wir legen Accounts mit einem Standardpasswort an und setzen das Flag "Benutzer muss beim nächsten Logon das Passwort ändern".
Sollte er das Passwort vergessen etc. dann machen wir die selbe Prozedur nochmals d.h. setzen das Passwort auf das Standardpasswort zurück.
So kommen wir nie in Verlegenheit die Passworte des Benutzers kennen zu müssen.Diese Geschichte lässt sich in einem 10-Zeiler mit meinem AD UDF umsetzen.
So und nicht anders ist auch das Standart-Procedere.
Userpasswort hat beim Admin eigentlich nix zu suchen, sondern nur beim User...
Vielleicht sehe ich Dein "Problem" nicht?
Wo ist das Problem, den Hotkey in der INI zu ändern, wenn die INI mal angelegt ist?
hmmm... warum lagerst Du die Strings nicht in eine INI aus?
Das wäre doch viel einfacher und komfortabler?!?
Jep, das ist nix anderes als ein Keylogger...
Vote for close!
Naja... Wenn du das Spiel dann genauso "kurz hinrotzt", wie das Video, mit dem Du Helfer suchst...
Ich würde mir noch eine Treibereinbindung wünschen, die evtl. benötigte Treiber bei der Installation entsprechend des OS und CPU-Architektur installiert.
Das würde dann möglicherweise auch zum Neustart des OS führen müssen, um die Installation abzuschliessen...
Ansonsten...
Danke für den Hinweis.
Hab mir das mal durchgelesen, aber irgendwie bekomme ich da für mein Script keinen Kopf dran...
Hallo zusammen,
hab da ein Problem, bei dem ich Hilfe benötige....
Ich habe ein Gerät, was über USB to LAN am PC angeschlossen wird mittels Adapter.
Das Gerät selber hat eine feste IP-Adresse, die LAN-Adapter sind installiert und haben eineen (leider) von PC zu PC unterschiedlichen COM-Port installiert, aber eine feste BAUDrate.
Auf den PC sind die LAN-Adapter immer installiert, sodass die Telnet-Verbindung immer funktioniert... halt mit aufpoppenden DOS-Boxen.
Was mache ich zur Zeit:
Func _telnet()
; Run Telnet
$adress = '192.168.1.4'
$WinTitle = "Telnet connection to target <<- Telnet ->>"
If Not WinExists($WinTitle, "") Then
Local $telnet = Run("telnet " & $adress, @SystemDir)
If @error <> 0 Then
TelnetError()
EndIf
WinWait("Telnet " & $adress, "", 1)
;======= Rename window
WinSetTitle("Telnet " & $adress, "", $WinTitle)
WinMove($WinTitle, "", 0, 0, 30, 30)
Else
GUICtrlSetState($FormatButton, $GUI_DISABLE)
EndIf
EndFunc ;==>_telnet
Dann spreche ich das Gerät über Telnet an, um auf dem Gerät BAT-Dateien auszuführen:
Func _format_script()
If (WinActivate($WinTitle) = 0) Then
_telnet()
; MsgBox(48, "Attention", "No Telnet connection found!")
Else
xSend($WinTitle, "cd sdcard0" & "{ENTER}")
xSend($WinTitle, "format_script.bat " & "{ENTER}")
Sleep(100)
EndIf
EndFunc ;==>_format_script
Ihr könnt Euch denken, dass mir das (funktionierende) Script so nicht gefällt.
Die Ausgaben, die eigentlich auf der DOS-Box kommen, sollten über GUICtrlSetData() in meiner Textbox sichtbar werden...
Irgendwo hatte ich gelesen, dass man das über den COM-Port direkt machen kann, aber da kriege ich keinen Kopf dran...
Kann mir da mal bitte einer helfen???
Feine Sache.
Auch mir gefällt das aufgeräumte Design. Scheint alles drin zu sein, was das Herz begehrt.
Werde Morgen mal ein relativ kompliziertes Gebilde versuchen umzusetzen. Mal schauen wie sich der Install_Creator dabei anstellt....
XP SP3 benutze ich...
Der Klick auf Abbrechen schliesst nicht das Clean Manager-Tool. Das analysiert dann die FP, obwohl ich vor der Ausführung den Abbrechen-Button geklickt habe.
Gleiches Verhalten bei Clean Manager+
Das ist doch kein Child, sondern eine MsgBox.
Die Messagebox wird immer zentriert auf dem Bildschirm.
MsgBox(4,"Info:","Möchten Sie wirklich den Datensatz wirklich " & $s_Info_Msg1 & @CRLF & $s_Info_Msg2)
[/autoit]Alternativ kannst du eine Mesage-GUI als Child zur $_Gui_Main erstellen, die Du dann selber so setzen kannst, wie Du magst.
Moin zusammen...
Bin geraade mal wieder total beschränkt, was meine Denkfähigkeit betrifft...
Ich habe einen längenvariablen String
Ich habe eine maximale Eingabelänge, die keinesfalls 34 Zeichen übersteigen darf, aber auch nciht kürzer sein darf.
Um dies zu erreichen benutze ich Underscores.
das Ergebnis soll dann so aussehen (34 Zeichen):
[Das was ausgegeben wird]_________
Der String: [Das was ausgegeben wird] kann aber kürzer, oder länger sein.
Folgender Ansatz:
[autoit]
local $underscore = StringLen($sw_version) ;### $sw_version wird aus der INI gelesen und stelle die Länge des Strings fest
local $newunderscore = (34-$underscore) ;### berechne die max. erlaubte Länge des Strings minus Länge des Strings
FileWrite ($setfile1,StringTrimRight (("[" & $sw_version & "]" & "_________________"),($newunderscore)) ;### Schreibe den String mit der notwendigen Menge an Underscores in das Textfile
Wo ist da mein Denkfehler???
Edit:
Ich sag ja... man steht im Wald und sieht die Bäume nicht.
Raupi hat mir das in der SB beantwortet.
FileWrite ($setfile1,StringLeft("[" & $sw_version & "]" & "________________________",34))
...und dann tut das...
Noch aus der alten Schule... Versuch mal eine Batch-Datei mit folgendem Inhalt:
Usernamen ersetzen, neues Passwort einsetzen.
Datei speichern als Passwort.bat (oder so) und mit Doppelklick ausführen.
Selbstverständlich sollte das auch über eine GUI bzw AutoIt darstellbar sein.
Geht natürlich nur, Kontorichtlinien für die Vergabe von Passwörtern beachtest....
Hallo zusammen,
hab schon die suche bemüht, aber nichts passendes finden können.
Hab in den richtigen Ordner entpackt: C:\Program Files\AutoIt3\SciTE\OrganizeIncludes
Meine SCiTEUser.properties sieht so aus:
<snip>
style.au3.15=fore:#0080FF,back:#ffffff
# END => DO NOT CHANGE ANYTHING BEFORE THIS LINE #-#-#-#-#-#
#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
ContinuousComment.LFpos.*.au3=170
ContinuousComment.Chars.*.au3=;###
ContinuousComment.BreakCharsLast.*.au3=>
ContinuousComment.BreakCharsNext.*.au3=>
# 36 Comment Continuous
command.name.49.*=Kommentarmodus aktivieren
command.49.*=CommentModeActivate
command.mode.49.*=subsystem:lua,savebefore:no
command.shortcut.49.*=Ctrl+Shift+K
# 37 OrganizeIncludes
command.37.*.au3="$(autoit3dir)\autoit3.exe" "$(SciteDefaultHome)\OrganizeIncludes\OI_1.0.0.50.au3" "$(FilePath)"
command.name.37.*.au3=OrganizeIncludes
command.save.before.37.*.au3=1
command.is.filter.37.*.au3=1
command.shortcut.37.*.au3=Ctrl+Shift+Alt+I
</snap>
Beim Ausführen bekomme ich in der Konsole folgende Ausgabe:
[autoit]
>"\autoit3.exe" "C:\Program Files\AutoIt3\SciTE\OrganizeIncludes\OI_1.0.0.50.au3" "C:\Documents and Settings\Pitter\Desktop\EB-Testreport\V1.3\EB-testreport.au3"
The filename, directory name, or volume label syntax is incorrect.
>Exit code: 1 Time: 0.208
Was ist denn da los? Any hints?
Edit: C:\Program Files\AutoIt3\SciTE\OrganizeIncludes\OI_1.0.0.50.au3" Pfad ist OK
"C:\Documents and Settings\Pitter\Desktop\EB-Testreport\V1.3\EB-testreport.au3" Pfad ist auch OK
Edit2:
Hab den Fehler nach längerer Suche doch noch fixen können... Sieh HIER
Sorry Jungs...
Wenn man natürlich vergisst, die Konstante richtig zu setzen, kann das auch nicht funktionieren.
Da fehlte natürlich noch
Global Enum $hHelp = 1000
Oh... peinlich...