摘要:
1 Imports System.Text 2 Imports System.Security.Cryptography 3 4 Function getMD5Hash(ByVal strToHash As String) As String 5 Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider 6 Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash) 7 by... 阅读全文
摘要:
测试环境:VS2008+VB.net 1 Public Shared Function GetWebContent(ByVal sURL As String) As String 2 Try 3 Dim request As Net.WebRequest 4 Dim response As Net.WebResponse 5 request = Net.WebRequest.Create(sURL) 6 response = request.GetResponse() 7 ... 阅读全文