cursor.via

来自「用VB6写的真正的32位高级语言可视程序编译器」· 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.