以C++生成的程序作为服务端，delphi生成的程序为客户端，实现客户端发送数据，服务端接受数据并处理。客户端：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellAPI,ComCtrls, xmldom, XMLIntf, msxmldom, XMLDoc;type TForm1 = class(TForm) GroupBox1: TGroupBox; PageControl1: T... Read More
上学期看到宿舍一孩子天天上 时光网 不停点击某个图片链接然后又返回点击下一个图片链接，他说每天要点200个链接去访问别人的空间来赚取金币。天啊，看着手都酸了。 需求：访问http://my.mtime.com/app/card/top10_tools/index.html总共有4页，每页有50个用户的链接，总共有200个链接要求全部访问。 思路：获取页面的所有链接，提取有效的链接并访问。首先注册个账号，使用delphi 写个程序提取第一页的所有链接，发现链接有规律，对于有效的链接是夹在 http://my.mtime.com/app/card/qa/ 和 http://my.mtime.co. Read More
学校禁止p2p ，连优酷的视频也被禁了，平时没事喜欢看看优酷上的搞笑视频，每次都要缓冲好久甚至直接不能打开，灰常蛋疼。只能挂VPN了，又不想花钱去买VPN，只能用免费的，免费的一般有时间或流量的限制。有一款名为“517网络加速器”的vpn，免费的账号每次只能挂10分钟左右然后自动断开，需要手工去连接非常麻烦。于是想写个程序自动让它连接。 思路：循环获取“连接”按钮的句柄（使用spy++工具），判断按钮是否是“按下”的状态，否则给按钮发送“按下”的消息。 主要实现代码:procedure TForm1.Button1Click(Sender: TObject);begin if IsWind.. Read More