常用的一组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. android make 没反应
  2. 流量枯竭的时代,小程序创下“神话”,打造全新商业生态!
  3. React Native 模仿网易云音乐手机客户端,兼容安卓和IOS两个平台
  4. mysql 视图怎么调用方法_mysql 视图的使用
  5. 史上最全的Visual Studio Code安装C/C++环境,若不行头砍给你。
  6. PhotoKit 照片库的管理-获取图像
  7. 火箭技术术语_仿真优化火箭发动机 3D 打印制造工艺
  8. libjpeg-turbo(1)
  9. Silverlight实例教程 - 理解Navigation导航框架Frame类
  10. 苹果电脑投屏到电视_最全小米电视投屏官方教程公布:手机、PC、APP通吃
  11. 从腾讯入职到离职,我仅用了三周:做大数据的同事看不起做报表的
  12. Atiti  attilax主要成果与解决方案与案例rsm版 v2
  13. crontab使用方法
  14. ArcGIS中KML/KMZ转为.shp文件
  15. Android权限设置引导
  16. 驱动精灵、人生限速曲线救国
  17. 【程序】Xilinx FPGA将DDR3内存转换为W25Q256的SPI接口,供STM32单片机调用,产生容量为256MB的USB U盘设备
  18. 百度地图实战Android开发视频教程
  19. 在未知社交网络中最大化影响力(论文翻译)
  20. 2023 年 IEEE Fellow 名单公布!唐立新、姬水旺、宗成庆、朱军、宋厚冰等入选

热门文章

  1. Qt做的俄罗斯方块游戏
  2. 新闻 | Hadoop开源技术领域的行业变局
  3. 计算机四级理论知识试卷答案,计算机程序设计员四级理论知识试卷
  4. OC Extension QRCodeUtil(二维码转换封装)(源码)
  5. Unity3d爬坑记— The name 'PostEffectsBase' does not denote a valid type ('not found').
  6. 【小白入门板绘设计】教你学习原画新手如何设计出的好看的设计感画面!
  7. Matthew20211117
  8. 奔驰c语言控制系统使用方法,奔驰主动车身控制ABC系统技术资料(三)
  9. React实例 列表组件
  10. IBM X服务器告警面板指示灯说明