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

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

是时候抛弃Eclipse转向IntelliJ了 Arrow:轻量级的Python时间日期库 编程语言API,你最青睐哪一款? 推动新输入方式发展:英特尔为感知计算设1亿美元基金 AWS到底有多大?目前看来有158000台服务器 C语言实现树的动态查找 第五届中国云计算大会于北京隆重举行 改变企业移动化:新Google地图API支持用户定制 诺基亚旗舰手机EOS真机图曝光 配备“巨型”摄像头 走进豆瓣:豆瓣的技术架构与团队文化分享 加速Web开发的10款HTML5工具 微软式微?AMD、英特尔等开始疏远Windows 语音技术现状:四千万突破语音产业的技术壁垒? 万维网联盟W3C推荐Web性能API 微软郑子颖:Windows Azure如何支持开源系统和软件? EMC 叶成辉:软件定义数据中心实现统一、开放的管理 百度云主任架构师 侯震宇:云终端开启数字生活 中国工程院院士 倪光南:中国云计算在全世界份额远超3% 信息图:未来的企业移动培训应用与技术 “2013年度中国优秀开源项目征集”活动最后三天 为什么开发者倾向于使用杂乱无章的免费工具 EMC合作伙伴销售经理杜术清:实现云的三种途径 开发者想走向海外:你融入老外的圈子了吗? 前微软工程师:美国监控和直接访问服务器?这不太可能 代码、TDD速查表 如何选择前端架构:服务器端HTML vs. JS部件 vs.单页Web应用 世界上最高深的Android特洛伊病毒 招聘iOS开发,老板必问的5个问题 护航科技吴伟湘:IT离线安全体检服务将带来颠覆 百度王继平:移动互联网时代云平台思路 “第八届开源中国开源世界高峰论坛”火热开启 请教三层开发 请问用stringGrid控件,怎样获知当前行是第几条纪录? JScrollbar的颜色怎么改??? 请Norwaywoods(挪威的森林)来拿分!!!(方法见内容) php连mssql,php.ini or httpd.conf需要改动什么地方? 关于多文档编程的超难问题,高手请进!!一定给分,我会继续加分!!! 提问:关于软件测试的若干问题,谢绝灌水者入内!高薪聘请业内人士! 请问用javascript怎么显示客户端的IP地址?谢谢 sql问题 oracle中什么权限,才能使一个用户下的表参考另一个用户下的表(就是外键)? 种了中国一号病毒,怎样才能铲草除根? yinx(yinx)请进,拿你应得的分数 请各位高手帮忙,有高分送上。 一个SQL语句的问题。谢啦 为什么我的msdn帮助系统“目录”、“索引”等里的标题都显示不出来了呢? 存储过程只能用一种方式调用吗? 数据库字段问题 如何在ADO的SQL控件中不用ODBC完成长型备注型字段的模糊查询 数据库连接问请各位指点(300分) 圖像控件和報表製作 创天中文版是怎么汉化的?我想把它改回英文的要怎么改? 请问有没有Linux版本的QQ? 找DriverStudio2.5正式版 VB6中不能使用ACCESS2000数据库??? vb中怎么调用dos命令 请问海星... 哪有visual age3.0下载? 有关FTP 我双击注册表编辑器出现"注册表编辑器被管理员禁用"是怎么回事?怎么解决? 如何更改Oracle显示日期的默认方式? *****高手请进****** ======================各位高手,看一下!UP也有分! 请问安徽的高程成绩什么时候可以查? 请问谁知道vb里面如何调用notes对象,怎么调用? 急急急,我好急,有没有办法先把记录集处理一下在绑顶到datagrid 请问为什么这一段XML代码运行不了???为什么???帮帮忙??多谢!! 请教有关手机方面的问题 连编好的可执行文件不能用 帮帮忙啊 哪儿有免费的jsp空间并且有数据库支持的?谢谢 客户机的WinSock控件采用TCP协议,如何使用预设的固定的端口? sos!Help me! 有谁知道怎样用Capwnd控件(用于捕获视频的控件)?? 请帮我看看,谢了 请问如何控制imagecombo控件的下拉高度呢? 能告诉我什么是回调函数吗?注册的系统回调函数中引入的参数能在别的地方得到吗? 在RicheEdit里的字体颜色都是黑色,能变成其他颜色吗? 请问在视中如何使主框架的某个菜单项变为不可用(代码如下,错在什么地方,如何改?)! 请教VFP中GRID的显示和取值问题 请教一些有关用ROSE进行UML设计的问题 高薪寻找合作者:医院信息管理系统 是不是所有恐龙死了都变成化石? 不锈钢无缝管承受压力求助:现有液压设备要安装,管路设计用不锈钢无缝管,液压设备最大的压力为16Mpa,请问管子选用14*2mm,16*2mm的能承受这个压力吗?顺便问问这个东西怎算计算的,谢谢!急切 已知等比数列{an}的同项公式为an=3^n-1,设数列{bn}满足对任意自然数n都有b1/a1+b2/a2+b3/a3+...已知等比数列{an}的同项公式为an=3^n-1,设数列{bn}满足对任意自然数n都有b1/a1+b2/a2+b 为什么形成化石的首要条件是生物的大量死亡? 无缝钢管承受压力160mpa系数是多少 硫化皮带需满足哪些要求 生物化石属于生物吗? 高压锅炉无缝钢管的承受压力是多少? 皮带硫化接头如何计算? 世界上有死化石吗? 无缝管的压力怎样计算 急已知 外径89 壁厚8 抗拉强度 465 求压力 煤属于岩石吗 化石就是生物吗?是或不是? 已知数列的前n项和Sn=2n^2+2n,数列bn的前n项和Tn=2-bn,设cn=an*bn,证明:当且仅当n>=3时c(n+1) 硫化皮带措施怎么写啊? 下列岩石中,可能含有化石的是()A.花岗岩和页岩 B.大理岩和砂岩 C.砾岩和板岩 D.石灰岩和页岩 液压表与气压表的区别我有一个量程1.6Mpa的压力表,是不是既能测气压又能测水压?压力都不超过0.8Mpa.这两种压力表在使用上有什么本质上的区别吗?(不要跟我说什么“这本质就不一样”的废 热硫化皮带的危害我是一名煤矿工人,想要咨询一下硫化皮带的危害:包括硫化时产生的气体和所使用的化学物品《胶浆》的危害. 地壳中含有动植物化石的岩石是?A.火成岩B.沉积岩C.变质岩D.花岗岩 气压表怎么调压力 已知各项均为正数的数列{an}前n项和为Sn,2Sn=3an-9(1)求{an}的通项公式(2)若bn=log3 an,Tn为数列{1/(bn*b(n+1))}的前n 项和,证明Tn<1/2 地球上的不可再生能源分别是哪些?(只要名字)请说全点,我只要哪些不可再生能源的名字就可以了, 已知压力容器的设计压力,如何确定计算压力?如设计压力为0.8MPa,计算压力? 如果量的压力一样,气压表能否当油压表用,回答正确我会加20分的,因为现在回答中打广告的太多了, 人类在地球上还能支撑多少年?1、环境恶化,也许很快人就不能适应了.2、资源枯竭,人也许用不了多少年就没东西吃了. 给排水设计水力计算,怎么计算最不利点和每段的压力我画的是高层公建给排水给水立管,设置减压阀的时候要通过水力计算.管道水头损失怎么算 必须的出水水头怎么算?有公式么 压力表和气压表的区别 哪里的橡胶制品生意好做一点 设计选型计算用的压力比如知道管道及缓冲罐进口工作压力0.25Mpa,设计压力为1.6Mpa,当进行缓冲罐选型计算的时候使用1.6MPa为操作压力还是0.25Mpa呢? 什么叫绝对压力、表压力? 为什么橡胶制品出油?像带的腕带,中性笔上的橡胶套,长时间后 会油油的,还有特殊气味,为什么? 构成生物化石的主要成分是()生物体的基本物质蛋白质生物体的遗传物质核酸生物体的主要供能物质糖类溶于地下水中的矿物质 数列{an} {bn}满足:a1=0 a2=1 a(n+2)=[an+a(n+1)]/2 bn=a(n+1)-an 求证 bn是等比数列和 bn的通向公式 它是不是化石怎么鉴别是否是化石~在内蒙古呼和浩特有没有鉴定这种石头的地方~ 生物为什么会化石生物化石的发生了哪一些化学变化 在沼气、石油、医用酒精、钢、干冰、熟石灰中属于含有碳元素的混合物有几种? 这是不是某种化石? 化石算是生物吗 我们生活中的石油煤气是不是地底下的沼气? 哪个专家帮忙看一下这个是不是化石.是哪个时代的植物化石. 我要做作业,快 液压系统上的压力表指示要换算成油压应该怎样算呀? 橡胶制品中什么材料与铬反应 500米线路80千瓦负荷需要多大电线如何计算 液压系统的回油压力是怎么回事 化石只出现在沉积岩中吗 设cn=(an+1)bn.n=1,2,3……求数列{cn}的前n项和Tn已知数列{Bn}的前n项和为Sn且2Sn+Bn=2,数列{An}为等差数列且As=14,A7=20(1)数数列{Bn}的通项公式 下列物质不能作为能源的是:A天然气B石油C煤D石灰石 为什么石灰岩能找到生物化石 总负荷怎么算啊我把我们公司的所有用电器(电脑.空调,灯,食堂的锅冰箱等)的最大功率都加一起了,总和为107.55KW,电表上写的是3X20(80A),3X220/380.请问有没有超负荷啊,怎么算才对啊. 已知两个等比数列{an},{bn},满足a1=a(a>0),b1-a1=1,b2-a2=2,b3-a3=3,若数列{an}唯一,求若数列{an}唯一,求a的值 为什么只有沉积岩才有化石? 求电焊机的计算负荷施工现场临电施工组织设计,电焊机负荷计算怎么求啊,要详细一点的,还有公式,讲解什么的, 已知两个等比数列{an},{bn},满足a1=a(a>0),b1-a1=1,b2-a2=2,b3-a3=3问题(1)若a=1.求数列(an)的通 (2)若数列{an}唯一,求a的值 石灰岩一般含有什么化石 三相电负荷计算三十千瓦负荷要多大电线 已知两个等比数列(Sn).(Bn).满足a1=a(a>0),b1-a1=1,b2-a2=2,b3-a3=3,(1)若a=1.求数列(an)的通 在野外考察,最有可能发现的化石是不是沉积岩 Φ57无缝钢管能承受多少压力 在数列{an}中,a1+a2+a3+...+an=n-an(n=1,2,3...),设bn=an-1,求证数列{bn}是等比数列,设Cn=bn·(n-n^2)(n=1,2,3...),如果对任意n属于正整数,都有Cn
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn