Beiträge von Penner

#include <MsgBoxConstants.au3>

load()
func load()
local $serverip="xxx.xxx.xxx.xxx",$port=300 ;server ip einfügen
Global $socket
TCPStartup()
Do
$socket=TCPConnect ($Serverip,$port)
sleep(100)
Until $socket<>-1 and $socket<>0
main()
EndFunc

func main()
local $x=1
$F1 = GUICreate("F1", 478, 94,-1,-1)
$B1 = GUICtrlCreateButton("Aufnahme Starten", 8, 8, 169, 73)
GUICtrlSetFont(-1, 12, 400, 0, "MS Reference Sans Serif")
$B2 = GUICtrlCreateButton("Aufnahme Stoppen", 184, 8, 169, 73)
GUICtrlSetFont(-1, 12, 400, 0, "MS Reference Sans Serif")
$B3 = GUICtrlCreateButton("Exit", 360, 8, 105, 73)
GUICtrlSetFont(-1, 12, 400, 0, "MS Reference Sans Serif")
GUISetState(@SW_SHOW)
Do
$msg = GUIGetMsg()
if $msg=$b3 Then
$x=0
EndIf
if $msg=$b2 Then
TCPSend($socket,"stop")
EndIf
if $msg=$b1 Then
TCPSend($socket,"start")
EndIf
until $x<>1
TCPSend($socket,"end")
GUIDelete($F1)
sleep (500)
TCPShutdown()
Exit
EndFunc

load()
Func load()
global $IP = @IPAddress1,$port=300
TCPStartup()
main()
EndFunc

func main()
local $x=1,$lsocket="",$socket="",$rec=""
$lsocket=TCPListen($IP,$port)
Do
$socket=TCPAccept($lSocket)
until $socket<>-1
Do
$rec=TCPRecv($socket,100)
if $rec="start" Then
send ("{f8}")
$rec=""
EndIf
if $rec="stop" Then
send ("{f9}")
$rec=""
EndIf
if $rec="end" Then
$x=0
EndIf
$rec=""
Until $x<>1 or @error
TCPShutdown()
Load()
EndFunc

ts_start()
Func ts_start()
WinActivate ("TeamSpeak")
sleep(5000)
send("{SHIFTDOWN}")
send("{CTRLDOWN}")
Send("R")
send("{SHIFTUP}")
send("{CTRLUP}")
Sleep(2000)
send("{ENTER}")
EndFunc


Func ts_stop()
WinActivate ("TeamSpeak")
send("{SHIFTDOWN}")
send("{CTRLDOWN}")
Send("T")
send("{SHIFTUP}")
send("{CTRLUP}")
EndFunc

#include-once
#include <CommInterface.au3>
#include <ComUDF.au3>
#include <relaisdll.au3> ; Eigene Lib

Func find_Relais()
local $er
$er=Find_relais1()
if $er="0" Then
;$er=find_relais2()
;if $er=1 Then
;Return 1
;relaistyp=2
;Else
return 0
;EndIf
Else
$relaystyp=1
return 1
EndIf
EndFunc

Func relais_on()
if $hall<>0 Then
if $relaystyp=1 Then
Return relays1_on()
EndIf
if $relaystyp=2 then
Return relays2_on()
EndIf
Else
return 0
EndIf
EndFunc

func relais_off()
if $hall<>0 Then
if $relaystyp=1 Then
relays1_off()
EndIf
if $relaystyp=2 then
relais2_off()
EndIf
EndIf
EndFunc

Func relais_end()
if $hall<>0 Then
if $relaystyp=1 Then
if $usbport<>"0" Then
_CommAPI_ClosePort($usbport)
EndIf
EndIf
if $relaystyp=2 then
_ComClosePort($usbport)
FileDelete(@ScriptDir&"\"&"CP210xRuntime.dll")
EndIf
EndIf
EndFunc

Func Find_Relais1()
local $p1=0,$p2=256,$p3=0,$p4=0
if $usbport=0 Then
Do
$p1=$p1+1
$p4 = _CommAPI_OpenCOMPort($p1, 19200, 0, 8, 1)
If @error Then
Else
$p3=1
EndIf
if $p2=$p1 Then
$p3=-1
EndIf
until $p3<>0
if $p3=-1 Then
return 0
debug("Error Relais nicht gefunden")
Else
$usbport=$p4
return 1
debug("Relais erkannt")
EndIf
EndIf
EndFunc

Func Relais1_off();Nicht reichelt
if $hall=1 or $hall=2 Then
_CommAPI_TransmitString($usbport, "relay on 0" & @CR)
sleep (600)
_CommAPI_TransmitString($usbport, "relay off 0" & @CR)
EndIf
EndFunc

Func Relais1_on();nicht reichelt
if $hall=1 Then
_CommAPI_TransmitString($usbport, "relay on 0" & @CR)
sleep (600)
_CommAPI_TransmitString($usbport, "relay off 0" & @CR)
return 0
EndIf
if $hall=2 Then
$bpms=IniRead ($bpsini,"bpms",$mp3id,500)
_CommAPI_TransmitString($usbport, "relay on 0" & @CR)
Sleep (600)
_CommAPI_TransmitString($usbport, "relay off 0" & @CR)
$c2=0
Do
$c2=$c2+1
_CommAPI_TransmitString($usbport, "relay on 1" & @CR)
Sleep (100)
_CommAPI_TransmitString($usbport, "relay off 1" & @CR)
$sle=$bpms-100
Sleep($sle)
Until $c2=3
return (600+($bpms*3))
EndIf
EndFunc

Func Find_relais2()
;$usbport=_ComOpenPort("COM3 baud=57600 parity=n data=8 stop=1")
;CP210xRuntime.dll
EndFunc

Func Relais2_off()
local $dllh=DllOpen(@ScriptDir&"\"&"CP210xRuntime.dll")
if @error Then
debug("Error Dll open")
debug(@error)
say("Error Relais")
EndIf
if $hall=1 or $hall=2 Then
DllCall ($dllh,"INT","CP210xRT_WriteLatch","HANDLE",$usbport,"WORD","0x0001","WORD","0x0000")
sleep(600)
DllCall ($dllh,"INT","CP210xRT_WriteLatch","HANDLE",$usbport,"WORD","0x0001","WORD","0x0001")
EndIf
DllClose($dllh)
EndFunc

Func Relais2_on()
local $dllh=DllOpen(@ScriptDir&"\"&"CP210xRuntime.dll")
if @error Then
debug("Error Dll open")
debug(@error)
say("Error Relais")
EndIf
if $hall=1 Then
DllCall ($dllh,"INT","CP210xRT_WriteLatch","HANDLE",$usbport,"WORD","0x0001","WORD","0x0000")
sleep (600)
DllCall ($dllh,"INT","CP210xRT_WriteLatch","HANDLE",$usbport,"WORD","0x0001","WORD","0x0001")
return 0
EndIf
if $hall=2 Then
$bpms=IniRead ($bpsini,"bpms",$mp3id,500)
DllCall ($dllh,"INT","CP210xRT_WriteLatch","HANDLE",$usbport,"WORD","0x0001","WORD","0x0000")
sleep (600)
DllCall ($dllh,"INT","CP210xRT_WriteLatch","HANDLE",$usbport,"WORD","0x0001","WORD","0x0001")
$c2=0
Do
$c2=$c2+1
DllCall ($dllh,"INT","CP210xRT_WriteLatch","HANDLE",$usbport,"WORD","0x0002","WORD","0x0000")
Sleep (100)
DllCall ($dllh,"INT","CP210xRT_WriteLatch","HANDLE",$usbport,"WORD","0x0002","WORD","0x0002")
$sle=$bpms-100
Sleep($sle)
Until $c2=3
return (600+($bpms*3))
EndIf
DllClose($dllh)
EndFunc