有兴趣开发开心网外挂否(50)

  • 主题发起人 主题发起人 青云
  • 开始时间 开始时间
青

青云

Unregistered / Unconfirmed
GUEST, unregistred user!
网上看到很多开心网外挂，有的甚至公布了源码.不过我看了一下，很多都是用c#开发的；没有看到用delphi开发的，我觉得还是delphi好，因为c#做的软件需要netframwork，很多人电脑都没装；delphi开发的开心网外挂好像还没见过； 希望有兴趣的朋友能够各抒己见，无论是创意上，还是技术实现细节上，如何去搞这个。找到一个开源的c#的外挂代码：http://code.google.com/p/kaixin/downloads/list我想我们也搞个delphi的，效果不逊于它。
 
效果达到了就行，何必拘泥于语言的实现呢？.NET的运行库就这么难装？
 
也不难，但是做的好，还是用自己熟练的工具更好
 
在 http://www.turbozv.com/read.php?838 看到你的回复： delphi 2008/12/11 14:56 要是delphii就好。原来你做咯。那我就不用了。indyhttp。post也是很方便的。我以前就做过刷票机。cookie么。伪造下就行了。 我是一个delphi老鸟了，99年就搞这个；我发的帖子：http://www.delphibbs.com/delphibbs/dispq.asp?lid=3967693 有兴趣我们共同研究研究。=============================你给我发的邮件啊.我回了.建议用webbrowser做.可以不需要考虑太多问题在登陆字符验证上面.
 
说白了就是http的get、post用indyhttp就可以做，个人觉得比较隐秘一点的就是开心网里每个功能对应的链接
 
呵呵，说白了就是http的get、post我也这么认为，等我研究一点，就公布一点代码希望有兴趣的朋友共同研究
 
有兴趣啊！要不然就弄个开心网外挂delphi研究qq群吧！好一起交流！呵呵！
 
idhttp你会发现他的登陆验证图片根本login不了.为什么?我在做三国风云的扫田外挂的时候.开始也那么想.但是发现没有webbrowser来的直观.少走弯路.
 
可以开发一下，顺便玩玩
 
好多外挂高手阿。
 
哪个开心网啊....原来kaixin001的我写过，后来觉得太麻烦...如果不想自己分析页面就要借助webbrowser，这样就没办法多账号同时挂否则就要自己分析页面....我懒....所以直接用别人的了好像他们在google上建了个开心网外挂的项目http://kaixin.googlecode.com
 
用delphi登陆开心网的代码：procedure TForm22.Button1Click(Sender: TObject);varlist : TStringList;str : string;beginlist := TStringList.Create;list.Add('email=daizhicun@126.com');list.Add('password=xxxxxx');idhttp1.post('http://www.kaixin001.com/login/login.php',list);memo1.Text := str;end;但是不行；不知道正确的写法是什么？
 
找了一段据说可以使用的vb代码：http://www.vbgood.com/viewthread.php?tid=84185 正解如下：Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub form_Click() WebBrowser1.Navigate "http://www.kaixin001.com/login/login.php"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim vDoc, vTag Dim i As Integer Set vDoc = WebBrowser1.Document For i = 0 To vDoc.All.length - 1 If UCase(vDoc.All(i).tagName) = "INPUT" Then Set vTag = vDoc.All(i) If vTag.Type = "text" Or vTag.Type = "password" Then Select Case vTag.Name Case "password" vTag.Value = "abcdefg" Case "email" vTag.Value = "aaaa@163.com" End Select ElseIf vTag.Type = "submit" Then 'vTag.Click '等到能填上再加这句 Sleep 1000 End If End If Next iEnd Sub它是通过 WebBrowser进去的；我想还是直接用post进去好。
 
又找到一段c#的代码：http://www.cnblogs.com/lingling8420/archive/2009/05/25/1489194.html希望大家共同研究。
 
又找了一段代码php的外挂代码：http://blog.csdn.net/luobo525/archive/2009/02/04/3861436.aspx参考一下不错。
 
登录问题解决了一点：procedure TMainFrm.ToolButton3Click(Sender: TObject);var list: TStringList; str: WideString;begin list := TStringList.Create; list.Add('url=/home/'); list.Add('invisible_mode=0'); list.Add('email=daizhicun@126.com'); list.Add('password=xxxx'); list.Add('remember=1'); str := UTF8Decode( idhttp1.post('http://www.kaixin001.com/login/login.php', list)); memo1.Text := str;end;根据返回的结果判断登录成功与否，不过如果有验证码就不知道如何解决了。
 
http://bbs.2ccc.com/topic.asp?topicid=328618
 
Delphi做这个实在是小玩啊~~~哈哈帮你顶！
 
我在准备做这个,不过是做的校内网,原理是一样的.前段时间研究了一下,稍有进展.可以一起学学.
 
得到所有好友的C#代码： public void Run() { this.ReadGlobalConfig(); if (this.Logon()) { string content = this._hh.Get("http://www.kaixin001.com/friend/"); this._verifyCode = ContentHelper.GetVerifyCode(content); int num = 0; Collection<int> friendList = this.GetFriendList(content); foreach (int num2 in friendList) { ....... }我有个疑问：Get("http://www.kaixin001.com/friend/"); 只是得到一页的好友信息，如果好友很多，有多页，那么该如何实现？
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
Z
谁用兴趣做一个完全开放源代码的语音聊天室软件(50分)
回复
7
查看
173
zuping
Z
大
寻　能写游戏小外挂，网络知识丰富的朋友～　　(50分)
回复
0
查看
139
大大real
大
I
关于游戏外挂的问题，想知道其原理和实现！高手们都来看看，我弟是菜鸟~(200分)
回复
5
查看
112
jomee
J
Z
传奇是用Delphi开发的吗？谁有源码(50分)
回复
4
查看
122
3304xfq
3
后退
顶部