如何用VB调用一个外部EXE程序？

使用Shell函数函数。

Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。

Shell的语法：Shell(PathName[，WindowStyle])。

PathName 为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。

WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。

示例，打开当前程序所在目录下的TEMP.EXE文件：

Dim a As Integer

a = Shell(App.Path &"\TEMP.EXE")

FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口

GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符

--------------------------------------------------------------------------------------------------------------------------------------------------------

相关API声明：

FindWindow

↓

Private Declare Function FindWindow Lib

"user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As

String) As Long

GetWindowThreadProcessId

↓

Private Declare

Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long,

lpdwProcessId As Long)

As Long

--------------------------------------------------------------------------------------------------------------------------------------------------------

需要的控件：Label、Timer

--------------------------------------------------------------------------------------------------------------------------------------------------------

自定义函数：

Dim hwnd As Long

--------------------------------------------------------------------------------------------------------------------------------------------------------

源代码：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"

(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private

Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long,

lpdwProcessId As Long)As Long

Private Sub Timer1_Timer()

Dim hwnd As

Long' 储存 FindWindow 函数返回的句柄

hwnd = FindWindow(vbNullString, "Windows Media

Player")' 取得进程标识符

'只要把Windows Media Player换成游戏的名称就可了！

If hwnd = 0 Then

Label1.Caption = "游戏未运行"

Else

Label1.Caption = "游戏已运行"

End If

End Sub

VB 从零开始编外挂(二)

相信大家，在制作游戏外挂的时候，都会用到FPE、金山游侠、GE修改器、Game

Master8.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.查看进程，一般垃圾点的网络游戏会出现多的进程。你就杀了就行了！

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的扫描现在就可以模拟了！

--------------------------------------------------------------------------------------------------------------------------------------------------------

需要VB API函数：

keybd_event ←函数模拟了键盘行动

--------------------------------------------------------------------------------------------------------------------------------------------------------

相关API声明：

keybd_event

↓

Private Declare Sub keybd_event Lib

"user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal

dwExtraInfo As Long)

--------------------------------------------------------------------------------------------------------------------------------------------------------

需要的控件：Timer（interval不为空）

--------------------------------------------------------------------------------------------------------------------------------------------------------

代码：

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,

ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Timer1_Timer()

Call keybd_event(82, 0, 0, 0) '模拟按下"R"键

End Sub

--------------------------------------------------------------------------------------------------------------------------------------------------------

其它模拟：

方法一：

AppActivate sTitle

SendKeys "5"

方法二：

AppActivate sTitle

SendKeys vbKey5

方法三：

SendMessage Hwnd,

WM_KEYDOWN, vbKey5, 0&

SendMessage Hwnd, WM_KEYUP, vbKey5, 0&

方法四：

AppActivate sTitle

keybd_event 53, 0, 0, 0

keybd_event 53,

0, KEYEVENTF_KEYUP, 0

方法五：

PostMessage lHwnd, WM_KEYDOWN, vbKey5, 0&

PostMessage lHwnd, WM_KEYUP, vbKey5