说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何中断【拨号网络连接】?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何中断【拨号网络连接】?
版本:VB6 / VB5 / VB4-32

要在 VB 程序中中断【拨号网络连接】,可以使用 Remote Access Services Hangup 函数:

'在模块的声明区中加入以下声明及模块:

Public Const RAS_MAXENTRYNAME As Integer = 256
Public Const RAS_MAXDEVICETYPE As Integer = 16
Public Const RAS_MAXDEVICENAME As Integer = 128
Public Const RAS_RASCONNSIZE As Integer = 412
Public Const ERROR_SUCCESS = 0&

Public Type RasEntryName
dwSize As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
End Type

Public Type RasConn
dwSize As Long
hRasConn As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
szDeviceType(RAS_MAXDEVICETYPE) As Byte
szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type

Public Declare Function RasEnumConnections Lib _
"rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As _
Any, lpcb As Long, lpcConnections As Long) As Long

Public Declare Function RasHangUp Lib "rasapi32.dll" Alias _
"RasHangUpA" (ByVal hRasConn As Long) As Long

Public gstrISPName As String
Public ReturnCode As Long
Public Sub HangUp()
Dim i As Long
Dim lpRasConn(255) As RasConn
Dim lpcb As Long
Dim lpcConnections As Long
Dim hRasConn As Long

lpRasConn(0).dwSize = RAS_RASCONNSIZE
lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
lpcConnections = 0
ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)
If ReturnCode = ERROR_SUCCESS Then
For i = 0 To lpcConnections - 1
If Trim(ByteToString(lpRasConn(i).szEntryName)) = Trim(gstrISPName) Then
hRasConn = lpRasConn(i).hRasConn
ReturnCode = RasHangUp(ByVal hRasConn)
End If
Next i
End If
End Sub
Public Function ByteToString(bytString() As Byte) As String
Dim i As Integer
ByteToString = ""
i = 0
While bytString(i) = 0&
ByteToString = ByteToString & Chr(bytString(i))
i = i + 1
Wend
End Function
'在程序中使用实例为
Call HangUp

深圳综合交通设计研究院张鹍鹏:智能交通设备领域已成红海 信息化是发展趋势 25个可遇不可求的jQuery插件 Web设计中对视差设计的误区 直接拿来用,九个超实用的PHP代码片段(二) 一周消息树:小米染指平板电脑凶多吉少 移动周报:Xcode 5.1更新、CarPlay揭秘,Apple很忙 可穿戴领域,创业公司的掘金点?还是滑铁卢? 搜狐SendCloud2014运维技术沙龙拉开帷幕 一周热点:选择Go语言的12个理由,九头蛇与大象之争 中国云计算大会PPT集萃(二):十位技术大牛分享平台打造技术 延迟250毫秒损失数百万美元,Hadoop系统该如何应对实时任务 IBM成立展示中心扩展大型主机的Linux开放生态系统 SDN解决方案总结:OpenFlow、虚拟机、OpenStack和VXLAN/NVGRE 第六届中国云计算大会将于5月20-23日在京隆重召开 大数据实战:站在JMP分析平台上的FIT足迹识别技术 首届SAP d-code大会在上海举办 【OSTC讲师专访】ZoomQuiet:因商业化而开源是中国开源界最大的囧处 亿元资金扶持+联手100家VC,腾讯的雄心壮志 美国史上最大IPO 能给阿里巴巴带来什么? 买Windows平板而非iPad或Android的十大理由 Framework7:不会Objective-C,也能开发iOS7应用 CocoaChina开发者大会 全新引擎Cocos 3d-x开源 Oracle和微软的抱团,以及对抗Amazon霸主的5个可用点 Agile已死 Agility长存? 论程序员的自我修炼 Github女员工因遭性别歧视离职 继七年iPhone、四年iPad后,苹果的下一城:Healthbook 普元CTO焦烈焱:专注于基础软件 在Spark上的深入实践 Python 3.4.0正式发布 未添加任何新语法特性 谷歌受困邮件挖掘丑闻,企图抹掉庭审记录 Python 3.4.0发布,增加了多个功能模块 数据库能否只用一个连接? 寻求廉价远程数据库(internet)连接方案?同时高分悬赏 image字段查询问题? ▲▲▲如何让MDI主窗口显示时向下凹陷的窗口变成平的??▲▲▲ ADOQuery增加记录问题 请教存储过程高手,在线等!急 应聘HR软件方面的实施/咨询要注意什么呢? 小弟 想做个循环滚动 帮忙看一下代码 错在那里了 yushulei(永远)接分 这语句错在哪?select a.* from (SELECT min(id) FROM user )a 怎样列出客户生日来临前的一个星期所有客户名单? 我想做监控的软件,用udp 如何使用?着急! 急需求助!! 怎么样判断一个目录、文件是否存在??? 请教如何在给定的几个数中随机选出3个数? 想参加一个jsp开发组织。那里有? 为什么下面的头文件没有 .h后缀 如何在SAS软件中导入SQL SERVER 2000的数据?谢谢 请教有经验的学长:动态网页在我自己的机器上运行没有问题,但是(急) 一个奇怪的输出问题?各位C高手看过来 如何让Edit1->Text 等于float类型的变量? 菜鸟问题,在线等 Win98下的SOAP. 哪位大侠有installshield 7.0 以上版本的,发我一个,谢谢!!! 在word中用鼠标滚动的时候,左下角的 行 页变化是怎么的出来的,有没有程序呢 请大家看过来,apache配置文件是否有错,超紧急求救! 如何让Edit1->Text 等于float类型的变量? 为何提示不能创建对象?急死我了 在对话框类中怎样向视图类发送刷新视图的消息?谢谢 急,在线等!同样的打印程序(套打),为什么在不同的操作系统下面打印的位置有差别,怎么才能做到同一打印程序在不同的打印机和不同的系 DELPHI+SQL 想要怎么学习才能快速成长 哪个前辈指点指点 请你们指教好吗 串口通信问题 一个排序的问题! JBuilder下的编辑问题 急呀!vba高手帮帮忙? 动态类型转换 关于软件测试,测试结论 大家进来说说 如何在当前目录下调出一个CHM格式的文档? 为什么动态增加的WebBrowser1.Align不能为alClient啊? 怎样通过代码实现CTRL+C和CTRL+V的功能? 有两个问题要问,很难的哟,谁来挑战一下!! 在dll中能不能声明一些类,供外部程序调用?能给个例子最好; 各位,请帮我看看! weblogic6.1中配置好了oracle9i的连接池,名为oracle9,但是编程工程中如何使用这个连接池,希望答复!! MSXML2.XMLHTTP 是什么组件? 颜色填充 我要用到GPRS的知识,了解者请赐教! 请问在程序运行期间执行label1.text="***"怎么不变啊! 大家帮我看看,为什么不能选择divx压缩? 打开excel文件时提示“重载open方法未获得1参数” 帮忙写报表查询,我搞不定,请求帮忙!!!比较复杂!!!! “白虎”真会克夫吗? 英语翻译桓公问于管子曰:“楚者,山东之强国也,其人民习战斗之道,举兵伐之,恐力不能过,兵弊于楚,功不成于周,为之奈何?”管子对曰:“即以战斗之道与之矣.”公曰:“何谓也?”管子对曰 扼腕拼音 中央教育局电话号码急 请问湖北教育局的电话号码是多少啊? 请列出并逐个详细描述 spr coffee品质如何? 我想一个人去流浪现在的社会太硝烟了,我过的很压抑,一切都是那么虚假脆弱,每个人的面具撕下一层还有一层,看不到真实.我只想一个人在一处安静的地方没有那么多的纷扰,静静的生活,自己 dream什么意思 dream 什么意思啊 古人赞美柳与今人赞美柳在方式上有什么区别 外媒对中共三中全会怎么看?问题越来越多 咨询越来越少 自杀干预温州多家典当行集体看走眼 假首饰“骗海上丝绸之路:周边外交的动脉与桥梁强风暴抵达俄罗斯圣彼得堡惊涛拍岸德媒:美在全球设点监控政府通讯澳女公务员出差搞一夜情 拽下台灯砸掉媒体:中国需要制定法律对现有反恐机制美媒爆料国家安全局秘密潜入雅虎、谷歌日本地方政府预测南海海沟若地震恐死1人质事件凸显菲律宾“幼稚政治”开封拟任命2名官员|名单日本软银将与沙特联手创建千亿美元级投“中国标准”助力孟加拉国能源开发英镑贬值,伦敦买包最划算经济学家林毅夫:中国既需要做一个老师四川一艾滋女卖淫被警方抓获 审讯视频黑龙江“赏冰乐雪”系列活动启动 助推八百流沙极限赛:中外选手徒步多种地貌拓宽资金管道通渠 引来资本活水重庆永川一村官违规办婚宴 收贫困户礼男子坚信能中一等奖 挪用公款200余仙狐娱乐好莱坞之路混在澳洲当土豪万世神君哈利波特与秘密宝藏极品直播之无限作死江山盛世火影之副本系统混在大明当皇帝为长生大数据修炼系统神水阁旅游回龙景区旅游龙泉寺旅游星湖湿地公园旅游青云谱旅游玉龙洞旅游芳草园旅游六顶山渤海墓群旅游玉泉国际狩猎滑雪场旅游下枧河旅游白龙公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘