cursor.via

来自「一个用VB写的很好的编译器,功能超好,不过就是代码有点多,是进一步学习编译的好」· VIA 代码 · 共 28 行

// Cursor.lnl

application PE GUI;

include "win32a.inc";

type POINTAPI {
    dword x;
    dword y;
}

POINTAPI p; string buffer;

entry

    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.