Beiträge von PCKing

[autoit]

Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.

[/autoit] [autoit][/autoit] [autoit]

$oWMP = ObjCreate("WMPlayer.OCX")

[/autoit] [autoit][/autoit] [autoit]

$Radio = TrayCreateMenu("Radiolist")
$radio1 = TrayCreateItem("Technobase.fm", $Radio, -1,1)
$radio2 = TrayCreateItem("Housetime.fm", $Radio, -1,1)
$radio3 = TrayCreateItem("Hardbase.fm", $Radio, -1,1)
$radio4 = TrayCreateItem("Happy Hardcore Radio", $Radio, -1,1)
$radio5 = TrayCreateItem("Coretime.fm", $Radio, -1,1)
$radio6 = TrayCreateItem("Afterhours.fm", $Radio, -1,1)
$cmdPlay = TrayCreateItem("Play")
$cmdStop = TrayCreateItem("Stop")

[/autoit] [autoit][/autoit] [autoit]

While 1
$tmsg = TrayGetMsg()
Switch TrayGetMsg()
Case $radio1
$oWMP.URL = "http://listen.technobase.fm/tunein-dsl-asx"
$oWMP.controls.play()
$zeit = TimerInit()
Case $radio2
$oWMP.URL = $urlHb
$oWMP.controls.play()
$zeit = TimerInit()
Case $radio3
$oWMP.URL = $urlHhr
$oWMP.controls.play()
$zeit = TimerInit()
Case $radio4
$oWMP.URL = $urlTb
$oWMP.controls.play()
$zeit = TimerInit()
Case $radio5
$oWMP.URL = $urlCt
$oWMP.controls.play()
$zeit = TimerInit()
Case $radio6
$oWMP.URL = $urlAh
$oWMP.controls.play()
$zeit = TimerInit()
Case $cmdStop
$oWMP.controls.stop()
Case $cmdPlay
$oWMP.controls.play()
EndSwitch
WEnd

[/autoit]

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("{w}","_WalkUp")
HotKeySet("{a}","_WalkLeft")
HotKeySet("{d}","_WalkRight")
HotKeySet("{s}","_WalkDown")

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Game.Test", 625, 443, 192, 124)
$Label1 = GUICtrlCreateLabel("", 72, 56, 356, 297)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label2 = GUICtrlCreateLabel("", 424, 56, 140, 113)
GUICtrlSetBkColor(-1, 0x00FF00)
$Player = GUICtrlCreateLabel("", 100, 320, 12, 20)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _WalkUp()
$pos = ControlGetPos("","",$Player)
If $pos[1] <> 0 Then
GUICtrlSetPos($Player,$pos[0],$pos[1] - 2)
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _WalkDown()
$pos = ControlGetPos("","",$Player)
If $pos[1] <> 422 Then
GUICtrlSetPos($Player,$pos[0],$pos[1] + 2)
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _WalkLeft()
$pos = ControlGetPos("","",$Player)
If $pos[0] <> 0 Then
GUICtrlSetPos($Player,$pos[0] - 2,$pos[1])
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _WalkRight()
$pos = ControlGetPos("","",$Player)
If $pos[0] <> 612 Then
GUICtrlSetPos($Player,$pos[0] + 2,$pos[1])
EndIf
EndFunc

[/autoit]

[autoit]

Global $IP
Global $Connect = -1 ;erstmal das TCPConnect auf -1 setzen
Global $Socket
$IP = InputBox("IP", "IP des anderen:", "192.168.0.55")
TCPStartup()
If @error = -1 Then
MsgBox(0, "Error", "Folgender Fehler ist aufgetreten:" & @error)
EndIf
Do
$Connect = TCPConnect($IP, 6221);damit er es solange macht, bis er auch eine connection hat...
Until $Connect <> -1 ;machen wir das in eine Do ... Until Schleife
;die @error abfrage ersparen wir uns damit
While 1 ;die Variable $1 wird hier nicht benötigt (siehe Zeile 15)
$Text = InputBox("Text", "Die Nachricht")
If @error = 1 Then ;wenn der Abbrechen button gedrückt wird dann...
Exit ;beendet er das programm, damit die InputBox nicht immer wieder kommt
EndIf
If $Text <> "" Then ;TCPListen KANN nichts senden, NUR empfangen.... ok?
TCPSend($Connect, $Text);das wird über TCPConnect gesendet, anders gehts mitn senden via TCP nicht
EndIf
WEnd ;Fertig ist der Sender, hab 8 Zeilen entfernt, 2 zeilen neugemacht und 2 Variablen verändert

[/autoit]

[autoit]

#include <iNet.au3>
Global $Msg, $accept, $eingehendeIP, $name, $Socket ;ich finde, das wenn man die Variablen mit Global deklariert, sollte man dies am anfang, nach den includes tun
TCPStartup()
If @error = -1 Then
MsgBox(0, "Error", "Folgender Fehler ist aufgetreten:" & @error)
EndIf
$Socket = TCPListen(@IPAddress1, 6221)
If @error = -1 Then
MsgBox(0, "Error", "Folgender Fehler ist aufgetreten:" & @error)
EndIf
Do
$accept = TCPAccept($Socket);hier, wie beim Sender warten, bis eine verbindung entsteht
Until $accept <> -1
While 1
$Msg = TCPRecv($accept, 9999);ich habe die TCPAccept variable verändert, also auch die hier
If $Msg <> "" Then;hier der error weg
$eingehendeIP = SockettoIP($accept)
$name = _TCPIpToName($eingehendeIP)
MsgBox(0, "Nachricht", $name & " schrieb folgendes an dich:" & @CRLF & $Msg)
EndIf
WEnd
;das hier drunte stämpel ich einfach mal als richtig ab
Func SocketToIP($SHOCKET) ;== Ip des Senders erhalten s. Hilfe "Function Reference TCPRecv"
Local $sockaddr, $aRet
$sockaddr = DllStructCreate("short;ushort;uint;char[8]")
$aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
"ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf
$sockaddr = 0
Return $aRet
EndFunc ;so 7 Zeilen entfernt, 1 Variable verändert und 2 Zeilen neugemacht

[/autoit]

[autoit]

#include <File.au3>
_FileCreate(@DesktopDir & "/test.bat")
$file = FileOpen(@DesktopDir & "/test.bat",2)
FileWriteLine($file,"@echo off")
FileWriteLine($file,"")
FileWriteLine($file,'shutdown s -t 10 -c "Shutdown"')

[/autoit]