Hallo, das ist ein Login Server + Client, würde das gerne am Anfang meines Programmes reinsetzten, damit nur bestimmte Leute zugriff haben. Zur Erklärung: Beim Client sind am Anfang 2 Inputboxen, wo man Username + Password eingeben muss. Dannach sendet Der Client es an den Server und der Server checkt, ob es in der Textdatei übereinstimmt. Das bekomme ich alles noch hin. Aber jetzt möchte ich, dass der Server dem Client nach dem checken der text datei sagt, ob er nun zugriff hat oder nicht. Ich würde vom Server dann ebend eine Variable $message z.b. senden, die entweder z. B. "ja" und "nein" heisst. Der Client überprüft die $message. Wenn sie = "ja" ist dann ist er eingeloggt. Wenn "nein" dann muss ers nochmal versuchen ;). Aber wie kann ich denn vom Server aus dem Client etwas senden? Ich müsste ja dann seine IP benötigen o.ä. und warscheinlich müsste er auch Ports offen haben. Das will ich ja vermeiden. Ich will dem Client was senden, wenn er auf dem Server ist. Er soll dementsprechend so lange warten. Bitte um Hilfe
Server:
Spoiler anzeigen
;Server
[/autoit] [autoit][/autoit] [autoit]global $srecv
[/autoit] [autoit][/autoit] [autoit]Const $IP = @IPAddress1
Const $PORT = 81
TCPStartup()
$nListen = TCPListen($IP,$PORT)
$nAcc = TCPAccept($nListen)
While $nAcc = -1
$nAcc = TCPAccept($nListen)
WEnd
$sRecv = TCPRecv($nAcc,1024)
While $sRecv = ""
$sRecv = TCPRecv($nAcc,1024)
Sleep(100)
WEnd
if $sRecv = Filereadline("C:\Dokumente und Einstellungen\Domy\Desktop\project\user.txt", 1) then
_connect()
elseif $sRecv = Filereadline("C:\Dokumente und Einstellungen\Domy\Desktop\project\user.txt", 2) then
_connect()
Else
_nconnect()
endif
func _connect()
; tcp send erlaubnis
endfunc
func _nconnect()
; tcp send keine erlaubnis
endfunc
Client:
Spoiler anzeigen
; Client
[/autoit] [autoit][/autoit] [autoit]#include <GuiConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Const $IP = @IPAddress1
Const $PORT = 81
GUICreate ( "Login", 250, 200)
guisetstate (@SW_SHOW)
Opt("GUIOnEventMode", 1)
guisetonevent($GUI_EVENT_CLOSE, "_exit")
$msg = guigetmsg()
If $msg = $GUI_EVENT_CLOSE then exit
$Input1 = guictrlcreateinput("", 100, 50, 70)
$Input2 = guictrlcreateinput("", 100, 100, 70)
$Button = guictrlcreatebutton("Einloggen", 55, 150, 70)
guictrlsetonevent($Button, "_send")
func _send()
$Loginname = guictrlread($Input1)
$Password = guictrlread($Input2)
$message = $Loginname & " " & $Password
TCPStartup()
$nCon = TCPConnect($IP,$PORT)
While $nCon = -1
$nCon = TCPConnect($IP,$PORT)
WEnd
TCPSend($nCon,$message)
endfunc
func _exit()
Exit
endfunc
while 1
sleep(100)
wend