随笔 - 98  文章 - 45  评论 - 105  阅读 - 11万
  2013年1月4日

1:先加入命名空间

Imports System.Net.Security
Imports System.Security.Authentication
Imports System.Security.Cryptography.X509Certificates

2:再重载CheckValidationResult方法,返回true

    Public Function CheckValidationResult(sender As Object, certificate As X509Certificate, chain As X509Chain, errors As SslPolicyErrors) As Boolean
        '总是接受
        Return True
    End Function

3:然后在Dim reqGet As HttpWebRequest = WebRequest.Create(URL)前面加上如下一行代码

ServicePointManager.ServerCertificateValidationCallback = New System.Net.Security.RemoteCertificateValidationCallback(AddressOf CheckValidationResult)

 

posted @ 2013-01-04 17:00 Konimeter 阅读(3312) 评论(0) 推荐(0)
  2011年10月14日
摘要: select*,casewhenresultrate>0thencase--<<case嵌套whenOdds>0thenOdds*ResultRate --如果resultrate大于零,且odds大于零,返回结果whenOdds<0thenResultRate --如果resultrate大于零,且odds小于零,返回结果end-->>case嵌套whenresultrate<0thencase--<<case嵌套whenOdds>0thenResultRate --如果resultrate小于零,且odds大于零,返回Res 阅读全文
posted @ 2011-10-14 14:41 Konimeter 阅读(364) 评论(0) 推荐(0)
  2011年9月20日
摘要: 写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 阅读全文
posted @ 2011-09-20 14:49 Konimeter 阅读(10304) 评论(0) 推荐(1)
  2011年9月18日
摘要: 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 阅读全文
posted @ 2011-09-18 14:03 Konimeter 阅读(1342) 评论(0) 推荐(0)
摘要: #region同步通过GET方式发送数据///<summary>///通过GET方式发送数据///</summary>///<paramname="Url">url</param>///<paramname="postDataStr">GET数据</param>///<paramname="cookie">GET容器</param>///<returns></returns>publicstringSendDataB 阅读全文
posted @ 2011-09-18 13:38 Konimeter 阅读(4630) 评论(0) 推荐(0)
摘要: 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& 阅读全文
posted @ 2011-09-18 01:03 Konimeter 阅读(4018) 评论(0) 推荐(0)
摘要: 主线程中的代码Dimdelegate1AsB3D4D69AF0E1DB8A7B7EE6FDelegatedelegate1=AddressOfB3D4D69AF0E1DB8A7B7EE6FDimarAsSystem.IAsyncResultDimparam(2)AsObjectparam(0)=Meparam(1)=delegate1ar=delegate1.BeginInvoke(resStr,CallBackB3D4D69AF0E1DB8A7B7EE6FDelegate,param)耗时的操作代码PrivateFunctionB3D4D69AF0E1DB8A7B7EE6F(ByValD7B 阅读全文
posted @ 2011-09-18 00:41 Konimeter 阅读(681) 评论(0) 推荐(0)
摘要: <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 阅读全文
posted @ 2011-09-18 00:31 Konimeter 阅读(946) 评论(0) 推荐(0)
摘要: PrivateFunctionvalidateClient(ByValguidAsString)AsIntegerDimresultAsInteger=0Try'读clientDimclientAsSqlDataReaderDimconnStrAsString=ConfigurationManager.ConnectionStrings("wz").ConnectionStringDimconnAsNewSqlConnection(connStr)DimcmdAsNewSqlCommand("redlim_client_getdetailbyguid&qu 阅读全文
posted @ 2011-09-18 00:19 Konimeter 阅读(1189) 评论(0) 推荐(0)
  2007年9月6日
摘要: 存储过程中输入的参数是@guidInput数据表:table需要返回@guidInput指定记录的value字段的值(赋值给@value)select @value=value from table where guidfield=@guidInput这样的语句,在不确定的情况下,会导致@value获取null值,请教各位知道是什么原因吗?出现这样的问题,会让所有决定使用guid作为主键的朋友都要... 阅读全文
posted @ 2007-09-06 01:56 Konimeter 阅读(1376) 评论(0) 推荐(0)
< 2025年5月 >
27 28 29 30 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
1 2 3 4 5 6 7

点击右上角即可分享
微信分享提示