Blue Screen nach beenden des Scrips

Rene_RNI

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

**autoBert**

Hallo Rene_RNI,

in der Hoffnung dass du ein eigenes Spiel ansteuerst folgender Tipp: der Fehler liegt warscheins in der UDF bzw. der dort angesprochenen DLL. Hast du ein 64-Bitsystem?

mfg autoBert

Rene_RNI

Hallo Autobert,

das war auch meine Vermutung, aber ich habe es unter beidem versucht, Unter W2k8(64bit) und unter WinXP(32bit), bei beidem der gleiche fehler.

veronesi

Das Einzige, was mir auffällt ist, dass Du keine Abbruchbedingung für die While Schleife hast. Dadurch wird die Funktion _CloseCOMPort nie ausgeführt. Und in dieser wird eben auch am Schluss die Kernel32.dll wieder geschlossen......

Aber abgesehen davon: Ich konnte mit Deinem Script auf keinem Rechner hier (XP x86 / XP x64 / W7x86 / W7x64 / Server 2008 R2) einen Bluescreen provozieren. - Weder wenn ich die von Dir angehängte (etwas ältere) UDF verwende, noch wenn ich meine eigene (etwas erweiterte) verwende.

Ich habe aber auch keine Textfile aus denen er etwas lesen könnte.
Wenn Du die Textfiles noch anhängst, kann ich es mal mit diesen laufen lassen. Aber ich denke, dass wird auch klappen.....

Edit
Was ich mir noch vorstellen könnte ist, dass die Karte etwas an den PC zurücksendet. Und ich habe schon Geräte erlebt, welche ganz vermurkste Kommandos senden können, welche den PC zum Absturz bringen. Das waren dann aber Kommandos, die zum PC HINEIN kommen!

Rene_RNI

Hallo, gier die Dateien die gelesen werden,

kannst mir ja wenn du willst mal deine UDF rein hängen, dann probier ich das mal

Wie mach ich das am besten, dass ich die schleife beende??

Ich habe noch ein anderes Problem, vieleicht kannst du mir da auch helfen

Ich habe auch den zustand 2 und 3 in den files, bei diesen soll das Relais (blinken)

Das blinken an sich kann ich mit einer while schleife oder mit einer Do schleifen machen, blos wie schaffe ich es dass das Script nicht in der Schleife gesthängt und die anderen Dateien weiter bearbeitet.

Gruß Rene

Fliwatt

He Rene,
ich habe deine beiden Dateien in den richtigen Ordner gepackt und das Programm zeigt mir nur den Error "3" an und dann schließt es sich.
Kein Bluescreen
Mfg Fliwatt

Rene_RNI

Hi Fliwatt, das liegt warscheinlich daran, dass du keinen Com3 hast, der sagt dass er den Port nicht öffnen kann

Fliwatt

Danke, ich bin echt zu blöd zum... Na ja
Was muss ich machen um das Script zum laufen zu bekommen, also nachzusehen wie es mit meinem Computer verfährt (Bluescreen)?

veronesi

Auch mit den Dateien hier kein Bluescreen. Funktioniert wie designt!
Das mit dem Blinken:
Wenn Du den entsprechenden "Blinkbefehl" erhältst, dann setze ein Flag (Variable: $fBlink1s = True)
Und in deiner Hauptschleife frage jeweils immer das Flag ab. Wenn es auf True steht und seit der letzten Abfrage (Timer setzen!) mindestens die Blinkzeit vergangen ist, dann kannst Du den Status der LED "toggeln"!

Ich programmiere Dir das nun extra nicht pfannenfertig, da dies einfach ist und eine gute Übung darstellt.

Rene_RNI

Fliwatt, das script geht nur wenn du einen Comport am Rechner hast, dann musst du die Variable $Com nur richtig setzten

Rene_RNI

Danke Veronesi, das verstehe ich jetzt nicht ganz wie du das meinst,
also die Variable (Flag) setzen ist klar, in der Hauptschleiche abfragen ist auch klar, aber wie geht das toggle´n ohne in der schleife hängen zu bleiben...

Rene_RNI

zusätzlich noch die frage, wie beende ich das script richtig, so dass auch der comport geschlossen wird??? ich hab da nix dazu gefunden...

Danke schon mal

stayawayknight

Hallo,

in der UDF befindet sich folgende Funktion:

[autoit]

;====================================================================================
; Function Name: _CloseCOMPort($CommSerialPort)
; Description: Closes serial port
; Parameters: $CommSerialPort - value returned by _OpenComm
; Returns: on success, returns 1
; on failure returns -1 and sets @error to 1
; Note:
;====================================================================================
Func _CloseCOMPort($CommSerialPort)
Local $closeerr = DllCall($commDll, "int", "CloseHandle", "hwnd", $CommSerialPort)
DllClose($commDll)
If @error Then Return SetError(1, 1, -1)
Return ($closeerr[0])
EndFunc ;==>_CloseCOMPort

[/autoit]

Gruß stay

Rene_RNI

Hi stayawayknight,

das ist mir klar, die habe ich auch im script ganz ans ende gebaut, aber wie sage ich dem Script das er das auch machen soll wenn es einfach beendet wird.

stayawayknight

Hi,

mit

[autoit]

OnAutoItExitRegister

[/autoit]

solltest du dir eine entsprechende Funktion schreiben können.

Gruß stay

Rene_RNI

Anscheinend bin ich da zu doof dafür

habe an anfang des scripts

Code

OnAutoItExitRegister("Ende")

das hier, und am ende des Scripts

Code

Func Ende()
    MsgBox(64, "Exit Ergebnis 1", 'Exit Nachricht von MyTestFunc()')
	FileClose($DF0)
	FileClose($DF1)
	_CloseCOMPort($SendPort)
EndFunc

das hier, da ist aber irgend etwas falsch oder, denn es geht nicht

Rene_RNI

Habe es hinbekommen, nun habe ich auch keinen bluescreen mehr.....

Rene_RNI

Also gut, nun habe ich das Blinken eingebaut, aber irgendwie habe ich da einen fehler,
sobald ich pauf Player A (DF0.txt) den wert 2 habe, wird DF1 nicht mehr bearbeitet.

Wie könnte ich das lösen??

hat jemand eine idee??

hier mein script:

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(1)&Chr(255)&Chr(253))
Global Const $Alle_A = String(Chr(3)&Chr(1)&Chr(0)&Chr(2))
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)
Sleep(500)
_SendSerialString($SendPort, $Alle_E)
Sleep(1500)
_SendSerialString($SendPort, $Alle_A)
Sleep(500)


OnAutoItExitRegister("Ende")


While 1
	;Player1
	$DF0 = FileOpen("C:\DF_0.txt",0)
	$DF00 = FileReadLine($DF0,1)


	If $DF00 = "1" Then ;Wiedergabe
		_SendSerialString($SendPort, $Rel_1_E)




	ElseIf $DF00 = "0" Then ;Stop
		_SendSerialString($SendPort, $Rel_1_A)


	ElseIf $DF00 = "2" Then
		Rel_1_T()


	EndIf
	FileClose($DF0)


	;Player2
	$DF1 = FileOpen("C:\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
Func Ende()
	FileClose($DF0)
	FileClose($DF1)
	_CloseCOMPort($SendPort)
EndFunc


Func Rel_1_T()
	Do
		$DF0 = FileOpen("C:\DF_0.txt",0)
		$DF00 = FileReadLine($DF0,1)
		_SendSerialString($SendPort, $Rel_1_T)
		Sleep(500)
	Until $DF00 < 2 Or $DF00 > 2
EndFunc

Alles anzeigen