wieso funktioniert das nciht, wenn der pc mit dem empfänger eine Vollbild anwendung offen hat? Normal (ohne Vollbild) gibt es keine Probleme
empfänger:
Spoiler anzeigen
#include <Misc.au3>
#NoTrayIcon
if _Singleton("Skript",1) = 0 Then Exit
[/autoit] [autoit][/autoit] [autoit]UDPStartup(); <-- UDP-Programm Starten, um Nachrichten zu Senden!
[/autoit] [autoit][/autoit] [autoit]$ANSCHLUSS = UDPBind(@IPAddress1, 2000); <-- Jetzt hörst du mit diesem Befehl auf deine Eigene IP und Port 2000
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1 ; <-- Die Endlosschleife Beginnt Hier
$DATEN = UDPRecv($ANSCHLUSS, 500); <-- Empfange Befehle vom "ANSCHLUSS"
If $DATEN = "leiser" Then Send("{VOLUME_DOWN}")
If $DATEN = "lauter" Then Send("{VOLUME_UP}")
If $DATEN = "mute" Then Send("{VOLUME_MUTE}")
If $DATEN = "msgbox" Then MsgBox(64,"Microsoft Windows XP","Um ihr Gehör zu schützen verringert Windows automatisch die Lautstärke. Wir bitten um Verständniss",5)
WEnd
lautstärkeregler:
Spoiler anzeigen
;~ Includes für die GUI
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <array.au3>
$ip = "Keine Verbindung"
;~ Hier startet der GUI-Code
$Gui = GUICreate("Lautstärkeregler",240,250); <-- Erstelle die GUI
GUICtrlCreateLabel("Optionen",15,20)
$Button1 = GUICtrlCreateButton("Leiser", 10, 50,100,40, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Lauter", 120, 50,100,40, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Mute on/off", 10, 100,100,40, $WS_GROUP)
$Button4 = GUICtrlCreateButton("MsgBox", 120, 100,100,40, $WS_GROUP)
$Button5 = GUICtrlCreateButton("IP Wechseln", 120, 190,100,20, $WS_GROUP)
$iptext = GUICtrlCreateLabel("IP wechseln",15,170)
$iptext2 = GUICtrlCreateLabel("IP: " & $ip,120,170)
$ipfeld = GUICtrlCreateInput("ip?",10,190,100)
GUISetState(@SW_SHOW); <-- Zeige die GUI an
;~ Ende des GUI-Codes
UDPStartup()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1 ; <-- Endlosschleife anfangen
$nMsg = GUIGetMsg(); <-- Fange die Button-Events ab
Switch $nMsg ;<-- Unterscheide die Events
Case $GUI_EVENT_CLOSE ; <-- Wenn GUI geschlossen wird dann
Exit ; <-- Skript beenden
Case $Button5
$ip = GUICtrlRead($ipfeld)
If Not StringRegExp($ip, '\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b') Then _
MsgBox(48, '', 'Das ist keine IP!')
GUICtrlSetData($iptext2, "IP: " & $ip)
$ANSCHLUSS = UDPOpen($ip, 2000)
Case $Button4
UDPSend($ANSCHLUSS,"msgbox")
Case $Button3
UDPSend($ANSCHLUSS,"mute")
Case $Button2
UDPSend($ANSCHLUSS,"lauter")
Case $Button1
UDPSend($ANSCHLUSS,"leiser")
EndSwitch ; <-- Ende des Unterscheidens
WEnd ; <-- Beginne Schleife von Vorne