随笔分类 -  VB.NET

摘要：1：先加入命名空间Imports System.Net.SecurityImports System.Security.AuthenticationImports System.Security.Cryptography.X509Certificates2：再重载CheckValidationResult方法，返回true Public Function CheckValidationResult(sender As Object, certificate As X509Certificate, chain As X509Chain, errors As SslPolicyErrors)... 阅读全文

摘要：写DimstrFilePathAsString=SaveFileDialog1.FileNameDimswAsStreamWriter=NewStreamWriter（strFilePath，True）'true是指以追加的方式打开指定文件Fori=0Tojtemp=i.ToStringsw.WriteLine（temp）sw.Flush（）Nextsw.Close（）sw=Nothing读DimlineAsStringDimsrAsStreamReader=NewStreamReader（strPath，System.Text.Encoding.Default）DoWhilesr.P 阅读全文

摘要：PrivateSubGetImage()TryDimrequestAsHttpWebRequest=WebRequest.Create("http://www.junjv.com/GetImage")request.Timeout=20000request.ServicePoint.ConnectionLimit=100request.ReadWriteTimeout=30000request.Method="GET"DimresponseAsHttpWebResponse=request.GetResponse()If(response.StatusC 阅读全文

摘要：#region同步通过GET方式发送数据///<summary>///通过GET方式发送数据///</summary>///<paramname="Url">url</param>///<paramname="postDataStr">GET数据</param>///<paramname="cookie">GET容器</param>///<returns></returns>publicstringSendDataB 阅读全文

摘要：PrivateFunctiongetSourceHtml()AsStringDimresultAsString=""TryDimiAsInteger=Int(Rnd(Now.Second)*10+1)DimwebAsNewSystem.Net.WebClient()web.Headers.Add("Content-Type","application/x-www-form-urlencoded")DimdAsByte()=System.Text.Encoding.UTF8.GetBytes("method=copy& 阅读全文

摘要：主线程中的代码Dimdelegate1AsB3D4D69AF0E1DB8A7B7EE6FDelegatedelegate1=AddressOfB3D4D69AF0E1DB8A7B7EE6FDimarAsSystem.IAsyncResultDimparam(2)AsObjectparam(0)=Meparam(1)=delegate1ar=delegate1.BeginInvoke(resStr,CallBackB3D4D69AF0E1DB8A7B7EE6FDelegate,param)耗时的操作代码PrivateFunctionB3D4D69AF0E1DB8A7B7EE6F(ByValD7B 阅读全文

摘要：<connectionStrings><addname="wz"connectionString="server=www.junjv.com,1234;database=redlim;UserId=sa;pwd=www.junjv.com"providerName="System.Data.SqlClient"/></connectionStrings>放在configuration节点下在vb.net中，可以使用如下代码获取：DimconnStrAsString=ConfigurationMana 阅读全文

摘要：PrivateFunctionvalidateClient(ByValguidAsString)AsIntegerDimresultAsInteger=0Try'读clientDimclientAsSqlDataReaderDimconnStrAsString=ConfigurationManager.ConnectionStrings("wz").ConnectionStringDimconnAsNewSqlConnection(connStr)DimcmdAsNewSqlCommand("redlim_client_getdetailbyguid&qu 阅读全文