在最开始寻找Java路径使用的是vbs的方法，但是那个功能比较少，不能知道是否正确的打开了注册表，不能列遍注册表，不能查找64位注册表的内容

所以为了使程序能够正常的运行在各种系统上还是使用了这种办法。

API RegOpenKeyEx的参数以及使用方法 用来打开注册表项获得句柄，其他API都通过这个句柄对注册表进行操作。

还有一个RegOpenKey的API，和这个差不多，但是这个有一个PEGSAM samDesired的安全访问标记参数,如果此处填写为256则可以访问64位注册表。

{{EJS0}}

API RegEnumKeyEx 可以列遍某个项下的所有项 用来列遍出系统内安装的所有Java版本

{{EJS1}}

API RegQueryValueEx 用来获取某个项下面的键值，获取Java路径时需要用到

{{EJS2}}

findjavaM.bas模块

findjava(字符串数组)  最后这个字符串数组在其方法内被赋值

返回值整形 如果等于0则是没有找到系统内正确安装的Java

其中Sub main方法是调用演示

{{EJS3}}

RegeditAPI.bas 一个注册表操作的API声明模块，在网上也可以找到，但是在这里我稍作了修改

{{EJS4}}