hmm, also jetzt habe ich das problem wirklich gefunden ... denn bei den testscripten war das ergebnis immer so schnell, da dort keine TCPStartup aufgerufen wurde.
wenn das ebenfalls drin steht, brauchen die scripte auch so lange.
aber, was ich nicht verstehe, wie kann es sein, dass das ergebnis des timer > 20.000 ms ist, wenn doch TCPTimeout auf 100 ms (oder manuell sogar auf 10 ms) steht???
Hey,
danke für den Tip, in der Tat ist das schneller ... aber leider funktioniert das TCPConnect dann auch nicht mehr richtig, es gibt immer @error =/
dann teste mal folgendes ...
Server: irc.baccano.de
Port: 6667
und das ist auch net der einzige, der net geht =)
die unterhaltung ist zwar sehr monoton, aber ich hab nun folgendes als lösung.
ich lasse mit der function von bugfix die range ganz normal erstellen, lasse aber jede ip in ein textfile schreiben (da ich auf ein array während der funktion anscheinend nicht zugreifen kann).
dann lass ich bei adblibenable/ -register aus der txt immer die nächste zeile auslesen ... dann ist die schnelligkeit des scripts wieder super (hoffe die auslastung geht auch, dass muss ich nochmal checken)
mir ist noch was aufgefallen ... stecke ich den tcpconnect-teil in eine eigene funktion, dauert dies anstatt 20.000ms nur ca 1000ms ... dennoch ist es 10-100 mal langsamer als die funktion normal wäre. es scheint wohl mit der/ den while schleifen zusamen zu hängen
Hi,
ich habe den IRC-Client hier aus dem Forum, sowie die irc.au3 von hier (http://www.autoitscript.com/wiki/UDF) probiert, aber ich kann nicht mal zu einem irc-server connecten (oder besser gesagt, zu denen, wo ich es versuche).
man sagte mir, es muss noch mehr gemacht werden, also nur TCPConnect zu IP + Port, sondern ein RFC-Protokoll beachtet werden.
Tja, jetzt steh ich wieder wien Ochs vorm Berg ... kann mir wer helfen? Hab übrigens auch im engl. Forum aussichtslos nach einem anderen funtionierenden IRC-Tool gesucht, der Fehler ist immer gleich (was wohl daran liegt, dass alle die Funktion aus der irc.au3 verwenden).
Hey, hat keiner nen Tip?
mir ist noch was eingefallen ... und zwar du ursprüngliche Funktion von BugFix zu nutzen und vorher die Range generieren zu lassen, mit folgendem Script:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_icon=..\..\..\Icons\shell32.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
$Range = _GenerateIPsInRange("211.117.64.66", "211.117.64.74")
[/autoit] [autoit][/autoit] [autoit]$iPort = "8888"
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To $Range[0]
$IP = $Range[$i]
$timer = TimerInit()
$sock = TCPConnect($IP, $iPort)
If Not @error Then
MsgBox(0, "OK", $ip & @CRLF & Round(TimerDiff($timer), 2))
Else
MsgBox(0, "Fail", $ip & @CRLF & Round(TimerDiff($timer), 2))
EndIf
TCPCloseSocket($sock)
Next
Func _IsIPv4(Const $S_IP)
If StringRegExp($S_IP, "\A(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])\z") Then Return (1)
Return (SetError(1, 0, 0))
EndFunc ;==>_IsIPv4
;-------------------------------------------------------------------------------------------------
; Function _GenerateIPsInRange($IPstart, $IPend, $iRetType=0, $sDelim=Default, $fBroadcast=False)
; Description Erstellt alle möglichen IP's zwischen $IPstart und $IPend
; Parameter $IPstart erste IP im Bereich
; $IPend letzte IP im Bereich
; $iRetType Return-Type 0-Array (Standard), 1-String, trennzeichenbasiert
; $sDelim Trennzeichen bei Stringausgabe, Default= Zeichen von Opt("GuiDataSeparatorChar")
; Return Succes Array 1D (Anzahl in $a[0]) oder String mit allen erstellten IP's
; Failure 0 und set @error 1 : übergebene IP nicht korrekt
; Author BugFix ([email='bugfix@autoit.de'][/email])
;----------------------------------------------------------------------------------------------------------------------
Func _GenerateIPsInRange($IPstart, $IPend, $iRetType=0, $sDelim=Default, $fBroadcast=False)
If IsKeyword($sDelim) Then $sDelim = Opt("GuiDataSeparatorChar")
Local $pattern = '(\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.'& _
'(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b)'
If ( Not StringRegExp($IPstart, $pattern, 0) Or _
Not StringRegExp($IPend, $pattern, 0) ) Then
SetError(1)
Return 0
EndIf
Local $var = StringSplit($IPstart, '.')
Local $o1 = $var[1], $o2 = $var[2], $o3 = $var[3], $o4 = $var[4]
$var = StringSplit($IPend, '.')
Local $e1 = $var[1], $e2 = $var[2], $e3 = $var[3], $e4 = $var[4]
Local $sOut = '', $start = 1, $end = 255
If $fBroadcast Then
$start = 0
$end = 256
EndIf
While $o1 <= $e1
While ($o2 <= $e2) Or ($o1 < $e1)
If $o2 = $end Then
$o1 += 1
$o2 = $start
EndIf
While ($o3 <= $e3) Or ($o2 < $e2) Or ($o1 < $e1)
If $o3 = $end Then
$o2 += 1
$o3 = $start
EndIf
While True
$sOut &= $o1 &'.'& $o2 &'.'& $o3 &'.'& $o4 & $sDelim
If ($o1 = $e1) And ($o2 = $e2) And ($o3 = $e3) And ($o4 = $e4) Then
If $iRetType Then
Return $sOut
Else
Return StringSplit(StringTrimRight($sOut, StringLen($sDelim)), $sDelim, 1)
EndIf
EndIf
$o4 += 1
If $o4 = $end Then
$o3 += 1
$o4 = $start
EndIf
WEnd
WEnd
WEnd
WEnd
EndFunc ;==>_GenerateIPsInRange
Das Script ist übrigens auch schnell ... was ich nicht verstehe. das würde nun wiederrum bedeuten, dass es an der IP-Erstellung in meinem Mainscript liegt (wobei die IP-Erstellung aus Script 3 ja auch durchgeführt wird und sehr schnell abgeschlossen ist). UND laut Timer und MsgBox geht die IP-Erstellung ja auch im Mainscript schnell ... nur TCPConnect eben nicht. Irgendwie scheint hier das zusammenspiel Probleme zu machen, oder?
Hallo,
irgendwie komme ich nicht weiter ... da ich mich mal bissel mehr mit den TCP-Functions auseinander setzen wollte, habe ich mich mal an einem kl. Script versucht.
Mein Problem bei diesem Script ist, dass anscheinend TCPConnect ziemlich langsam arbeitet. Da hilft auch kein TCPTimeOut zum einstellen (der ja eigentlich auch eh schon bei 100ms steht).
Um das Problem dann genauer zu suchen, habe ich mal nur das nötigste in ein anderes Script verfrachtet ... und siehe da, da läuft es wesentlich schneller. Im Hauptscript habe ich dann noch versucht, soweit wie möglich noch was einzubauen, dass mich dem Fehler näher bringt ... und laut diesem, ist das Prob bei TCPConnect.
Im Hauptscript wird zwar noch eine Start- und EndIP in eine Range umgerechnet (jede IP einzeln), aber das geht eigentlich relativ schnell.
Also macht euch mal am besten einen Überblick über die beiden Scripte ... ich hoffe mir kann jmd sagen, wo das Prob liegt.
1. Hauptscript (langsam)
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_icon=..\..\..\Icons\shell32.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
Global $IPStart, $IPEnd
Global $fBroadcast = False
$IPStart = "211.117.64.66"
$IPEnd = "211.117.64.74"
If Not _IsIPv4($IPStart) Or Not _IsIPv4($IPEnd) Then Exit
$iPort = "8888"
If $iPort <= 0 Or $iPort > 65535 Then Exit
$sDelim = Opt("GuiDataSeparatorChar")
Local $pattern = '(\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.' & _
'(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b)'
If (Not StringRegExp($IPStart, $pattern, 0) Or Not StringRegExp($IPEnd, $pattern, 0)) Then Exit
$sock = ""
[/autoit] [autoit][/autoit] [autoit]TCPStartup()
$timer = TimerInit()
Local $var = StringSplit($IPStart, '.')
Local $o1 = $var[1], $o2 = $var[2], $o3 = $var[3], $o4 = $var[4]
$var = StringSplit($IPEnd, '.')
Local $e1 = $var[1], $e2 = $var[2], $e3 = $var[3], $e4 = $var[4]
Local $start = 1, $end = 255
If $fBroadcast Then
$start = 0
$end = 256
EndIf
While $o1 <= $e1
While ($o2 <= $e2) Or ($o1 < $e1)
If $o2 = $end Then
$o1 += 1
$o2 = $start
EndIf
While ($o3 <= $e3) Or ($o2 < $e2) Or ($o1 < $e1)
If $o3 = $end Then
$o2 += 1
$o3 = $start
EndIf
While True
$IP = $o1 & '.' & $o2 & '.' & $o3 & '.' & $o4;TCPNameToIP($IP)
MsgBox(0, "generate", $ip & @CRLF & Round(TimerDiff($timer), 2))
$timer = TimerInit()
$sock = TCPConnect($IP, $iPort)
If Not @error Then
MsgBox(0, "OK", $ip & @CRLF & Round(TimerDiff($timer), 2))
Else
MsgBox(0, "Fail", $ip & @CRLF & Round(TimerDiff($timer), 2))
EndIf
TCPCloseSocket($sock)
$timer = TimerInit()
If ($o1 = $e1) And ($o2 = $e2) And ($o3 = $e3) And ($o4 = $e4) Then
TCPShutdown()
Exit
EndIf
$o4 += 1
If $o4 = $end Then
$o3 += 1
$o4 = $start
EndIf
WEnd
WEnd
WEnd
WEnd
Func _IsIPv4(Const $S_IP)
If StringRegExp($S_IP, "\A(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])\z") Then Return (1)
Return (SetError(1, 0, 0))
EndFunc ;==>_IsIPv4
2. Teilscript (nur die wichtigsten Funktionen) (schnell)
$sock = ""
$iport = "8888"
Dim $Ip[10]
$Ip[0] = 9
$Ip[1] = "211.117.64.66"
$Ip[2] = "211.117.64.67"
$Ip[3] = "211.117.64.68"
$Ip[4] = "211.117.64.69"
$Ip[5] = "211.117.64.70"
$Ip[6] = "211.117.64.71"
$Ip[7] = "211.117.64.72"
$Ip[8] = "211.117.64.73"
$Ip[9] = "211.117.64.74"
For $i = 1 To $Ip[0]
$timer = TimerInit()
$sock = TCPConnect($IP[$i], $iPort)
If Not @error Then
MsgBox(0, "", $IP[$i] & ":" & $iPort & @CRLF & Round(TimerDiff($timer), 2) & "ms")
Else
MsgBox(0, "ERROR", $IP[$i] & ":" & $iPort & @CRLF & Round(TimerDiff($timer), 2) & "ms")
EndIf
TCPCloseSocket($sock)
Next
ich versteh auch nur noch bahnhof =)
also ich lege die cmd-datei an und starte diese auch (per hand), aber eben nicht durch autoit. und diese cmd startet dann meine exe-datei.
was kann man denn jetzt wie machen, damit ich weiss, welche cmd-instanz mein scrpt gestartet hat, um diese zu verstecken?
ok, also zum programm. es ist ein kommandozeilen-programm, welches mit bestimmten parametern aufgerufen werden kann, bzw. muss. um aber nicht immer wiederkehrende, gleiche befehle eingeben zu müssen, kann man natürlich auch, anstatt den befehl per hand über die cmd einzugeben, eine bat/cmd-datei verwenden.
diese enthällt dann den programmnamen gefolgt von den parametern. das ähnelt dann dem manuellen aufruf über die cmd. die bat/cmd-datei kann per doppelklick ausgeführt werden und für dann von der cmd.exe quasi verarbeitet. das fenster, was dabei aufpoppt, möchte ich gerne mit @sw_hide verstecken (da es mich optisch stört, denn es geht erst wieder weg, wenn das programm komplett zuende gelaufen ist).
was war denn mit meiner oben genannten idee, nicht den text aus der cmd zu lesen, sondern zu gucken, welche prozesse (prozessbäume) zusammen gehören?
ok, vllt noch ne idee. weil der text in der cmd eigentlich nicht so wichtig ist. ich will am ende eigentlich nur wissen, welche cmd.exe meinen prozess angestossen hat.
das müsste doch möglich sein, oder? weil zB im Process Explorer (sysinternals taskmanager) ist ja auch sichtbar, welche prozesse unter einem anderen hängen.
ok, vllt noch ne idee. weil der text in der cmd eigentlich nicht so wichtig ist. ich will am ende eigentlich nur wissen, welche cmd.exe meinen prozess angestossen hat.
das müsste doch möglich sein, oder? weil zB im Process Explorer (sysinternals taskmanager) ist ja auch sichtbar, welche prozesse unter einem anderen hängen.
Hmm, mein Problem ist, dass ich mit einer CMD meine AutoIt-Datei aufrufe. Von daher geht es natürlich nicht, dass ich von AutoIt die cmd aufrufe.
Gäbs denn irgendwie noch ne andere Möglichkeit?
Also ich sag mal, die CMD-Datei liegt im Ordner, wo auch meine exe liegt. Der Name ist natürlich variabel, aber evtl. kann man so noch was rausfinden.
Hallo,
ich suche eine Möglichkeit, Text aus einer CMD auszulesen, welche aber NICHT durch AutoIt gestartet wurde.
WinGetText und Std...Read funktionieren im dem Fall irgendwie nicht (PID kann ich ja rausfinden, aber keine opt_flag setzen).
sag mal, ist MSSQL und MySQL das gleiche, bzw gibt es da (große) Unterschiede (beim Login?
Ok, wie ich den falschen User abfange, klappt soweit, Problem ist, dass er mir immer sagt, dass der User falsch ist, obwohl er definitiv korrekt ist. Hab also IP, Port, User und PW ...
PS: also ich bin jetzt nen ticken weiter gekommen. es gibt in php die funktion mssql_pconnect mit server, user + pw ... ich denke das ist es, was ich brauche ... nur find ich leider den quellcode dazu nicht, um das evtl in autoit umzusetzen. jmd ne idee oder das als autoit-funktion?
PPS: man kann ja auch mal direkt nach autoit suchen *g* bin auch fündig geworden, folgendes scheint zu funktionieren, jedoch nur wenn user und pw korrekt sind, anderenfalls beendet sich das script direkt mit einem fehler. kann man das vllt noch abfangen?
[autoit]$conn = ObjCreate( "ADODB.Connection" )
$DSN = "DRIVER={SQL Server};SERVER=$IP;DATABASE=$DB;UID=$User;PWD=$PW;"
$conn.Open($DSN)
$rs = ObjCreate( "ADODB.RecordSet" )
$rs.Open( "SELECT @@VERSION AS myVersion", $conn )
MsgBox(0, "AutoIT-SQL Result", "Value = " & $rs.Fields( "myVersion" ).Value )
$conn.close
PPPS: ok, habs geschaft, den error abzufangen. die hilfe hat mir dabei geholfen. nice, jetzt klappt alles hrhr
hallo,
ich hab sehr wenig ahnung davon, aber wollte für nen kumpel was porgrammieren.
ein kleines autoit-tool, womit man sich (remote) bei MySQL-DB anmelden kann.
Also via IP&Port und User&PW.
Wie stell ich dass denn an, dass auch, wenn ein falscher User (bzw. temp. gesperrt) eine Fehlermeldung erhält.
Hab folgende beiden Methoden probiert, aber iwie klappt des net:
[autoit]$connect = _MySQLConnect($User, $PW, "", $IP, Default, $Port)
$connect = _MySQL_Real_Connect($MysqlConn, $IP, $User, $PW, "", $Port)
args ... hi BugFix, sorry das ich dich dafür genervt habe. ich hab das & übersehen *autsch*
kommt vllt auf die range an *hehe*
Hey BugFix,
vllt kannst du mir nochmal kurz helfen. Und zwar wollte ich in deine Funktion (sofern du es erlaubst), eine andere Funktion einbauen, um quasi Zeit zu sparen. Ich möchte nicht, dass er erst alle IPs erstelt, sondern nach jeder erstellten IP direkt damit arbeiten. wenn die Funktion durch ist, soll die nächste IP erstellt werden.
Aber ich blicke in deinem Script irgendwie nicht, wo die einzelnen IP-Adressen fertig ausgegeben werden 
Hallo,
ich brauch dann wohl doch nochmal Hilfe mit EnvSet und EnvGet. Im 1. kl. Test hat alles funktioniert, im richtigen Script geht es aber nicht.
Also, dass Programm wird gestartet (1. Instanz), fängt an, seine Aufgaben zu erledigen. Anschließend startet es sich in einer 2. Instanz, die direkt in eine eigene Funktion springt, für die die 2. Instanz benötigt wird (Aufruf per RUN).
Wenn die 1. Instanz nun fertig ist, macht sie folgendes:
[autoit]EnvSet("MYENV", "EXiT")
EnvUpdate()
MsgBox(0, EnvGet("MYENV"), "Prog1", 2);Zum Test, ob es funktioniert
;ProcessWaitClose($PID); wahlweise hab ich den Prozess mal solange laufen lassen, wie die 2. Instanz, weil ich mir nicht sicher war, dass wenn sich Instanz 1 beendet, EnvGet nicht mehr möglich ist
Die 2. Instanz hängt nun in seiner Schleife (macht diverse Aufgaben, die ich entfernt habe) und wartet dann darauf, dass sich Instanz 1 beendet (da es dann auch keine neuen Daten mehr gibt):
[autoit]Do
Sleep(2000)
EnvUpdate();bin mir nicht sicher, wie wichtig das ist, aber bringen tuts aktuell nichts =)
MsgBox(0, EnvGet("MYENV"), "Prog2", 1)
[/autoit][autoit][/autoit][autoit]Until EnvGet("MYENV") = "EXiT"
[/autoit]die MsgBox ist und bleibt leer ... auch wenn Instanz 1 schon EnvSet + EnvUpdate gesendet hat (getestet, da die MsgBox aus Instanz 1 aufpoppt).
was mache ich falsch???
