【VB技巧】截取屏幕图像/片后画上鼠标位置

  • A+
所属分类:lcx

    VB 截取屏幕图像后画上鼠标位置,VB 截取屏幕图像画上鼠标位置,VB 截取屏幕图像后画上鼠标,VB 截取屏幕图像后鼠标位置,VB 截取屏幕图片后画上鼠标位置,VB 截取屏幕图片画上鼠标位置,VB 截取屏幕图片后画上鼠标,VB 截取屏幕图片后鼠标位置,VB 截取屏幕图片后画鼠标,VB 截取屏幕图片画鼠标,VB 截取屏幕图像后画鼠标,VB 截取屏幕图像画鼠标,VB 截取屏幕后画鼠标,VB 截屏画鼠标,VB 截屏鼠标,VB 截屏。

VB 截取屏幕图像/片后画上鼠标位置:

Type POINTAPI
    x     As Long
    y     As Long
End Type
Type ICONINFO
    fIcon As Long
    xHotspot As Long
    yHotspot As Long
    hbmMask As Long
    hbmColor As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function GetIconInfo Lib "user32" (ByVal hIcon As Long, piconinfo As ICONINFO) As Long

Dim pic As Picture, point As POINTAPI, info As ICONINFO
Set pic = LoadResPicture(101, 2)                                                '载入光标文件
GetCursorPos point                                                              '取得鼠标的位置
GetIconInfo pic.Handle, info                                                    '取得鼠标的HotSpot
picture1.PaintPicture pic(point.x - info.xHotspot) * 15, (point.y - info.yHotspot) * 15 '描绘鼠标

文章来源于lcx.cc:【VB技巧】截取屏幕图像/片后画上鼠标位置

相关推荐: 社工思路讨论:如何根据蛛丝马迹来找到具体的人或者物?

社工思路讨论:如何根据蛛丝马迹来找到具体的人或者物? Stefan | 2013-12-03 16:13 前些日子看到核总博客里面讨论的一些 熊猫请喝茶的技术手段,但是咱们平头老百姓一个,没那么大权限调用那么多资源。根据现实生活中的几个事情,希望大家都来参与聊…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: