getcursorpos.via

来自「用VB6写的真正的32位高级语言可视程序编译器」· VIA 代码 · 共 25 行

// GetCursorPos.lnl

application PE GUI;

include "Windows.inc";

type POINTAPI {
	dword x;
	dword y;
}

POINTAPI p;

entry
    string buffer;

    GetCursorPos(p); Format(buffer,"x=%d : y=%d",p.x,p.y);
    MessageBox(0,buffer,"Current Position",$20);

    if (MessageBox(0,"Do you wan't to apply new coordinates?",
                   "New Position",$24)=IDYES) {
        p.x = 200; p.y = 200; SetCursorPos(p.x,p.y);
    }
end.