昨天用抓包工具把可以做外链的英文站网址给弄下来了，都是属于HAO123那类提交URL的，忽然发现提交的过程，每个网站都要填相类似的表单实在是件苦差事
于是想起一起见过类似的浏览器自动填写表单的功能
貌似在THE WORLD浏览器见过，很多国内的浏览器都有，但是我用的火狐默认是没有的，得自己去下插件
于是找到了一个非常好用的插件autofill forms ，试用了一下，果然很好用
设置好规则，到需要填写的页面，按一个按钮就可以完成表单的填写
一般只需要自己再输入一下验证码就可以直接提交了，比原来一个一个地复制粘帖快了很多
阅读全文
本来想找个群发软件的
后来关键词弄成了外链，结果发现有个外链建设者的免费软件，这种免费软件一般都是有功能限制的
其他的什么PR之类的功能我就不需要了，虽然很方便，不过很多网站都有这种功能
操作麻烦点还是可以忍受
然后我看上了它的一些资源，就是发外链的一些资源，也就是哪些网站可以发外链
结果这个软件只显示前几条信息，把我气得够呛，谁叫咋们没钱啊，想办法弄吧
于是想到以前玩过监控的软件，所有软件访问外网的过程都可以记录下来
于是找了一下，从火车头论坛哪里得知这类软件有个俗称“抓包软件”
然后到百度一搜，找到了第一个叫sniffer的，下下来一用，发现难度实在太大，太专业了，专业得我都不知道如何用，玩了几分钟放弃了
又继续找了一个，叫ethereal的，发现新版本改名叫Wireshark了
下下来一看，这才是我需要的，简单快捷的软件
然后开始抓包，找到了“外链建设者”访问的网址
http://linkbuilder.seores.com/list.asp?cid=8&dirtype=\303\342\267\321&page=1
PAGE就是第几页，我看了一下，貌似有222页
剩下就简单了，直接下载或者编个小程序把所有网址弄下来就可以了
阅读全文
不过感觉有点慢~没原来那么快了
无所谓啦~反正能用就行
不过刚去设置域名，估计得1个小时后才能正常访问~
最讨厌这个时候了
不过还好我懂得设置自己的HOST文件，呵呵，还是可以上来发发文章
明天就要去开会了~开学了，一切又要恢复正常了
阅读全文
自己去仿制点模板下来卖~
价格没必要太高，10来20块就行~
阅读全文
以前弄过几个免费邮箱的SMTP，都是以失败告终，今天尝试了一下QQ的，发现竟然能用，不清楚是否有其他的限制，以前好像有的SMTP多少分钟以内只能用一次，最近发现论坛广告实在太厉害了~所以想想还是弄一个邮箱验证
注册了两次，只收到一封激活邮件，不知道是不是国外连国内的网站过慢还是怎么回事
不过无所谓了，主要还是阻止注册机
阅读全文
虽然没自己的特色，而且有些对齐方面做得还比较差
不过已经顺眼很多了，呵呵
阅读全文
下载了一个破解的版本vclskin.v2.60.For.D567
安装的时候出现了一些问题
找到了一些教程
1. 解压缩 Vclskin2.zip 到任意目录，其中D7文件夹就是适合DELPHI7版本的
2. 在 Delphi IDE 环境中选择菜单 “File. Open…”, 然后找到连接库 vclskindX.dpk, 按着点击Compile按钮。
3. 在 Environment 添加VCLSkin控件所在的路径。
第3步其实就是用下面的办法解决：
如果编译时提示文件找不到的话，一般是控件的安装目录不在Delphi的Lib目录中，有两种方法可以解决：
1、反安装的源文件拷入到Delphi的Lib目录下；
2、或者Tools–>Environment Options中把控件源代码路径加入到Delphi的Lib目录中即可。
然后就是使用了
最简单的实现如下:
1 新建工程,在 Form1上放置Skindata 控件。
2 设置 Skindata的skinstore 属性 ,找到随VCLSkin文件一起下载的*.skn皮肤文件。
3 设置 Skindata的active 为 true
4 编译运行你的程序。
这是最简单的实现,当然也可以添加SkinStore来做更多的选择,可以由用户自己选择皮肤文件
阅读全文
隔壁那条街走的是娱乐休闲的路子，酒吧KTV，酒店啥的有很多家，我询问了好多家，正常的价格都是120左右，有电脑房的价格略升，一般加个10块左右，没电脑房的有些减得多一点，例如某粥城边的酒店，没电脑房的单间也就100块，价格大多往8靠拢，某个商会的酒店价格118，呵呵，其中最便宜的就是某宾馆，68一个晚上
其中最黑的就算那个叫啥“城市便捷酒店”的，价格268，会员才能享受到一百来块的优惠，在周围普遍一百多块的情况下，没有任何优势
阅读全文
说好初八练的，结果教练病了，拖到前天他才回来~
那些学生想赶紧考试好去学校
结果这一两天就需要加班加点，今天还去练了什么9选6
以前没练过，比较紧张，停车没踩离合，被教练骂得狗血淋头
晚上花了20块看考场
里面旧场地的线竟然没去掉，看错线的可能性直线上升
听说星期2就考了~不知道有没我的名字~
心里很矛盾，一方面除了倒桩，其他的都没练熟
另一方面，如果现在不抓住机会考，不知道什么时候才安排我考
怕过几个月我都忘光了~又得重头练过
阅读全文
嗯，这个是前几天弄网页下载工具的时候查找到的，帮助很大，保存一份
说到网页采集，通常大家以为到网上偷数据，然后把到收集到的数据挂到自己网上去其实也可以将采集到的数据做为公司的参考，或把收集的数据跟自己公司的业务做对比等
目 前网页采集多为3P代码为多（3P即ASPPHP JSP）用得最有代表的就动易科技公司BBS中新闻采集系统，和网上流传的新浪新闻采集系统等都是用ASP程序来使用，但速度从理论上来说不是很好如果尝 试用其它软件的多线程采集是不是更快？答案是肯定的用DELPHIVCVBJB都可以，PB似乎比较不好做以下用DELPHI来解释采集网页数据
一 简单的新闻采集
新闻采集是最简单的，只要识别标题副题作者出处日期新闻主体分页就可以了在采集之前肯定要取得网页的内容，所以在DELPHI里加入idHTTP控件（在indy Clients面板），然后用idHTTP1.GET 方法取得网页的内容，声明如下：
function Get(AURL: string): string; overload;
AURL参数，是string类型，指定一个URL地址字符串函数返回也是string类型，返回网页的HTML源文件比如我们可以这样调用：
tmpStr:= idHTTP1.Get(http://www.163.com);
调用成功后，tmpstr变量里存储的就是网易主页的代码了
接下来，讲一下数据的截取，这里，我定义了这么一个函数：
function TForm1.GetStr(StrSource,StrBegin,StrEnd:string):string;
var
in_star,in_end:integer;
begin
in_star:=AnsiPos(strbegin,strsource)+length(strbegin);
in_end:=AnsiPos(strend,strsource);
result:=copy(strsource,in_sta,in_end-in_star);
end;
StrSource：string类型，表示HTML源文件
StrBegin：string类型，表示截取开始的标记
StrEnd：string，表示截取结束的标记
函数返回字符串StrSource中从StrSource到StrBegin之间的一段文本
比如：
strtmp:=TForm1.GetStr(A123BCD,A,BC);
运行后，strtmp的值为：123
关于函数里用到的AnsiPos和copy，都是系统定义的，可以从delphi的帮助文件里找到相关说明，我在这里也简单罗嗦一下：
function AnsiPos(const Substr, S: string): Integer
返回Substr在S中第一次出现的位置
function copy(strsource,in_sta,in_end-in_star): string;
返回字符串strsource中,从in_sta（整型数据）开始到in_end-in_star（整型数据）结束的字符串
有 了以上函数，我们就可以通过设置各种标记，来截取想要的文章内容了在程序中，比较麻烦的是我们需要设置许多标记，要定位某一项内容，必须设置它的开始和结 束标志比如要取得网页上的文章标题，必须事先查看网页代码，查看出文章标题前边和后边的一些特征代码，通过这些特征代码，来截取文章的标题
下面我们来实际演示一下，假设要采集的文章地址为http://www.xxx.com/test.htm
代码为：
<html>
<head>
<meta http-equiv=”Content-Language” content=”zh-cn”>
<meta content=”Microsoft FrontPage 5.0″>
<meta content=”FrontPage.Editor.Document”>
<meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″>
<title>新建网页 1</title>
</head>
<body>
<p align=”center”><b>文章标题</b></p>
<table border=”1″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse: collapse” bordercolor=”#111111″ width=”100%” >
<tr><td width=”60%”>作者</td>
<td width=”40%”>出处</td></tr>
</table>
<p><font size=”2″>这里是文章内容正文</font></p>
<a href=’..new_pr.asp’>上一页</a>??<a href=’new_ne.asp’>下一页</a>
</body>
</html>
第一步，我们用StrSource:= idHTTP1.Get(http://www.xxx.com/test.htm );将网页代码保存在strsource变量中
然后定义strTitlestrAuthorstrCopyFromstrContent：
strTitle:= GetStr(StrSource, <p align=”center”><b>, </b></p>):
strAuthor:= GetStr(StrSource, <tr><td width=”60%”>, </td>):
strCopyFrom:= GetStr(StrSource, <td width=”40%”>, </td></tr>):
strContent:= GetStr(StrSource, <p><font size=”2″>, </font></p>):
这样，就能把文章的标题副题作者出处日期内容和分页分别存储在以上变量中
第二步，用循环的办法，打开下一页，并取得内容，加到strContent变量中
StrSource:= idHTTP1.Get(new_ne.asp);
strContent:= strContent +GetStr(StrSource, <p><font size=”2″>, </font></p>):
然后再判断有没有下一页，如果还有就接着取得下一页的内容
这样就完成了一个简单的截取过程从以上的程序代码可以看到，我们使用的截取办法都是找截取内容的头部和尾部的，如果遇到这个头部和尾部有多个怎么办？似乎没办法，只会找到第一个，所以在找之前应该验证一下是不是只有一处有这个截取的内容的前后部
以上内容没有程序验证，仅供参考，如果认为有用可以试试
///////////////////////////////////////
用 Delphi 下载网页
http://dev.csdn.net/develop/article/61/61609.shtm
新建一个工程,放上一个TIdHTTP控件，一个TIdAntiFreeze控件，一个TProgressBar用于显示下载进度最后放上一个TButton用于开始执行我们的命令代码如下：
procedure TForm1.Button2Click(Sender: TObject);
var
MyStream:TMemoryStream;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
MyStream:=TMemoryStream.Create;
try
//下载我站点的一个ZIP文件
IdHTTP1.Get(‘http://www.138soft.com/download/Mp3ToExe.zip’,MyStream);
except//INDY控件一般要使用这种try..except结构.
Showmessage(‘网络出错!’);
MyStream.Free;
Exit;
end;
MyStream.SaveToFile(‘c:\Mp3ToExe.zip’);
MyStream.Free;
Showmessage(‘OK’);
end;
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ProgressBar1.Max:=AWorkCountMax;
ProgressBar1.Min:=0;
ProgressBar1.;
end;
IdHTTP1的Get还有一种形式就是获取字符串：例如，上面的程序可以改写成：
procedure TForm1.Button1Click(Sender: TObject);
var
MyStr:String;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
try
MyStr:=IdHTTP1.Get(‘http://www.138soft.com/default.htm’);
except
Showmessage(‘网络出错!’);
Exit;
end;
Showmessage(MyStr);
end;
阅读全文