这款时钟我看不懂，你试试

Gui, font, s10, Consolas
Gui, Add, Text, vDisplay, % MakeDisplay()
Gui, +ToolWindow +E0x40000 +LastFound
Gui, Show,, BinClock
SetTimer, UpdateDisplay, 1000
return

UpdateDisplay:
GuiControl, Text, Display, % MakeDisplay()
return

GuiClose:
ExitApp
return

MakeDisplay()
{
	FormatTime, T, A_Now, HHmmss
	StringSplit, T, T
	T1 := Bin(T1, 2)
	T2 := Bin(T2, 4)
	T3 := Bin(T3, 3)
	T4 := Bin(T4, 4)
	T5 := Bin(T5, 3)
	T6 := Bin(T6, 4)
	StringSplit, T1, T1
	StringSplit, T2, T2
	StringSplit, T3, T3
	StringSplit, T4, T4
	StringSplit, T5, T5
	StringSplit, T6, T6
	display =
(
 %T21%  %T41%  %T61%
 %T22% %T31%%T42% %T51%%T62%
%T11%%T23% %T32%%T43% %T52%%T63%
%T12%%T24% %T33%%T44% %T53%%T64%
)
	return " " display
}

FixBin(Bin, Len, Fill=0)
{
	if (FillNum := Len - StrLen(Bin))
	{
		Loop, %FillNum%
			Fills .= Fill
		Bin := Fills . Bin
	}
	return Bin
}

;Code from http://www.autohotkey.com/community/viewtopic.php?t=54120
Bin(x, Len=0){
	while x
		r:=1&x r,x>>=1
	return FixBin((r ? r : 0), Len)
}

Dec(x){
	b:=StrLen(x),r:=0
	loop,parse,x
		r|=A_LoopField<<--b
	return r
}