网络编程的五大
Visual Basic 6.0(以下简称VB 6)以其强大的功能为广大软件开发人员所喜爱,被用来开发各种应用程序。随着Internet的迅猛发展,VB6在络方面的应用开发也越来越多。本文介绍笔者在实际编程开发中总结的5个技巧,希望能为进行络开发的朋友们提供一点参考。
连通检测
许多应用程序常常需要在程序中直接进行联操作,以便进行一些必要的处理(如注册和帮助等),这就要求我们在程序中建立某些连接。很多软件在不知用户是否联的情况下就启动浏览器查找址,结果只能查出一错误页,既浪费用户时间又没有任何效果。如果应用程序在查找页之前能自动判断用户是否已经联,就会节约许多时间,提高程序运行效率。
下面是实现络连通检测的VB 6代码:
Private Sub Form_Load()
If IsConnected = TRUE Then
MsgBox (\"您已经连通了Internet!\")
End If
If IsConnected = FALSE Then
MsgBox (\"您还没有连通 Internet!\")
End If
End Sub
Option Explicit
/*有关的API声明和定义*/
Public Declare Function RasEnumConnections Lib \"l\" Alias \"RasEnumConnectionsA\" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib \"l\" Alias \"RasGetConnectStatusA\" (ByVal hRasCon As Long, lpStatus As Any) As Long
/*常数和变量的设定*/
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32
Public Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Public Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
/*函数IsConnected返回连通的状态,如果为True则表示已连通*/
Public Function IsConnected() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
美国军队将设法对利比里亚抗击埃博拉疫情的斗争做出大幅调整。一个由3000名军人组成的美国团队不会参与埃博拉患者的治疗工作 Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal 0 Then
MsgBox \"错误\"
Exit Function
End If
Size = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon,Tstatus)
If sConnState = &H2000 Then
IsConnected = TRUE
Else
IsConnected = FALSE
End If
End Function
石家庄牛皮癣检查多少钱拉萨包皮过长治疗哪家好
兰州专业治疗妇科医院
- 糖水店里有4名员工,老板娘居然拿到了这5万元的创业补贴
- 这种杀印相生的格局,即使重回公职也非长久之计
- 在《单纯的世界》中,相较于孙少安,李向前或是润叶最合适的归宿
- 兰州局援助天津十车皮牛羊肉无人接收?天津铁路部门辟谣
- 53岁女子肚大如孕四月,竟是肝细胞藏着11cm大小子宫肌瘤
- 真正能打动班上的,不是浪漫。
- 【关注】银川市教育局自主招聘报考总数统计!
- 人民网易:如何织好医疗保障“三张网易”?
- 真正会咒骂的人都会用这3个方法,把话说到对方心坎里,很精彩!
- 鲁东该大学国家级和省级一流本科专业增至31个
- 一顿吃60个包子,一次喝6斤火炉,把大夫话当耳边风,35岁便离世
- 女人在最开始就达到了最好,怎么走都是下坡路