发布两个近期大家喜欢玩的开心网登陆器
本帖最后由 javarike 于 2009-6-14 00:23 编辑这里不是帮人家做广告,只是近来看到周围的人都喜欢玩这样的网络小游戏,而且每次登陆都很麻烦.特意做成一个登陆器,没有密码保存.很简单的说,大家喜欢的话就踩一下吧!谢谢!!:face (12):
$MainForm = GUICreate("开心001登陆器V1.01", 454, 255)
$Combo_Uname = GUICtrlCreateCombo("", 184, 48, 129, 25)
GUICtrlSetData(-1, "javarike@163.com|gzhuangke@163.com", "javarike@163.com")
$Label1 = GUICtrlCreateLabel("登陆邮箱:", 112, 48, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("登陆密码:", 112, 96, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input_psswd = GUICtrlCreateInput("密码密码", 184, 96, 129, 21,$ES_PASSWORD);
$Button_login = GUICtrlCreateButton("登 陆", 200, 168, 75, 25, 0)
$lable = GUICtrlCreateLabel("By javarike CopyRight @ 2009-6-4", 152, 216, 231, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_login
_Longin()
Case $lable
_IECreate("http://www.autoitx.com/search.php?ascdesc=desc&before=&formhash=2c400c96&orderby=lastpost&searchsubmit=???&srchfid[]=all&srchfilter=all&srchf=&rom=0&srchtxt=&srchtype=title&srchuname=javarike&st=on")
EndSwitch
WEnd
Func _Longin()
Local $username,$password
$username = GUICtrlRead($Combo_Uname,1)
$password = GUICtrlRead($Input_psswd,1)
$oIE = _IECreate("http://www.kaixin001.com/login/")
$oForm = _IEFormGetObjByName($oIE, "loginform")
$Email = _IEGetObjByName($oIE,"email")
$passwd = _IEGetObjByName($oIE,"password")
_IEPropertySet($Email,"innertext",$username)
_IEPropertySet($passwd,"innertext",$password)
_IEFormSubmit ($oForm)
EndFunc====================
差不多玩到头了,没意思了 呵呵，没玩过 呵呵，没玩过 有原源吗？共享下下！！！！ 现在改玩校内网了。。支持了。 如果能够种菜就好了。 呵呵，没玩过 呵 原碼似乎沒貼齊 呵呵，不错啊 看一下。谢谢
页:
[1]