c0x7e // 图像数据,采取 16 进制格式的,还原图像时需转换成二进制后数据反向,否则图片将是反的 得到 XBM 图片,分离成相应的字符,然后与预先的图片文件比较,即可得出此图像代表的数字,即所谓的识别! 演 示 程 序 :http://www.cndevx.com/club/uploadfile/2003941042070557.rar 源 代 码 :http://www.cndevx.com/club/uploadfile/20039410421872749.rar=========================附:使用 VB 获得一页的 HTML 代码加入 WebBrowser、Timer、CommandButton 控件各一个,然后使用以下代码:Private Sub Command1_Click WebBrowser1.Navigatehttp://www.motorola.com.cn/news/925/photo_vote.aspid525147E1-C4A7-41EE-9190-95800AC81E29 Timer1.Enabled TrueEnd SubPrivate Sub Timer1_Timer Dim doc objhtml As Object Dim i As Integer Dim strhtml As String If Not WebBrowser1.Busy Then Set doc WebBrowser1.Document i0 Set objhtml doc.body.createtextrange If Not IsNullobjhtml Then Text1.Text objhtml.htmltext End If nsp Timer1.Enabled False End IfEnd Sub 这是网上流行的一种方法,但是从我使用来看,因为WebBrowers 控件本身有 DocumentComplete 事件,也就是说并不需要使用 Timer 控件!csdnPrivate Sub Form_LoadWebBrowser1.Navigate http://www.126.comEnd SubPrivate Sub WebBrowser1_DownloadCompleteDim vDoc vTagDim i As IntegerSet vDoc WebBrowser1.DocumentFor i 0 To vDoc.All.length - 1 检测所有标签 If UCasevDoc.Alli.tagName INPUT Then 找到 input 标签 Set vTag vDoc.Alli If vTag.Type text Then 检测类型 Select Case vTag.Name Case user 填写用户名的文本框的值 vTag.Value aaa End Select End If If vTag.Type password Then 检测密码框类型 Select Case vTag.Name Case pass 密码框的值 vTag.Value 12 End Select End If If vTag.Type submit And vTag.Value 登录邮箱 Then 登陆按钮 vTag.Click End IfEnd IfNext iEnd Sub
上一篇:
(采用结构化方法实现)【PPt
下一篇:
让我掉下眼泪的