YY注册辅助 （只为学习交流非恶意）

haodd

主要功能都已经完成

由于各种原因没有得完善！

求助坛里的高手一起协助 完善起来！

有意的 联系 我把写好的那部分发给你

前提：
索取源码前，你必须要能胜任完善其源码（即：尽可能尽善尽美的决心和能力）
你可以任意修改！
修改完后，需把你修改的源码发给我，且不能把本人的源码 和 你修改后的源码 做不法途径。
不能把本人的源码 和 你修改后的源码 在本坛以外发布！ 谢谢！

hzxymkb

厉害，能写这个东西了！想看代码，不过没有能力去完成！

suiyefeng

学au3我现在就会ie模拟类,还有自动操作的...写过这方面的..可是没写过楼主这么功能多的....
希望可以看看楼主代码,学习下注册的模板...不过我可能没有能力可以完善

mtvtop

能不能分享一下，谢谢

huangke

模拟IE？很好。。。。

qqmmcc

我是来看图片的，设计不错

haodd

回复 2# hzxymkb


    已通过站内信息发送 请注意查收

haodd

回复 3# suiyefeng


    已通过站内信息发送 请注意查收！

qddoit

赞··········

jj119120

前些日子想做来着  但验证码调用一直弄不好  还是附上我的源码   方便大神指点  顺便求LZ源码

#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <IE.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$file = @WorkingDir & "\register.jpg"
FileDelete($file)
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("YY注册机", 441, 226, 350, 291)
$Pic1 = GUICtrlCreatePic("", 11, 112, 200, 70, BitOR($GUI_SS_DEFAULT_PIC,$WS_CLIPSIBLINGS))
;$LabelCheck = GUICtrlCreateLabel("看不清图片点击图片更换", 43, 188, 136, 17)
$listview = GUICtrlCreateListView("帐      号|密       码", 224, 16, 200, 190)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 95)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 95)
$listview_0 = GUICtrlCreateListViewItem("name|password", $listview)
$Label1 = GUICtrlCreateLabel("用户名", 16, 16, 40, 17)
$Label2 = GUICtrlCreateLabel("密   码", 16, 48, 40, 17)
$Label3 = GUICtrlCreateLabel("验证码", 16, 80, 36, 17)
$Input1 = GUICtrlCreateInput("", 64, 16, 145, 21)
$Input2 = GUICtrlCreateInput("", 64, 48, 145, 21)
$Input3 = GUICtrlCreateInput("", 64, 80, 145, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $pic, $oForm, $oIE
_get_key()
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Input3
                        If StringLen(GUICtrlRead($Input1)) < 4 Or StringLen(GUICtrlRead($Input1)) > 16 Or StringLen(GUICtrlRead($Input2)) < 6 Or StringLen(GUICtrlRead($Input2)) > 20 Then
                                MsgBox(4096, "", "你的输入不符合注册要求，检查一下你什么没填")
                        Else
                                Reg()
                        EndIf
        EndSwitch
WEnd

Func Reg()
        $name = GUICtrlRead($Input1)
        $password = GUICtrlRead($Input2)
        $yzm = GUICtrlRead($Input3)
        $oIE = _IECreate("http://udb.yy.com/register.do", 0, 0, 1) ;注册网页
        $oForm = _IEFormGetObjByName($oIE, "frmpost")
        $oQuery = _IEFormElementGetObjByName($oForm, "username") ;用户名
        _IEFormElementSetValue($oQuery, $name)
        $oQuery = _IEFormElementGetObjByName($oForm, "password") ;密码
        _IEFormElementSetValue($oQuery, $password)
        $oQuery = _IEFormElementGetObjByName($oForm, "password2") ;再次输密码
        _IEFormElementSetValue($oQuery, $password)
        $oQuery = _IEFormElementGetObjByName($oForm, "securityCode") ;验证码
        _IEFormElementSetValue($oQuery, $yzm)
        $xieyi = _IEFormElementGetObjByName($oForm, "agreement") ;同意协议
        _IEAction($xieyi, "click") ;点击协议
        $button = _IEFormElementGetObjByName($oForm, "submitButton") ;按钮
        $ture = _IEAction($button, "click") ;点击按钮
        $sText = _IEBodyReadText($oIE)
        $result = StringInStr($sText, "恭喜您注册成功")
        If $result <> "0" Then
                GUICtrlCreateListViewItem($name & "|" & $password, $listview)
        Else
                MsgBox(0, "Body Text", $sText)
        EndIf
EndFunc   ;==>Reg

Func _get_key()
        InetGet ("http://udb.yy.com/verify/register.do", "register.jpg")
        GUICtrlSetImage ($pic1,"register.jpg")
EndFunc

haodd

回复 10# jj119120


    你的已经很不错啦

已经通过站内信 发源码给你了
请注意查收哦！
有疑问 请站内信回复

jj119120

回复 11# haodd


    嗯  收到了   正在学习ing   LZ的源码对我还是很有启发的   谢谢！！！

神马会飞丶

菜鸟飘过

mtvtop

回复 11# haodd
哥哥你改的源代码能不能给我一份，我也想学学，谢谢哥哥了

mtvtop

回复  haodd


    嗯  收到了   正在学习ing   LZ的源码对我还是很有启发的   谢谢！！！
jj119120 发表于 2011-10-21 21:04

哥哥能不能把改的源代码能不能给我一份，我也想学学，谢谢哥哥了