利用Delphi刷和讯博客人气.pdfVIP

维普资讯 一 socket )栏目编辑) )IlsockeH荟~hac三ker：com三c!■■—■■——● 刖 _ 关 j羞 利 一- ； 建用词：编D程e和、讯lD博客h、盗号i 濯』Fk■—黑 捌 和讯博客人 —_一妻 ；濯一 文／图Kevin 蠢隳圈豳■黼 l l 看到黑防第～期的 利用VB实现校内网刷 人气与盗号 —一文 ．一直想着 自己也做一个刷 人气工具 ，就想起来我 以前的和讯博客 。要刷 它的人气 ，着实和校 内网有点不 同，和讯 的用 户像校内网一样能用数字来浏览 ，必须 自己从 网页里获取用户名 ，再通过地址拼接来得到完 整的博客地址 。我的做法是先从～个页面里获 得所有的链接 ，从中分离出包含用户名的链 接，再从链接里得到用户名 ，再用户名拼接成 完整的博客地址 。可能有人会说 ，既然有 了博 客地址还要得到用户名干什么 ．直接浏览不就 得 了．我这么做是为了可 以循环获取和保存用 里打开一个IE的标签 ，这里我们干脆做个控件 ， 户 名 (留着 备 用 J。 省得它乱弹 。 首先打开DeIph_7，点击 Project一import 在FormCreat当中加入以下代码来实现打开 typeIibrary一导入MicrosoftHTMLObjectLibrary 和讯 的登录界面 。 (version4．0)一导入HTML类库 ．然后再新建应用 程拖入相应的控件 ，设置相应的属性 ，这里我 列 出需要 的控件 如表 1所示 。 控件名称 控件类型 使用说明 e url edit 要进行有哪些信誉好的足球投注网站的用户我的网页 _ euser edit 填写用户名 e_ pass edit 填写密码 b — login butt∞ 登录按纽 在登录按钮里加入如下代码 实现 自动登录。 m_ allurl ∞ 获得到的所有链接 ib— url listbox 分离出的有用链接 murl ∞ 分离出的用户名 WebBrowseri ~bBrowser打开e — url的web拉伴(我放在Tmurl的后面看不到) WebBrowser2 WebBrowser登录和进行洲览其他人的博客 WebBro~ser3 bBro~ser盗取使用人的帐户名 pmgetblot PopMenu 用来循环获取链接和保存结果 user PopMenu 保存得到的用 表1 整个程序界面如图1所示，大家可以自己美化。 如果用动态生成再隐藏打开IE而默认浏览 器不是lE的话 比如傲游就不会隐藏，会在