【开源项目】花密（Flower Password）VB版之打开网址模块

原创于 2012-04-10 14:16:46 发布 · 424 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #string #function #shell #date #blog

开源代码专栏收录该内容

31 篇文章

订阅专栏

'*****************************************************************
' Copyright (c) 2011-2012 FlowerPassword.com All rights reserved.
'      Author : xLsDg @ Xiao Lu Software Development Group
'        Blog : http://hi.baidu.com/xlsdg
'          QQ : 4 4 7 4 0 5 7 4 0
'     Version : 1 . 0 . 0 . 0
'        Date : 2 0 1 2 / 0 4 / 0 7
' Description :
'     History :
'*****************************************************************
Option Explicit

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long

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
                                       
Public Function OpenWebsite(ByVal strUrl As String) As Long
    OpenWebsite = ShellExecute(GetForegroundWindow, "Open", strUrl, 0, 0, 0)

End Function