die besten Wünsche dazu, vor allem Gesundheit, Erfolg und Glück in allen Lebenslagen. Lass dich ausgiebig feiern ![]()
![]()
![]()
![]()
autoBert
die besten Wünsche dazu, vor allem Gesundheit, Erfolg und Glück in allen Lebenslagen. Lass dich ausgiebig feiern ![]()
![]()
![]()
![]()
autoBert
Hallo nuyx,
wie du an diesem Skript:
[autoit]#include <Array.au3>
[/autoit][autoit][/autoit][autoit]Global $aRandNr[10]
Global $aNr[10]
For $i = 0 To 9
$aNr[$i] = $i
Next
For $i = 0 To 9
$j = Random(0, UBound($aNr) - 1, 1)
$aRandNr[$i] = $aNr[$j]
;ConsoleWrite($aRandNr[$i] & @TAB)
_ArrayDelete($aNr, $j)
;_ArrayDisplay($aNr,"Zahlen im Lostopf")
Next
_ArrayDisplay($aRandNr,"Zufallszahlen")
;ConsoleWrite(@CRLF)
erkennst kannst du beim Ermitteln der Zufallszahlen einiges kürzen. Falls du das Verfahren nicht verstehst solltest du die auskommentierten Zeilen aktivieren,
mfg autoBert
Hall Hugbert,
ich habe kein Win7 kann mir aber nicht vrstellen dass sich dadurch etwas ändert. Starte einmal dieses Skript (in der Hilfe ist leider das falsche Beispiel):
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <FTPEx.au3>
Opt('MustDeclareVars', 1)
_example()
[/autoit] [autoit][/autoit] [autoit]Func _example()
Local $s_ServerName = 'ftp.csx.cam.ac.uk' ;das ist ein real exitierender Server
Local $s_Username = ''
Local $s_Password = ''
Local $i_Passive = 0 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann ach mit 1 für passive Verbung testen
Local $s_LocalFile = @TempDir & "\tmp.txt"
Local $s_RemoteFile = "README"
Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP
$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
If _FTP_FileGet($l_FTPSession, $s_RemoteFile, $s_LocalFile) Then
ShellExecute($s_LocalFile)
ConsoleWrite("Download: erfolgreich" & @CRLF)
Else
ConsoleWrite("Download: fehlgeschlagen " & " " & @error & @CRLF)
EndIf
Else
MsgBox(0, "Connect", "fehlgeschlagen")
ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
EndIf
Else
MsgBox(0, "Open", "fehlgeschlagen")
ConsoleWrite("Open " & " " & $errOpen & @CRLF)
EndIf
_FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzng
EndFunc ;==>_example
und poste danach die Einträge in der Scite-Konsole,
mfg autoBert
wie bereits geschrieben in den beiden Skriptteilen ist kein Fehler, dein SKript müsste laufen. Zu Testzwecken habe ich ConsoleWrite-Zeilen eingefügt:
Case $screenButton ;====== Take Screenshot ======
;===== call func _screen_dateset to get new timestamp
_screen_dateset()
;===== open Telnet to connect to target
ConsoleWrite("Screenbutton vor TELNET" & @CRLF)
_telnet()
ConsoleWrite("Screenbutton nach TELNET" & @CRLF)
;===== call func _screenshot to take screenshot
_screenshot()
;===== main structure to take screenshot
While WinExists($WinTitle, "")
If WinActive($WinTitle, "") Then
HotKeySet("{F10}", "_screenshot")
Else
ExitLoop
HotKeySet("{F10}")
EndIf
Sleep(20)
WEnd
Func _telnet()
; Run Telnet
ConsoleWrite("TELNET Enter" & @CRLF)
Run("telnet " & $adress, @SystemDir, $STDIN_CHILD + $STDOUT_CHILD) ; @SW_HIDE,
WinWait("Telnet " & $adress, "", 1)
;======= Rename window
$WinTitle = "Telnet connection to MIB target <<- Screenshot ->>"
WinSetTitle("Telnet " & $adress, "", $WinTitle)
ConsoleWrite("TELNET Exit" & @CRLF)
EndFunc ;==>_telnet
Laut meiner Konslenausgabe:
ist alles in Ordnung als nur 1 Aufruf der func _telnet,
mfg autoBert
Hallo Pitter,
poste bitte dein komplettes Skript, denn auch in diesem Codeschnipsel ist kein Fehler zu erkennen,
mfg autoBert
Hall HugBert,
dieses Skript hätte auch unter Win XP nicht funktiniert. _FTP_FileGet erwartet als 1. Parameter den zurügegebenen Wert vn _FTP_Connect() und nicht von _FTP_Open(),
mfg autoBert
Jetzt hab ich mir mal eine MsgBox ausgeben lassen mit $i... öhm... Die wird runter gezählt, aber bekommt immer wieder den Startwert?!? Hä???
Dann scheinst du die func _telnet aus einer Schleife heraus auf zu rufen, aber auch deine Schleife würde Telnet 2 * aufrufen,
mfg autoBert
Hallo Pixelwizard,
wie Raupi bin auch ich der Meinung, dass dein Vorhaben mit Array's am einfachsten zu lösen ist. Ein einfaches Beispiel findest du in https://autoit.de/index.php?page…9633#post239633 ,
mfg autBert
Hallo cjmatsel,
ist zwar vorbildlich dass du gleich die Info von AutoIt Window Info Tool bereitstellst, nützlich wären aber noch die Infos zu den entsprechenden Eingabe-Elementen. Wenn du die Anwendung benennst steigt deineChance nochmals dass bereits ein anderer das Problem gelöst hat und dir weiter helfen kann,
mfg autoBert
Bin selbst kein Spielekind, habe aber Bedenken dass du gegen die Forenregeln verstösst. Imho sind "Privat-Server" verboten und andere haben kein Bedarf für so ein Tool,
Mod/Admin bitte prüfen
mfg autoBert
Falls du damit versuchen willst auf deine EMAils bei Google zu zu greifen schau dir lieber die Pop3.udf von Stilgar an. Oscar hat mit seiner "Popshow" demostriert wie mächtig sie ist,
mfg autoBert
Hi ihr zwei. Ich habe für euch mal die orginal (!) Töne aus Wer wird Millionär zusammengestellt. Ich habe Sie aus der iOS App von Wer wird Millionär.
Hast du dir die Rechte daran geben lassen oder ist es allgemein freie Musik?
mfg autoBert
jetzt macht er es auch wenn ein bindestrich drinn ist
jedoch darf kein Bindestruch UND leerzeichen da sein
das widerum ineressiert
[autoit]_StringProper
[/autoit]nicht der 1. Buchstabe wird Grossbuchstabe, alle anderen klein, siehe dazu https://autoit.de/index.php?page…4184#post244184
@autoBert:Sorry, wenn ich dir evtl zu nahe trete, aber liest du überhaupt die Beiträge komplett?
Testest du überhaupt die Empfehlungen?
mfg autoBert
Warun so umständlich? So geht's auch:
[autoit]#include <Array.au3>
#include <String.au3>
Global $aNames[3]
$aNames[0] = 'KöLN'
$aNames[1] = 'Bad Öynhausen'
$aNames[2] = 'Frankfurt-nied'
_ArrayDisplay($aNames,"Original")
for $i = 0 to UBound($aNames) -1
$aNames[$i]=StringReplace($aNames[$i],"ö","oe")
$aNames[$i]=StringReplace($aNames[$i],"ä","ae")
$aNames[$i]=StringReplace($aNames[$i],"ü","ue")
$aNames[$i] =_StringProper($aNames[$i])
Next
_ArrayDisplay($aNames,"Gewandelt")
mfg autoBert
Hallo x0r.
du solltest dir die Hilfe zu StringReplace anschauen, denn es kann sehr wohl Gross- und Kleinschrebung unterscheiden. Dazu musst du allerdings diesen Parameter auch benutzen,
mfg autoBert
Typischer Fall für
[autoit]IniWrite
[/autoit]und
[autoit]IniRead
[/autoit]mfg autoBert
on mir aus kann das Thema geschlossen werden. Habe selbst versucht das Thema zu schließen, aber das kann wohl nur ein Admin
In den Foren Programmieranfragen geht man idealerweise so vor:
Jeweils das Speichern (absenden) nicht vergessen, dies kann jeder Benutzer selbst erledigen und braucht nicht einen Mod/Admin dazu,
mfg autoBert
verwende statt FileFindFirst ... FileFindNext
[autoit]_FileListToArray
[/autoit]dieses Array kannst du ja mit
[autoit]_ArraySort
[/autoit]sortieren lassen, dabei daran ddenken dass $aResult[0] die ANzahl der Funde enthält => also als Starindex 1 angeben. Danach kannst du in einer Schleife von 1 bis $aResult[0] alle EXEn starten.
mfg autoBert
ich würde die URL immer beim Klick auf den Go Button Prüfen und dann erst "wenn die URL OK" _IENavigate() andernfalls halt nichts oder so
Du finndest auf (fast) jeder Website Links mit denen du auf andere Webseiten kommen kannst, dadurch ist durch diese Lösung mit dem Prüfen des Go-Buttons das Tor zur grossen "feindlichen" Welt nur zum Teil geschlossen, die bestehende Lücke ist so gross, dass sie auch ein DAU findet.
Dass mein Lösungansatz bei IE < 8.0 nicht funktioniert ist schade,
mfg autoBert
So sollte es klappen:
#include <GUIConstantsEx.au3>
Global $aCommands[8][2]
$aCommands[0] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\hqtray.exe"'
$aCommands[1] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\vmnat.exe"'
$aCommands[2] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\VMnetDHCP.exe"'
$aCommands[3] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\vmware-authd.exe"'
$aCommands[4] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\Common Files\VMware\USB\vmware-usbarbitrator.exe"'
$aCommands[5] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\vmware-ufad.exe" -d "C:\Program Files (x86)\VMware\VMware Workstation\\" -s ufad-p2v.xml'
$aCommands[6] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\x64\vmware-vmx.exe"'
$aCommands[7] = '"C:\Program Files\Sandboxie\Start.exe " /box:DefaultBox "C:\Program Files (x86)\VMware\VMware Workstation\vmware.exe"'
_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
Local $StartenID, $BeendenID, $msg
GUICreate("VMware Prozesse", 210, 80)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("VMware Prozesse in Sandboxie", 20, 20)
$StartenID = GUICtrlCreateButton("Starten", 10, 50, 50, 20)
$BeendenID = GUICtrlCreateButton("Beenden", 140, 50, 50, 20)
GUISetState() ; display the GUI
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Select
Case $msg = $StartenID
MsgBox(0, "", "Prozesse werden gestartet")
For $i = 0 To UBound($aCommands) - 1
If $aCommands[$i][0] <> "" Then $aCommands[$i][1] = Run($aCommands[$i][0], @ScriptDir, @SW_MINIMIZE)
Next
Case $msg = $BeendenID
MsgBox(0, "", "Prozesse werden beendet")
For $i = 0 To UBound($aCommands) - 1
If $aCommands[$i][1] > 0 Then ProcessClose($aCommands[$i][0])
Next
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
EndFunc ;==>_Main
mfg autoBert