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());}

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...