1.在nt4.0下检测摩登是否在线?2.程序运行时最小化,但又不出现在任务栏内及桌面任何地方

dqj 2000-09-11 01:32:00
1.下面的代码是网上摘的,用于检测摩登是否在线,我在nt4.0下使用总是显示"You have no active connections",麻烦邦我看一下代码须修改哪些地方.
2.在程序运行时最小化,但又不出现在任务栏内及桌面任何地方,cedn上有一些解答,我看不太懂,请给个完整的代码,最好有注释.
3.如果检测到摩登在线,同时又按下了"enter"键,则触发一个定时器,该怎样写代码?
附1.
Public Const ERROR_SUCCESS = 0&
Public Const APINULL = 0&
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public ReturnCode As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
hKey As Long) As Long

Declare Function RegOpenKey Lib "advapi32.dll" Alias _
"RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As _
String, phkResult As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal lpReserved As Long, lpType As Long, _
lpData As Any, lpcbData As Long) As Long

Public Function ActiveConnection() As Boolean
Dim hKey As Long
Dim lpSubKey As String
Dim phkResult As Long
Dim lpValueName As String
Dim lpReserved As Long
Dim lpType As Long
Dim lpData As Long
Dim lpcbData As Long
ActiveConnection = False
lpSubKey = "C:\WINNT\system32\ras\rasphone" '"System\CurrentControlSet\Services\RemoteAccess"
ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, lpSubKey, _
phkResult)

If ReturnCode = ERROR_SUCCESS Then
hKey = phkResult
lpValueName = "Remote Connection"
lpReserved = APINULL
lpType = APINULL
lpData = APINULL
lpcbData = APINULL
ReturnCode = RegQueryValueEx(hKey, lpValueName, _
lpReserved, lpType, ByVal lpData, lpcbData)
lpcbData = Len(lpData)
ReturnCode = RegQueryValueEx(hKey, lpValueName, _
lpReserved, lpType, lpData, lpcbData)

If ReturnCode = ERROR_SUCCESS Then
If lpData = 0 Then
ActiveConnection = False
Else
ActiveConnection = True
End If
End If

RegCloseKey (hKey)
End If

End Function
Private Sub 在线_Click()
If ActiveConnection = True Then
Call MsgBox("You have an active connection.", vbInformation)
Else
Call MsgBox("You have no active connections.", vbInformation)
End If
End Sub

...全文
159 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
TechnoFantasy 2001-06-03
  • 打赏
  • 举报
回复
1 你察看一下是否是程序中注册表的键值写错了,你可以利用其它方法得知猫是否在线:
http://www.applevb.com/sourcecode/connect_to_net.zip
dqj 2001-06-02
  • 打赏
  • 举报
回复
:
dqj 2000-09-13
  • 打赏
  • 举报
回复
我的天,两天过了人气才3分.

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧