Code: Select all
#Persistent
If DllCall("LoadLibrary", "str", "PacDrive32.dll")
If DllCall("PacDrive32.dll\PacInitialize")
CoordMode, Pixel
Sub1 := A_TickCount, targetColor := "0xC0C0C0", minTime := 2000
SetTimer, LED1, 100
LED1:
PixelGetColor, thisColor, -574, 327
If (thisColor != targetColor)
Sub1 := A_TickCount
If (A_TickCount - Sub1 > minTime)
DllCall("PacDrive32.dll\PacSetLEDState",Int,0,Int,9,Int,0)
else
DllCall("PacDrive32.dll\PacSetLEDState",Int,0,Int,9,Int,1)
CoordMode, Pixel
Sub2 := A_TickCount, targetColor := "0xC0C0C0", minTime := 2000
SetTimer, LED2, 100
LED2:
PixelGetColor, thisColor, -652, 327
If (thisColor != targetColor)
Sub2 := A_TickCount
If (A_TickCount - Sub2 > minTime)
DllCall("PacDrive32.dll\PacSetLEDState",Int,0,Int,8,Int,0)
else
DllCall("PacDrive32.dll\PacSetLEDState",Int,0,Int,8,Int,1)