Beiträge von Jam00

#include <INet.au3>
#include <GuiEdit.au3>
Global $sNamen
$zahl = -1
$zahl1 = $zahl + 1
$File = @ScriptDir & "\Server.ini"
FileDelete($File)
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;~ Opt("TrayMenuMode",1)

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Serververlauf", 238, 201, 303, 219)
$Edit1 = GUICtrlCreateEdit("", 3, 3, 232, 196, $ES_READONLY+$ES_AUTOHSCROLL)
GUICtrlSetBkColor(-1, 0xFFFFFF)
#EndRegion ### END Koda GUI section ###
$Fenster = False
Dim $ConnectedSocket[999999]
Dim $Namen[999999]
; Startet den TCP Service
;==============================================
TCPStartup()

; Erstellt einen lauschenden "SOCKET"
;==============================================
$MainSocket = TCPListen(@IPAddress1, 31758)
If $MainSocket > -1 Then
MsgBox (0,"","Die Server-Ip ist: " & @IPAddress1)
EndIf
If $MainSocket = -1 Then
$MainSocket = TCPListen(@IPAddress2, 31758)
If $MainSocket > -1 Then
MsgBox (0,"","Die Server-Ip ist: " & @IPAddress2)
EndIf
EndIf
If $MainSocket = -1 Then
$MainSocket = TCPListen(@IPAddress3, 31758)
If $MainSocket > -1 Then
MsgBox (0,"","Die Server-Ip ist: " & @IPAddress3)
EndIf
EndIf
If $MainSocket = -1 Then
$MainSocket = TCPListen(@IPAddress4, 31758)
If $MainSocket > -1 Then
MsgBox (0,"","Die Server-Ip ist: " & @IPAddress4)
EndIf
EndIf
If $MainSocket = -1 Then MsgBox (16,"Error","Es ist ein Verbindungsfehler aufgetreten!")Exit
HotKeySet("!{n}", "_Fenster")
; Warten auf eine Client-Verbindung
;--------------------

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
EndSwitch
$ConnectedSocket[$zahl1] = TCPAccept($MainSocket)
If $ConnectedSocket[$zahl1] >= 0 Then
$zahl = $zahl + 1
$zahl1 = $zahl + 1
;~ MsgBox(0, "", "Mein Server - Client verbunden", 1)
$Erhalten = TCPRecv($ConnectedSocket[$zahl], 2048)
$sErhalten = StringSplit($Erhalten, ",")
If $sErhalten[1] = "Name" Then
$Namen[$zahl] = $sErhalten[2]
ElseIf $sErhalten[1] = "NamenSenden" Then
$zahl = $zahl - 1
For $E = 0 To $sErhalten[2]
$E1 = $E + 3
$Namen[$E] = $sErhalten[$E1]
Next
$Status = False
For $F = 0 To $sErhalten[2]
$F1 = $sErhalten[2] + 1
$F2 = $F - 1
If $F = $sErhalten[$F1] Then $Status = True
If $Status = True Then
$ConnectedSocket[$F] = $ConnectedSocket[$F2]
EndIf
Next
EndIf
$sNamen = ""
For $B = 0 To $zahl
$sNamen = $sNamen & $Namen[$B] & "|"
Next
For $C = 0 To $zahl
TCPSend($ConnectedSocket[$C], "Namen|" & $zahl & "|" & $sNamen)
Next
EndIf
For $A = 0 To $zahl
$Erhalten = TCPRecv($ConnectedSocket[$A], 9999)
$sErhalten = StringSplit($Erhalten, ",")
If $Erhalten <> "" Then
$Edit1Read = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, $Edit1Read & @CRLF & $Erhalten)
$Lines = _GUICtrlEdit_GetLineCount($Edit1)
_GUICtrlEdit_LineScroll($Edit1, 0, $Lines)
For $D = 0 To $zahl
If $sErhalten[1] = "Name" Then
$Namen[$zahl] = $sErhalten[2]
ElseIf $sErhalten[1] = "Nachricht" Then
;~ MsgBox (0,"",$Namen[$D] & "," & $sErhalten[3])
If $Namen[$D] = $sErhalten[3] Then
TCPSend($ConnectedSocket[$D], $Erhalten)
EndIf
EndIf
Next
EndIf
Next
WEnd
Func _Fenster()
If $Fenster = True Then
GUISetState(@SW_HIDE)
ElseIf $Fenster = False Then
GUISetState(@SW_SHOW)
EndIf
EndFunc ;==>_Fenster

#include <INet.au3>
#include <GuiEdit.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$inetIP = _GetIP()
#Region ### START Koda GUI section ### Form=
$IPForm = GUICreate("Form2", 151, 52, 303, 219)
$ComboIP = GUICtrlCreateCombo("", 3, 3, 145, 25)
If @IPAddress1 <> "0.0.0.0" Then
If @IPAddress2 <> "0.0.0.0" Then
If @IPAddress3 <> "0.0.0.0" Then
If @IPAddress4 <> "0.0.0.0" Then
GUICtrlSetData(-1, @IPAddress1 & '|' & @IPAddress2 & '|' & @IPAddress3 & '|' & @IPAddress4, @IPAddress1)
Else
GUICtrlSetData(-1, @IPAddress1 & '|' & @IPAddress2 & '|' & @IPAddress3, @IPAddress1)
EndIf
Else
GUICtrlSetData(-1, @IPAddress1 & '|' & @IPAddress2, @IPAddress1)
EndIf
Else
GUICtrlSetData(-1, @IPAddress1 , @IPAddress1)
EndIf
EndIf
$OK = GUICtrlCreateButton("OK", 72, 25, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $OK
GUISetState (@SW_HIDE)
ExitLoop
EndSwitch
WEnd

$IP = GUICtrlRead ($ComboIP)
Dim $ConnectedSocket[9999999]
$zahl = -1
$zahl1 = $zahl + 1
$MainSocket = TCPListen($IP, 31758)
If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket[$zahl1] = TCPAccept($MainSocket)
If $ConnectedSocket[$zahl1] >= 0 Then
$zahl = $zahl + 1
$zahl1 = $zahl + 1
;~ TCPSend ($ConnectedSocket[$zahl],"zahl" & "|" & $zahl)
EndIf
If $zahl >= 0 Then
For $1 = 0 To $zahl
$Empfang = TCPRecv($ConnectedSocket[$1], 9999)
If $Empfang <> "" Then
;~ $sEmpfang = StringSplit($Empfang, "<>")
For $2 = 0 To $zahl
;~ If $sEmpfang[1] <> $2 Then
TCPSend($ConnectedSocket[$2], $Empfang)
;~ EndIf
Next
EndIf
Next
EndIf
WEnd

#include <INet.au3>
$IP = InputBox("INC", "Die IP des Servers", _GetIP())
$Port = 31758
$ConnectedSocket = TCPConnect($IP, $Port)
If $ConnectedSocket = -1 Then
MsgBox(16, "Error", "Es ist bei dem Verbindungsversuch ein Fehler aufgetreten, vermutlich ist kein Server gestartet!")
Exit
EndIf
HotKeySet("^s", "_Senden")
While 1
$Empfang = TCPRecv($ConnectedSocket, 9999)
If $Empfang <> "" Then
MsgBox(0, "Nachricht", $Empfang)
EndIf
WEnd
Func _Senden()
$Nachricht = InputBox("Nachricht senden", "Schreibe deine Nachricht")
If $Nachricht <> "" Then
TCPSend($ConnectedSocket, $Nachricht)
EndIf
EndFunc ;==>_Senden

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 413, 298, 303, 219)
$Icon1 = GUICtrlCreateIcon(@ScriptDir & "\Data.dll", 0, 12, 6, 250, 150)
GUICtrlSetImage (-1,@ScriptDir & "\Data.dll",1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("", 633, 447, 193, 125)
$Button1 = GUICtrlCreateButton("1", 104, 64, 137, 105, 0)
$Button2 = GUICtrlCreateButton("2", 400, 64, 137, 105, 0)
$Button3 = GUICtrlCreateButton("3", 104, 232, 137, 105, 0)
$Button4 = GUICtrlCreateButton("4", 400, 232, 137, 105, 0)
$Button5 = GUICtrlCreateButton("Exit", 272, 400, 89, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Status = -1
While 1
$Exists = ProcessExists("Bat_To_Exe_Converter.exe")
If $Status <> $Exists Then
If $Exists = 0 Then
GUICtrlSetBKColor ($Button1,0xff0000)
$Status = $Exists
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Run ( "C:\Dokumente und Einstellungen\Administrator\Desktop/Bat_To_Exe_Converter.exe")
Case $Button2
;bla
Case $Button3
;bla
Case $Button4
;bla
Case $Button5
Exit

EndSwitch
WEnd