Forensuche hilft...
....und nochmalDie Antwortzeiten können aufgrund der in den Links genannten Gründen nicht verkürzt werden. Aber wer hindert einen, hunderte (tausende) Ports gleichzeitig anzufragen?
Dann sag mir, wie ich mehrere IPs gleichzeitig mit TCPConnect connecten soll? Also selbst AdlibRegister funzt nicht mehr, da TCPConnect das komplette Script "anhält"
TCPTimeout macht zumindest nicht das, was es laut help soll. Und zwar die TCP-Funktionen nach einer gewissen Zeit ohne Antwort abbrechen. KA obs generell defekt ist, oder es irgendwas anderes bewirken soll. Laut Wikipedia ist es so, dass verlorene Pakete nochmals geschickt werden, mehrere versuche am Stück. Ich denke daraus resultiert dann, dass es so lange dauert.
Zur DLL. Auf XP hat es bei mir einwandfrei funktioniert, unter Win7 x64 leider nicht ... vllt hilft dir das noch weiter =)
es gibt keine reine autoit-lösung für dich.
laut hilfe müsste TCPTimeout helfen, was es aber nicht tut. Ka obs ein Bug oder eine fehlerhafte Beschreibung ist. Gemeldet habe ich es vor 2-3 Wochen, eine Antwort gibts aber noch nicht.
Deine einzige Möglichkeit, das ganze mit Autoit zu machen, ist eine zusätzliche dll zu verwenden -> OSWINSCK.dll
Alles weitere kannst du hier nachlesen -> http://www.autoitscript.com/forum/index.php?showtopic=39807&st=0
Sofern du die Rechte haste, die dll zu registrieren, funktioniert das ganze super, ... ansonsten natürlich net
das ist jetzt nicht euer ernst ... es gibt eine array-funktion, die alle doppelten einträge automatisch entfernt?
ich glaub, ich muss alle meine scripte überarbeiten und kürzen ... und ich mach mir jedes mal so ne schleife rein, wo er jeden eintrag sucht *heul*
Hey,
ich hab zwar den ganzen Thread gelesen, aber wohl noch nicht ganz verstanden, was du willst *g*
Es gibt doch 1 Funktion, die dir alle Controls pro Fenster auflistet -> WinGetClassList
Ok, das Problem wird sein, daraus noch das richtige zu finden, aber da frag ich mich grundsätzlich, wie das möglich sein soll?
Einfach mit "maus-over"?
Aber das es geht, beweist ja das info-tool selber.
EDIT: Was ist denn noch mit ControlGetText und ControlGetFocus (oder ControlSetFocus) und anderen Control und Mouse-Functions.
Da müsste sich doch iwie was zusammenbasteln lassen.
Hallo zusammen,
ich bins mal wieder, mit einem Problem beim Erweitern des Basis-IRC-Client von BugFix.
Und zwar möchte ich diesem aktuell die Möglichkeit zum DCC-Chat spendieren.
Der Aufbau wird dazu wie folgt initialisiert. Ich sende über meinen mIRC-Client den Befehl /dcc chat NICK an den Server, welcher diesen widerrum an den entsprechenden User weiterschickt. Darin enthalten sind die IP + der Port, auf dem der DCC-Server vom mIRC-Client automatisch initialisiert wird. Beim Basis-Client kommt dies als NOTICE (mit IP) und PRIVMSG (mit Port) an. Die beiden benötigten Informationen habe ich mir bereits entsprechend zur Weiterverarbeitung "rausgesucht". Anschließend stelle ich eine TCP-Verbindung hierzu her. Schlägt diese fehl, informiere ich den User per NOTICE darüber. Kommt diese zustande .... und hier hakts zZ =)
Ich wollte nun hier eine ähnliche While-Schleife einbauen, wie sie ja bereits schon für die Verbindung vom iRC-Server besteht. TCPConnect gibt auch erfolgreich ein socket zurück, bei $recv = TCPRecv($sockDcc, 8192) kommt dann der entsprechende Fehler, wo es aktuell nicht weitergeht. Da wirds dann wohl an "maxlen" haken. Und ich habe keine Ahnung, was man hier als Wert nehmen muss, bzw wo man das rausbekommen würde.
Weiter wäre dann die Frage, was ich wie zurücksenden müsste (oder überhaupt), damit die Gegenseite eine Info bekommt, dass der DCC Chat initialisiert wird (oder später geschlossen). Wie ich mich eingelesen habe, würde eigentlich zum initialisieren /dcc chat bzw. auch /dcc chat NICK zurückgeschickt werden, zum abbrechen, sofern denn eine Verbindung besteht, /dcc close oder /dcc close chat NICK. Wenn ich das aber aktuell probiere, kommt nur zurück, dass "dcc" kein bekannter/ gültiger befehl ist. Aber ok, das Problem kommt dann (evtl) später noch.
Wenn ich hierbei weiterkommen würde, könnte ich weiter am direkten DCC Chat arbeiten, wobei ich hier noch nicht weiss, was mich erwartet. Zumindest bei einem normalen Client kann man die Kommunikatikon wie folgt betreiben (/msg =NICK Text).
Um folgendes müsste der Basis-Client erweitert werden:
Func _DCCConnect ($server, $port)
Local $i = TCPConnect(TCPNameToIP($server), $port)
If @error Then
If @error = 1 Then
SetError(1)
Return "invalid IP"
ElseIf @error = 2 Then
SetError(1)
Return "invalid Port"
Else
SetError(1)
Return "other error " & @error
EndIf
EndIf
Return $i
EndFunc
Func _IRCSendNotice ($irc, $msg, $chan="")
If $irc = -1 Then Return 0
$crypt = _FiSH_Crypt($msg, $chan, 1)
If Not @error Then $msg = $crypt
If $chan = "" Then
TCPSend($irc, $msg & @CRLF)
If @error Then
MsgBox(1, "IRC.au3", "Server has disconnected.")
Return -1
EndIf
Return 1
EndIf
TCPSend($irc, "NOTICE " & $chan & " :" & $msg & @CRLF)
If @error Then
MsgBox(1, "IRC.au3", "Server has disconnected.")
Return -1
EndIf
Return 1
EndFunc
und den Teil von
[autoit]Case 'PRIVMSG' ; Nachricht empfangen
[/autoit]hiermit ersetzen:
Case 'PRIVMSG' ; Nachricht empfangen
ConsoleWrite(@TAB & @TAB & _ArrayToString($sTemp) & @CRLF)
$USER = StringTrimLeft(StringLeft($sTemp[1], StringInStr($sTemp[1], '!')-1), 1)
$text = ''
$txtUSER = ''
For $k = 4 To $sTemp[0]
$text &= $sTemp[$k] & ' '
Next
$text = StringTrimLeft($text, 1)
If StringInStr($text, 'ACTION', 1) Then ; Aktion von USER
$text = StringTrimLeft($text, 
$text = StringLeft($text, StringLen($text)-2)
ConsoleWrite('***' & $USER & ' ' & $text & @CRLF)
ElseIf StringInStr($text, 'DCC CHAT', 1) Then ; Direkt-Chatanfrage
ConsoleWrite('<' & $USER & '> ' & $text & @CRLF) ; USER spricht
$DCCPort = $sTemp[8]
ConsoleWrite("DCC Chat von " & $USER & " [host: " & $sTemp[1] & "; ip: " & $DCCIP & "; port: " & $DCCPort & "]" & @CRLF)
Global $sockDcc = _DCCConnect($DCCIP, $DCCPort)
If Not $sockDcc = -1 Then
ConsoleWrite("DCC Chat established; socket: " & $sockDcc & @CRLF)
While 1
$msg = GUIGetMsg()
If $msg = -3 Then
Exit
EndIf
$recv = TCPRecv($sockDcc, 8192); Empfängt vom Server
If @error Then
Exit MsgBox(1, "IRC Example", "Server has errored or disconnected"); Verbindung zum Server besteht nicht mehr
EndIf
;~ Local $sData = StringSplit($recv, @CRLF); Splittet die Nachrichten, wenn sie vom Server gruppiert werden
;~ For $i = 1 To $sData[0] Step 1; behandelt jede Nachricht einzeln
;~ Local $sTemp = StringSplit($sData[$i], " "); Splittet die Nachricht an den Leerzeichen
;~ If $sTemp[1] = "" Then ContinueLoop; Weiter, wenn leer
;~ If $sTemp[1] = "PING" Then _IRCPing($sock, $sTemp[2]); Prüft ob PING zurückgegeben wird
;~ If $sTemp[0] <= 2 Then ContinueLoop; meist nutzlose Informationen
;~ ConsoleWrite(_ArrayToString($sTemp) & @CRLF)
;~ Next
WEnd
;~ ;Switch $sTemp[2]; Splittet die Command Nachricht
;~ ;Case "266"; Indikator der zeigt, dass alle Infos gesendet wurden
Else
_IRCSendNotice($sock, "DCC Chat not established; error: " & $sockDcc, $USER)
ConsoleWrite("DCC Chat not established; error: " & $sockDcc & @CRLF)
EndIf
Else
If $sTemp[3] = $nick Then
$USER = StringTrimLeft(StringLeft($sTemp[1], StringInStr($sTemp[1], '!')-1), 1)
ConsoleWrite('<' & $USER & '> ' & $text & @CRLF) ; USER spricht
EndIf
EndIf
Case 'NOTICE' ; Nachricht empfangen
$USER = StringTrimLeft(StringLeft($sTemp[1], StringInStr($sTemp[1], '!')-1), 1)
$text = ''
$txtUSER = ''
For $k = 4 To $sTemp[0]
$text &= $sTemp[$k] & ' '
Next
$text = StringTrimLeft($text, 1)
If StringInStr($text, 'DCC Chat', 1) Then ; Direkt-Chatanfrage
ConsoleWrite('NOTiCE von [' & $USER & ']: ' & $text & @CRLF) ; USER spricht
$DCCIP = StringTrimLeft(StringTrimRight($sTemp[6], 1), 1)
Else
ConsoleWrite('NOTiCE von [' & $USER & ']: ' & $text & @CRLF) ; USER spricht
EndIf
Meine Infos hierzu habe ich natürlich durch testen (was kommt bei den entpsrechenden User an) und von folgenden Links:
http://home.epix.net/~ircadmin/advanced/dcc.html
http://www.ircle.com/reference/commands.shtml
http://www.michaelweil.de/irc/ctcp.htm
http://www.netsplit.de/crimson/node45.html
http://www.irchelp.org/irchelp/rfc/ctcpspec.html
EDIT: getestet, dass die Verbindung geht, habe ich wie folgt:
Da mein mIRC beim aufsetzen des DCC Servers immer Port 0 sendet, worauf natürlich keiner Connecten kann, habe ich den Server manuell aufgesetzt. Dazu habe ich folgenden Befehl verwendet:
/dccserver +c on 5555
+c steht hierbei für chat (möglich wären noch -f = fserve und +s = send)
EDIT": kleinen Fehler in _DCCConect gefixt, weil da immer ein @error rauskam, obwohl keiner drin war =)
hmm ok, dem kann ich dann auch nix mehr entgegen setzen *g*
(Blow)Fish habe ich dann nun dank deiner Hilfe auch bereits erfolgreich in das Script einarbeiten können. Ich wollte noch bissel was testen, danach könnt ich dies bei Interesse natürlich auch hier einstellen.
zudem habe ich noch kleinigkeiten geändert/ angepasst, so dass man auch mit dem teil chatten kann (per hotkeyset eine inputbox), etc ...
Was ich als nächsten bewerkstelligen wollte, ist eine DCC-Verbindung. Bis zur Chatanfrage ist das ja in deinem Script schon drin ... danach würde die Kommunikation ja ohne Server weitergehen, also müsste eine Verbindung direkt zur anfragenden IP aufgebaut werden.
Wie ich live schon getestet habe, wird dabei die IP mitübermittelt (was schonmal gut ist) ... laut folgender seite sollte der port aber auch dabei sein -> http://www.netsplit.de/crimson/node45.html
daher steh ich grad auf dem schlauch, wie es weitergeht. am ende müsste dann aber wohl eine ähnliche while-schleife wie jetzt dabei herauskommen, oder?
ist es eigentlich möglich, mehrere verbindung gleichzeitg zu haben, sei es kommunikation oder datenübertragung?
Hey,
also ich hab bei weitem nicht soviel ahnung und würde dir da "fast" blind vertrauen, aber nur fast *g*
nee, zumindest ein paar fragen hät ich noch:
Im normalfall wird ja über den server kommuniziert. diese verbindung würde nun mit ssl verschlüsselt werden. warum macht es denn keinen sinn, diese kommunikation (auch) zu verschlüsseln.
es gibt ja auch diverse wege, client-to-client übers irc zu kommunizieren. würde dies bei der ssl-implementierung ebenfalls eingeschlossen sein, bzw könnte man das mit ssl sichern? ist das überhaupt zZ der fall (wie kann mans testen?)?
zu guter letzt noch eine verständnisfrage: bei mirc ist es ja (leider) so, 2 dlls ins verzeichnis, vor den port ein + und schon läufts. das verständnis für die dlls und ssl ist damit nicht gegeben. würde quasi jede nachricht die gesendet/ verschickt wird, durch die dll gejagt werden oder ist es "nur" die verbindung zum server (quasi 1 dllcall) aufzubauen und der rest geht automatisch?
BUGFIX ICH DANKE DIR!!! =)
ich habe quasi key und wort vertausch ... wenn ich folgendes mache ...
[autoit]...
$sData = "1234 Blubb"
$encrypt = _FiSH_encrypt_msg($mWnd, $aWnd, $sData, $show, $nopause)
...
$sData = "1234 " & $encrypt
...
dann kommt das raus:
+OK XyYxV1HYaF.1
Blubb
Hey,
dank euch schonmal, dass ihr euch meines Problems annehmt.
Getestet hatte ich diese Nacht bis hierhin:
[autoit]$DLLCall = DllCall("Fish.dll", 'int','FiSH_encrypt_msg', 'hwnd', WinGetHandle("[Class:SciTEWindow]"), 'hwnd', ControlGetHandle("[Class:SciTEWindow]", "", "Scintilla2"), 'str', 'Blubb', 'str', '1234', 'bool', true, 'bool', true)
[/autoit][autoit][/autoit][autoit]ConsoleWrite("WinHandle: " & WinGetHandle("[Class:SciTEWindow]") & @CRLF & "ControlHandle: " & ControlGetHandle("[Class:SciTEWindow]", "", "Scintilla2") & @CRLF & "DllCall: " & $DLLCall & @TAB & "Error: " & @error & @TAB & "Array: " & _ArrayToString($DLLCall) & @CRLF)
[/autoit]Am Ende erhalte ich vom DLLCALL ein Array zurück, was wie folgt ausschaut:
0|0x00330782|0x000B07AE||1234|1|1
2x Win+Ctrl Handle, den 2. str (1234) und 2x 1 (für True)
komischweise kommt das "Blubb" nicht zurück, wobei mir das Array natürlich nicht wirklich weiterhilft. es steht ja mehr oder weniger nur das drin, was ich übergeben habe. das mit den pointern hört sich ganz gut an ... aber das bekomm ich net auf die reihe.
Die Idee von BugFix scheint schon sehr gut zu sein. Ich hatte zwar in mIRC folgendes: Blubb + 1234 = +OK XyYxV1HYaF.1
Aber nun passiert folgendes:
$mWnd = WinGetHandle("[Class:SciTEWindow]")
$aWnd = ControlGetHandle("[Class:SciTEWindow]", "", "Scintilla2")
$sData = "Blubb 1234"
$show = True
$nopause = True
Das Ergebnis ist: +OK 28cAV.ZCAlU1
Sieht also schonmal ganz gut aus =)
Jetzt habe ich versucht, das ganze wieder zu decrypten ... das klappt aber aktuell noch nicht:
[autoit]$sData = $encrypt & " 1234"
[/autoit]und die funtion wie folgt geändert:
[autoit]Func _FiSH_decrypt_msg($mWnd, $aWnd, $sData, $show, $nopause)
...
Local $ret = DllCall('Fish.dll', 'int', 'FiSH_decrypt_msg', 'hwnd', $mWnd, 'hwnd', $aWnd, 'ptr', DllStructGetPtr($tData), _
'ptr', DllStructGetPtr($tParams), 'BOOLEAN', $show, 'BOOLEAN', $nopause)
...
Hallo,
es geht um die Fish.dll, die normalerweise bei mIRC zum Einsatz kommt. Ich möchte mit dieser (nutzt blowfish) auch texte ver- und entschlüsseln.
Ich habe nun gefunden, wie diese (in C?) aufgerufen werden soll/ kann ... habe aber keine Ahnung, wie ich das auf AutoIt übertrage.
Wer kann mir helfen?
Syntax ist: FiSH_encrypt_msg(HWND mWnd, HWND aWnd, char *theData, char *params, BOOL show, BOOL nopause)
Dll gibts hier -> http://fish.secure.la/BETA/FiSH.v1.4….v6.35-BETA.zip (enthält keine Viren, AV kann aber patch-Dateien als Virus erkennen, aber es wird ja nur die dll benötigt)
Und hier hab ich noch, wie es in mirc angewandt wird -> http://fish.secure.la/forum/viewtopic.php?f=1&t=70&view=next
thx schonmal
[EDIT] hier noch was, dass ich in der mirchilfe gefunden habe.
DLL Support
The /dll and $dll() features allow you to make calls to DLLs designed to work with mIRC. The main reason you'd want to do this is that processing information in a DLL can be far faster than doing so in a script, so for intensive data processing a DLL would be more efficient.
Note that mIRC also supports calling COM objects, for calling non-standard DLLs.
Warning: do not use DLLs from sources you do not trust. See the Accepting Files section for information on the dangers of accepting and using files from the internet.
/dll <filename> <procname> [data]
$dll(filename, procname, data)
$dllcall(filename, alias, procname, data)
The above open a DLL, call the procname routine, and send it the specified data. The only difference is that $dll() can return a value, like all other identifiers.
$dllcall() is multi-threaded so it will not halt the script and will call the specified alias once the call returns.
Technical notes
This section contains technical information for programmers who want to create DLLs for use with mIRC.
The routine in the DLL being called must be of the form:
int __stdcall procname(HWND mWnd, HWND aWnd, char *data, char *parms, BOOL show, BOOL nopause)
mWnd is the handle to the main mIRC window.
aWnd is the handle of the window in which the command is being issued, this might not be the currently active window if the command is being called by a remote script.
data is the information that you wish to send to the DLL. On return, the DLL can fill this variable with the command it wants mIRC to perform if any.
parms is filled by the DLL on return with parameters that it wants mIRC to use when performing the command that it returns in the data variable.
Note: The data and parms variables can each hold 900 chars maximum.
show is FALSE if the . prefix was specified to make the command quiet, or TRUE otherwise.
nopause is TRUE if mIRC is in a critical routine and the DLL must not do anything that pauses processing in mIRC, eg. the DLL should not pop up a dialog.
The DLL can return an integer to indicate what it wants mIRC to do:
0 means that mIRC should /halt processing
1 means that mIRC should continue processing
2 means that it has filled the data variable with a command which it wants mIRC to perform, and has filled parms with the parameters to use, if any, when performing the command.
3 means that the DLL has filled the data variable with the result that $dll() as an identifier should return.
Note: You may need to create a .def file with the procedure names exported when compiling your DLL.
Hey, also nach langer zeit bin ich jetzt mal wieder soweit, bissel hierdran rumzudocktern.
als erstes habe ich mal versucht (da ich überall FiSH für mIRC nutze), dass nachzubauen. Leider war das nicht so einfach, wie ich dachte ... wer also lust hat, sich damit auch auseinander zu setzen, kann gerne mal hier vorbeischauen -> http://www.autoitscript.com/forum/index.php?showtopic=113064
danach würde ssl anstehen ... ist hier vllt schon jmd weitergekommen? dürfte ja auch "nur" eine dll-sache sein 
also bedingt schließe ich mich an ... ich versuche IP + Port zu "pingen", was eigentlich via TCPConnect geht. Leider beeinflusst TCPTimeout dieses geschehen komischerweise nicht, was bedeutet, dass bei nichterreichen des Ziels, der Timeout bei über 20.000 ms liegt ... was natürlich um einiges zu lang ist.
Das hier hilft ein wenig weiter, ich würde aber trotzdem noch eine bessere Alternative bevorzugen -> http://www.autoitscript.com/forum/index.php?showtopic=39807&st=20&gopid=790121&#entry790121
hmm, sorry für die aufregung, wenn ich es auf meinem win7 rechner starte, gehts ... auf meinem firmenlappi nicht, wobei ich da mit mirc ganz normal connecten kann. strange ... naja, egal, muss ich das am pc programmieren =)
ERROR: syntax error
Dim Static
wenn ich Static lösche und das script ausführe, kommt folgendes ...
[autoit]Variable used without being declared.:
$_a_Pfad_ = StringRegExpReplace($_a_Pfad_, '[\\/]+\z', $_Tren_[0x00000000]) & $_Tren_[0x00000002]
$_a_Pfad_ = StringRegExpReplace($_a_Pfad_, '[\\/]+\z', ^ ERROR
versteh ich net ... bei mir (wie auch bei 2 anderen servern, die ich getestet habe) immer ...
---------------------------
IRC.au3 Error
---------------------------
Server irc.baccano.de is not responding.
---------------------------
OK Abbrechen
---------------------------
Nein, das sind definitiv keine serverprobleme (bin ja mit mirc aufm server drauf). man muss sich direkt beim connect mit dem server irgendwie identifizieren, bzw reicht es nicht, sich per tcp mit ip+port zu verbinden, sondern dieses rfc-protokoll muss beachtet werden.
ich hab mich grad auch gefragt, ob ich die aufgabe vllt net verstehe ... auf jeden fall ist weit und breit kein captcha zu sehen ...
also hierraus habe ich es nun anders verstanden -> http://support.microsoft.com/kb/170359
fakt ist aber, dass es nicht funktioniert, da die ergebnisse > 20.000 ms sind, egal, wie TCPTimeout eingestellt ist.
Hey,
ich glaube ich habe ein Verständnisproblem mit TCPTimeout "gehabt". Ich dachte, wenn solange keine Anwort kommt, bricht TCPConnect ab ... aber anscheinend wird dann nochmal ein neuees Paket geschickt.
Nun gut, ich habe nen Timer laufen und könnte per Adlib prüfen, ob der Timer z. B. > 2 sek. ist, dann wird die antwort wohl negativ sein. wie kann ich nun TCPConnect abbrechen?
