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

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

千兆的带宽是不够的,最新研究将我们带入400G时代! 告诉你一个事实:移动互联网依然不大 一切才刚刚开始 戴尔的10亿美元云扩建计划到底是什么? iOS vs. Android,应用设计该如何对症下药? 扁平化设计五大原则 16种折磨开发者的方式 2013年度中国优秀开源项目征集活动正式启动 技术趋势:产品设计向“钱”看 服务器领域:旧时代已过 新时代正在降临 速度与金钱的碰撞:F1赛车将搭上大数据的东风 中国·北京第一届开源大会Hadoop专场侧记:Hadoop已经成为大数据分析平台的标配 Marissa Mayer为何带雅虎重回门户时代? 开发者最爱的三款开发工具 Facebook开源JavaScript库:React 硬件天堂深圳行:从Seeed Studio、Knewone到柴火创客空间 消费应用开发难赚钱?做个企业app store吧 开发开源软件的智慧:够简单,很好用 历届中国云计算大会PPT集萃(终章):架构到实践的全面解析 透过现象看本质:详谈数据可视化 专家观点:HTML5无法彻底抹杀Native应用 Google地图工程主管Raj Shah跳槽至微软在线服务部门 微软证实Windows 8.1引入类“开始”按钮 系统6月26日开放下载 PHP开发者意向调查:移动开发+云服务成为焦点 研发周报:16种折磨开发者的方式 移动周报:Jolla和Sailfish OS,那些你应该知道的事儿 优化技巧分享:把内存消耗降低至原来的1/20 85后程序员:独自一人,完成一个HTML5开源图形库 关于Waze的前世今生,你所不知道的事 代码审查——提高代码质量的终极武器 值得开发者关注的8个HTML5 API 最初设计方案大公开!LINE STAMP 贴图诞生记 微积分求救!!!! 我的WEB程序用了VB开发的组件,请问用INSTALLSHIELD安装怎样连带组件一起安装? 急!求多表,多选查询sql语句 这个ActiveX控件如何实现 求教~~~ 在Sqlserver2000的function中能用。。。。。 关于虚拟主机的数据库服务器 VC、DELPHI问题 模拟串口问题。 高分相送。 截屏问题 一个很奇怪的问题??? ping值总是不稳是什么原因? 初次接触GIS,有什么书可以入门的介绍一下 和一MM聊天,开始很投机,后来一见面就对骂! 怎么批量插入数据 大家都来看看吧,顺便散点分 我的FLASH在没有装FLASH的IE怎么不可以自动下载FLASH? linux 断电后,启动失败,该如何处理!? 初级菜鸟问题,求助 终于解封了,多谢没头脑,偶以后再也不倒粪和刷屏了! 各位大侠,救命!亟待解决! 如何使一个数据库用户的所有对象只读,不可写? 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 怎样动态生成一个adoquery,并能进行数据库查询,小妹急用,100分奉上 怎么转换这个SQL Server的存储过程为oracle的 多语言数据库的应用程序,象DBGRID字段里的这些标题我应放在哪里好? 最简单的语句,最奇怪的问题。&&&&&&& 在线等待!!! D3D的简单问题 如何控制LineTo划线的颜色和宽度? 高分求《面向对象分析与设计》杨正甫编这本书下载地址。。。 学习DELPHI用铁道出版的乔林《参透Delphi/Kylix》 如何? 请问是否有比较简便的方法可以知道,程序中哪些变量定义完后根本不用? 按钮提交并链接不同页面的问题。 简单的问题 请教VC++高手:在MFC中,如何把剪贴板中的位图按原比例打印出来? 分不够再加! 怎么样在vb中读取bmp的位图信息,将图中所有黑颜色的象素 谁在20分钟内答出以下问题能拿高薪 如何修改注册表的键的默认键值? WINXP开始运行宽带播号程序缓慢,什么原因? newwish2 给我一个例子,邮箱:make_a_wish@163.com!!!着急呢!! evc4.0中文显示的问题! struts--html:select 为何出不来? 讨论:关于WinXP下开发的COM+的分发问题!! 菜鸟的小问题!! 一个关于东芝笔记本的故障 请问JBuilder错误提示:cannot access directory javax\mail at line 7, column 1 CSDN的速度越来越慢了,来这里的高人也越来越少了! 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 小小问题!!! 困扰我多时了。。。 sybase 在程序中连接的问题。急,我咨询Sybas公司也不行。 按钮茶馆开张啦,有闲的进来聊天吧~ 某商店一个计算器卖了64元,赚了60%,这家商店共盈利多少?请你们帮我解答! 三角形ABC中,(a+b+c)(a+b+-c)=3ab,则cos(A+B)=? 将一张圆形纸对折3次 seagull怎么读? 现在是1分59秒,30分59秒后出发,是什么时候 描写大雁形态的段落、句子(要优美)急 计算今年利润和去年年底库存有关系吗? 在三角形ABC,若(a+b+c)(a+b+c)=3ab,求cos(A+B)= 菱形的一个内角为60°,一条对角线的长为2根号3,则另一条对角线的长为 已知多项式aチ0ナ5+5b-7的值为8,则多项式2aチ0ナ5+10b-9的值是 今年全球将同步进行闰秒调整,在北京时间7月1日7时59分59秒后增加一秒,这一时刻为:1.太阳时6月30日23时59分59秒 2.纽约时间6月30日23时59分59秒 3.巴黎时间6月30日23时59分59秒 4.格林尼治时间6月3 菱形的一个内角是60°,较长的一条对角线长5根号3㎝则菱形的周长和面积是多少 求解初中数学问题(第十题) 六年级语文》智慧之花中花的意思为 在三角形ABC中,若(a+b+c)(a-b-c)=3ab,求COS(A+B) 谁帮我解下这个数列题目啊Sn是数列{An}的前N项和 且总有Sn=qAn+1(q大于0且不等于1)求{An}的通向公式 贱人的英文谐音,和神经病、脑残、泼妇挨个解释 什么是核苷酸序列 an=1/n对于一切n>1的自然数,不等式an+1 + an+2 + …… + a2n >1/12 loga (a-1) + 2/3恒成立,试求实数a的范围. “好男怕恶男,恶男怕泼妇”这句话地道的英语怎么翻译? 牛津英语7A 上 Uint1上填空部分内容Uint 1 上 第16.17页上关于Li Hua什么的填空答案`````磁带找不到了好的会追加分 设数列{an}的通项公式是关于n的一次函数(n∈N+),已知a8=15,且a₂,a5,a₄成等比数列.(1)求数列{an}的通项公式,(2)求a3+a6+a9+a12+…+a36 Nike 女式 短袖T恤 433338上的英文前面怎么是泼妇,后面怎么是小鸡啊,谁给个答案, 核苷酸序列U57641 在各项均为正的数列{An}{Bn}中,A1=2,B1=4,且An、Bn、An+1成等差数列,Bn、An+1、Bn+1(以上n、n+1均为角标)成等比数列,求(1)An、Bn(2)(1/A1+B1)+(1/A2+B2)+(1/A3+B3)+.+(1/An+Bn) 什么是啃胎? 滞空时间1秒算多吗? 3个连续奇数的和是最大的两位数,这三个数是?谁知道, 这配置可以啃苹果吗?要怎么啃? “我可以给你一点”的英语怎写? 奇数中最大的两位数少75这个数是几 各位都啃多久苹果了,觉得好啃么?刚开始啃苹果,不知道有多少能啃的大侠在,顺便浇水! 我可以不是你的第一,但我希望我是你的唯一 英文怎么说 求正确回答~ 如何把图式理论应用于初中英语的阅读教学 谁给个啃苹果邀请给我 把边长6分米的正方形对折,得到的长方形的周长是多少? 新版初一政治上册内容速度快点 多项式(m2-25)x的三次方-(m+5)x2+x+3是关于x的二次三项式,求下了二次三式,求下列各式的值.(1)(m+3)(m-3)(2)m2-9 一张纸对折一次裁开后可以得到两张,两次裁开后可以得到四张,对折三次、N次后可以得到多少张? 初一上册数学的内容 什么是热电偶的热端和冷端?其作用又是什么? 因你而快乐或为你而担心作文我可以+分!急vvvvvv 初一上册语文要背的内容 A,B两地相距125千米,甲,乙两人骑自行车分别从A.B两地同时出发相向而行.丙骑摩托车每小时行63千米 如果以后有时间,我希望我可以去长城走走 英语怎么说? 既是3的倍数又是5的倍数的最大两位奇数是( ) A,B两地相距125千米,甲,乙两人骑自行车分别从A.B两地同时出发相向而行.丙骑摩托车每小时行63千米,与甲同时从A出发,在甲.乙两人之间来回穿梭(与乙相遇立即返回,与甲相遇也立即返回)若甲 帮下忙,制作流光字; 如果时光可以倒流,我宁愿没有遇见你 ◆、by薇 孙思邈是活了101岁还是141岁? 怎么看出来时间是1秒 品茶论足 什么意思 16题.姐等着呢! 次日的零时起,是什么时候?是当天晚上的23:59:59秒后的1秒吗? 茗香是品茶的意思吗?知道的告诉我一下啊.谢谢! 一张正方形的纸,沿对角线对折后,在得到的纸上随意剪出一个花纹,打开纸后得到的图案至少有一条对称轴,如果将上面的纸在对折一次,在上面剪出一个花纹,打开纸后得到的图案至少有两个对 若a,b,c分别表示三角形的顶点A,B,C所对边的边长,且(a+b+c)(a+b-c)=3ab则cos(A+B)=? 品茶讲究三回味,是什么意思? 商品加百分之四十利润怎么用计算器计算 全球时间增加一秒后,到7.2号,以后的时间是不是没有60秒而回到59秒了? 品茶时常说的味最酽是什么意思经常在品茶时听说到《酽》请懂的朋友来解释一下, 安倍称不容中国“武力崛起” 外媒称中胡万林治死者父亲:胡万林是杀人应关一大学生召妓嫌对方太丑 被逼下跪道歉还中国海警编队10月28日在中国钓鱼岛上海自贸区基本运行制度创新框架已建立伊利方舟安全演练推动内蒙“平安校园”宗庆后支招新浙商创业重在创新 不要走马尼拉拟筹800至1600万赔款 多吴伯雄盼两岸主管部门负责人借设办事处南京一司机装“自动翻转号牌框”遮蔽号国民党庆祝建党119周年 推出“党证雾霾笼罩三亚令人震惊 美报称中国降低外媒:安倍告诫中国勿以武力夺岛东道主哈萨克斯坦成世界拳击锦标赛最大谁拥有小布什政府最终决定权?———新外媒:中国经略周边消除“中国威胁论”美媒:安倍讲话相当于给中国人“当面一韩向美要求:日本行使集体自卫权时需先阿根廷举行中期议会选举 女总统执政联马达加斯加大选结束 各方观察团认为投新闻集团窃听丑闻将开审 或付出16亿人民币汇率趋势及基本应对策略:现金为杨小虎:乡镇如何用心实施精准扶贫的思保姆竟然这样哄孩子睡觉,我实在接受不常吃枸杞可祛病延缓衰老处女座幸运月该戴什么样的紫檀佛珠手链今日管理百科之激励相容中国富人怎么赚钱???90%的创业者做产品时都会犯的错!!人物 | 成胜:我知道机遇总会来的重磅消息!淘宝新政拟全面禁止全额返现终于有人把“约炮经济学”讲清楚了荐号|股市惊天大暴跌,一大波富人雪崩4个月融资1.4亿,投资人为什么相信电商也打不垮,迪卡侬实体店内究竟藏有科技股灾!中概股“私有化”泡沫要破?华尔街日报专访柳青:滴滴快的如何击败打造中英两国坚实的“利益共同体”不坐过俄罗斯的火车,死不瞑目!武穴有个地方,美得实在太任性....餐饮,吃过这60样东西,才算圆满!不能让国考中的“冷”岗位再冷下去了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘