账号批量注册软件开发启示录

想做一个账号批量注册的软件。不知道具体思路是什么样子的。现在搞起来看看。。有愿意分享一下的么？

我现在的思路是，找到网址，找到注册页面的链接，然后自动生成用户名密码什么的，然后填写验证码，然后注册成功。

不知道具体咋开发啊。懂得人教我下吧~感谢！

新增以下代码

procedure TForm1.Button1Click(Sender: TObject);
varOpenurl : string;elem: IHTMLElement;coll: IHTMLElementCollection;i: Integer;url, Text: string;d2,D:IHTMLDocument2;d1:IHTMLDocument;e:IHTMLElement;e2:IHTMLElement2;cp: IHTMLControlRange;img:IHTMLImgElement;ce:IHTMLControlElement;bmp:TBitmap ;r0:TRect;newbmp:TBitmap;r1:TRect;checkstr:string;MyHandle :THandle ;bmpPtr:Pointer;ms:TMemoryStream;   //内存流对象AjpgFile: TJPEGImage;
beginms := TMemoryStream.Create;  //建立内存流对象AjpgFile := TJPEGImage.Create;IdHTTPBaiDu := TIdHTTP.Create(nil);IdHTTPBaiDu.IOHandler := IdSSLIOHandlerSocketOpenSSL1.Create(nil);IdHTTPBaiDu.Request.Referer:='http://m.iask.com';Openurl := 'https://passport.baidu.com/v2/?reg&u=http://www.baidu.com/&tpl=mn';
//  Openurl := 'http://zc.qq.com/chs/index.html';try
//    Result := '3';//if (PostText = '') then Exit;// btn4Click(btn4);BaiDuWebBrowser.Navigate(Openurl);while BaiDuWebBrowser.Busy dobeginApplication.ProcessMessages;end;BaiDuWebBrowser.Stop;if BaiDuWebBrowser.Document = nil thenExit;//Memo1.Lines.Add(IHTMLDocument2(WebBrowser1.Document).Body.OuterHtml) ;//获取源代码D := BaiDuWebBrowser.Document as IHTMLDocument2;e :=d.body as IHTMLElement;e2 :=e as IHTMLElement2;cp :=e2.createControlRange as IHTMLControlRange;d2 :=BaiDuWebBrowser.Document as IHTMLDocument2;//下面是破解验证码coll := d.all;coll :=(coll.tags('img') as IHTMLElementCollection);for i := 0 to coll.Length - 1 dobegin//循环取出每个urlelem := (coll.item(i,0) as IHTMLElement);url :=Trim(string(elem.getAttribute(WideString('src'), 0)));//Text := Trim(string(elem.outertext));if pos('genimage', url) >0 thenbeginIdHTTPBaiDu.Get(url,ms);AjpgFile.LoadFromStream(ms);Image1.Picture := TPicture(AjpgFile);
//        Image1.Picture.LoadFromFile(url);Break;end;//DebugInfo(text+#13#10+url) ;Application.ProcessMessages;end;img :=elem as IHTMLImgElement;ce:=img as IHTMLControlElement;cp.add(ce);try// Clipboard.Open;
//    Clipboard.Clear;if Clipboard.hasFormat(CF_BITMAP) thenbegintrycp.execCommand('Copy',false,0);MyHandle :=Clipboard.GetAsHandle(cf_Bitmap);bmpPtr := GlobalLock(MyHandle);Image1.Picture.Bitmap.Assign(Clipboard);Image1.Picture.LoadFromClipboardFormat(cf_BitMap,MyHandle,0);Clipboard.Clear;GlobalUnlock(MyHandle);finallyClipboard.Close;end;end;bmp:=(Image1.Picture.Bitmap as TBitmap);
//    checkstr := getCheckStr(bmp);exceptImage1.Picture.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);checkstr :='';end;finally//end;end;

还会报错！请指教。

账号批量注册软件开发启示录相关推荐

商务快车: 批量注册软件!
商务快车: 批量注册软件! 但是注册码要手写! 转载于:https://www.cnblogs.com/MySpace/archive/2009/11/10/1599789.html
亚马逊买家账号批量注册如何操作？
想要注册买家号,需要准备以下资料: 网络环境:网络环境就是我们平常所说的ip,需要根据相应的国家进行选择相应的网络环境邮箱:在进行注册操作时,尽量使用国外的邮箱,比如Outlook.Hotmail. ...
AI智能视频批量剪辑软件开发-云罗企客-视频一键批量处理
目录全自动剪辑软件开发逻辑及使用流程全自动剪辑软件开发部分代码接入全自动剪辑软件开发逻辑及使用流程 1. 创建创意工程,可以将需要推广的每个产品分别创建一个创意工程,以区分不同的产品上传不同的宣 ...
ai智能混剪批量剪辑软件开发工具|批量视频剪辑开发分享
AI智能批量剪辑系统研发主要涉及以下技术: 1. 视频处理技术:包括视频压缩.格式转换.去水印.稳定性处理等. 2. 视频剪辑技术:包括时间轴编辑.音视频素材分离.剪辑片段拼接等. 3. AI算法技术 ...
亚马逊测评养号__亚马逊买家账号批量注册__亚马逊多账号管理——安全隔离独立浏览器AdsPower
一些朋友可能知道,测评圈里有很多工作室是利用充值某宝,或者P网(paxful)的低价礼品卡,去找商家或者中介接单来赚取礼品卡和商家返款的差值,想获得更多的利润他们就得使用大量的买家账号这就产生了一个产 ...
Ebay跨境智星：全自动批量注册及下单软件
Ebay跨境智星是一款可以批量注册ebay买家号.批量绑定地址及信用卡.批量加购加心愿单.自动下单的软件. 功能使用: 关于注册:注册账号需要准备邮箱,邮箱一般建议使用开通了pop或者IMAP协议的, ...
亚马逊鲲鹏系统：批量注册亚马逊买家号软件
之前我们有谈到过,想要注册亚马逊买家号,需要邮箱.ip.信用卡.收货地址和手机号.自己手动注册一个一个的太麻烦,还会花费大量的时间,那么有没有可以节约时间的自动化操作软件呢?想要自动化操作软件,来试试 ...
新手小白入门必看！如何批量注册Twitter账号？
Twitter是目前海外比较流行的社媒营销平台,所以很多从事跨境电商行业的朋友都需要利用多个Twitter账号来推广营销,但是注册和管理多个Twitter账号其实并不是简单的事情.龙哥将会在这里详细讲 ...
如何批量注册推特账号
Twitter推特账号怎么注册?相信国内好多朋友都被推特注册卡住,不知怎么注册twitter账号,由于国内限制的问题,推特账号注册比以前更麻烦了,本文将详细讲解Twitter怎么注册,Twitter ...

账号批量注册软件开发启示录

账号批量注册软件开发启示录相关推荐

最新文章

热门文章