;funktioniert nur, wenn skript mit Auto It V3.1 in exe konvertiert wird... keiner weis warum ...
;ansonsten schwerer Ausnahmefehler
$pfad = @WorkingDir&"\"
If FileExists( $pfad&"LPT1_von_PC_ausgeben.ini") Then
iniexists()
Else
MsgBox (4,"LPT1_von_PC_ausgeben","kann "& $pfad&"LPT1_von_PC_ausgeben.ini"&" nicht finden -- wird erstellt")
iniWrite( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "255 ;hier den anzusteuernden Port eintragen")
iniWrite( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "schleife", "1 ; 1 für Ja -- 0 für NEIN")
exit
EndIf
Exit
;-------------
Func iniexists()
$schleife = IniRead( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "schleife", "1")
If $schleife = 1 Then
schleife()
ElseIf $schleife = 0 Then
nur_ein_mal()
Else
MsgBox(4,"LPT1_von_PC_ausgeben","Bitte in " & $pfad&"LPT1_von_PC_ausgeben.ini "&" schleife eintragen")
Exit
EndIf
Exit
EndFunc
;---------------------
Func nur_ein_mal()
$port = IniRead($pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "0")
DllCall("InpOut32.dll","short","Out32","short",0x378,"short",$port,"short",0)
EXIT
EndFunc
;----------------------
Func schleife()
While 1
$port = IniRead($pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "0")
DllCall("InpOut32.dll","short","Out32","short",0x378,"short",$port,"short",0)
WEnd
EndFunc
Exit