VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
  • 怎样用VB断开与internet的连接

  • 2017-09-22 21:54 来源:未知
如果你想终止与internet的连接,可以使用VB来断开连接。 
请来访有更多VB方面的信息,我个人主页://yysniu.126.com
怎样用VB断开与internet的连接?

如果你想终止与internet的连接,可以使用断开连接的方法,首先你必须声明以下函数和变量:

Declarations

Public Const RAS_MAXENTRYNAME As Integer = 256Public Const RAS_MAXDEVICETYPE As Integer = 16

Public Const RAS_MAXDEVICENAME As Integer = 128

Public Const RAS_RASCONNSIZE As Integer = 412Public 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
相关教程
  • 【砥砺奋进的5年】空气质量优良 "南宁蓝"常驻绿城 2019-02-17
  • 机关党建工作巡礼——广东“走前头作表率” 2019-02-17
  • 为什么说一直辛苦劳作的农民没有富起来?而不说一直勤劳的农民没有富起来? 2019-02-17
  • 中欧美六国商会签约 国际战略合作在石达成 2019-02-17
  • 【专题】走龙江丝路 向北看发展 华南城 全国重点网媒龙江集中采访活动 2019-02-16
  • 彩民复式追加投注 斩获体彩大乐透1425万 2019-02-16
  • 多彩课堂熔铸红色魂——甘祖昌干部学院教学素描 2019-02-16
  • 张佳宁杂志玩转新娘风 甜系女生展俏皮魅力 2019-02-15
  • 中央调剂制度促进养老保险制度可持续发展 2019-02-15
  • 西安高科工程技术学校——陕西省政府直属中等职业院校西安高科工程技术学校2018招生简章-陕西教育新闻 2019-02-14
  • 旅游低价团暗藏玄机 治理需保持高压态势--旅游频道 2019-02-14
  • 【高清】傈僳族乡村女教师熊文碧:背着娃娃教书 2019-02-13
  • QS世界大学排名发布:中国11所大学进百强,清华排名创历史 2019-02-13
  • 辽宁贯彻十九大精神:领导沉下去 群众用心学 2019-02-13
  • 多部门三令五申禁网售彩票,世界杯竞猜APP上仍热卖 2019-02-12
  • 893| 777| 288| 435| 632| 467| 852| 224| 191| 423|