一键上网.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "Module1"
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WH_KEYBOARD = 2
Public hHook As Long
Public Function MyFunc(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If wParam = vbKeyAdd Then
        Shell "c:\progra~1\intern~1\iexplore.exe", vbNormalFocus
        MyFunc = 1
        Exit Function
    End If
    MyFunc = CallNextHookEx(hHook, ncode, wParam, lParam)
End Function
Public Sub EnableHook()
   hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf MyFunc, App.hInstance, 0)
End Sub
Public Sub DisableHook()
    Dim Ret As Long
    Ret = UnhookWindowsHookEx(hHook)
End Sub