|
|
本帖最后由 javarike 于 2009-6-14 00:23 编辑
这里不是帮人家做广告,只是近来看到周围的人都喜欢玩这样的网络小游戏,而且每次登陆都很麻烦.特意做成一个登陆器,没有密码保存.很简单的说,大家喜欢的话就踩一下吧!谢谢!!.gif)
$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
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？加入
×
|
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2009-6-5 23:41:41
发表于 2009-6-9 00:49:57