常用的一组API操作

常用的一组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操作相关推荐

C#和C常用的API操作窗口的代码积累
C#和C常用的API操作窗口的代码积累 IntPtr awin = MouseHookHelper.FindWindow("WeChatMainWndForPC", "微 ...
HDFS常用命令和客户端API操作
注意 1)记得快照,快照,快照一下 ECS服务器怎么快照? ECS服务器搭建hadoop伪分布式_CBeann的博客-CSDN博客_宝塔部署hadoop 2)参考资料(视频)的问题上面网盘的视频, ...
Elastic search入门到集群实战操作详解(原生API操作、springboot整合操作)-step1
Elastic search入门到集群实战操作详解(原生API操作.springboot整合操作)-step2 https://blog.csdn.net/qq_45441466/article/de ...
c 获取mysql列数据_转用C API 操作MySQL数据库
用C API 操作MySQL数据库参考MYSQL的帮助文档整理这里归纳了C API可使用的函数,并在下一节详细介绍了它们.请参见25.2.3节,"C API函数描述". 函数 ...
Windows下使用Java API操作HDFS的常用方法
场景 Windows下配置Hadoop的Java开发环境以及用Java API操作HDFS: https://blog.csdn.net/BADAO_LIUMANG_QIZHI/article/det ...
Windows下配置Hadoop的Java开发环境以及用Java API操作HDFS
场景 HDFS的访问方式之HDFS shell的常用命令: https://blog.csdn.net/BADAO_LIUMANG_QIZHI/article/details/119351218 在上 ...
ambari 维护模式及reset API 操作
Ambari 的维护模式(Maintenance Mode)介绍 Ambari 提供的 Maintenance Mode,是为了让用户在调试或者维护 Service 的时候,抑制不必要的告警(Aler ...
大数据基础系列 5：Hadoop 实验——熟悉常用的 HDFS 目录操作和文件操作
文章目录前言一.实验目的二.实验平台三.实验内容和要求 3.1.HDFS 目录操作 3.1.1.创建用户目录 3.1.2.显示 HDFS 中与当前用户对应的目录内容 3.1.3.列出 HDFS ...
(Excel)常用函数公式及操作技巧之四：文本与页面设置(一)
(Excel)常用函数公式及操作技巧之四:文本与页面设置(一) (Excel)常用函数公式及操作技巧之四: 文本与页面设置(一) --通过知识共享树立个人品牌. EXCEL中如何删除*号在录入帐号是 ...

常用的一组API操作

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

最新文章

热门文章