开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 浏览器 > 查看源码
mWebApi.bas
资源名称：IE_VB.rar　[点击查看]
上传用户：davilee3
上传日期：2015-04-22
资源大小：986k
文件大小：5k
源码类别：

浏览器

开发平台：

Visual Basic

mWebApi.bas：源码内容
  1. Attribute VB_Name = "mWebApi"
  2. Option Explicit
  4. Public Const MAX_PATH = 260
  6. Public Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
  8. Public Declare Function LaunchConnectionDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
  10. Public Declare Function LaunchSecurityDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
  12. Public Declare Function LaunchSiteCertDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
  14. Public Declare Function OpenFontsDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
  18. Public Declare Function DoOrganizeFavDlg Lib "shdocvw.dll" (ByVal hwndParent As Long, ByVal lpszPath As String) As Long
  20. Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
  22. Public Declare Function DoAddToFavDlg Lib "shdocvw.dll" (ByVal hwndParent As Long, ByVal lpszPath As String) As Long
  24. Public Declare Function AddUrlToFavorites Lib "shdocvw.dll" (ByVal hwndParent As Long, ByVal lpszPath As String) As Long '这个函数的参数定义有问题。
  26. Public Const CSIDL_ADMINTOOLS As Long = &H30
  27. Public Const CSIDL_ALTSTARTUP As Long = &H1D
  28. Public Const CSIDL_APPDATA As Long = &H1A
  29. Public Const CSIDL_BITBUCKET As Long = &HA
  30. Public Const CSIDL_COMMON_ADMINTOOLS As Long = &H2F
  31. Public Const CSIDL_COMMON_ALTSTARTUP As Long = &H1E
  32. Public Const CSIDL_COMMON_APPDATA As Long = &H23
  33. Public Const CSIDL_COMMON_DESKTOPDIRECTORY As Long = &H19
  34. Public Const CSIDL_COMMON_DOCUMENTS As Long = &H2E
  35. Public Const CSIDL_COMMON_FAVORITES As Long = &H1F
  36. Public Const CSIDL_COMMON_PROGRAMS As Long = &H17
  37. Public Const CSIDL_COMMON_STARTMENU As Long = &H16
  38. Public Const CSIDL_COMMON_STARTUP As Long = &H18
  39. Public Const CSIDL_COMMON_TEMPLATES As Long = &H2D
  40. Public Const CSIDL_CONNECTIONS As Long = &H31
  41. Public Const CSIDL_CONTROLS As Long = &H3
  42. Public Const CSIDL_COOKIES As Long = &H21
  43. Public Const CSIDL_DESKTOP As Long = &H0
  44. Public Const CSIDL_DESKTOPDIRECTORY As Long = &H10
  45. Public Const CSIDL_DRIVES As Long = &H11
  46. Public Const CSIDL_FAVORITES As Long = &H6
  47. Public Const CSIDL_FLAG_CREATE As Long = &H8000
  48. Public Const CSIDL_FLAG_DONT_VERIFY As Long = &H4000
  49. Public Const CSIDL_FLAG_MASK As Long = &HFF00&
  50. Public Const CSIDL_FLAG_PFTI_TRACKTARGET As Long = CSIDL_FLAG_DONT_VERIFY
  51. Public Const CSIDL_FONTS As Long = &H14
  52. Public Const CSIDL_HISTORY As Long = &H22
  53. Public Const CSIDL_INTERNET As Long = &H1
  54. Public Const CSIDL_INTERNET_CACHE As Long = &H20
  55. Public Const CSIDL_LOCAL_APPDATA As Long = &H1C
  56. Public Const CSIDL_MYPICTURES As Long = &H27
  57. Public Const CSIDL_NETHOOD As Long = &H13
  58. Public Const CSIDL_NETWORK As Long = &H12
  59. Public Const CSIDL_PERSONAL As Long = &H5
  60. Public Const CSIDL_PRINTERS As Long = &H4
  61. Public Const CSIDL_PRINTHOOD As Long = &H1B
  62. Public Const CSIDL_PROFILE As Long = &H28
  63. Public Const CSIDL_PROGRAM_FILES As Long = &H26
  64. Public Const CSIDL_PROGRAM_FILES_COMMON As Long = &H2B
  65. Public Const CSIDL_PROGRAM_FILES_COMMONX86 As Long = &H2C
  66. Public Const CSIDL_PROGRAM_FILESX86 As Long = &H2A
  67. Public Const CSIDL_PROGRAMS As Long = &H2
  68. Public Const CSIDL_RECENT As Long = &H8
  69. Public Const CSIDL_SENDTO As Long = &H9
  70. Public Const CSIDL_STARTMENU As Long = &HB
  71. Public Const CSIDL_STARTUP As Long = &H7
  72. Public Const CSIDL_SYSTEM As Long = &H25
  73. Public Const CSIDL_SYSTEMX86 As Long = &H29
  74. Public Const CSIDL_TEMPLATES As Long = &H15
  75. Public Const CSIDL_WINDOWS As Long = &H24
  78. '---------------------------------------------------------------------------------------
  79. ' Procedure : QueryOffline
  80. ' DateTime  : 2005-4-15 15:12
  81. ' Author    : Lingll
  82. ' Purpose   :
  83. '---------------------------------------------------------------------------------------
  84. Public Function QueryOffline() As Boolean
  85. Dim hKey&
  86. Dim sz&
  87. If RegOpenKey(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionInternet Settings", hKey) = ERROR_SUCCESS Then
  88.     If RegQueryValueExLong(hKey, "GlobalUserOffline", 0&, REG_DWORD, sz, 4) = ERROR_SUCCESS Then
  89.        QueryOffline = (sz = 1)
  90.     Else
  91.         QueryOffline = False
  92.     End If
  93.     RegCloseKey hKey
  94. Else
  95.     QueryOffline = False
  96. End If
  97. End Function
  99. '---------------------------------------------------------------------------------------
  100. ' Procedure : SetOffline
  101. ' DateTime  : 2005-4-15 15:21
  102. ' Author    : Lingll
  103. ' Purpose   :
  104. '---------------------------------------------------------------------------------------
  105. Public Sub SetOffline(vOffline As Boolean)
  106. Dim hKey&
  107. Dim sz&
  108. If RegOpenKey(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionInternet Settings", hKey) <> ERROR_SUCCESS Then
  109.     If RegCreateKey(HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionInternet Settings", hKey) <> ERROR_SUCCESS Then
  110.         Exit Sub
  111.     End If
  112. End If
  114. sz = BooleanToBool(vOffline)
  115. Call RegSetValueExLong(hKey, "GlobalUserOffline", 0&, REG_DWORD, sz, 4)
  117. Call RegCloseKey(hKey)
  119. Call InternetSetOption(0&, INTERNET_OPTION_SETTINGS_CHANGED, 0&, 0)
  120. End Sub