爱人-爱人的大杂烩 » 程序设计

强大的图片验证码识别代码

csecong — Mon, 08 Mar 2010 07:55:02 +0000

今天想刷个投票页面，需要识别验证码，网上搜啊，找到一个图片验证码识别类，改动一下用起来很舒服啊^_^
因为每种类验证码的字符表都不一样，所以需要事先得到此种验证码的字符表
方法呢，就是在调试模式输出一下就看到了
代码如下
UnCodeBase.cs

using System;
using System.Collections.Generic;
using System.Text;
using System.Collections;
using System.Drawing;
using System.Drawing.Imaging;
using System.Runtime.InteropServices;

namespace BallotAiying2
{
    class UnCodebase
    {
        public Bitmap bmpobj;
        public UnCodebase(Bitmap pic)
        {
            //       if (pic.PixelFormat == PixelFormat.Format8bppIndexed)
            bmpobj = new Bitmap(pic);    //转换为Format32bppRgb
        }

        ///

        /// 根据RGB，计算灰度值
        ///

手机手写笔长按动作消息事件响应

csecong — Fri, 11 Sep 2009 04:51:51 +0000

如何响应手写笔长按动作消息，一开始走了弯路，想到用API拦截，其实很简单的

只要绑定右键菜单就可以了^_^

因为手机手写笔不分左右键，所以点击代表左键单击，长按代表右键单击

定时自动刷新页面工具

csecong — Wed, 24 Jun 2009 02:14:52 +0000

昨天碰到个网站，要靠在线时间兑换点数才能下载这个网站的资料，所以做了个自动刷新页面的小工具，每隔几分钟刷新一下页面来防止自动退出登陆，功能相当简单。

自动刷新页面工具

点击这里下载AutoRefresh.exe

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "开始" Then
Timer1.Interval = TextBox1.Text * 60 * 1000
Timer1.Enabled = True
Button1.Text = "结束"
Else
Timer1.Enabled = False
Button1.Text = "开始"
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
WebBrowser1.Refresh()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

WebBrowser1.Navigate(TextBox2.Text)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox2.AutoCompleteSource = AutoCompleteSource.HistoryList
WebBrowser1.Navigate("http://ai-2.cn")
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("http://ai-2.cn")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.Refresh()
End Sub
End Class

使用ContentTableAdapter和DataDataSet操作数据库

csecong — Fri, 26 Sep 2008 03:20:54 +0000

使用工具Visual Studio 2005

vb6.0时代，我们要使用数据库，还需要先引入ado组件，然后使用 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb，然后conn.open的方式操作数据库，现在不需要了，直接使用ContentTableAdapter和 DataDataSet就能完成了，简单、方便、快捷

首先，将数据库加入程序中，在解决方案资源管理器里项目名称上点右键，选择添加，选择现有项，然后找到你要的数据库文件，添加进入

然后会弹出数据源配置向导，将你需要的数据表打上钩

然后点击完成，ok，解决方法资源管理器里会自动添加上dataDataSet.xsd文件，数据源添加完成
，然后双击打开dataDataSet.xsd文件

出现当前的数据源，分为两部分，上面是表结构，下面是数据库命令，命令里已经默认添加了一个fill,GetData()，这个命令是列出数据库中对应表中的所有数据
我们可以自己添加需要的sql命令了
在这里点击右键，选择添加->query，进入向导页，因为我们用的access数据库，所以只有一个，使用sql语句来加载数据

点击下一步，ok，选择你要加入的sql语句类型吧

我们选择insert，向数据库中添加数据，然后编辑一下sql语句，一直下一步，完成，命令行里添加了一个insertquery的命令了

添加数据是需要参数的，参数怎么加呢？
首先在insertquery()这个上点右键，配置，看一下sql语句
在需要添加参数的地方把参数添进去，比如aa,bb

点击完成，然后在insertquery()的属性窗口，选择parameters(sql语句或存储过程的参数)，然后添加两个参数aa和bb，当然，数据类型一定要选择正确哦

确定，参数添加完成

怎么使用呢？^_^，在需要的地方直接用me.ContentTableAdapter.insertquery(参数1,参数2)就行了^_^

为了更好的看到数据库的变化，你可以添加一个DataGridView来进行显示，数据源上记得绑定datadataset啊

PS:插入数据后，需要重新读入才能在DataGridView中显示出来

vb.net使用HttpWebResponse进行网站登陆并保持Session

csecong — Sat, 20 Sep 2008 03:15:37 +0000

打算做一个论坛自动发帖的软件，涉及到登陆及在登陆状态下发布文章的问题
1、登陆
登陆我们可以直接用WebRequest.Create(url)的方法,POST数据即可，这里需要注意的就是post的数据必须编码一下，文本是不能直接post的
2、取得cookie
如果你想把cookie显示出来，需要使用GetResponseHeader(“Set-Cookie”)将cookie以文本字段显示
如果你要发布文章时也提交cookie，直接提交GetResponseHeader(“Set-Cookie”)是不行的，因为他是string的文本字段，而HttpWebResponse的CookieContainer确实cookie数组
这时你需要首先定义一个空白的CookieContainer，登陆时就会得到cookie，提交文章直接使用这个值即可

源码部分如下：

以下为网上找到的测试源码，不是vb.net的，不过说明了原理

CookieContainer cc = new CookieContainer();
for(int i=0;i<100;i++)
{
HttpWebRequest myReq = (HttpWebRequest)WebRequest.Create(“http://localhost/AspxApp/MainForm.aspx”);
myReq.CookieContainer = cc;
HttpWebResponse resp = myReq.GetResponse() as HttpWebResponse;
Stream s = resp.GetResponseStream();
StreamReader sr = new StreamReader(s); String text = sr.ReadToEnd();
sr.Close();
s.Close();
}

我写的代码很乱，而且只是为了测试，所以看起来很繁琐，效率很差，大家将就看一下吧

Imports System.net
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Text
Public Class Form1
Private requestScrape As HttpWebRequest
Private responseScrape As HttpWebResponse
Private cc As New CookieContainer
Function GetHttpStream(ByVal url As String, ByVal uname As String, ByVal upass As String) As Stream
‘ 使用 WebRequestFactory 创建请求。
Dim encoding = New ASCIIEncoding
Dim aa As String, ab As Byte()
aa = “username=” & uname & “&password=” & upass & “&loginsubmit=true”
ab = encoding.GetBytes(aa)
‘TextBox3.Text = aa
requestScrape = CType(WebRequest.Create(url), HttpWebRequest)
With requestScrape
.UserAgent = “Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.1)”
.Method = “POST”
.ContentType = “application/x-www-form-urlencoded”
.ContentLength = ab.Length
.Timeout = 10000
.CookieContainer = cc

End With
Dim newStream As Stream = requestScrape.GetRequestStream()
newStream.Write(ab, 0, ab.Length)
newStream.Close()
Try
‘ 返回响应流。
responseScrape = CType(requestScrape.GetResponse(), HttpWebResponse)
Return responseScrape.GetResponseStream()
Catch exp As Exception
‘ 因为错误最有可能是由键入错误的 Url 或者
‘ 没有 Internet 连接造成的，所以创建一条转发回调用函数的
‘ 自定义错误信息。
Throw New Exception(exp.Message.ToString)
End Try
End Function
‘ 此函数读取由 httpWebResponse 对象返回的流，并
‘ 将其转换为字符串供 RegEx 处理。
Function ConvertStreamToString(ByVal stmSource As Stream, ByVal codeb As Integer) As String
Dim sr As StreamReader = Nothing

If Not IsNothing(stmSource) Then
Try
sr = New StreamReader(stmSource, System.Text.Encoding.GetEncoding(codeb))
‘ 使用设定的编码格式读取并返回流的全部内容。
Return sr.ReadToEnd
Catch exp As Exception
‘ 不显示 MsgBox。只是转发
‘来自 GetHttpStream() 的错误信息。
Throw New Exception()
Finally
‘ 清理 Stream 和 StreamReader。
responseScrape.Close()
sr.Close()
End Try
End If
Return Nothing
End Function

Function GetHttpStream2(ByVal url As String) As Stream
‘ 使用 WebRequestFactory 创建请求。
requestScrape = CType(WebRequest.Create(url), HttpWebRequest)
With requestScrape
.UserAgent = “Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.1)”
.Method = “GET”
.CookieContainer = cc
.Timeout = 10000
End With

Try
‘ 返回响应流。
responseScrape = CType(requestScrape.GetResponse(), HttpWebResponse)
Return responseScrape.GetResponseStream()
Catch exp As Exception
‘ 因为错误最有可能是由键入错误的 Url 或者
‘ 没有 Internet 连接造成的，所以创建一条转发回调用函数的
‘ 自定义错误信息。
Throw New Exception(exp.Message.ToString)
End Try
End Function
‘ 此函数读取由 httpWebResponse 对象返回的流，并
‘ 将其转换为字符串供 RegEx 处理。
Function ConvertStreamToString2(ByVal stmSource As Stream, ByVal codeb As Integer) As String
Dim sr As StreamReader = Nothing

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ystrm As Stream = GetHttpStream(“http://127.0.0.1/login.asp”, TextBox1.Text, TextBox2.Text) ’获取网址
Dim respHTML As String = ConvertStreamToString(ystrm, 65001)
RichTextBox1.Text = respHTML.ToString
TextBox3.Text = responseScrape.GetResponseHeader(“Set-Cookie”).ToString

Dim ystrm2 As Stream = GetHttpStream2(“http://127.0.0.1/post.asp”) ’获取网址
Dim respHTML2 As String = ConvertStreamToString2(ystrm2, 65001)
RichTextBox1.Text = respHTML2.ToString
End Sub
End Class

通过比较RichTextBox1.Text的内容判断是否正常发送cookie
65001是UTF8编码，一般用0即可