| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 588 人关注过本帖
标题:读取验证码的代码,分享一下
只看楼主 加入收藏
offist
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-9-26
收藏
 问题点数:0 回复次数:7 
读取验证码的代码,分享一下
Private Sub Tihuan()
On Error GoTo B:
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = "http://www.offist.com" text1.text="上海办公用品"
Text16 = " "
Label1 = "读取验证码……"
Text16 = Inet1.OpenURL
Open "C:\Web.txt" For Output As #1 '创建文件
Print #1, Text16 '把TEXT16写入web.txt文件
Close #1
Sub Find(A)
A = Mid(A, 30)
A = StrReverse(A)
A = Mid(A, 3)
A = StrReverse(A)
Text1 = A
Label1 = "分析验证码完毕"
End Sub

大侠们看看错误再哪里
搜索更多相关主题的帖子: 代码 验证 分享 
2007-10-11 10:31
死了都要编
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2007-10-11
收藏
得分:0 
``````````什么东东
看不懂..
2007-10-11 11:08
leoyuhe
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-11-6
收藏
得分:0 
2007-11-14 16:37
luodachao
Rank: 1
等 级:新手上路
帖 子:116
专家分:0
注 册:2007-10-26
收藏
得分:0 
VB的,我也是刚开始学VB的呀!

VB高级QQ群:18620753
2007-11-14 18:48
dingyu
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-10-4
收藏
得分:0 

不错,不错!

2007-11-14 19:27
zy_zlj
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-10-12
收藏
得分:0 
我们学的是VC
2007-11-14 21:08
南极小辈2
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-11-11
收藏
得分:0 
本人初学c,大家照顾
2007-11-14 21:18
zjhofzj
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-11-14
收藏
得分:0 
我初学啊 看不懂 不过谢过楼主
2007-11-14 21:39
快速回复:读取验证码的代码,分享一下
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048103 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved