aevel

自己编写的一个VB根据硬件生成软件注册码程序(I have written a VB program depending on the hardware generation software registration code)

记录鼠标的操作，让您操作一次之后，即可操作任意次数！(Record mouse operation, allows you to manipulate time after, you can operate any number of times!)

用VB做的可以按照关键字体来分割小说文件,源码在网上得到的(VB to do with the body to be divided in accordance with the novel keyword documents, source code available online at)

说明：  vb6中DES 三重DES运算，很好用，现在项目中在用(vb6 triple DES operations in the DES, very good use, the project is now in use)

VB script 5.6 对经典的学习js和vbs的教程,微软出品(VB script 5.6 of classical learning js and vbs tutorial, Microsoft Publisher)

Serial port Visual basic Connect continues Function

UIP1.0主要的代码，实现协议栈的源代码，对嵌入式移植协议有重要的作用。可以代替TCP/IP的库。(UIP1.0 main code, realize the protocol stack of embedded transplant agreement source code, have important effects. Can replace TCP/IP library. )

采用VB6.0编程的MD5加密算法。MD5就是采用单向加密的加密算法，对于MD5而言，有两个特性是很重要的，第一是任意两段明文数据，加密以后的密文不能是相同的；第二是任意一段明文数据，经过加密以后，其结果必须永远是不变的。前者的意思是不可能有任意两段明文加密以后得到相同的密文，后者的意思是如果我们加密特定的数据，得到的密文一定是相同的。(Using VB6.0 programming of MD5 encryption algorithm. MD5 is the use of one-way encryption algorithm, for MD5, there are two characteristics is very important, the first is any two plaintext data encrypted ciphertext, later not to be the same second is an arbitrary piece of plaintext encrypted data, then, the results must always be the same. The meaning of the former is unlikely to have any two plaintext after getting the same ciphertext, which means if we encrypt specific data, the encryption must be the same. )

测试com口程序Private Sub Form_Load() Dim I As Integer Dim Msg As String Me.Enabled = False Msg = 串行端口通讯测试 V & App.Major & . & App.Minor & App.Revision cboCommSettings.Text = GetSetting(App.EXEName, frmCommTest , CommSettings , 2400,N,8,1 ) Me.Show Me.Refresh With MSComm1 For I = 1 To 16 Me.Caption = Msg & - 测试通讯端口:COM & I & ... Me.Refresh Delay 100 On Error Resume Next .CommPort = I .Settings = 2400,N,8,1 .PortOpen = True .PortOpen = False If Err = 0 Then cboCommPort.AddItem COM & Trim(I) Next I End With cboCommPort.ListIndex = 0 optCommData(0).Value = True Me.Caption = Msg & (Programming by WJY) Me.Refresh If cboCommPort.ListCount = 0 Then MsgBox 程序检测不到可用的串行端口! Me.Enabled = True End Sub (test com port)

用vb.net开发的一个flash播放器 很简单，但是功能齐全 (using vb.net development of a flash player is simple, but complete)