逆向大漠插件/用VB6.0实现后台鼠标移动和后台鼠标左键点击

这篇具有很好参考价值的文章主要介绍了逆向大漠插件/用VB6.0实现后台鼠标移动和后台鼠标左键点击。希望对大家有所帮助。如果存在错误或未考虑完全的地方,请大家不吝赐教,您也可以点击"举报违法"按钮提交疑问。

自动化设计软件,在一款做门的设计软件CypCut6.3 上实现了自动化勾选了 复选框。一切都是基于后台的。

大漠插件鼠标相对移动,计算机外设

Private Const GW_CHILD = 5
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDNEXT = 2
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long  '发送消息,用来关闭指定程bai序


 Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

 Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

  Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  
  Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  
    
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Const WM_GETTEXT = &HD&
    Private Const WM_GETTEXTLENGTH = &HE&
    
    Public Const WM_SETTEXT = &HC& '设置窗体的Caption
    
    
    Private Const WM_LBUTTONDOWN = &H201
    Private Const WM_LBUTTONUP = &H202
    Private Const VK_CONTROL = &H11
    Private Const VK_SHIFT = &H10
    Private Const VK_RETURN = &HD
    Private Const VK_1 = &H31
    Private Const WM_KEYDOWN = &H100
    Private Const WM_KEYUP = &H101
    Private Const WM_MOUSEMOVE = &H200
    Private Const WM_ACTIVATE = 6
    Private Const WM_SETFOCUS = 7
    Private Const WM_KILLFOCUS = 8
    
    Private Const WM_NCHITTEST = &H84&
    
    Private Const MK_LBUTTON = 1 '鼠标左键KEY
    Private Const MK_RBUTTON = 2 ' 鼠标右键KEY

  

'模拟鼠标后台点击
  Private Function SendClick(hwnd As Long, mX As Long, mY As Long)

    '发送点击消息

    Dim I As Long

         PostMessage hwnd, WM_MOUSEMOVE, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000 '模拟鼠标消息移动

        PostMessage hwnd, WM_LBUTTONDOWN, MK_LBUTTON, (mX And &HFFFF) + (mY And &HFFFF) * &H10000 '模拟鼠标左键点击

        PostMessage hwnd, WM_LBUTTONUP, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000 '模拟鼠标右键点击

End Function

VB技术研发群 214016721文章来源地址https://www.toymoban.com/news/detail-725371.html

到了这里,关于逆向大漠插件/用VB6.0实现后台鼠标移动和后台鼠标左键点击的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处: 如若内容造成侵权/违法违规/事实不符,请点击违法举报进行投诉反馈,一经查实,立即删除!

领支付宝红包 赞助服务器费用

相关文章

  • 【VB6|第19期】vb6通过COM组件操作Excel

    日期:2023年7月3日 作者:Commas 签名:(ง •_•)ง 积跬步以致千里,积小流以成江海…… 注释:如果您觉得 有所帮助 ,帮忙 点个赞 ,也可以 关注我 ,我们一起成长;如果有不对的地方,还望各位大佬不吝赐教,谢谢^ - ^ 1.01 365 = 37.7834;0.99 365 = 0.0255 1.02 365 = 1377.4083;0.98

    2024年02月12日
    浏览(44)
  • PyQt5下界面设计, 无边框加阴影界面, 鼠标左键移动事件

            本人小白, 网罗各个网页与资源学习总结的内容, 设置界面无边框且留有阴影, 且鼠标左键可以拖动界面的方法.         首先我们寻找一个模板进行学习演示, 例如腾讯会议的界面:         本人会仿照这个界面进行演示说明, 包括各种样式(你看到就是赚到)      

    2023年04月09日
    浏览(43)
  • VB6.0生成二维条码的方法

    采用Microsoft Visual Basic 6.0调用EnCodePdf.dll和Wcomp.dll实现图形压缩与PDF417条码编制,先将EnCodePdf.dll、Wcomp.dll拷贝至工程文件目录下,再在VB中申明以下接口程序,按照以下指南操作即可。( Qr_Code条码调用也类似,只需将’PDF’改成’Qr’,引用EnCodeQr.dll )  { 参考项目源码下载:

    2024年02月10日
    浏览(51)
  • VB.NET通过VB6 ActiveX DLL调用PowerBasic及FreeBasic动态库

    前面说的Delphi通过Activex DLL同时调用PowerBasic和FreeBasic写的DLL,是在WINDOWS基础平台上完成的。 而 .NET平台是架在WINDOWS基础平台之上的,它的上面VB.NET或C#等开发的APP程序,下面写一下用VB.NET,通过VB6注册的Activex DLL公共对象COM,调用PowerBasic和FreeBasic写的DLL实现,核心功能是MK

    2024年02月11日
    浏览(47)
  • JavaScript与Swift的异同,python像vb6

     其实很多主流的编程语言都是大同小异,魔改了一下罢了。      JavaScript与Swift一样,是动态语言类型,即不用指定变量类型,会根据赋值的内容动态的判断出它的类型。与Swift不同的是,JavaScript定义变量的时候,也不需要指定变量类型或者必须得赋初始值。JavaScript可以在赋

    2024年01月16日
    浏览(45)
  • VB6.0 设置窗体的默认焦点位置在 TextBox 中

    在VB6.0中,窗体(Form)加载时会触发多个事件,这些事件按照特定的顺序执行。下面是窗体加载过程中常见事件的执行顺序: Form_QueryUnload 事件:在窗体即将关闭之前触发。你可以在此事件中进行一些清理操作或询问用户是否真的要关闭窗体。 Form_Unload 事件:在窗体关闭之前

    2024年02月09日
    浏览(61)
  • 对《VB.NET通过VB6 ActiveX DLL调用PowerBasic及FreeBasic动态库》的改进

    《VB.NET通过VB6 ActiveX DLL调用PowerBasic及FreeBasic动态库》使用的Activex DLL公共对象是需要先注册的。https://blog.csdn.net/weixin_45707491/article/details/132437502?spm=1001.2014.3001.5501 Activex DLL事前注册,一次多用说起来也不是啥大问题,但不能更改到其它文件夹,否则程序找不到会出错,改地方

    2024年02月11日
    浏览(77)
  • 【VB6|第22期】用SQL的方式读取Excel数据

    日期:2023年8月7日 作者:Commas 签名:(ง •_•)ง 积跬步以致千里,积小流以成江海…… 注释:如果您觉得 有所帮助 ,帮忙 点个赞 ,也可以 关注我 ,我们一起成长;如果有不对的地方,还望各位大佬不吝赐教,谢谢^ - ^ 1.01 365 = 37.7834;0.99 365 = 0.0255 1.02 365 = 1377.4083;0.98

    2024年02月13日
    浏览(41)
  • Unity 实现鼠标左键进行射击

    发射脚本实现思路 分析 确定用户交互方式:通过鼠标左键点击发射子弹。 确定子弹发射逻辑:每次点击后有一定时间间隔才能再次发射。 确定子弹发射源和方向:子弹从枪口(Transform)位置发射,沿枪口方向前进。 变量设定 设定子弹预制体引用:用于在游戏中实例化子弹

    2024年04月11日
    浏览(37)
  • VB6 注册表的递归访问与面象对象模块化封装

    1)较低层次的封装 “过程化模块封装” 模块: Module1包含windows API 注册表相关函数声明 及少量的 GetValue、SetValue函数等浅封装。 2)较高层次的封装 基于面向对象:类模块CEnumReg定义属性、方法、事件。 核心方法 EnumAll(hkey As Long, ByVal subkey As String) 1.该方法的作用递归枚举指

    2024年02月02日
    浏览(38)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

博客赞助

微信扫一扫打赏

请作者喝杯咖啡吧~博客赞助

支付宝扫一扫领取红包,优惠每天领

二维码1

领取红包

二维码2

领红包