VBSCall Call GetScreenResolution(cx,cy)
If cx<>1024
    MessageBox "为了脚本正常运行"&Vbcrlf&"建议您修改分辨率"&Vbcrlf&"按确定修改,按ESC直接使用脚本"
    GetLastKey q
    If q=27
        Goto 分辩率
    Else 
        //下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)
        Plugin Sys.SetSc(1024,768,32)
        Goto 分辩率
    EndIf 
Else 
    If cy<>768
        MessageBox "为了脚本正常运行"&Vbcrlf&"建议您修改分辨率"&Vbcrlf&"按确定修改,按ESC直接使用脚本"
        GetLastKey o
        If o=27
            Goto 分辩率
        Else 
            //下面这句是设置屏幕分辨率(1024×768)/颜色质量(32位)
            Plugin Sys.SetSc(1024,768,32)
            Goto 分辩率
        EndIf 
    Else 
    EndIf 
EndIf 
Rem 分辩率