清泉逐流

做着努力,等待幸福到来
» 日志

VB.NET的MD5加密函数

时间 : 2011-11-07 23:45 标签 : VB.NET  

  经常用的一个md5函数,用习惯了,.net里面有点麻烦,封装起来,供大家使用。

  Public Function Md5(ByVal code As String)

          Dim _md5 As String = ""

          Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(code)

          Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)

   &

查看全文 »

VB.NET的base64_encode和base64_decode

时间 : 2011-11-07 23:19 标签 : VB.NET  

  这两个base64加密和解密函数非常常用,马克一下

  Public Function Base64Encode(ByVal code As String, Optional ByVal code_type As String = "GBK") As String

          Dim encode As String = ""

          Dim bytes As Byte() = Encoding.GetEncoding(code_type).GetBytes(code)

          Try

              encode = Convert.ToBase64String(bytes)

          Catch

 

查看全文 »

VB.NET使用正则表达式

时间 : 2011-11-07 21:46 标签 : VB.NET  

  正则表达式在字符串使用中有很大的作用,此处举例VB.NET使用正则表达式

  ' Define a regular expression for repeated words.

  Dim rx As New Regex("\b(?<word>\w+)\s+(\k<word>)\b", _

         RegexOptions.Compiled Or RegexOptions.IgnoreCase)

  ' Define a test string.        

  Dim text As String = "The the quick

own fox  fox jumped over the lazy dog dog."

查看全文 »

VB.NET跨线程调用控件的方法,例子

时间 : 2011-11-07 12:44 标签 : VB.NET  

  VB.net跨线程调用控件的方法例子

  以下为跨线程更改Button的Enable属性

Delegate Sub ButtonAble(ByRef obj As Button, ByVal en As Boolean)

      Public myButtonAble As ButtonAble = New ButtonAble(AddressOf ButtonAbleSub)

      Public Sub ButtonAbleSub(ByRef obj As Button, ByVal en As Boolean)

          obj.Enab

查看全文 »

vb.net webbrowser 屏蔽 脚本错误

时间 : 2011-11-06 14:17 标签 : VB.NET  

方法一:

      Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

          WebBrowser1.ScriptErrorsSuppressed = True

      End Sub

方法二:

     Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv

查看全文 »

VB打开网页的不同方法

时间 : 2011-11-03 14:27 标签 : VB  

1.基于start.exe

  +++++++++++++++++++源码1++++++++++++++++++++++

  url="http://www.eamonning.com"  

  shell "start " & url,0  

  +++++++++++++++++++源码2++++++++++++++++++++++

  url="http://www.eamonning.

查看全文 »

VB.NET配置文件存储方案-ini文件及ini文件的读写方法

时间 : 2011-10-28 22:16 标签 : VB.NET  

  每个应用软件都有要存储到硬盘上的一些配置文件,这个时候为微软提供的ini文件解决方案就是一个很好的方法。

  ini文件的操作,windows提供了两个API函数GetPrivateProfileString 和WritePrivateProfileString ,这样我们就可以调用这两个API函数来对ini文件进行读写操作了。

  Module ModuleIni

      '关于ini文件的基础知识

      '这里有一些介绍:http://www.eamonning.com/blog.php?id=145

      '读ini API函数

      Private Declare Function Ge

查看全文 »

StartupPath和ExecutablePath的区别及关于硬盘根目录的问题

时间 : 2011-10-28 22:03 标签 : VB.NET  

  Application.StartupPath,获得应用程序所在的完整的路径,比如你的程序是在c:\eSoft\下,那么它将返回上述完整路径c:\eSoft\

  Application.ExecutablePath,获得包括应用程序名在内的最完整路径。比如你的程序是在c:\eSoft\下,程序名为e.exe,那么它将返回路径—c:\eSoft\e.exe

  但这里还有要注意的一点Application.StartupPath当在一个分区的根目录下时候,结尾为\,当在普通文件下得时候,返回的路径结尾没有\。

   比如Application.StartupPath+"e.exe"这条语句,当启动路径在根目录下的时候,值为c:\e.exe,当在普通文件夹的时候,就成了c:\eSofte.exe了,这肯定就不对了,所以就要做处理。

  比如这样 Public AppRoot As String = Replace(Application.StartupPath + "\", "\\", "\") 这样得到的肯定就是一个一\结尾的根目录了。

查看全文 »

VB.NET使用POST上传文件到网页

时间 : 2011-10-27 17:17 标签 : VB.NET  POST  

  在制作软件的时候,由于要上传用户的错误日志到指定的网页。

  网上很多方法是上传到ftp服务器什么的,但是我们需要使用post到一个页面,这样就涉及到了使用post上传文件的相关问题。

  网上找了一下,但是没有找到很多,所以就参考一些资料什么的自己写了这一个类。

  但是由于时间仓促,也没有再细细研究了,暂时只能添加一个文件。当然了解的朋友很容易改改就能上传多个文件了。

  Imports System.Net

  Imports System.IO

  Imports System.Text

  Public Class ClassHttpPost

      'http请求对象

      Private objHTTPRequest As HttpWebRequest

查看全文 »

VB.NET检测软件版本并提示更新函数

时间 : 2011-10-26 23:51 标签 : VB.NET  

首先这里定义一些常量

分别为软件当前的版本号、检测软件最新版本号的链接、软件最新版本的下载地址,这些地址都是根据具体情况定义的

  Public Const AppVersion = "1.0"

  Public Const AppVersionCheckURL = "http://www.eamonning.com/x/test.php"

  Public Const AppVersionUpdateURL = "http://www.eamonning.com/x/update.php"

'获得最新版本号

查看全文 »
» 日志标签