VB实现的《QQ美女找茬游戏》作弊器实例
本文实例讲述了VB实现的《QQ美女找茬游戏》作弊器。分享给大家供大家参考。具体如下：
比较无聊哈，原理很简单，用VB速度比较慢，但是实现很容易。
OptionExplicit PrivateTypesPOINT xAsLong yAsLong EndType PrivateDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong PrivateDeclareFunctionGetPixelLib"gdi32"(ByValhdcAsLong,ByValxAsLong,ByValyAsLong)AsLong PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong PrivateConstHWND_TOPMOST&=-1 '将窗口置于列表顶部，并位于任何最顶部窗口的前面 PrivateConstSWP_NOSIZE&=&H1 '保持窗口大小 PrivateConstSWP_NOMOVE&=&H2 '保持窗口位置 PrivateSubForm_Load() SetWindowPosMe.hwnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVEOrSWP_NOSIZE '将窗口设为总在最前 EndSub '把long型的RGB值分解成3个分量 SubColorRGB(ColorAsLong,C()AsInteger) ConstByNAsInteger=256 ConstByN2AsLong=65536 C(1)=(ColorModByN) C(2)=((ColorModByN2)\ByN) C(3)=(Color\ByN2) EndSub PrivateSubGetPoint() Dimp1(497,447)AsLong,p2(497,447)AsLong,C1(3)AsInteger,C2(3)AsInteger '数组大小匹配于图片的大小 Dimpic1AssPOINT,pic2AssPOINT '设置两张图片的屏幕位置 pic1.x=8 pic1.y=192 pic2.x=517 pic2.y=192 DimhAsLong,hDAsLong,rAsLong,iAsInteger,jAsInteger hD=GetDC(0) '读入两张图片 Fori=0To497 Forj=0To447 p1(i,j)=GetPixel(hD,i+pic1.x,j+pic1.y) p2(i,j)=GetPixel(hD,i+pic2.x,j+pic2.y) Next Next '对比，标记差异 DimtAsBoolean t=True Fori=0To497 Forj=0To447 CallColorRGB(p1(i,j),C1()) CallColorRGB(p2(i,j),C2()) If(Abs(C1(1)-C2(1))>30OrAbs(C1(2)-C2(2))>30OrAbs(C1(3)-C2(3))>30)Then t=Nott IftThen Picture1.ForeColor=&H0& Else Picture1.ForeColor=&HFF00& EndIf Else Picture1.ForeColor=p1(i,j) EndIf Picture1.PSet(i,j) Next Next EndSub PrivateSubPicture1_Click() Me.Visible=False DoEvents GetPoint Me.Visible=True EndSub
希望本文所述对大家的VB程序设计有所帮助。