博文
加密和解密（vb.net)(2006-06-25 07:39:00)
摘要：
Encryption and Decryption
Submitted By: Yasir Attiq Butt, eWorx International
Posted On: 3/11/2005
Overall Rating: 1 (1 ratings, 1 comments)
Description:
Before I found a small code piece to easily secure data in .Net; I've always felt a little disturbed when sending my query strings and information like user names, passwords etc. to other pages in ASP.Net without Encrypting/Decrypting my UserName/Passwords in databases. The code is written below.
Simple copy and paste it to any class in Visual basic project form and start using it.
Sub DoEncryptionDecryption
dim objHash as new Hashing
dim strEncryptedText as string=““
strEncryptedText = objHash.encrypt(“TextToEncrypt“)
Messagebox.show(strEncryptedText)
dim strDecryptedText as string
strDecryptedText = objHash.Decrypt (strEncryptedText)
&......
如何突破滚动条最大值是32767的限制（vb6）(2006-06-25 07:20:00)
摘要：Hi:
I'm using VB6 and am trying to compensate for the scrollbar max of 32767. Here's what I'm trying to do. I have a picture control within a picture control. Let's call the outside picture control picContainer and the picture control within it picChild. It's set up so that at design time if I move picContainer, picChild also moves. My form is being used to view images and picChild is what contains the images. When an image is loaded, picChild is resized to the size of the picture. When picChild is larger than picContainer, picContainer contains a vertical scrollbar so that I can move picChild up and down to see the image (I'm just worrying about the vertical right now, forget about the horizontal). I set my scrollbar (called fsb, for flat scroll bar) settings as follows:
fsb.Max = picChild.Height - picContainer.Height
fsb.SmallChange = Abs(fsb1.Max \ 16) + 1
fsb.LargeChange = Abs(fsb1.Max \ 4) + 1
The pr......
Windows运行命令(2006-06-21 20:58:00)
摘要：
Windows运行命令
(摘自：http://spaces.msn.com/members/adamxin/ 未得到作者允许望见谅！)
以下为Windows操作系统的常用运行命令,执行这些命令,就能打开系统对应的相关实用程序,如果大家能基本利用,就能检查并修复系统的最基本的故障,除注销,关闭系统命令外,其它所有命令,大家不妨一试!!
运行\输入CMD\输入 对应的相关实用程序:
. 打开C:＼Documents and Settings＼XXX(当前登录Windows XP的用户名)
.. 打开Windows XP所在的盘符下的Documents and Settings文件夹
... 打开“我的电脑”选项。
accwiz.exe &nbs......
BIOS报警声音大全(2006-06-21 20:50:00)
摘要：
BIOS报警声音大全
(引自：http://www.cmstudio.cn/PB/bios.htm 未得到允许，只做学习参考使用！望见谅！)
AWARD BIOS响铃声的一般含义是：
1短: 系统正常启动。这是我们每天都能听到的，也表明机器没有任何问题。
2短: 常规错误，请进入CMOS Setup，重新设置不正确的选项。
1长1短: RAM或主板出错。换一条内存试试，若还是不行，只好更换主板。
1长2短: 显示器或显示卡错误。
1长3短: 键盘控制器错误。检查主板。
1长9短: 主板Flash RAM或EPROM错误，BIOS损坏。换块Flash RAM试试。
不断地响（长声）: 内存条未插紧或损坏。重插内存条，若还是不行，只有更换一条内存。
不停地响: 电源、显示器未和显示卡连接好。检查一下所有的插头。
重复短响: 电源问题。
无声音无显示: 电源问题。
AMI BIOS响铃声的一般含义是：
1. 一短声，内存刷新失败。内存损坏比较严重，恐怕非得更换内存不可。
2. 二短声，内存奇偶校验错误。可以进入CMOS设置，将内存Parity奇偶校验选项关掉，即设置为Disabled。不过一般来说，内存条有奇偶校验并且在CMOS设置中打开奇偶校验，这对微机系统的稳定性是有好处的。
3. 三短声，系统基本内存（第1个64Kb）检查失败。更换内存吧。
4. 四短声，系统时钟出错。维修或更换主板。
5. 五短声，CPU错误。但未必全是CPU本身的错，也可能是CPU插座或其它什么地方有问题，如果此CPU在其它主板上正常，则肯定错误在于主板。
6. 六短声，键盘控制器错误。如果是键盘没插上，那好办，插上就行；如果键盘连接正常但有错误提示，则不妨换一个好的键盘试试；否则就是键盘控制芯片或相关的部位有问题了。
7. 七短声，系统实模式错误，不能切换到保护模式。这也属于主板的错。
8. 八短声，显存读/写错误。显卡上的存贮芯片可能有损坏的。如果存贮片是可插拔的，只要找出坏片并更换就行，否则显卡需要维修或更换。
......
在有Clipboard的应用程序间移动数据(2006-06-21 20:36:00)
摘要：VB.NET中的Clipboard对象（在System.Windows.Forms命名空间里）允许你在一个应用程序或几个应用程序之间存储和检索数据。使用Clipboard对象非常简单，就像下面这样：
拷贝数据
Clipboard.SetDataObject(TextBox1.Text)
粘贴数据
TextBox2.Text = Clipboard.GetDataObject().GetData(DataFormats.Text, _ False)
这段代码对于简单的文本数据非常有效；然而，要想在应用程序之间复制和粘贴或者是进行其他的操作，你需要提供多种的数据格式。你给数据提供的可用格式越多，其他应用程序就越有可能使用这个数据。
通过创建一个DataObject，你可以根据你的需要把数据以多种格式存储。你还可以用GetDataPresent方法来检查某个格式是否被支持。
下面的代码介绍了如何用DataObject来存储RTF数据和文本数据。同时，这段代码还说明了如何用GetDataPresent来查看所有支持的格式。
Dim ClipboardData As New DataObject()
ClipboardData.SetData(DataFormats.Rtf, RichTextBox1.Rtf)
ClipboardData.SetData(DataFormats.Text, RichTextBox1.Text)
Clipboard.SetDataObject(ClipboardData)
If Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) Then
TextBox2.Text = Clipboard.GetDataObject().GetData(DataFormats.Text)
End If
If Clipboard.GetDataObject().GetDataPresent(DataFormats.Rtf) Then
&n......
VB.NET开发扫描客户端服务工具(2006-06-21 20:33:00)
摘要：在大中型企业信息系统中，对客户端PC的管理，往往是容易出现问题的环节。因此，很多大公司引入了各种分布式的管理系统，例如防病毒方面的Norton AntiVirus，BlackICE防火墙，微软的 SMS (System Management Server)，等等，这些系统都会在客户端安装相应的客户端软件，一般都是以服务的形式出现，但是由于种种原因，这些服务会停止运行或者该客户机根本没有安装这些客户端服务，这样管理系统就会出现疏漏，有可能造成问题，如因无法防御病毒而成为病毒源，无法为该客户端发布软件，无法管理客户PC等等。在此，我们提供一个方案，可以定时按照IP地址扫描网络，报告出特定的服务的状态。
这个方案使用了Microsoft.NET技术，同时也用到了.NET Framework中的ADO.NET ，WMI management，XML。其核心是一个由VB.NET写的程序以及它的两个配置文件，配置文件为XML格式，该程序按IP扫描网络，得到每个系统的服务 的状态，如果IP地址没有对应系统，则忽略该IP，针对没有安装服务或服务停止的系统我们在另一个线程中运行NBTSTAT命令，得到其机器名，用户名，MAC地址域等信息，以便我们找到机器解决问题。其次为了保存扫描的结果，我们需要一个很小的数据库MS-Access或MS-SQL server都可以，本文使用SQL2000 。最后为了呈现出扫描的结果，以便我们采取行动，这里我们使用网页的形式把数据库中的结果展现出来。
1． VB.NET程序
该程序使用两个XML格式的配置文件，当程序启动时会读入这些配置。其中一个文件定义了需要扫描的网段，包括排除在外的地址段。另一个文件定义了连接数据库的信息，以及数据表的定义。这两个文件的内容如下：
＜IPLIST＞
＜IP LANID="192.168.100." ＞＜EXP L=”1” H=”30”/＞＜/IP＞
＜IP LANID="192.168.101." /＞
＜IP LANID="192.168.102." /＞
＜IP LANID="192.168.103." /＞
＜IP LANID="192.168.104." ＞＜EXP L=”1......
用新VB.NET 枚举提高效率(2006-06-21 20:28:00)
摘要：当你还使用For…Each循环或者是For 1 To Count 循环处理集合的时候，VB .NET中加入了一种新的技术，IEnumerator界面。
IEnumerator界面支持两种方法和一种特性。MoveNext方法能在集合中一次移动一条记录。Reset方法能使枚举器复位到集合的起始。Current特性能从集合返回当前记录。
下面的程序显示了这三种计算集合的可能的办法。
Dim testCollection As New Collection()
Dim collectionItem As String
Dim loopCounter As Integer
Dim enumCollection As Ienumerator
With testCollection
.Add("1")
.Add("2")
.Add("3")
End With
For Each collectionItem In testCollection
Console.Out.WriteLine(collectionItem)
Next
For loopCounter = 1 To testCollection.Count
Console.Out.WriteLine(testCollection.Item(loopCounter))
Next
enumCollection = testCollection.GetEnumerator()
Do While enumCollection.MoveNext
Console.Out.WriteLine(enumCollection.Current)
Loop
IEnumerator带给你For…Each技术所能提供的计数功能，另外还有使循环复位和从起始位置开始的新加功能。本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( ProgramFan.Com )
......
在Visual Basic .NET中文件读写I/O选项(2006-06-21 20:21:00)
摘要：有经验的 Visual Basic 开发人员最初可能会认为，Visual Basic .NET 中的变化使本来已经熟悉的领域变得陌生而难以驾驭。其实，过去开发的成果仍然可以使用。例如，Visual Basic 运行时文件 I/O 方法就是大家比较熟悉的。同样，以前曾涉猎过 FileSystemObject 对象的开发人员也可以继续在这一领域畅游。尽管公共语言运行时领域可能让人感到陌生并且到处都是以对象为中心的“怪物”，但同时，它提供的功能却极具诱惑力，例如 FileSystemWatcher 或 FileIOPermissions 类中的新功能。
事实上，唯一让 Visual Basic .NET 开发人员望而却步的是如何从这三种方法中进行选择。对许多应用程序而言，对文件和目录进行操作是最重要的，但是 Visual Basic .NET 所提供的灵活方法可能会使人感到困惑，并且会提出下列问题：Visual Basic .NET 提供什么样的文件访问？何时使用 FileSystemObject 对象？使用公共语言运行时中的方法有哪些好处？是否需要专门使用一种方法？如何选择方法？
Visual Basic .NET 中的文件方法
让我们先看看 Microsoft.VisualBasic 命名空间，这可以为那些被全新的 .NET 领域吓坏的开发人员带来一些安慰和信心。命名空间包含许多熟悉的函数和方法。除了部分名称有少许改动外，大部分名称仍保持不变，如 Dir、Input、Print、Seek、Write 等等。
在选择运行时函数时，主要应考虑写入文件或从文件中收集的信息的类型。Visual Basic .NET 为三种类型的文件提供了访问方法，每种方法适用于一种特定的数据类型：二进制、顺序和随机。
二进制访问，允许您以任意方式存储和访问数据，这种方法对于变长字段尤为有用。
随机访问，允许您以记录的方式存储和访问信息，这种方法假定记录是等长的。顺序访问，允许您在文本文件中读取和写入字符串。
这些不同类型的文件访问所使用的函数发生了一些变化。最显著的变化是用 FilePut/FilePutObject 和 FileGet/FileGetObject 函......
Visual Basic.Net中的字符串处理(2006-06-21 20:15:00)
摘要：Visual Basic.Net中的字符串处理
作者：马金虎出处：天极网责任编辑： 方舟 [ 2004-08-25 15:08 ]
字符串处理是程序设计是最常见的操作，一般来说，掌握对字符串的处理也是开始学习一种新语言来的基础
字符串处理是程序设计是最常见的操作，一般来说，掌握对字符串的处理也是开始学习一种新语言来的基础，对后续的深入学习是非常重要的，这也是为什么把对字符串处理放在本系列讲座最前面的原因。由于字符串处理所涉及的内容比较多，下面就选择Visual Basic .Net在处理字符串时的一些常见的、典型的问题加以介绍。
一．用String关键字、String类和StringBuilder类创建字符串：
Visual Basic .Net保留了很多早期Visual Basic的关键字、运算符和函数。但一般来说这些关键字、运算符和函数在.Net框架提供的.Net FrameWork SDK中又能够找到可以替代的类、方法等。在Visual Basic .Net创建一个字符串可有三种方式，具体如下：
1. 使用关键字String来定义字符串变量，String关键字在早期的Visual Basic中也存在。具体的操作如下：
Dim sStr1 As String '定义String变量
sStr1 = " Hello World " '初始化此变量
2. 使用String类来创建字符串，String类位于命名空间System中，具体如下：
Dim sStr1 As System.String
SStr1 = " Hello World "
3. 使用StringBuilder类来创建字符串，StringBuilder类位于命名空间System.Text，具体如下：
Dim sStr1 As System.Text.StringBuilder
sStr1 = New System.Text.StringBuilder ( "Hello World" )
下面就来看看上述三种Visual Basic .Net中创建字符串的方法的......
GDI+: Texture Brushes(2006-06-19 20:23:00)
摘要：
Introduction
The hatch brushes we have used are based on already designed patterns to fill a shape. In some cases, you may want to create or design your own pattern and use it to fill an area. To do this, you must perform two main steps. First, you must design a picture and save it as a file. Then you must create an object referred to as a texture brush and pass the picture to it.
A texture brush is an object that holds a picture and uses it to regularly fill the interior of a closed shape. To initialize it, you can use an existing picture designed by someone else or you can design your own picture using any normal graphics application, including Microsoft Paint that is automatically installed with Microsoft Window. You should have the picture as a file with a normal graphics file extension, which could be .bmp. Here is an example of a designed bitmap saved as Papers.bmp:
Equipped with the picture, you can then use the TextureBrush class that provides various construct......