vb从零开始WG.docx
《vb从零开始WG.docx》由会员分享，可在线阅读，更多相关《vb从零开始WG.docx（42页珍藏版）》请在冰豆网上搜索。
vb从零开始WG
需要VBAPI函数：
FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口
GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明：
FindWindow
↓
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"（ByVallpClassNameAsString,ByVallpWindowNameAsString）AsLong
GetWindowThreadProcessId
↓
PrivateDeclareFunctionGetWindowThreadProcessIdLib"user32"（ByValhwndAsLong,lpdwProcessIdAsLong）
AsLong
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件：
Label、Timer
-------------------------------------------------------------------------------------------------------------------------------------------------------- 自定义函数：
DimhwndAsLong
-------------------------------------------------------------------------------------------------------------------------------------------------------- 源代码：
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"（ByVallpClassNameAsString,ByVallpWindowNameAsString）AsLong
PrivateDeclareFunctionGetWindowThreadProcessIdLib"user32"（ByValhwndAsLong,lpdwProcessIdAsLong）AsLong
PrivateSubTimer1_Timer（）
DimhwndAsLong'储存FindWindow函数返回的句柄
hwnd=FindWindow（vbNullString,"WindowsMediaPlayer"）'取得进程标识符
'只要把WindowsMediaPlayer换成游戏的名称就可了！
Ifhwnd=0Then
Label1.Caption="游戏未运行"
Else
Label1.Caption="游戏已运行"
EndIf
EndSub
VB从零开始编外挂
（二）
相信大家，在制作游戏外挂的时候，都会用到FPE、金山游侠、GE修改器、GameMaster8.0等等这些软件，但是如今的网络游戏基本上都加了NP，下面来了解一下NP。
知己知彼，百战不殆嘛！
什么是nProtect？
nProtect是设计用于保护个人电脑终端不被病毒和黑客程序感染的新概念的基于网络的反黑客和反病毒的工具。
他帮助确保所有输入个人电脑终端的信息在网络上不落入黑客手中。
在最终用户在执行电子贸易时，可以通过将nProtect配置在那些提供电子商务、进口贸易，电子贸易的金融机构的网站上，来提高安全等级。
nProtect怎样工作？
nProtect是一种基于服务器端的解决方案并且当那些需要保护的任何网络应用被运行时而自动启动。
nProtect被载入内存，所以最终用户不需要安装任何应用程序，只要nProtect启动，就开始拒绝黑客工具和病毒的入侵！
--------------------------------------------------------------------------------------------------------------------------------------------------------
下面介绍它如何工作：
用户登陆时nProtect自动启动。
浏览器确认和自动安装安全模块到用户的个人电脑。
扫描黑客工具和病毒通知用户目前的安全状态如果有黑客工具和病毒尝试删除在被入侵时端驻留内存来锁定黑客工具直到电脑或者nProtect关闭。
可恶的韩国人，把这个加进了网络游戏。
我只能说：
“呸！
”
--------------------------------------------------------------------------------------------------------------------------------------------------------
下面讲讲躲过NP的扫描的几个方法：
一、FPE篇
台湾人开发的东西，哎。
出名了的，没办法谁叫它这么好呢！
1.先装一个FPE把，呵呵←这个是废话！
2.不要把安装程序删除，按照：
开始→运行→regedit→HEKY_LOCAL_MACHINE→SOFTWARE
→jaw→FPE打开！
（问：
有什么用？
答：
修改呀！
）
3.运行FPE，然后在搜索里面输入'jaw'（一定要家''）一般是6个地址，然后全部都选中输入:
313131c313131（意思就是111，两边多输入31就是1111！
）不要关FPE！
（关了就完了！
）
4.修改注册表，把注册表里面的jaw、FPE（FPE的是全改）关闭FPE出现对话框。
（什么鸟语不认识！
呵呵）
5.将现在FPE的文件夹修改为1112000（原来是FPE2000撒），把FPE.exe修改为111.exe
6.然后重新安装一次FPE也把那个DLL文件复制到你修改过的FPE文件目录下！
（呵呵！
）
7.开FPE进游戏里面乱来拉！
哈哈
--------------------------------------------------------------------------------------------------------------------------------------------------------
二、任务管理器篇
比尔·盖茨那崽儿设计的东西，还可以在这上面派上用场！
（问：
是什么东西？
答WINDOWS自带的撒！
呵呵！
）
1.首先用快捷键Ctrl+Alt+Delete/.打开任务管理器
2.查看进程，一般GHOFFICE过滤词语点的网络游戏会出现多的进程。
你就杀了就行了！
3.没有多的进程怎么办？
BIN这个是大多数网络游戏都有的把，官方的登陆器和私服的登陆器一样的，都是调用BIN进入游戏。
登陆器打开后，更新完毕。
点击运行游戏，间隔几秒杀掉登陆器的进程（这个要看你自己的计算机配置如何了，可能是2秒、可能是10秒！
反正不超过15秒）这样就可以闭屏NP拉！
呵呵又可以乱来了！
--------------------------------------------------------------------------------------------------------------------------------------------------------
三、直接篇
直接篇说白了就不用任何东西！
怎么做？
跟着我眼镜来撒！
《封神榜》知道把？
（答：
不知道！
反答：
去死！
）它的保护是有的，官方都已经公布了
但是有些人说《封神榜》没NP，（注意：
NP现在就是保护的代名词了！
）别听那些人的！
首先，运行登陆器（更新的那个）进入游戏。
关闭用登陆器进入的游戏马上运行Game.exe
呵呵，没NP了。
FPE等东西可以乱来了。
魔法叠加、免负重等等都可以实现！
还有一种就是DAT文件或者BIN文件直接修改为EXE。
呵呵！
--------------------------------------------------------------------------------------------------------------------------------------------------------
四、编程篇（VB、VC、DELPHI等等！
）
怎么办呢？
呵呵，我不懂怎么编VC和DELPHI的。
***我就喜欢VB怎么着？
VB可以简单的实现虚拟nProtect的消息发送。
具体的就不说了！
一句话虚拟nProtect消息（你不等于没说嘛！
）-_-！
呵呵这个嘛......！
代码就不写了，麻烦。
就像用WPE这些发包一样的原理
VB从零开始编外挂（三）
躲避了NP的扫描现在就可以模拟了！
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VBAPI函数：
keybd_event ←函数模拟了键盘行动
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明：
keybd_event
↓
PrivateDeclareSubkeybd_eventLib"user32"（ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong）
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件：
Timer（interval不为空）
--------------------------------------------------------------------------------------------------------------------------------------------------------
代码：
PrivateDeclareSubkeybd_eventLib"user32"（ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong）
PrivateSubTimer1_Timer（）
Callkeybd_event（82,0,0,0）'模拟按下"R"键
EndSub
--------------------------------------------------------------------------------------------------------------------------------------------------------
其它模拟：
方法一：
AppActivatesTitle
SendKeys"5"
方法二：
AppActivatesTitle
SendKeysvbKey5
方法三：
SendMessageHwnd,WM_KEYDOWN,vbKey5,0&
SendMessageHwnd,WM_KEYUP,vbKey5,0&
方法四：
AppActivatesTitle
keybd_event53,0,0,0
keybd_event53,0,KEYEVENTF_KEYUP,0
方法五：
PostMessagelHwnd,WM_KEYDOWN,vbKey5,0&
PostMessagelHwnd,WM_KEYUP,vbKey5,0&
VB从零开始编外挂（四）
添加快捷键
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VBAPI函数：
GetAsyncKeyState ←判断函数调用时指定虚拟键的状态
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明：
GetAsyncKeyState
↓
PrivateDeclareFunctionGetAsyncKeyStateLib"user32"（ByValvkeyAsLong）AsInteger
PrivateFunctionMyHotKey（vKeyCode）AsBoolean
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件：
Timer（interval不为空）
--------------------------------------------------------------------------------------------------------------------------------------------------------
代码：
PrivateDeclareFunctionGetAsyncKeyStateLib"user32"（ByValvkeyAsLong）AsInteger
PrivateFunctionMyHotKey（vKeyCode）AsBoolean
MyHotKey=（GetAsyncKeyState（vKeyCode）<0）
EndFunction
'然后在循环中或Timer的Timer事件中检测:
PrivateSubTimer1_Timer（）
IfMyHotKey（vbKeyA）AndvbKeyControlThen 'ctrl+A
End '关闭
EndIf
'其中vbkeyA是键盘″A″的常数，其他键可按F1查得。
EndSub
--------------------------------------------------------------------------------------------------------------------------------------------------------
其它方法：
比如按下"ctrl+A"就退出!
'可以设置Form的KeyPreview属性为True，然后在Form_KeyDown事件中添加代码：
PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfKeyCode=Asc（"A"）AndShift=vbCtrlMaskThen unloadme'如果ctrl+A键被按下就退出
EndSub
VB从零开始编外挂（五）前边谈了模拟键盘，下面说说模拟鼠标。
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VBAPI函数：
mouse_event ←模拟一次鼠标事件
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明：
mouse_event
↓
PrivateDeclareSubmouse_eventLib"user32" （ByValdwFlagsAsLong,ByValdxAsLong, ByValdyAsLong, ByValcButtonsAsLong,ByValdwExtraInfoAsLong ）
--------------------------------------------------------------------------------------------------------------------------------------------------------
定义变量：
ConstMOUSEEVENTF_LEFTDOWN=&H2
ConstMOUSEEVENTF_LEFTUP=&H4
ConstMOUSEEVENTF_MIDDLEDOWN=&H20
ConstMOUSEEVENTF_MIDDLEUP=&H40
ConstMOUSEEVENTF_MOVE=&H1
ConstMOUSEEVENTF_ABSOLUTE=&H8000
ConstMOUSEEVENTF_RIGHTDOWN=&H8
ConstMOUSEEVENTF_RIGHTUP=&H10
--------------------------------------------------------------------------------------------------------------------------------------------------------
MOUSEEVENTF_LEFTDOWN'鼠标左键按下
MOUSEEVENTF_LEFTUP'鼠标松开
MOUSEEVENTF_RIGHTDOWN'鼠标右键按下
MOUSEEVENTF_RIGHTUP'鼠标右键松开
--------------------------------------------------------------------------------------------------------------------------------------------------------
代码：
PrivateDeclareSubmouse_eventLib"user32" （ByValdwFlagsAsLong,ByValdxAsLong, ByValdyAsLong, ByValcButtonsAsLong,ByValdwExtraInfoAsLong ）
ConstMOUSEEVENTF_LEFTDOWN=&H2
ConstMOUSEEVENTF_LEFTUP=&H4
ConstMOUSEEVENTF_MIDDLEDOWN=&H20
ConstMOUSEEVENTF_MIDDLEUP=&H40
ConstMOUSEEVENTF_MOVE=&H1
ConstMOUSEEVENTF_ABSOLUTE=&H8000
ConstMOUSEEVENTF_RIGHTDOWN=&H8
ConstMOUSEEVENTF_RIGHTUP=&H10
'这里是鼠标左键按下和松开两个事件的组合即一次单击
mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,0,0,0,0
'模拟鼠标右键单击事件
mouse_eventMOUSEEVENTF_RIGHTDOWNOrMOUSEEVENTF_RIGHTUP,0,0,0,0
'两次连续的鼠标左键单击事件构成一次鼠标双击事件
mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,0,0,0,0
mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,0,0,0,0
VB从零开始编外挂（六）应用实战
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VBAPI函数：
FindWindow
GetWindowThreadProcessId
OpenProcess
ReadProcessMemory
升级会员 