有没有实现利用win2000的拨号连接拨号

2003-05-19 06:00:47 88 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wsliang2002 墨衍会员 · AI 创作全网分发关注 + 加入社区

LTC2990电池监控芯片I²C驱动开发与多通道同步采样实践电池监控是嵌入式电源管理系统的核心环节，其本质依赖高精度模拟信号采集、数字转换与实时状态评估。LTC2990作为集成电压/电流/温度三合一的专用监控IC，通过真差分输入、内置基准和I²C数字接口，显著简化了SOC/SOH估算的硬件链路。其技术价值在于以单芯片替代传统ADC+运放+传感器组合，在宽压（2.7–36 V）、高共模（80 V）场景下保障工业级测量可靠性。典型应用于电动工具、车载BMS、UPS及便携式储能设备的电池健康监测子系统。本文聚焦LTC2990底层驱动实现，涵盖I²C时序约束、寄存器原子读写阅读详情

有没有实现利用win2000的拨号连接拨号，挂断的源码，多谢能用的
100分

...全文

ECC椭圆曲线加解密原理详解(配图) 椭圆曲线加解密原理详解本文主要参照：ECC椭圆曲线详解(有具体实例)[1] 前言：椭圆曲线(ECC)加密原理跟RSA加解密原理比起来，可真是晦涩难懂。拜读了大神Kalafinaian文章“ECC椭圆曲线详解(有具体实例)”，终于看到了参透的曙光。由于原文中有微小的瑕疵，也为了便于阅读起来更加流畅，我重新整理了一下这篇文章。为什么使用椭圆曲线加密算法？ RSA的解决分解整数问题需要亚指数... 阅读详情

wsliang2002

网络编程 1,502 成员 18,427 内容

+ 关注 + 加入社区

切换为时间正序

wsliang2002 2003-06-05

打赏
举报

都没人给我吗？？：（

wsliang2002 2003-06-05

打赏
举报

wsliang2002 2003-05-20

打赏
举报

wsliang2002@163.com
最好是win2000,vb6编译通过的,多谢，
可多开贴给分

likesome 2003-05-19

打赏
举报

在vb里用以下语句

Private Sub Command1_Click()
Dim res
res = Shell("rundll32.exe rnaui.dll,RnaDial " & "拨号网络连接名称", 1)
End Sub

断开连接:
RasHangup

把上面的拨号网络连接名称改为abc就可以了

不过nt系统不能用上述语句，要改一下语法格式，加个参数，你想要告诉我一声

Private Sub Command1_Click()
Dim res
res = Shell("rasphone.exe [-d 拨号网络连接名称]", 1)
End Sub

判断是否已经建立 Dial Up 连接
浏览： 42 次
通过读取注册表，可以知道该信息。
声明：
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 = "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

boywang 2003-05-19

打赏
举报

我也想要。楼上的你不可以贴出来吗？

zjlhy 2003-05-19

打赏
举报

有,怎么给你?

有没有实现利用win2000的拨号连接拨号

相关推荐