VB实现的《QQ美女找茬游戏》作弊器实例_vb

本文实例讲述了VB实现的《QQ美女找茬游戏》作弊器。分享给大家供大家参考。具体如下:

比较无聊哈,原理很简单,用VB速度比较慢,但是实现很容易。

Option Explicit
Private Type sPOINT
  x As Long
  y As Long
End Type
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部,并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
' 将窗口设为总在最前
End Sub
'把long型的RGB值分解成3个分量
Sub ColorRGB(Color As Long, C() As Integer)
  Const ByN As Integer = 256
  Const ByN2 As Long = 65536
  C(1) = (Color Mod ByN)
  C(2) = ((Color Mod ByN2) \ ByN)
  C(3) = (Color \ ByN2)
End Sub
Private Sub GetPoint()
  Dim p1(497, 447) As Long, p2(497, 447) As Long, C1(3) As Integer, C2(3) As Integer
  '数组大小匹配于图片的大小
  Dim pic1 As sPOINT, pic2 As sPOINT
  '设置两张图片的屏幕位置
  pic1.x = 8
  pic1.y = 192
  pic2.x = 517
  pic2.y = 192
  Dim h As Long, hD As Long, r As Long, i As Integer, j As Integer
  hD = GetDC(0)
  '读入两张图片
  For i = 0 To 497
    For j = 0 To 447
      p1(i, j) = GetPixel(hD, i + pic1.x, j + pic1.y)
      p2(i, j) = GetPixel(hD, i + pic2.x, j + pic2.y)
    Next
  Next
  '对比,标记差异
  Dim t As Boolean
  t = True
  For i = 0 To 497
    For j = 0 To 447
      Call ColorRGB(p1(i, j), C1())
      Call ColorRGB(p2(i, j), C2())
      If (Abs(C1(1) - C2(1)) > 30 Or Abs(C1(2) - C2(2)) > 30 Or Abs(C1(3) - C2(3)) > 30) Then
        t = Not t
        If t Then
          Picture1.ForeColor = &H0&
        Else
          Picture1.ForeColor = &HFF00&
        End If
      Else
        Picture1.ForeColor = p1(i, j)
      End If
      Picture1.PSet (i, j)
    Next
  Next
End Sub
Private Sub Picture1_Click()
Me.Visible = False
DoEvents
GetPoint
Me.Visible = True
End Sub

希望本文所述对大家的VB程序设计有所帮助。

以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索vb
, QQ美女找茬游戏
作弊器
qq大家来找茬作弊器、大家来找茬作弊器、大家来找茬作弊器2016、qq游戏美女找茬作弊器、qq找茬作弊器,以便于您获取更多的相关知识。

时间: 2024-10-05 15:06:27

VB实现的《QQ美女找茬游戏》作弊器实例_vb的相关文章

快速“美女找茬”(辅助工具)

            最近和小徒弟玩QQ游戏中的"美女找茬",这个游戏也就是给你两幅差不多的图片,让你找出几个不同的地方(一般是五个).可惜我老眼昏花比较反应迟钝,总是输,被小徒弟取笑.不禁一时心血来潮,既然作为普通玩家赢不了,何不...!于是我琢磨了一下,不过就是两幅图片比较一下吗,对计算机来说当然很简单.也不需要考虑什么算法.             所以我就做了这样一个小程序,纯属贪图好玩.我首先找到游戏窗口,然后把这个窗口"截屏"下来,在内存里判断两幅图片

12306的找茬游戏能解决杜绝人与人之间的不公平?

从社会意义上看,新的验证码虽然排除掉机器登录,杜绝了机器与人之间的不平等,但是,在熟悉电脑与不熟悉电脑的人群之中,仍然存在数字鸿沟. 3·15刚过,12306订票网站就推出全新的验证码,方式与以往数字或者汉字的不同,这次是根据汉字识别图片中的内容.登录12306,点击"点此开始验证",之后会出现验证码图片,在网页上显示8张图片,有贺卡.雕像.动物.植物.热气球.家用电器等等,然后,要求消费者点击选出其中一类物品,比如,选出8张图片中所有的"鞭炮"或者"血压

5月14日蚕豆网不推荐的Android应用:《美女找茬》

前言:如雨后春笋般杂乱滋生的Android app遍布于网络中.下载平台中.用户的手机中,目前由于监管不严.开放性过大这些应用的安全性便成了当前Android手机最大问题.通讯录被复制.私人照片丢失.信息被公开等等事件的出现,其罪魁祸首当属那些存在安全隐患.内藏恶意代码的Android手机应用.鉴于此情况, 蚕豆网联合<安全管家>定 期为大家审查Android应用的安全性,尽我们最大力量来帮助用户来认清app.选择app,把最安全.最稳定的Android环境奉献给广大用户.应用名称:美女找茬M

C#实现的找茬游戏

今天下午写了一个找茬的小游戏,暂时还没有完整的想法,只是先实现一下,所以不是很完善,但主要功能已经具备了.其实很简单,主要流程是,首先确定两张图片中不同之处的坐标,然后将两张图片显示到窗体上,开始游戏后,鼠标点击图片时进行判断,如果当前鼠标的坐标在错误坐标范围内则在该范围处显示一个红色框,当找出所有错误后即跳转到下一关. 以下为代码: using System; using System.Collections.Generic; using System.ComponentModel; usin

意在魔兽玩家盛大将推“最多美女找老公”游戏

挖贝网6月13日消息 为推广新网游,各大游戏商纷纷玩起了倒计时.近日盛大在线即将推出的游戏中出现了一款"神秘新游".倒计时第六天截图 新游戏倒计时页面故意提供的神秘线索显示,在倒计时第七天的时候是"人称2D版的WOW".不过最吸引人眼球的还是倒计时第六天的宣传语"千娇百媚,最多美女找老公的游戏",倒计时第五天(今日)的是"万人打野战,PK最激烈.最刺激". 有 网友称盛大此举意在抢夺<魔兽世界>空档期的魔兽玩家,但

C#实现找茬游戏镜像鼠标问题

问题描述 我想实现鼠标在右边图片上移动的时候左边的那个鼠标图片对应右边图片上的位置我在右边的label上面加了一个MouseMove事件privatevoidlabel1_MouseMove(objectsender,MouseEventArgse){pictureBox1.Show();Pointp=newPoint();p.X=e.X-10;p.Y=e.Y+76;this.pictureBox1.Location=p;}label是最下面的上面有6个代表错误地方的picturebox我鼠标只

眼力训练 找茬达人游戏推荐

找茬达人游戏推荐前言:爱找茬的达人们,千万别错过.用您的闲暇时光来锻炼下眼力吧,和五湖四海的朋友们挑战一番,看看谁的眼力最厉害哦!小编为大家收集了几款美轮美奂的找茬游戏,美女帅哥.美食美景随你挑战.叫上你的爱人.父母.孩子比比谁是最厉害的火眼金睛!

爱游戏指南101期:找茬大冒险

iPhone版<找茬大冒险>前言:苹果iPhone资深玩家以及正版软件用户对 于苹果App Store限时免费与冰点降价应用可谓是情有独钟,随着苹果iOS系统平台 应用数量的不断增长,每日的限时免费与冰点降价应用也愈加增多.在这些琳琅 满目的苹果iOS应用中,究竟哪些游戏最好玩呢?就请您关注 蚕豆网开辟的全新栏目--爱游戏精品指南,我们每天都为您推荐最吸引人的苹果iPhone游 戏,帮您节省宝贵的时间与金钱!各种BOSS挑战,支持多人玩.找茬游戏[找茬大冒险]iPhone版: iPad版:欢迎

手绘涂鸦益智游戏《涂鸦找茬》限时免费中

<涂鸦找茬>是一款画风独特的涂鸦找茬找游戏!找茬游戏想必朋友们知道,观察左右两侧图片中的不同之处,手指点按即可.每个关卡中都有3个不同的地方,你能全部发现么?<涂鸦找茬>游戏截图游戏中本身图片就是细节很多很复杂那种,如果看的眼花缭乱的话,不妨双指做放大手势,把图片放大了慢慢看咯.<涂鸦找茬>游戏截图貌似游戏过关后,不管有没有三星都不能重新再玩?点错地方可是要扣时间的,慎戳!另外有个时间模式,在完成所有关卡后可以解锁.<涂鸦找茬>游戏截图<涂鸦找茬>