but this works perfectly!!!
Code: Select all
;copyright jonathanscottjamesthegreat
x:=1,y:=1
Gui,1: +LastFound +AlwaysOnTop
GuiHwnd := WinExist()
Gui,1: Show , H300 W1020
Gui,1: +Resize
hDC := DllCall("GetDC", UInt, GuiHwnd)
hCurrPen1 := DllCall("CreatePen", UInt, 0, UInt, 1, UInt, 0xd8e9EC)
hCurrPen2 := DllCall("CreatePen", UInt, 0, UInt, 1, UInt, 0x008800)
DrawLine:
x:=x+1-1008*(x>1009)
y:=y+1-257*(y>259)
DllCall("SelectObject", UInt,hdc, UInt,hCurrPen1)
DllCall("gdi32.dll\MoveToEx", UInt, hdc, Uint,x, Uint, 1, Uint, 0 )
DllCall("gdi32.dll\LineTo", UInt,hdc, Uint,x, Uint, 261, Uint, 0 )
DllCall("gdi32.dll\MoveToEx", UInt, hdc, Uint,Old_x, Uint, Old_y, Uint, 0 )
DllCall("SelectObject", UInt,hdc, UInt,hCurrPen2)
DllCall("gdi32.dll\LineTo", UInt,hdc,Uint,x,Uint,y)
Old_x:=x,Old_y:=y
goto DrawLine
esc::
GuiClose:
DllCall("DeleteObject", UInt,hCurrPen1)
DllCall("DeleteObject", UInt,hCurrPen2)
DllCall("ReleaseDC", UInt, 0, UInt, hDC)
exitapp