Du schreibst zwar viel das es nicht so toll ist dein Script usw. Aber was das Script nun genau macht schreibst nicht.
Beiträge von chip
-
-
Mit
[autoit]_IEFrameGetObjByName
[/autoit]kannst du eine spezifischen Frame auswählen.
-
Und was hast das nun mit Autoit zu tuen? Das ist ein batch-Script.
-
Dann ist ein Fehler schon weiter vorne in deinem Script, beendet es sich den überhaupt wenn es fertig ist?
-
Also jetzt stellst dich aber echt an. Den kleine Fehler sollte echt jeder sehen:
Spoiler anzeigen
[autoit]$Datei = "test.txt"
[/autoit] [autoit][/autoit] [autoit]
While 1
$status = PingList($Datei, 10)
If $status = 1 Then
Shutdown(1)
Exit
EndIf
Sleep(10)
WEndFunc PingList($liste, $wait = 100)
[/autoit] [autoit][/autoit] [autoit]
Local $a = FileOpen($liste, 0), $b = FileRead($a)
FileClose($a)
$a = StringStripCR($b)
$b = StringSplit($a, @LF)
$a = 1
If IsArray($b) = False Then Return -1
For $i = 1 To $b[0]
$o = 0
While $o <= 3
If Ping($b[$i], $wait) = 0 Then
$a = 0
Else
$a = 1
EndIf
$o = $o + 1
WEndNext
[/autoit]
If $a = 1 Then Return 1
Return 0
EndFunc ;==>PingList -
Sorry Anfänger, wie kann ich @error etc. ausgeben?
So:
[autoit]; IE schließen
[/autoit]
_IEQuit($oIE)
MsgBox(0,"",@error)
MsgBox(0,"",@extended) -
Ups sorry, dummer kleiner Fehler. So solltes es gehen:
Spoiler anzeigen
[autoit]$Datei = "test.txt"
[/autoit] [autoit][/autoit] [autoit]
While 1
$status = PingList($Datei, 10)
If $status = 1 Then
Shutdown(1)
Exit
EndIf
Sleep(10)
WEndFunc PingList($liste, $wait = 100)
[/autoit] [autoit][/autoit] [autoit]
Local $a = FileOpen($liste, 0), $b = FileRead($a)
FileClose($a)
$a = StringStripCR($b)
$b = StringSplit($a, @LF)
$a = 1
If IsArray($b) = False Then Return -1
For $i = 1 To $b[0]
$i = 0
While $o <= 3
If Ping($b[$i], $wait) = 0 Then
$a = 0
Else
$a = 1
EndIf
$o = $o + 1
WEndNext
[/autoit]
If $a = 1 Then Return 1
Return 0
EndFunc ;==>PingList -
Hier, allerdings ungetestet:
Spoiler anzeigen
[autoit]$Datei = "test.txt"
[/autoit] [autoit][/autoit] [autoit]
While 1
$status = PingList($Datei, 10)
If $status = 1 Then
Shutdown(1)
Exit
EndIf
Sleep(10)
WEndFunc PingList($liste, $wait = 100)
[/autoit] [autoit][/autoit] [autoit]
Local $a = FileOpen($liste, 0), $b = FileRead($a)
FileClose($a)
$a = StringStripCR($b)
$b = StringSplit($a, @LF)
$a = 1
If IsArray($b) = False Then Return -1
For $i = 1 To $b[0]
$i = 0
While $i <= 3
If Ping($b[$i], $wait) Then
$a = 0
Else
$a = 1
EndIf
$i = $i + 1
WEndNext
[/autoit]
If $a = 1 Then Return 1
Return 0
EndFunc ;==>PingList -
Was gibt den @error bzw. @extended zurück?
Alternative bleibt noch der Weg einfach den Prozess zu beenden:
[autoit]ProcessClose("iexplore.exe")
[/autoit] -
Mh das ist doch lediglich ein Beispiel wie man zuerst mit IniRead arbeitet um später dann das ganze mit _FileWriteFromArray in einen Array einzulesen. Das hat ja nix mit der Beschreibung von _FileWriteFromArray zu tuen sondern ist ja lediglich ein Beispiel der Verwendung dieses Befehls.
-
-
Hi,
gibt es eine Alterntive zu _ClipBoard_Empty() um die Zwischenablage zu leeren. Problem das ich aktuell habe ist, dass unter Win 7 x64 _ClipBoard_Empty() nicht funktioniert. Die Zwischenablage wird nicht geleert und als Rückgabe wird auch False zurückgegeben.
-
Das war zum abkopieren, wenn dazu nicht fähig bist dann kann man dir auch nicht helfen.
-
Hi,
bei der Beschreibung zu _FileReadToArray steht, unter anderen, auch das hier:
ZitatMit dieser Funktion kann man Infos über eine mit dem Internet Explorer gespeicherten Internetseite herausfinden.
Den gewünschten Wert kann man dann z. B. mit
IniRead(C:\test.url, "InternetShortcut", "URL", "")
ermitteln.Das hat aber doch nicht wirklich etwas mit _FileReadToArray zu tuen.
-
Versteh zwar noch immer nicht was du genau willst, aber vielleicht hilft ja das schon:
Spoiler anzeigen
[autoit]#include <File.au3>
[/autoit] [autoit][/autoit] [autoit]
TCPStartup()
$ConnectedSocket = TCPConnect($Empfaenger_IP, $Port)
If $socket = -1 Then Exit_FileReadToArray("packete.txt",$packete)
[/autoit] [autoit][/autoit] [autoit]For $x = 1 To $packete[0]
[/autoit]
TCPSend($ConnectedSocket, $packete[$x])
Sleep(1000)
Next
TCPShutdown() -
Ein Paket-Sender O.o also so einen Begriff habe ich ja echt nocht nie gehört. Was willst du den genau machen?
-
Darum ja auch der Link, dort ist vieles erklärt unter anderem auch der Aufbau eines Loginscriptes mit Session usw.
Oder auch ein Adminbereich: klick mich
-
Ich das hier wäre eher erstmal etwas für dich: klick mich
-
Hallp Chip,
merci für die Hilfe!
Aber wie kann ich die Adresse durch das Clipboard tauschen?Spoiler anzeigen
#include <Array.au3>
$bak = ClipGet()
$array = StringSplit($bak,"/",2)
MsgBox(0,"","http://" & $array[2])das geht irgendwie nicht...
Hier:
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit]
While 1
$bak = ClipGet()
If StringInStr($bak,"http://") Then
$array = StringSplit($bak,"/",2)
MsgBox(0,"","http://" & $array[2])
ExitLoop
EndIf
Wend -
Hier:
Spoiler anzeigen
[autoit]#include <GuiIPAddress.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>Opt("GUIOnEventMode", 0)
[/autoit] [autoit][/autoit] [autoit]Global $title = "IP"
[/autoit] [autoit][/autoit] [autoit]
Global $main_form = GUICreate($title, 315, 150, 100, 60)$save = GUICtrlCreateButton("Speichern",200,70)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("IP-Adresse", 130,10,80,20)
[/autoit] [autoit][/autoit] [autoit]
;~ ---------------------------------------------------------------------------------------------------------
$IP = IniRead("config.ini","IPS", "Rechner01","")
GUICtrlCreateLabel("Rechner 01", 25,35,80,20)
$hIPAddress = _GUICtrlIpAddress_Create ($main_form, 100, 30)
$su = _GUICtrlIpAddress_Set ($hIPAddress, $IP)GUISetState(@SW_SHOW, $main_form)
[/autoit] [autoit][/autoit] [autoit];~ -------------------------------------------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
While 1
$msg = GUIGetMsg()If $msg = $GUI_EVENT_CLOSE Then ExitLoop
[/autoit] [autoit][/autoit] [autoit]
If $msg = $save Then
$te = _GUICtrlIpAddress_Get($hIPAddress )
IniWrite("config.ini","IPS","Rechner01",$te) ;bzw.
MsgBox(64,"test",$te)
EndIfWEnd
[/autoit]
