VB6 检测系统中是否安装了JRE

今天去兴业银行深圳分部开了个户，出乎意料的是，兴业银行开户过程简单，才填写点资料就完成了，感觉非常不错。记得上次到浦发银行开户，包括网银的启用，步骤相当的繁琐，让我感觉很不好。

在兴业银行开户结束时，我要求工作人员给我开通网银功能，他稍微处理后就说完成了，很快，这是有效率的银行，让人满意。
回家后，按照兴业银行发出的短信去该行网站启用我的网银，可是按照要求填写了账户卡号码以及身份证信息后，提交后老是提示失败，让我意外，马上打电话咨询兴业银行！后面兴业银行的工作人员说要我在其网站下载 jre-6u15-windows-i586-s.exe 文件安装再重启电脑，说这样就可以了（实际上安装后不用重启电脑，将浏览器进程关闭后再打开就行了。工作人员临咨询结束还要我给一个好评...意外意外，这银行体制不错）。确实，我的系统没有安装 jre。在命令行下输入“java -version”即可知道有没有安装 ^_^

顺便go了一下，寻到几个检测jre是否安装的方式，第一种就是上面的命令行方式，这样要手动敲命令了。
第二种方式就是写个代码检测了，C的代码是有了，我这里顺便改了一个VB6的代码：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long,ByVal lpOperation As String,ByVal lpFile As String,ByVal lpParameters As String,ByVal lpDirectory As String,ByVal nShowCmd As Long) As Long
Private Const SW_HIDE = 0

Function IsJreInstalled() As Boolean
Dim intRet As Integer
intRet = ShellExecute(Me.hwnd,"open","java.exe",vbNullString,SW_HIDE)
If intRet >= 32 Then
IsJreInstalled = True
End If
End Function

Private Sub Form_Load()
If IsJreInstalled() Then
MsgBox "本机已经安装了 Jre",vbInformation,"提示"
Else
MsgBox "本机未安装 Jre","提示"
End If
End Sub

简简单单的一个函数就可以了。

顺便附上网上的java代码：

static boolean IsJreInstalled() { return (System.getProperty("java.version")!=null);}public static void main(String[] args) { System.out.println("Is JRE Installed" + IsJreInstalled());}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!