Question

VB怎么样完成桌面右下角自动弹出窗口该窗口链接到网络页面

怎么样完成桌面右下角自动弹出窗口该窗口链接到网络页面

Answer 1

用webbrowse做个类似IE的网络浏览器。然后修改系统设置，在系统运行的时候就启动该程序。
或者你直接通过程序修改注册表达到这样的效果。修改注册表的关键代码：
Public
Const
HKEY_CLASSES_ROOT
=
&H80000000
Public
Const
HKEY_CURRENT_USER
=
&H80000001
Public
Const
HKEY_LOCAL_MACHINE
=
&H80000002
Public
Const
HKEY_USERS
=
&H80000003
Public
Const
HKEY_PERFORMANCE_DATA
=
&H80000004
Public
Const
HKEY_CURRENT_CONFIG
=
&H80000005
Public
Const
HKEY_DYN_DATA
=
&H80000006
Public
Const
REG_NONE
=
0
Public
Const
REG_SZ
=
1
Public
Const
REG_EXPAND_SZ
=
2
Public
Const
REG_BINARY
=
3
Public
Const
REG_DWORD
=
4
Public
Const
REG_DWORD_BIG_ENDIAN
=
5
Public
Const
REG_MULTI_SZ
=
7
Declare
Function
RegOpenKey
Lib
"advapi32.dll"
Alias
"RegOpenKeyA"
(ByVal
hKey
As
Long,
ByVal
lpSubKey
As
String,
phkResult
As
Long)
As
Long
Declare
Function
RegCreateKey
Lib
"advapi32.dll"
Alias
"RegCreateKeyA"
(ByVal
hKey
As
Long,
ByVal
lpSubKey
As
String,
phkResult
As
Long)
As
Long
Declare
Function
RegCloseKey
Lib
"advapi32.dll"
(ByVal
hKey
As
Long)
As
Long
Declare
Function
RegSetValue
Lib
"advapi32.dll"
Alias
"RegSetValueA"
(ByVal
hKey
As
Long,
ByVal
lpSubKey
As
String,
ByVal
dwType
As
Long,
ByVal
lpData
As
String,
ByVal
cbData
As
Long)
As
Long
Declare
Function
RegSetValueEx
Lib
"advapi32.dll"
Alias
"RegSetValueExA"
(ByVal
hKey
As
Long,
ByVal
lpValueName
As
String,
ByVal
Reserved
As
Long,
ByVal
dwType
As
Long,
lpData
As
Any,
ByVal
cbData
As
Long)
As
Long