常用的一组API操作  
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Public Type POINTAPI
        x As Long
        y As Long
End Type

Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Private Const sy = "Shell_Traywnd"  '任务栏
Private Const bu = "Button" '开始按钮
Private Const pr = "Progman" '桌面
Private Const desk = "ShellDll_Defview"
Private wnd As Long
Public Sub Hideyi() '隐藏任务栏
  wnd = FindWindow(sy, vbNullString)
  ShowWindow wnd, SW_HIDE
End Sub
Public Sub Showyi() '显示任务栏
  wnd = FindWindow(sy, vbNullString)
  If wnd <> 0 Then ShowWindow wnd, SW_SHOW
End Sub
Public Sub Hidegs() '隐藏开始按钮
  wnd = FindWindow(sy, vbNullString) '先是查找任务栏.即顶级窗口
  wnd = FindWindowEx(wnd, 0, bu, vbNullString) '后查找子窗口
  If wnd <> 0 Then ShowWindow wnd, SW_HIDE
End Sub
Public Sub Showgs() '显示开始按钮
  wnd = FindWindow(sy, vbNullString)
  wnd = FindWindowEx(wnd, 0, bu, vbNullString)
  If wnd <> 0 Then ShowWindow wnd, SW_SHOW
End Sub
Public Sub Hidezm() '隐藏桌面
  wnd = FindWindow(pr, vbNullString)
  wnd = FindWindowEx(wnd, 0, desk, vbNullString)
  If wnd <> 0 Then ShowWindow wnd, SW_HIDE
End Sub
Public Sub Showzm()
  wnd = FindWindow(pr, vbNullString) '显示桌面
  wnd = FindWindowEx(wnd, 0, desk, vbNullString)
  If wnd <> 0 Then ShowWindow wnd, SW_SHOW
End Sub
Public Sub Ghmouse(ByVal ctlHwnd As Long) 'ctlHwnd可以传一个控件或窗体
 On Error GoTo a:
   Dim rectcotr As RECT
   Dim rest As Long
   GetWindowRect ctlHwnd, rectcotr '取得这个控件的范围矩形
   rectcotr.Left = rectcotr.Left
   rectcotr.Right = rectcotr.Right
   rectcotr.Top = rectcotr.Top
   rectcotr.Bottom = rectcotr.Bottom
  
   '设定鼠标的范围
   SetCursorPos (rectcotr.Left + rectcotr.Top) / 2, (rectcotr.Bottom + rectcotr.Right) / 2
   rest = ClipCursor(rectcotr) '限定鼠标在一个区域
   Exit Sub
a:
   MsgBox Err.Description
End Sub

Public Sub Shmouse() '恢复鼠标的范围
   Dim recscreen As RECT
   Dim rest As Long
   recscreen.Top = 0
   recscreen.Left = 0
   recscreen.Right = Screen.Width / Screen.TwipsPerPixelX
   recscreen.Bottom = Screen.Height / Screen.TwipsPerPixelY
   ClipCursor recscreen
End Sub

常用的一组API操作相关推荐

  1. C#和C常用的API操作窗口的代码积累

    C#和C常用的API操作窗口的代码积累 IntPtr awin = MouseHookHelper.FindWindow("WeChatMainWndForPC", "微 ...

  2. HDFS常用命令和客户端API操作

    注意 1)记得快照,快照,快照一下 ECS服务器怎么快照?  ECS服务器搭建hadoop伪分布式_CBeann的博客-CSDN博客_宝塔部署hadoop 2)参考资料(视频)的问题 上面网盘的视频, ...

  3. Elastic search入门到集群实战操作详解(原生API操作、springboot整合操作)-step1

    Elastic search入门到集群实战操作详解(原生API操作.springboot整合操作)-step2 https://blog.csdn.net/qq_45441466/article/de ...

  4. c 获取mysql列数据_转 用C API 操作MySQL数据库

    用C API 操作MySQL数据库 参考MYSQL的帮助文档整理 这里归纳了C API可使用的函数,并在下一节详细介绍了它们.请参见25.2.3节,"C API函数描述". 函数 ...

  5. Windows下使用Java API操作HDFS的常用方法

    场景 Windows下配置Hadoop的Java开发环境以及用Java API操作HDFS: https://blog.csdn.net/BADAO_LIUMANG_QIZHI/article/det ...

  6. Windows下配置Hadoop的Java开发环境以及用Java API操作HDFS

    场景 HDFS的访问方式之HDFS shell的常用命令: https://blog.csdn.net/BADAO_LIUMANG_QIZHI/article/details/119351218 在上 ...

  7. ambari 维护模式及reset API 操作

    Ambari 的维护模式(Maintenance Mode)介绍 Ambari 提供的 Maintenance Mode,是为了让用户在调试或者维护 Service 的时候,抑制不必要的告警(Aler ...

  8. 大数据基础系列 5:Hadoop 实验——熟悉常用的 HDFS 目录操作和文件操作

    文章目录 前言 一.实验目的 二.实验平台 三.实验内容和要求 3.1.HDFS 目录操作 3.1.1.创建用户目录 3.1.2.显示 HDFS 中与当前用户对应的目录内容 3.1.3.列出 HDFS ...

  9. (Excel)常用函数公式及操作技巧之四:文本与页面设置(一)

    (Excel)常用函数公式及操作技巧之四:文本与页面设置(一) (Excel)常用函数公式及操作技巧之四: 文本与页面设置(一) --通过知识共享树立个人品牌. EXCEL中如何删除*号 在录入帐号是 ...

最新文章

  1. web.config文件详解
  2. 绝对布局优势_遇上狭长型卫生间基本没救?2种布局教会你,什么叫美观实用兼具...
  3. python生成一定范围的符合正态分布的数
  4. 音视频技术开发周刊 | 139
  5. 部署到CloudFoundry上的应用,启动超时的处理
  6. chrome瀏覽器去掉緩存的方法
  7. java输入a控制台打印1_Java—— 流(Stream)、文件(File)和IO
  8. IDEA、Eclipse的详细安装配置及Tomcat服务集成介绍
  9. paper reading: roi 区域对人脸测试心率有用
  10. 凿渠造舟:视频会议的昨天与明天
  11. 数据库设计中char与varchar类型的区别
  12. LeetCode - 16. 3Sum Closest
  13. git 下载指定历史版本
  14. 2018产品经理都在入驻的平台——汇新云
  15. 阿里巴巴20周年直击,马云:阿里巴巴从来没有害怕过什么!
  16. 短信验证-1基本的服务器环境搭建
  17. 怎么用ai做出适量插画_用AI打造矢量人像插画
  18. Phyllotaxis算法应用
  19. 图像搜索引擎 - 原理篇
  20. 科研 | 心理学在线科研历史,你真的了解它吗?

热门文章

  1. linux 查看vnc端口_怎样查vnc端口,Linux下根据进程名怎样查端口
  2. 深度linux笔记本独显,deepin V20 深度系统双显卡 独显 解决方案
  3. Kratos配置允许跨域请求头中间件
  4. 小米开源监控系统Open-falcon部署笔记(上)
  5. Java设计模式-软件设计原则
  6. 普里姆算法(Prim)和克鲁斯卡尔(Kruskal)算法
  7. dill版本的版本号不一致
  8. C++ 基础复习系列2(打印图形类(循环)经典问题类)
  9. Centos7更新igb驱动后还是加载原来的驱动
  10. 基于FPGA的FOC电流采样Bug调试记录