getcursorpos.via

来自「一个用VB写的很好的编译器,功能超好,不过就是代码有点多,是进一步学习编译的好」· 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.