|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
Visual Basic 6.0（以下简称VB 6）以其强大的功能为广大软件开发人员所喜爱，被用来开发各种应用程序。随着Internet的迅猛发展，VB6在网络方面的应用开发也越来越多。本文介绍笔者在实际编程开发中总结的5个技巧，希望能为进行网络开发的朋友们提供一点参考。 Kz8Linux联盟
Kz8Linux联盟
连通检测 Kz8Linux联盟
Kz8Linux联盟
许多应用程序常常需要在程序中直接进行联网操作，以便进行一些必要的处理（如在线注册和在线帮助等），这就要求我们在程序中建立某些连接。很多软件在不知用户是否联网的情况下就启动浏览器查找网址，结果只能查出一错误网页，既浪费用户时间又没有任何效果。如果应用程序在查找网页之前能自动判断用户是否已经联网，就会节约许多时间，提高程序运行效率。 Kz8Linux联盟
Kz8Linux联盟
下面是实现网络连通检测的VB 6代码： Kz8Linux联盟
Kz8Linux联盟
Private Sub Form_Load() Kz8Linux联盟
If IsConnected = TRUE Then Kz8Linux联盟
MsgBox ("您已经连通了Internet!") Kz8Linux联盟
End If Kz8Linux联盟
If IsConnected = FALSE Then Kz8Linux联盟
MsgBox ("您还没有连通 Internet!") Kz8Linux联盟
End If Kz8Linux联盟
End Sub Kz8Linux联盟
Kz8Linux联盟
Option Explicit Kz8Linux联盟
/＊有关的API声明和定义＊/ Kz8Linux联盟
Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long Kz8Linux联盟
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long Kz8Linux联盟
/＊常数和变量的设定＊/ Kz8Linux联盟
Public Const RAS95_MaxEntryName = 256 Kz8Linux联盟
Public Const RAS95_MaxDeviceType = 16 Kz8Linux联盟
Public Const RAS95_MaxDeviceName = 32 Kz8Linux联盟
Kz8Linux联盟
Public Type RASCONN95 Kz8Linux联盟
dwSize As Long Kz8Linux联盟
hRasCon As Long Kz8Linux联盟
szEntryName(RAS95_MaxEntryName) As Byte Kz8Linux联盟
szDeviceType(RAS95_MaxDeviceType) As Byte Kz8Linux联盟
szDeviceName(RAS95_MaxDeviceName) As Byte Kz8Linux联盟
End Type Kz8Linux联盟
Kz8Linux联盟
Public Type RASCONNSTATUS95 Kz8Linux联盟
dwSize As Long Kz8Linux联盟
RasConnState As Long Kz8Linux联盟
dwError As Long Kz8Linux联盟
szDeviceType(RAS95_MaxDeviceType) As Byte Kz8Linux联盟
szDeviceName(RAS95_MaxDeviceName) As Byte Kz8Linux联盟
End Type Kz8Linux联盟
Kz8Linux联盟
/＊函数IsConnected返回连通的状态，如果为True则表示已连通＊/ Kz8Linux联盟
Kz8Linux联盟
Public Function IsConnected() As Boolean Kz8Linux联盟
Dim TRasCon(255) As RASCONN95 Kz8Linux联盟
Dim lg As Long Kz8Linux联盟
Dim lpcon As Long Kz8Linux联盟
Dim RetVal As Long Kz8Linux联盟
Dim Tstatus As RASCONNSTATUS95 Kz8Linux联盟
TRasCon(0).dwSize = 412 Kz8Linux联盟
lg = 256 ＊ TRasCon(0).dwSize Kz8Linux联盟
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon) Kz8Linux联盟
If RetVal <> 0 Then Kz8Linux联盟
MsgBox "错误" Kz8Linux联盟
Exit Function Kz8Linux联盟
End If Kz8Linux联盟
Tstatus.dwSize = 160 Kz8Linux联盟
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon,Tstatus) Kz8Linux联盟
If Tstatus.RasConnState = ＆H2000 Then Kz8Linux联盟
IsConnected = TRUE Kz8Linux联盟
Else Kz8Linux联盟
IsConnected = FALSE Kz8Linux联盟
End If Kz8Linux联盟
End Function |
Kz8Linux联盟
启动拨号网络中的连接 Kz8Linux联盟
Kz8Linux联盟
由于拨号网络不是一个可执行文件， 所以要启动拨号网络，需要借助 explorer.exe 。但若是要启动拨号网络中的某一个连接，则要借助rundll.exe 和 rnaui.dll两个文件。启动方法如下（假定此连接名称为163）： Kz8Linux联盟
Kz8Linux联盟
Shell "rundll rnaui.dll，RnaDial 163"，VBNormalFocus Kz8Linux联盟
Kz8Linux联盟
上面假定了连接名称，但在实际编程中我们是不知道连接名称的。在窗体上放置一个命令按钮（cmdCallConnect)，在其单击事件中进行连接处理。下面的代码介绍如何取得默认的连接名称并启动它： Kz8Linux联盟
Kz8Linux联盟
Option Explicit Kz8Linux联盟
/＊有关的API声明＊/ Kz8Linux联盟
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Kz8Linux联盟
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal szData As String, ByRef lpcbData As Long) As Long Kz8Linux联盟
Private Declare Function RegCloseKey Lib "advapi32"(ByVal hKey As Long) As Long Kz8Linux联盟
/＊常数的设定＊/ Kz8Linux联盟
Const HKEY_CURRENT_USER = ＆H80000001 Kz8Linux联盟
Const ERROR_SUCCESS = 0 Kz8Linux联盟
在命令按钮（cmdCallConnect)中加入如下代码： Kz8Linux联盟
Private Sub cmdCallConnect_Click() Kz8Linux联盟
/＊启动默认拨号连接＊/ Kz8Linux联盟
Shell "rundll rnaui.dll,RnaDial" ＋ GetConnect, VBNormalFocus Kz8Linux联盟
End Sub Kz8Linux联盟
Kz8Linux联盟
/＊取得连接的函数（GetConnect）＊/ Kz8Linux联盟
Public Function GetConnect() As String Kz8Linux联盟
Dim hKey As Long Kz8Linux联盟
Dim SubKey As String Kz8Linux联盟
/＊主键＊/ Kz8Linux联盟
hKey = HKEY_CURRENT_USER Kz8Linux联盟
/＊子键＊/ Kz8Linux联盟
SubKey = "RemoteACCESS" Kz8Linux联盟
/＊取得默认连接名＊/ Kz8Linux联盟
GetConnect=GetRegValue(hKey,SubKey, "Default") Kz8Linux联盟
End Function Kz8Linux联盟
Kz8Linux联盟
/＊取得注册的函数（GetRegValue）＊/ Kz8Linux联盟
Public Function GetRegValue(hKey As Long，lpszSubKey As String，szKey As String) As Variant Kz8Linux联盟
On Error GoTo ErrorRoutineErr: Kz8Linux联盟
Dim phkResult As Long Kz8Linux联盟
Dim lResult As Long Kz8Linux联盟
Dim szBuffer As String Kz8Linux联盟
Dim lBuffSize As Long Kz8Linux联盟
/＊创建缓冲区＊/ Kz8Linux联盟
szBuffer = Space(255) Kz8Linux联盟
lBuffSize = Len(szBuffer) Kz8Linux联盟
/＊打开注册键＊/ Kz8Linux联盟
RegOpenKeyEx hKey, lpszSubKey, 0, 1,phkResult Kz8Linux联盟
/＊取得查询结果＊/ Kz8Linux联盟
lResult = RegQueryValueEx(phkResult, szKey, 0, 0, szBuffer, lBuffSize) Kz8Linux联盟
/＊关闭注册键＊/ Kz8Linux联盟
RegCloseKey phkResult Kz8Linux联盟
/＊返回结果＊/ Kz8Linux联盟
If lResult = ERROR_SUCCESS Then Kz8Linux联盟
GetRegValue = Left(szBuffer, lBuffSize － 1) Kz8Linux联盟
Else Kz8Linux联盟
GetRegValue ="" Kz8Linux联盟
End If Kz8Linux联盟
Exit Function Kz8Linux联盟
Kz8Linux联盟
/＊意外处理＊/ Kz8Linux联盟
ErrorRoutineErr: Kz8Linux联盟
GetRegValue ="" Kz8Linux联盟
End Function |
设计E-mail的接收部分 Kz8Linux联盟
Kz8Linux联盟
在VB 6菜单上点击"工程/部件..."，弹出"部件"对话框，在对话框的控件卡中选中Microsoft MAPI Controls 6.0控件，点击"确定"按钮后，工具箱上增加了MAPIMessage和MAPIsession两个图标。 Kz8Linux联盟
Kz8Linux联盟
在Form上加入一个MAPIMessage控件，取名为MAPIMessage1；再加入一个MAPISession控件，取名为MAPIsession1；再加入三个TextBox控件，分别取名为Subject、Content和Indexno， 将它们的Caption分别改为邮件标题、邮件内容和邮件索引号；在TextBox前各加入一个Label控件，将Caption分别改为标题、内容和索引号。 Kz8Linux联盟
Kz8Linux联盟
将MAPIMessage1的各项属性设置如下： Kz8Linux联盟
Kz8Linux联盟
·DownLoadMail=TRUE； Kz8Linux联盟
Kz8Linux联盟
·LogonUI=TRUE； Kz8Linux联盟
Kz8Linux联盟
·Newsession=FALSE； Kz8Linux联盟
Kz8Linux联盟
·UserName="接收Email"。 Kz8Linux联盟
Kz8Linux联盟
在Form上加入一个按钮（Getmail），将其Caption改为取邮件。 Kz8Linux联盟
Kz8Linux联盟
在 Getmail_Click()事件中加入以下程序代码，程序的功能是使我们接收Email。 Kz8Linux联盟
Kz8Linux联盟
MAPIMessage1.Fetch Kz8Linux联盟
Form1.Caption=MAPIMessage1.MsgCount Kz8Linux联盟
MAPIMessage1.MsgIndex=CINT(Indexno.text) Kz8Linux联盟
Subject.Text = MAPIMessage1.MsgNoteText Kz8Linux联盟
Content.Text = MAPIMessage1.MsgSubject |
Kz8Linux联盟
其中Fetch命令用来将信件抓到系统存储器的inbuffer中。我们将信件抓回来后，可以通过MsgCount属性知道信件数量,接着可以用MsgIndex设置要看哪一封信件的内容、标题等。 Kz8Linux联盟
Kz8Linux联盟
设计E-mail的发送部分 Kz8Linux联盟
Kz8Linux联盟
1．参数设置 Kz8Linux联盟
Kz8Linux联盟
进入Exchange系统，选择新增设置文件后屏幕上会显示所需要的信息服务，选择Internet Mail。 Kz8Linux联盟
Kz8Linux联盟
把设置文件的名称设为test。屏幕会显示两个选项，您可以选择以Modem方式或以Network 方式连接。笔者所用的是Modem方式；假若您是使Internet专线，就要选择Network 方式。 Kz8Linux联盟
Kz8Linux联盟
选择Modem方式后，Exchange会要求我们输入邮件服务器的IP地址。接着将Transform Message的模式设置为Automatic，这样当我们连接到邮件服务器时，新的信息会自动下载到本地端。接下来，将您所使用的Email地址、全名、口令和下载路径等一一设置好。 Kz8Linux联盟
Kz8Linux联盟
2．程序设计 Kz8Linux联盟
Kz8Linux联盟
在Form上加入一个MAPIMessage控件，取名为MAPIMessage1；加入一个MAPISession控件，取名为MAPIsession1；并加入三个TextBox控件，取名为Subject、Content和Addr。并在三个TextBox前各加入一个Label，将Caption分别改为标题、内容和地址。 Kz8Linux联盟
Kz8Linux联盟
将MAPIMessage1的各项属性设置如下： Kz8Linux联盟
Kz8Linux联盟
·DownLoadMail=TRUE； Kz8Linux联盟
Kz8Linux联盟
·LogonUI=TRUE； Kz8Linux联盟
Kz8Linux联盟
·Newsession=FALSE； Kz8Linux联盟
Kz8Linux联盟
·UserName="发送Email"。 Kz8Linux联盟
Kz8Linux联盟
这里将DownLoadMail设置为TRUE，当程序和邮件服务器第一次连接时，会将新的邮件下载到本地端。将LogonUI设置为TRUE，则当您程序中Logon名称输入错误时，系统会显示一个Message Box来让您输入正确的名称。 Kz8Linux联盟
Kz8Linux联盟
由于这个程序仅使用一个Session，所以可将NewSession设置成FALSE。如果您有许多session要建立的话，则将它设置成TRUE。UserName中所填的，是我们在Exchange中所新增的设置文件名称，如果没有填内容的话，系统将会显示一些Message Box请您输入文件。 Kz8Linux联盟
Kz8Linux联盟
在Form上加入三个按钮，Logon、Logoff和Send，并分别将它们的Caption改为登录、离网和发送。 Kz8Linux联盟
Kz8Linux联盟
在 Logon_Click()事件中加入以下程序代码，程序的功能是使我们登录到邮件服务器： Kz8Linux联盟
Kz8Linux联盟
MAPIsession1.SignOn Kz8Linux联盟
MAPIMessage1.SessionID=MAPISession1.sessionID Kz8Linux联盟
sgBox "Your ID is" ＋ Str Kz8Linux联盟
(MAPISession1.sessionID) |
Kz8Linux联盟
其中MAPISession1.SignOn是作登录的动作。在登录时，因为已经将MAPIMessage1控件的DownLoadMail属性设置为TRUE，所以可以在屏幕上看到Message Box，显示系统正在下载邮件。登录成功后，系统会传回一个SessionID，将该ID填入MAPIMessage1的SessionID中，这样就可以利用该session来传送Email，同时用Message Box通知用户发送成功。 Kz8Linux联盟
Kz8Linux联盟
在Logoff_Click()事件中加入以下程序代码，程序的功能是使我们离开邮件服务器： Kz8Linux联盟
Kz8Linux联盟
Kz8Linux联盟
在Send_Click()事件中加入以下程序代码，程序的功能是使我们发送Email： Kz8Linux联盟
Kz8Linux联盟
MAPIMessage1.Compose Kz8Linux联盟
MAPIMessage1.RecipDisplayName = Addr.text Kz8Linux联盟
MAPIMessage1.AddressResolveUI = TRUE Kz8Linux联盟
MAPIMessage1.MsgSubject = Subject.text Kz8Linux联盟
MAPIMessage1.MsgNoteText = Content.text Kz8Linux联盟
MAPIMessage1.Send Kz8Linux联盟
MsgBox "您发送成功啦！" |
Kz8Linux联盟
其中Compose命令的主要目的是使您可以改变RecipDisplayName的内容，将所需传送的Email地址、主题和文章内容分别填入 RecipDisplayName、MsgSubject和MsgNoteText，接着用Send命令发送出去。Kz8Linux联盟
访问Internet并调用Explorer Kz8Linux联盟
Kz8Linux联盟
1．实现方法和控件介绍 Kz8Linux联盟
Kz8Linux联盟
首先在VB 6菜单上点击"工程/部件..."，弹出"部件"对话框，在对话框的控件卡中选中Microsoft Internet Controls控件，点击"确定"按钮后工具箱上增加一个WebBrowser图标，将它加到Form中。 Kz8Linux联盟
Kz8Linux联盟
该控件有以下几个重要的方法和事件： Kz8Linux联盟
Kz8Linux联盟
·GoHome：装入IE设定的起始页； Kz8Linux联盟
Kz8Linux联盟
·Navigate：装入页面，如Object.Navigate url，其中url为URL地址，如http://www.microsoft.com； Kz8Linux联盟
Kz8Linux联盟
·GoBack：返回上一个页面； Kz8Linux联盟
Kz8Linux联盟
·GoForward：进入下一个页面； Kz8Linux联盟
Kz8Linux联盟
·Stop：停止载入页面； Kz8Linux联盟
Kz8Linux联盟
·BeforeNavigate Event：在每次装入页面前调用该事件； Kz8Linux联盟
Kz8Linux联盟
·StatusTextChange Event：每次浏览器的操作状态改变时调用该事件。 Kz8Linux联盟
Kz8Linux联盟
2．具体的访问方法 Kz8Linux联盟
Kz8Linux联盟
将WebBrowser图标添加到Form中。并在Form上添加4个命令按钮，Name属性分别为：GoButton、BackButton、ForwardButton和StopButton，通过这4个命令按钮可以实现对浏览器的操作。在Form上添加一个TextBox控件，用来输入和显示当前的页面地址。在Form上添加一个Label控件，用来显示当前浏览器操作状态。 Kz8Linux联盟
Kz8Linux联盟
Visual Basic 6.0（以下简称VB 6）以其强大的功能为广大软件开发人员所喜爱，被用来开发各种应用程序。随着Internet的迅猛发展，VB6在网络方面的应用开发也越来越多。本文介绍笔者在实际编程开发中总结的5个技巧，希望能为进行网络开发的朋友们提供一点参考。Kz8Linux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
