Beiträge von Freaky
-
-
Hallo,
ich habe mein altes Script rausgekramt und sehe da, ich habe da eine _Adlib.au3 UDF.
Jetzt habe ich mein eigentlich funktionierenden Script angemacht und tada die UDF geht nicht mehr.Gibt es eine neue UDf die noch funktioniert ?
-
Ja es ist noch aktuell
Ehm ich habe leider XP
-
Problem liegt immer noch vor
-
Wir hatten das nicht geklärt sonst wär der Rand jetzt nicht Helblau
Ich kriege den Rand unsichtbar hin aber nicht anderes gefärbt
-
Danke klapt supper
Eine Frage noch
Wie krige ich bei einem Edit den Rand gefärbt ?
-
Hallo,
ich habe mir ein Hovereffekt geschrieben. Das ist schon und gut, flakkert nicht.Jetzt habe ich das in eine andere Form gestopft und tada es flakert richtig doll. Was muss ich ändern damit das nicht mehr flakkert ?
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <SendMessage.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>Global $minimieren, $schliesen, $Form, $buttons[1][2], $TEMPDIR = ".\bilder", $hover
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 383, 209, 294, 244, $WS_POPUP)
$titel_balken = GUICtrlCreatePic ("",0,0,500,22)
$Pic1 = GUICtrlCreatePic($TEMPDIR & "\bg.gif", 0, 0, 382, 208)
$buttons[0][0] = GUICtrlCreatePic($TEMPDIR & "\start0.jpg", 4, 27, 155, 35)
$buttons[0][1] = "start"
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###AdlibRegister ("_GUI_hover",200)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $titel_balken
_SendMessage($Form1, $WM_SYSCOMMAND, 0xF012, 0)
EndSwitch
_GUI_hover()
WEndFunc _GUI_hover()
[/autoit]
Local $iMouse = GUIGetCursorInfo($Form1)
If Not @error Then
For $i = 0 To UBound($buttons) - 1
Local $bPos = ControlGetPos($Form, "", $buttons[$i][0])
If ($iMouse[0] >= $bPos[0]) And ($iMouse[0] <= $bPos[0] + $bPos[2]) And ($iMouse[1] >= $bPos[1]) And ($iMouse[1] <= $bPos[1] + $bPos[3]) Then
If $iMouse[2] = 0 Then
GUICtrlSetImage($buttons[$i][0], $TEMPDIR & "\" & $buttons[$i][1] & "1.jpg")
Else
GUICtrlSetImage($buttons[$i][0], $TEMPDIR & "\" & $buttons[$i][1] & "2.jpg")
EndIf
Else
GUICtrlSetImage($buttons[$i][0], $TEMPDIR & "\" & $buttons[$i][1] & "0.jpg")
EndIf
Next
EndIf
EndFunc ;==>_GUI_hover -
Habe das jetzt geändert und auch geändert läuft das nicht über mehrer PC´s
-
Oh ja sry, das war zum testen
*schnell ändern geh* -
Das mit der IP in der Form ist wurst, ich wollte es KUHL haben
Jetzt zu den Ports
Seid wann ist 65432 (Server Port) <> 65432 (Client Port) ? -
Firewall kA eigentlich kommt ja immer Schild raus
Client
[autoit]#RequireAdmin
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GuiIPAddress.au3>Global $socket
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Client", 664, 334, 241, 111)
$Group1 = GUICtrlCreateGroup("Benutzer", 4, 0, 197, 241)
$ListView1 = GUICtrlCreateListView("", 10, 14, 186, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Chat", 208, 2, 453, 329)
$ListView2 = GUICtrlCreateListView("", 214, 16, 442, 286)
$Input1 = GUICtrlCreateInput("", 216, 306, 387, 21)
$Button1 = GUICtrlCreateButton("Senden", 608, 306, 47, 21)
GUICtrlSetState (-1,$GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Login", 4, 242, 197, 89)
$Label1 = GUICtrlCreateLabel("ServerIP:", 12, 258, 48, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 62, 254, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, FileRead ("serverip.ini"))
$Button2 = GUICtrlCreateButton("Login", 12, 280, 179, 25)
$Label = GUICtrlCreateLabel("Login Status", 14, 308, 179, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
TCPSend($socket, "#Exit:" & @ComputerName)
TCPCloseSocket ($socket)
TCPShutdown ()
Exit
Case $Button1
TCPSend($socket, GUICtrlRead($Input1))
Case $Button2
TCPStartup()
$socket = TCPConnect(_GUICtrlIpAddress_Get($IPAddress1), 65432)
If $socket = -1 Then
GUICtrlSetData ($Label,"Server läuft nicht.")
MsgBox (0,"Fehler","Server läuft nicht.")
Else
TCPSend($socket, "#Name:" & @ComputerName)
GUICtrlSetData ($Label,"Erfolgreich eingelogt.")
GUICtrlSetState ($Button1,$GUI_ENABLE)
GUICtrlSetState ($Button2,$GUI_DISABLE)
EndIf
EndSwitch
WEndServer
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
Global $sClient[1][2], $socket#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Server", 664, 334, 241, 111)
$Group1 = GUICtrlCreateGroup("Benutzer", 4, 0, 197, 241)
$ListView1 = GUICtrlCreateListView("Computername", 10, 14, 186, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Chat", 208, 2, 453, 329)
$ListView2 = GUICtrlCreateListView("Zeit|Computername|Text ", 214, 16, 442, 286)
$Input1 = GUICtrlCreateInput("", 216, 306, 387, 21)
$Button1 = GUICtrlCreateButton("Senden", 608, 306, 47, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Login", 4, 242, 197, 89)
$Label1 = GUICtrlCreateLabel("ServerIP:", 12, 258, 48, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 62, 254, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, @IPAddress1)
$Button2 = GUICtrlCreateButton("Server starten", 12, 280, 179, 25)
$Label = GUICtrlCreateLabel("Server Status", 14, 308, 179, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
TCPSend($socket, GUICtrlRead($Input1))
Case $Button2
TCPStartup()
$socket = TCPListen(@IPAddress1, 65432, 100)
If $socket = -1 Then
GUICtrlSetData($Label, "Port Falsch.")
MsgBox(0, "ERROR", "Port Falsch")
Else
TCPSend($socket, "#Name:" & @ComputerName)
GUICtrlSetData($Label, "Server gestartet")
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
FileDelete("serverip.ini")
FileWrite("serverip.ini", @IPAddress1)
EndIf
EndSwitch
$TempSocket = TCPAccept($socket)
If $TempSocket <> -1 Then
ReDim $sClient[UBound ($sClient)+1][2]
$sClient[UBound($sClient)-2][0] = $TempSocket
EndIf
For $i = 0 To UBound($sClient) - 1
$rec = TCPRecv($sClient[$i][0], 2048)
If $rec <> "" Then
If StringInStr($rec, "#Name:") Then
$sClient[$i][1] = StringReplace($rec, "#Name:", "")
GUICtrlCreateListViewItem ($sClient[$i][1],$ListView1)
ElseIf StringInStr($rec, "#Exit:") Then
;_GUICtrlListView_GetItemCount
Else
GUICtrlCreateListViewItem (@HOUR & ":" & @MIN & "|" & $sClient[$i][1] & "|" & $rec,$ListView2)
;MsgBox(0, $sClient[$i][1], $rec)
EndIf
EndIf
Next
WEnd;~ Local $start = TimerInit()
[/autoit]
;~ Do
;~ $ConnectedSocket = TCPAccept($socket)
;~ Until $ConnectedSocket <> -1 Or (TimerDiff($start) > 25000)
;~ $sClient[0][0] = $ConnectedSocket -
Wie gesagt das es Intern ist also Lokal
-
Sagen wir mal so, er kann keine Verbindung aufbauen sobald man 2 verschiedene PC´s benutzt.
Ist es anderes möglich ausser Ports freischalten ?
bzw. ein offenen Port benutzen ? -
Hallo,
ich möchte ein Chat über TCP für das Internenetzt also Lan.
Das Problem ist keiner kann sogesagt connecten. Wie kann ich das ändern ? -
Danke klapt supper.
Ich möchte jetzt das man von Client zum Server was sendet, dann der Server es zu einem anderen Client weiterschikt.
Wie kriege ich das hin ? -
Schon bewusst
Das Problem ist nur, das er bei der ersten verbindung die aufnahme abbricht und die bestehende benutzt -
Der Client soll doch immer auf die IP vom SServer gehen oder nicht
könnte mir jemand ein Beispiel machen pls
-
Ok ich habs
Ich muss beim Client nicht TCPListen sondern TCPConnect benutzenHabe jetzt zweites Problem.
Ich möchte das 2 Client auf 1 Server zugreifen.
Wie kriege ich das hin ? -
Es ist normal das der Server auf ein Client wartet
-
Hallo,
ich möchte aus langeweile ein TCP Chat über Lan schreiben.
Jetzt ist das Problem das nichts am Server ankommt.
Was mache ich Falsch ?Clien
[autoit]TCPStartup()
[/autoit] [autoit][/autoit] [autoit]
$socket = TCPConnect(@IPAddress1, 65432)
If $socket = -1 Then MsgBox(0, "ERROR", "Port Falsch")Local $start = TimerInit()
[/autoit] [autoit][/autoit] [autoit]
Do
$ConnectedSocket = TCPAccept($socket)
Until $ConnectedSocket <> -1 Or (TimerDiff($start) > 25000)While 1
[/autoit]
$send = TCPSend($ConnectedSocket, "hi")
MsgBox (0,"",$send)
WEndServer
[autoit]TCPStartup()
[/autoit] [autoit][/autoit] [autoit]
$socket = TCPListen(@IPAddress1, 65432, 100)
If $socket = -1 Then MsgBox(0, "ERROR", "Port Falsch")Local $start = TimerInit()
[/autoit] [autoit][/autoit] [autoit]
Do
$ConnectedSocket = TCPAccept($socket)
Until $ConnectedSocket <> -1 Or (TimerDiff($start) > 25000)While 1
[/autoit]
$rec = TCPRecv($ConnectedSocket, 2048)
If $rec <> "" Then MsgBox (0,"",$rec)
WEnd
