博文

在Access数据库中实现密码管理的另一种方式 (2005-10-15 11:57:00)

摘要: 在Access数据库中实现密码管理的另一种方式 作者: 王小娟 评价: 上站日期: 2001-09-01 内容说明: 来源:
  大 家 都 知 道, 数 据 库 的 安 全 性 是 很 重 要 的, 它 直 接 影 响 到 数 据 库 的 广 泛 应 用。 用 户 可 以 采 用 任 意 一 种 方 法 来 保 护 数 据 库 应 用 程 序, 也 可 以 将 几 种 方 法 结 合 起 来 使 用。 利 用Access 数 据 库 自 身 提 供 的 加 密 功 能 及 其 他 保 护 方 法 是 很 容 易 的, 我 就 不 多 说 了。 在Access 数 据 库 中, 嵌 入 了 一 种 很 强 的 数 据 库 操 作 语 言 — —Visual Basi......

阅读全文(3199) | 评论:0

VB中利用WinRAR进行文件压缩(2005-10-15 11:55:00)

摘要:VB中利用WinRAR进行文件压缩 作者: 评价: 上站日期: 2001-09-01 内容说明: 来源:
    一些数据库文件(如Access文件)在远程传输过程中可能由于文件比较大而影响传递效果。如果进行压缩以后再传递,会减少传递时间,避免意外的发生,同时也保证了传递效果。我们在压缩文件时,最常用的压缩工具为WinRar和Winzip,笔者在VB编程过程中利用WinRar工具来压缩数据库文件,并完成远程传输,十分方便,在此向大家介绍一下。用WinZip的方法类似。

  一、Shell函数
  Shell函数是VB中的内部函数,它负责执行一个可执行文件,返回一个Variant(Double),如果成功的话,代表这个程序的进程ID,若不成功,则会返回0。

  Shell的语法:Shell(PathName[,WindowStyle])。

  PathName 为必需参数。类型为String,它指出了要执行的程序名,以及任何需要的参数或命令行变量,也可以包括路径名。

  WindowStyle为可选参数。Integer类型,指定在程序运行时窗口的样式。WindowStyle有以下这些值。

  常量 值 描述
  VbHide 0 窗口被隐藏,且焦点会移到隐式窗口。
  VbNormalFocus 1 窗口具有焦点,且会还原到它原来的大小和位置。
  VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示(缺省值)。
  VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
  VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。
  VbMinimizedNoFocus 6 窗口会以一个图标来显示,而当前活动的窗口仍然保持活动。

  二、关于WinRar的用法
  主要介绍以下如何在Wi......

阅读全文(2259) | 评论:0

浅谈用VB6.0编写BO程序 (2005-10-15 11:50:00)

摘要:浅谈用VB6.0编写BO程序 作者: 洪杭迪 评价: 上站日期: 2001-09-01 内容说明: 来源:   
  BO又称“特洛伊木马”, 是在美国一次黑客技术讨论会上由一个黑客组织推出的。它其实是一种客户机/服务器程序,其利用的原理就是:在本机直接启动运行的程序拥有与使用者相同的权限。因此如果能够启动服务器端(即被攻击的计算机)的服务器程序,就可以使用相应的客户端工具客户程序直接控制它了。下面来谈谈如何用VB来实现它。 
  使用VB建立两个程序,一个为客户端程序Client,一个为服务器端程序systry。 
  
  在Client工程中建立一个窗体,加载WinSock控件,称为tcpClient,协议选择TCP,再加入两个文本框,用以输入服务器的IP地址或服务器名,然后建立一个按钮,按下之后就可以对连接进行初始化了,代码如下: 
  
  Private Sub cmdConnect_Click()
  If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then
  MsgBox ("请输入主机名或主机IP地址。")
  Exit Sub
  Else
  If Len(Text1.Text) >  0 Then
  tcpClient.RemoteHost = Text1.Text
  Else
  tcpClient.RemoteHost = Text2.Text
  End If
  End If
  tcpClient.Connect
  Timer1.Enabled = True 
  End Sub
  
  
  连接建立之后就可以使用DataArrival事件处理所收到的数据了。&......

阅读全文(2124) | 评论:0

程序中如何启动默认的拨号连接(2005-10-15 11:50:00)

摘要: 程序中如何启动默认的拨号连接 作者: 评价: 上站日期: 2001-09-04 内容说明: 来源:

随着因特网的迅猛发展,现在编程常需要在程序中直接联网来处理一些事项,如在线注册和在线帮助,这就要求我们要在程序中建立某些连接。很多软件在不知用户是否联网的情况下不管三七二十一就启动浏览器查找网址,费了九牛二虎之力只能查出一错误页来(当然不可能有什么好的结果)。如果我们在程序编写时能自动判断用户是否已经联网,如已经联网则打开联接,如没有则启动默认的拨号连接,这样是不是让人觉得你的软件更胜人一处呢?判断是否已联网很多地方都有介绍,这里我们只介绍如何启动默认的拨号连接。 
---- 在介绍之前让我们首先看看如何打开拨号网络。由于拨号网络不是一个可执行文件,所以不能用 “Shell 可执行文件”的方式来打开。要启动拨号网络,需借助 Explorer ,方法如下: 

Shell "Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}($%$43%^#ASD#2@$#f$%^) & "::{992CFFA0-F557-101A-88EC-00DD010CCC48}", vbNormalFocus


---- 但若是要启动拨号网络中的某一个连接,则需借助rundll.exe 及 rnaui.dll来启动,方法如下(假定连接名称为163): 

Shell "rundll rnaui.dll,RnaDial 163", vbNormalFocus


---- 说明:在以上叙述中,“,RnaDial 163”这部分不要插入额外的空格,大小写也不要任意更改。 

---- 上面仅仅假定了连接名称,但实际编程中我们是不知道其名称的,如何取得默认的连接名称并启动它呢?这里我们可利用注册表来达到目的。......

阅读全文(2474) | 评论:0

用VB实现WEB交互式应用(2005-10-15 11:49:00)

摘要:用VB实现WEB交互式应用 作者: 西南工学院 刘宗良 杨 薇 评价: 上站日期: 2002-05-22 内容说明: 来源:
摘要 本文介绍了Internet应用程序及相关概念,并通过一个示例,介绍了使用VB创建IIS应用程序来构建交互式WEB应用的方法。
关键字 Internet应用程序,IIS,HTML
Microsoft Visual Basic 6.0增强了创建Internet应用程序的功能。Internet应用程序是一种编译好的交互式应用程序,通过Internet或intranet能够访问这种应用程序。在VB中有两种类型的Internet应用程序:基于服务器的IIS应用程序和基于客户的DHTML应用程序。基于服务器的IIS应用程序驻留在WEB服务器上,应用程序使用HTTP Internet协议接受从客户端(如WEB浏览器)来的请求,处理相关的代码,然后向浏览器返回数据。IIS应用程序是一个VB应用程序,它在一个动态的、基于浏览器的应用程序中使用HTML和已编译VB代码的组合。对开发者来说,一个IIS应用程序是由一些被称为WebClass的特殊类型对象组成,而WebClass包含一系列称为Webitems的资源。WebClass是一个驻留在WEB服务器上并响应浏览器输入的VB部件,它作为应用程序的中央功能单元,处理来自浏览器的数据并向用户发送响应信息。
本文通过示例一个WEB应用--电话号码查询,说明创建IIS应用程序的一般过程。运行此程序需要IIS3.0、IIS4.0 或 PWS。用户在查询界面输入要查询部门相应的汉语拼音缩写或名称缩写,如为空,则提示输入部门名称;系统以表格形式返回模糊查询结果。
一、创建工程及模板
电话查询界面模板文件的代码如下:
< html> 
< body bgcolor="#F6FAFF"> 
< p align="center"> < font size="6" fac......

阅读全文(4196) | 评论:0

使用VB在WIN2000下截获IP数据包(2005-10-15 11:48:00)

摘要:使用VB在WIN2000下截获IP数据包 作者: 评价: 上站日期: 2002-05-22 内容说明: 来源:
QQ:19632995
MSN:jyu1221@hotmail.com
日期:2002.04.30

      为了方便广大VB爱好者也能向C语言一样能截获IP包,本人特地写了以下的源代码,以供VB开发者参考。

       以下是在VB中截获WIN2000下TCP/IP包的源代码,在VB6.0,win2000下测试通过,需要注意的地方是,1.必须和本地的一块网卡,2.每次获取数据后必须有一段延时。3.数据取到之后放在Buff的数组中。4.把以下的代码放在一个模块中就可以了。
'-----------------------------代码开始--------------------------------------------------
Declare Function bind Lib "ws2_32.dll" (ByVal s As Long, addr As SOCK_ADDR, ByVal namelen As Long) As Long
Declare Function closesocket Lib "ws2_32.dll" (ByVal s As Long) As Long
Declare Function connect Lib "ws2_32.dll" (ByVal s As Long, name As SOCK_ADDR, ByVal namelen As......

阅读全文(3028) | 评论:0

如何通过VB获取网卡地址(2005-10-15 11:46:00)

摘要:如何通过VB获取网卡地址 作者: 评价: 上站日期: 2001-09-04 内容说明: 来源: [功能描述] IPX和NETBIOS接口需要网络地址。该文通过详细的步骤演示了如何通过VB获取网卡地址。
步骤:

1)在Visual Basic生成标准的EXE文件。缺省创建 Form1。
2)在Form1中添加一命令按钮,缺省名为Command1。
3)把下列代码放到Form1中说明部分。

Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32

Private Type NCB
  ncb_command As Byte 'Integer
  ncb_retcode As Byte 'Integer
  ncb_lsn As Byte 'Integer
  ncb_num As Byte ' Integer
  ncb_buffer As Long 'String
  ncb_length As Integer
  ncb_callname As String * NCBNAMSZ
  ncb_name As String&nb......

阅读全文(2390) | 评论:0

使用VB收发电子邮件(2005-10-15 11:44:00)

摘要:使用VB收发电子邮件 作者: 吴斌 评价: 上站日期: 2001-09-01 内容说明: 来源:   发送和接收电子邮件,对于某些执行特殊任务的应用程序而言,是一个十分有用的功能。例如,一个监视网络服务器资源使用情况的工具软件,如果它具有自动发送电子邮件的功能,那么当它发现服务器的资源使用已经接近事先设定的临界状态时,便可以向系统管理员发送一封告警的电子邮件,从而使系统管理员能够及时地采取措施,以避免重大事故的出现。在Visual Basic中,应用程序可以通过调用微软公司的MAPI(Messaging Application Programming Interface,消息应用程序编程接口),实现收发电子邮件的功能。笔者将在本文中结合简单实例,向大家介绍在VB程序中实现电子邮件收发功能的编程方法。
  编制具有收发电子邮件功能的VB程序,必须使用Visual Basic 4.0以上的版本,因为只有4.0以上的Visual Basic才带有两个实现电子邮件收发功能的核心控件:MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话,MAPI消息控件用于创建和收发邮件消息。此外,程序必须运行在采用遵从MAPI的消息系统(如:Microsoft Exchange、Microsoft Mail、Outlook等)的环境中。
  在开始编程之前,首先需要将MAPI控件加入VB工具箱。具体操作是:在VB菜单栏中选择Tools菜单项中的Custom Controls命令,调出"Custom Controls"对话框,在其中的"Available Controls"列表框中选中"Microsoft MAPI Controls"表项,然后按"OK"命令按钮退出该对话框。此后,工具箱中将新添两个图标,这就是MAPI会话控件和MAPI消息控件的图标。
  
  下面,笔者将以两个简单的VB程序为例,分别介绍发送邮件和接收邮件的程序编制方法。
  
  邮件发送程序
  邮件发送......

阅读全文(2893) | 评论:0

VB中Winsock控制的UDP协议的使用(2005-10-15 11:43:00)

摘要:VB中Winsock控制的UDP协议的使用 作者: 张业武 评价: 上站日期: 2001-09-01 内容说明: 来源:     UDP协议基础:
  UDP(User Datagram Protocol)是一种无连接协议,与TCP操作不同,计算机间并不需要建立一个连接,同时,一个UDP应用可同时作为应用的客户或服务器方。
  由于UDP协议并不需要建立一个明确的连接,因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中,一个Winsock控制必须明确地设置成“监听”,而其它Winsock控制则必须使用Connect方法来初始一个连接。
  使用UDP协议,在两个Winsock控制间进行数据的发送,在连接的两端必须完成以下三步:
  1.设置RemoteHost属性为其它计算机的名称;
  2.设置RemotePort属性为第二个Winsock控制的LocalPort属性的值;
  3.申请Bind方法。
  通过使用方法Bind,则可将该Winsock控制捆绑到一个本地端口,以便该Winsock控制使用该端口来进行类似TCP的“监听”功能,并防止其它应用使用该端口。
  使用该协议传送数据,首先设置客户计算机的LocalPort属性。而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可,并将其RemotePort属性设置成客户计算机上的LocalPort属性即可,然后就可通过申请SendData方法来开始信息发送,客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息。
  下例具体演示了一个“谈话”应用,以允许相互间进行实时的交谈。
  UDP应用一:
  建立一个新标准EXE工程文件,拖放一个Winsock控制到表单上,添加两个文本框到表单上,然后进行以下属性的设置:
  表单(Form):Name=“frmPeerA” Caption=“UDP Application(1)”
  Winsock控制:Name=“udpPeerA” Protocol=......

阅读全文(3789) | 评论:0

用WinSock设计Chat程序(2005-10-15 11:41:00)

摘要:用WinSock设计Chat程序 作者: 评价: 上站日期: 2001-09-01 内容说明: 来源:   
  摘要:随着Internet的蓬勃发展,网络界面的交流使我们能够即时收到各地所发生的各项信息。我们在使用各种Browser浏览各网点时,只要Server能提供Chat(闲聊)的服务项目,我们就可以通过Browser所提供的Chat程序与网络上的其他使用者即时对谈及交流心得。本篇文章通过Visual Basic 5.0所提供的WInSock control,设计一个 Chat应用程序。我们通过Client及Server之间的文件传输,可以了解Chat程序的工作原理。
  
  WinSock control简介
  
  WinSock是windows系统提供的一种网络文件传输协议。以往我们使用WinSock设计程序时,必须调用系统提供的API来完成;但是在Visual Basic中调用API,因涉及参数传递类型,用起来并不方便。Visual Basic 5.0 提供WinSock control简化我们的设计流程。它可以利用User Datagram Protocol(UDP)或Transmission Control Protocol(TCP),来设计网络的Client-Server 程序。
  
  TCP是一种Connection base的Protocol,在文件传输时会先行建立Link,通过Link 可确保文件传输的正确性;UDP则是一种Connectionless的Protocol,它在传输文件时不会确保传输端的文件能够正确无误的传送到接收端,所以当我们使用UDP protocol时,我们通常要自己作接收确认的工作。
  
  UDP protocol看起来好像比较没效率,其实不然!UDP protocol有一个好处:当文件很小,或我们要做网络boardcast (广播)时,会比较有效率。 所以了!&......

阅读全文(2336) | 评论:0