在VB中调用API函数动态改变及恢复屏幕设置