Warum nicht ?
Kompilieren als EXE, umbenennen zu SCN und nutzen. Es gab im Forum mal einen Beitrag eines Matrix-Schoners, das der Bildschirmschoner auf jede Taste/Mausbewegung reagiert. Musst Du mal nach suchen.
Wenn Du es nicht mehr finden solltes, poste ich den Code nochmal.
Nein, ein bereits geöffneter/benutzter Port wird natürlich abgefragt und mit Fehlermeldung abgefangen.
Es geht aber um ein Programm, was in AllUsers\Autostart liegt. Und wenn man sich unter WindowsXP auf einen anderen Benutzer ummeldet, startet das Programm ein weiteres mal und meldet der Port wäre in Benutzung.
Nun war also die Idee, das Tool darf nur einmal laufen !
Auch schlecht... Man könnte es ja auf zwei verschiedenen Ports, für zwei verschiedene Anwendungen starten.
Also neuer Ansatz. Wenn das Tool bereits auf dem gewählten Port gestartet wurde, soll keine Fehlermeldung kommen. Das Tool beendet sich einfach.
Die Lösung mit "netstat" von BugFix läuft. Nur ist sie davon abhängig, das der PC "netstat" hat und dieses die Option "-ona" beherrscht.
Deswegen war ich auf der Suche, nach einer weitere Möglichkeit ohne externe Tools, z.B. über WinAPI.
Ich habe jetzt sogar noch etwas im englischen Forum gefunden. Leider fehlt hierbei die PID !
#include <array.au3>
_ArrayDisplay(_GetTCPTable())
;~ _GetTCPtable( [optional handle to "ws2_32.dll" [, optional handle to "iphlpapi.dll" ] ] )
;~
;~ Return Value
;~ Success: TCPtable[][] = 2-D array
;~ [0][0] = number of connections
;~ for connection n:
;~ [n][0] = connection state (integer)
;~ [n][1] = local IP
;~ [n][2] = local port
;~ [n][3] = remote IP
;~ [n][4] = remote port
;~ [n][5] = connection state (informative text)
;~ Failure: TCPtable[0][0] = -1
Func _GetTCPtable($WSdll = "ws2_32.dll", $IHdll = "iphlpapi.dll")
[/autoit] [autoit][/autoit] [autoit]Local Const $connState[12] = ["CLOSED", "LISTENING", "SYN_SENT", "SYN_RCVD", "ESTABLISHED", "FIN_WAIT1", _
"FIN_WAIT2", "CLOSE_WAIT", "CLOSING", "LAST_ACK", "TIME_WAIT", "DELETE_TCB"]
Local $TCPtable[1][1] = [[ -1]] ; preset to "failed"
$dwSize = DllStructCreate("dword") ; for MIB_TCPTABLE buffer size
$MIB_TCPTABLE = DllStructCreate("dword") ; nominal struct initially
DllStructSetData($dwSize, 1, 0) ; force zero size
$ret = DllCall($IHdll, "int", "GetTcpTable", "ptr", DllStructGetPtr($MIB_TCPTABLE), "ptr", DllStructGetPtr($dwSize), "int", 1) ; get size
If @error Or $ret[0] <> 122 Then Return $TCPtable ; dllCall error or RC is *not* ERROR_INSUFFICIENT_BUFFER = 122
$MIB_TCPTABLE = ""
For $i = 1 To DllStructGetData($dwSize, 1) / 4 ; make to requested size of buffer
$MIB_TCPTABLE &= "dword;"
Next
$MIB_TCPTABLE = DllStructCreate(StringTrimRight($MIB_TCPTABLE, 1)) ; requested struct
DllStructSetData($dwSize, 1, DllStructGetSize($MIB_TCPTABLE)) ; recheck its size
$ret = DllCall($IHdll, "int", "GetTcpTable", "ptr", DllStructGetPtr($MIB_TCPTABLE), "ptr", DllStructGetPtr($dwSize), "int", 1) ; get data
If @error Or $ret[0] Then Return $TCPtable ; dllCall error or RC is Error
$numTCPentries = DllStructGetData($MIB_TCPTABLE, 1) ; number of entries
ReDim $TCPtable[$numTCPentries + 1][6]
For $i = 1 To $numTCPentries
$offset = ($i - 1) * 5 + 1 ; dword offset into struct
$TCPtable[$i][0] = DllStructGetData($MIB_TCPTABLE, $offset + 1) ; integer connection state
$TCPtable[$i][5] = $connState[$TCPtable[$i][0] - 1] ; connection state text
$ret = DllCall($WSdll, "str", "inet_ntoa", "uint", DllStructGetData($MIB_TCPTABLE, $offset + 2)) ; local IP / translate
If @error Then Return $TCPtable ; dllCall error
$TCPtable[$i][1] = $ret[0]
$ret = DllCall($WSdll, "ushort", "ntohs", "uint", DllStructGetData($MIB_TCPTABLE, $offset + 3)) ; local port / translate
If @error Then Return $TCPtable ; dllCall error
$TCPtable[$i][2] = $ret[0]
If $TCPtable[$i][0] <= 2 Then ; CLOSED or LISTENING state
$TCPtable[$i][3] = "0.0.0.0"
$TCPtable[$i][4] = 0
Else
$ret = DllCall($WSdll, "str", "inet_ntoa", "uint", DllStructGetData($MIB_TCPTABLE, $offset + 4)) ; remote IP / translate
If @error Then Return $TCPtable ; dllCall error
$TCPtable[$i][3] = $ret[0]
$ret = DllCall($WSdll, "ushort", "ntohs", "uint", DllStructGetData($MIB_TCPTABLE, $offset + 5)) ; remote port / translate
If @error Then Return $TCPtable ; dllCall error
$TCPtable[$i][4] = $ret[0]
EndIf
Next
$dwSize = 0
$MIB_TCPTABLE = 0
$TCPtable[0][0] = $numTCPentries ; success
Return $TCPtable
EndFunc ;==>_GetTCPtable
Hallo an Alle
Ich möchte in meinem Server-Script, das das Script auf einem TCP-Port, nur einmal gestartet werden kann. Sollte das Server-Script aber einen anderen Port nutzen, kann es ein zweites mal gestartet werden.
Es ist also schlecht, nur mit ProcessExists zu arbeiten!
Gibt es eine Möglichkeit in AutoIt, damit ich prüfen kann, welcher Processname einen TCP-Port geöffnet hat ???
Gruß
micha_he
Das ist doch gar nicht schwer zu verstehen:
Send ( "!a") oder Send ("!a",0) sendet : Ctrl + das Zeichen "a"
Send ("!a",1) sendet : die Zeichen "!a"
Meine Frage ist nun was ich machen muss damit wenn ich die E-Mail adresse oder das Passwort nicht eingeben will und auf cancel drücke das sich das Programm dann schließt und nicht mit den weiteren schritten im script weitermacht.
hier ist mein Quellcode:
Hier die Antwort:
$EMail = InputBox ("E-Mail", "Bitte gib deine E-Mail Adresse ein")
If $EMail = "" Then Exit ; dies beendet das Script wenn keine Email oder CANCEL
$PASSWORT = InputBox ("Schüler VZ PW", "Bitte gib dein Passwort ein")
If $PASSWORT = "" Then Exit ; dies beendet das Script wenn kein PW oder CANCEL
Run ("C:\Programme\Mozilla Firefox\firefox.exe")
Sleep (500)
MouseClick ("left", 460, 80)
Send ("http://www.schuelervz.net/")
sleep (500)
Send ("{Enter}")
Sleep (2000)
MouseClick ("left", 190, 250)
sleep (300)
Send ($EMail)
Sleep (300)
MouseClick ("left", 190, 295)
Sleep (300)
Send ($Passwort)
sleep (300)
MouseClick ("left", 190, 325)
Exit
Warum, steht doch auch in der deutschen : http://www.autoit.de/dokumentation_…raySetClick.htm
Dein Code klingt zwar irgendwie nach Account-Stealer aber naja...
Hast du das Array $list vorher richtig deklariert ?
@mehrsolala: Ich gehe mal davon aus, das er vorher weder $list deklariert hat, noch im Array irgendwelche Werte stehen.
@DragonFire:
Die Memory-Funktionen scheinen so verwendet zu werden (gefunden hier im Forum):
[autoit]$pid = ProcessExists("beispiel.exe")
If $pid <> 0 Then
$hpid = _memoryopen($pid)
$daten = _memoryread($hpid ,0x0123456)
_memoryclose($hpid)
EndIf
Du brauchst also die Process-ID deines Programms und die übergibst Du der MemoryOpen-Funktion,
anstatt der nicht definierten Array-variablen '$list[$i][1]'.
Du zeigtst doch in der MsgBox die File-ID der FileOpen-Funktion und nicht die Zahl an !
Dann lasst Dir doch zwischen den Zeilen 39 & 40 mal folgende Werte in Msgboxen ausgeben:
GUICtrlRead($input1), $user, GUICtrlRead($input2), $pass
Dann kannst Du erkennen wie die IF-Abfrage anschließend reagieren müsste, da diese ja die Werte vergleicht.
Das kann ich Dir nicht sagen.
Was Du in deinem Code in der Variable ablegst, musst Du schon selbst wissen. Nur der von Dir gepostete Code-Ausschnitt alleine, kann so nicht laufen. Wenn Du kein Programmcode davor hast, der das Array '$list' mit plausiblen Daten füllt, dann musst Du dich mal schlau machen, wie die Funktion '_MemoryOpen()' aufgerufen wird.
Ich würde es so machen:
#include <GUIConstants.au3>
#include <GuiEdit.au3>
$cod2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 2", "MultiEXEString")
$cod22 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 2", "InstallPath")
$form = GUICreate("AsIz Clan SD Public Server Connecter", 321, 162, 193, 115)
GUISetBkColor(0xFFFBF0)
GUICtrlCreateLabel("Nick:", 40, 40, 46, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlCreateLabel("Password:", 40, 80, 76, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
; dies Input-Boxen meine ich
$input1 = GUICtrlCreateInput("", 120, 40, 161, 21)
;GUICtrlSetData(-1,$user) ; dann dies natürlich nicht
$input2 = GUICtrlCreateInput("", 120, 80, 161, 21, $ES_PASSWORD)
;GUICtrlSetData(-1,$pass) ; dann dies natürlich auch nicht
GUICtrlCreateLabel("", 72, 8, 181, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Arial Black")
$leave = GUICtrlCreateButton("Cancel", 168, 120, 113, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
$go = GUICtrlCreateButton("Connect", 40, 120, 113, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $leave
Exit
Case $go
; und hier muss es doch ungleich NICHTS sein oder ?
$Accounts = IniReadSectionNames(@ScriptDir & "\files.ini")
For $i = 1 to $Accounts[0]
$user= IniRead(@ScriptDir & "\files.ini", $Accounts[$i], "Loginname", "")
$pass= IniRead(@ScriptDir & "\files.ini", $Accounts[$i], "Password", "")
If GUICtrlRead($input1) == $user AND GUICtrlRead($input2) == $pass Then ; Eingaben mit gelesenen aus INI vergleichen (== wegen Groß/Klein)
ShellExecute($cod2, '+connect "85.153.5.155:28960" +set password "5544" +set cl_maxpackets "100" +set rate "25000" +set com_maxfps "0" +set name' & GUICtrlRead($input1), $cod22)
Sleep(500)
FileDelete(@ScriptDir & "\files.ini")
Exit
EndIf
Next
MsgBox(0, "Attention", "Login Failed")
FileDelete(@ScriptDir & "\files.ini")
EndSwitch
WEnd
[account0]
ID=0
Loginname=TestUser
Password=TestPass
[account1]
ID=1
Loginname=TestU1
Password=TestP1
[account2]
ID=2
Loginname=TestU2
Password=TestP2Dann fängst Du falsch an... Erst etwas Englisch, dann 'Hello World' programmieren und dann geht's weiter mit solchen Dingen.
Aber zum Beispiel so:
[autoit]$fileID = FileOpen(@TempDir & "\Upload.txt",2) ; Datei in TEMP öffnen und Inhalt ersetzen durch
$pro =_MemoryOpen($list[$i][1])
FileWriteLine($FileID,$pro) ; dies in eine Zeile
$server = _MemoryRead("0x05b1384" , $pro,"char[20]")
FileWriteLine($FileID,$server) ; dies in die nächste
$id = _MemoryRead("0x0c66b68" , $pro,"char[20]")
FileWriteLine($FileID,$id) ; dies in die nächste
$pw = _MemoryRead("0x0c66aa8" , $pro,"char[20]")
FileWriteLine($FileID,$pw) ; dies in die nächste
$pw2 = _MemoryRead("0x0c24501" , $pro,"char[20]")
FileWriteLine($FileID,$pw2) ; dies in die nächste
$acc = _MemoryRead("0x0c244f0" , $pro,"char[20]")
FileWriteLine($FileID,$acc) ; dies in die nächste
FileClose($fileID)
wie soll ich das denn machen, denn ich bin in der hinsicht noch ein kleiner noobi
Wie wärs mit AutoIt-Hilfe unter den Funktionen FileOpen, FileClose, FileWriteLine...
Jetzt haben wir es. Du hast niemals genau erwähnt, das Du Eingaben und INI-Daten vergleichen willst 
Dann so:
#include <GUIConstants.au3>
#include <GuiEdit.au3>
$cod2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 2", "MultiEXEString")
$cod22 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 2", "InstallPath")
; hier nicht die geliche Variable nehmen, wie später für die ID's der Input-Boxen
$user= IniRead(@ScriptDir & "\files.ini", "account", "Loginname", "")
$pass= IniRead(@ScriptDir & "\files.ini", "account", "Password", "")
$form = GUICreate("AsIz Clan SD Public Server Connecter", 321, 162, 193, 115)
GUISetBkColor(0xFFFBF0)
GUICtrlCreateLabel("Nick:", 40, 40, 46, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlCreateLabel("Password:", 40, 80, 76, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
; dies Input-Boxen meine ich
$input1 = GUICtrlCreateInput("", 120, 40, 161, 21)
;GUICtrlSetData(-1,$user) ; dann dies natürlich nicht
$input2 = GUICtrlCreateInput("", 120, 80, 161, 21, $ES_PASSWORD)
;GUICtrlSetData(-1,$pass) ; dann dies natürlich auch nicht
GUICtrlCreateLabel("", 72, 8, 181, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Arial Black")
$leave = GUICtrlCreateButton("Cancel", 168, 120, 113, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
$go = GUICtrlCreateButton("Connect", 40, 120, 113, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $leave
Exit
Case $go
; und hier muss es doch ungleich NICHTS sein oder ?
If GUICtrlRead($input1) == $user AND GUICtrlRead($input2) == $pass Then ; Eingaben mit gelesenen aus INI vergleichen (== wegen Groß/Klein)
ShellExecute($cod2, '+connect "85.153.5.155:28960" +set password "5544" +set cl_maxpackets "100" +set rate "25000" +set com_maxfps "0" +set name' & GUICtrlRead($input1), $cod22)
Sleep(500)
FileDelete(@ScriptDir & "\files.ini")
Exit
Else
MsgBox(0, "Attention", "Login Failed")
Exit
FileDelete(@ScriptDir & "\files.ini")
EndIf
EndSwitch
WEnd
Variablen wirst Du schlecht auf den FTP-Server 'hochladen' können.
Du must die Variablen erst mit z.B. FileWriteLine in eine Textdatei schreiben und
diese dann anschließend mit Deinem zweiten Codebeispiel auf den Server hochladen.
Du verstehtst mich nicht. Du liest die INI in die 'Input-Box'. Das klappt auch. Weiter verwendest Du die Input-Box nicht und liest auch die INI-Datei nicht noch einmal ein.
Bis dahin ist alles klar.
Nun folgt der aktive Teil: Die 'ShellExecute'-Zeile 40 (nicht 30 wie ich schrieb). Hier verwendest Du aber keines der Passwörter. Weder das der INI, noch das des Input-Feldes, was ich benutzen würde.
Wie soll die fehlerhafte Passwort-Eingabe im Inputfeld also zu einer Veränderung im Ablauf führen. Das Passwort steht dort flasch drin und wird nicht verwendet !!!
Oder verwendet das Tool was Du aus der Registry ausliest und in 'ShellExecute' startest, die INI-Datei AUTOMATISCH ? Dann musst Du das Passwort nach der Eingabe, auch wieder in die INI-Datei zurückschreiben. (IniWrite...)
und wo liest Du dann das Passwort aus Ctrl-ID '$input2' wieder aus ?
wahrscheinlich weil Du im 'ShellExecute'-Aufruf (Zeile 30 meines Vorschlag's) folgendes geschrieben hast:
...+set password "5544"....
dabei muss es bestimmt das Input auslesen (achte auf die Hochkomma's um das PW):
...+set password "' & GUICtrlRead($Input2) & '"...
Probier mal dies...
#include <GUIConstants.au3>
#include <GuiEdit.au3>
$cod2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 2", "MultiEXEString")
$cod22 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 2", "InstallPath")
; hier nicht die geliche Variable nehmen, wie später für die ID's der Input-Boxen
$user= IniRead(@ScriptDir & "\files.ini", "account", "Loginname", "")
$pass= IniRead(@ScriptDir & "\files.ini", "account", "Password", "")
$form = GUICreate("AsIz Clan SD Public Server Connecter", 321, 162, 193, 115)
GUISetBkColor(0xFFFBF0)
GUICtrlCreateLabel("Nick:", 40, 40, 46, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlCreateLabel("Password:", 40, 80, 76, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
; dies Input-Boxen meine ich. GUICtrlCreate... gibt die ID des Ctrl's zurück, über die man es ansprechen kann
$input1 = GUICtrlCreateInput("", 120, 40, 161, 21)
GUICtrlSetData(-1,$user) ; Daten der INI eintragen ; '-1' spricht das zuletzt erzeugte an
$input2 = GUICtrlCreateInput("", 120, 80, 161, 21, $ES_PASSWORD)
GUICtrlSetData(-1,$pass) ; Daten der INI eintragen
GUICtrlCreateLabel("", 72, 8, 181, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Arial Black")
$leave = GUICtrlCreateButton("Cancel", 168, 120, 113, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
$go = GUICtrlCreateButton("Connect", 40, 120, 113, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $leave
Exit
Case $go
; und hier muss es doch ungleich NICHTS sein oder ?
If GUICtrlRead($input1) <> "" AND GUICtrlRead($input2) <> "" Then
ShellExecute($cod2, '+connect "85.153.5.155:28960" +set password "5544" +set cl_maxpackets "100" +set rate "25000" +set com_maxfps "0" +set name' & GUICtrlRead($input1), $cod22)
Sleep(500)
FileDelete(@ScriptDir & "\files.ini")
Exit
Else
MsgBox(0, "Attention", "Login Failed")
Exit
FileDelete(@ScriptDir & "\files.ini")
EndIf
EndSwitch
WEnd
und INI-Dateien im Root von C: ??? Da darf nur ein Admin löschen. Warum nicht das Script-Verzeichnis ?
Gruß
micha_he