Hallo Leute,
Ich habe folgendes Script, nach dem beenden bekomme ich auf jedem rechner einen Bluescreen, hat da jemand evtl eine Idee?
Code
#include "Func_Serial.au3"
;Alle Konstanten müssen angepasst werden!
;Gemäss Spezifikationen der Karte!
Global Const $ComPort = 3
Global Const $Baudrate = 19200
Global Const $Bits = 8
Global Const $Parity = 0
Global Const $Stop = 0
Global Const $Rts = 1
;A= Aus, E= Ein, T= Toggle
Global Const $Init = String(Chr(1)&Chr(1)&Chr(1)&Chr(1))
Global Const $Alle_E = String(Chr(3)&Chr(0)&Chr(255)&Chr(252))
Global Const $Alle_A = String(Chr(3)&Chr(0)&Chr(0)&Chr(3))
Global Const $Rel_1_E = String(Chr(6)&Chr(1)&Chr(1)&Chr(6))
Global Const $Rel_1_A = String(Chr(7)&Chr(1)&Chr(1)&Chr(7))
Global Const $Rel_1_T = String(Chr(8)&Chr(1)&Chr(1)&Chr(8))
Global Const $Rel_2_E = String(Chr(6)&Chr(1)&Chr(2)&Chr(5))
Global Const $Rel_2_A = String(Chr(7)&Chr(1)&Chr(2)&Chr(4))
Global Const $Rel_2_T = String(Chr(8)&Chr(1)&Chr(2)&Chr(11))
Local $SendPort = _OpenCOMPort($ComPort, $Baudrate, $Bits, $Parity, $Stop, $Rts)
if $SendPort = -1 Then
MsgBox(16, "FEHLER", "Schnittstelle Com"+$ComPort+" konnte nicht geöffnet werden!")
Exit
EndIf
_SendSerialString($SendPort, $Init)
_SendSerialString($SendPort, $Alle_E)
Sleep(500)
_SendSerialString($SendPort, $Alle_A)
Sleep(500)
While 1
;Player1
$DF0 = FileOpen("C:\LPT_Out\DF_0.txt",0)
$DF00 = FileReadLine($DF0,1)
If $DF00 = "1" Then
_SendSerialString($SendPort, $Rel_1_E)
ElseIf $DF00 = "0" Then
_SendSerialString($SendPort, $Rel_1_A)
EndIf
FileClose($DF0)
;Player2
$DF1 = FileOpen("C:\LPT_Out\DF_1.txt",0)
$DF01 = FileReadLine($DF1,1)
If $DF01 = "1" Then
_SendSerialString($SendPort, $Rel_2_E)
ElseIf $DF01 = "0" Then
_SendSerialString($SendPort, $Rel_2_A)
EndIf
FileClose($DF1)
WEnd
FileClose($DF0)
FileClose($DF1)
_CloseCOMPort($SendPort)
Alles anzeigen
Als Anhang noch die UDF für den Com Anschluss.....
Danke schon mal für eure hilfe
Rene