visual basic 6.0（以下简称vb 6）以其强大的功能为广大软件开发人员所喜爱，被用来开发各种应用程序。随着inte.net的迅猛发展，vb 6在网络方面的应用开发也越来越多。本文介绍笔者在实际编程开发中总结的5个技巧，希望能为进行网络开发的朋友们提供一点参考。
连通检测
许多应用程序常常需要在程序中直接进行联网操作，以便进行一些必要的处理（如在线注册和在线帮助等），这就要求我们在程序中建立某些连接。很多软件在不知用户是否联网的情况下就启动浏览器查找网址，结果只能查出一错误网页，既浪费用户时间又没有任何效果。如果应用程序在查找网页之前能自动判断用户是否已经联网，就会节约许多时间，提高程序运行效率。
下面是实现网络连通检测的vb 6代码：
| private sub form_load() if isconnected = true then msgbox (“您已经连通了inte.net!”) end if if isconnected = false then msgbox (“您还没有连通 inte.net!”) end if end sub |
| option explicit /＊有关的api声明和定义＊/ public declare function rasenumconnections lib “rasapi32.dll” alias “rasenumconnectionsa” (lprascon as any, lpcb as long, lpcconnections as long) as long public declare function rasgetconnectstatus lib “rasapi32.dll” 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 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 tstatus.dwsize = 160 retval = rasgetconnectstatus(trascon(0) .hrascon,tstatus) if tstatus.rasconnstate = ＆h2000 then isconnected = true else isconnected = false end if end function |
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
