网页自动化登陆系统(填表单)

释放双眼,带上耳机,听听看~!
已经使用多年,可以使用。 主要功能,填表单,即网页或者软件的密码等登陆,表单保存在当前文件夹下ini文件。热键可自行修改或联系本人。 网页可一键登:本网站、百度、各招聘网等等(需要验证码需要手动) 软件可一键登:魔兽官方对战平台、浏览器账号登陆,等(LOL等大型软件有密码输入保护的不保证成功,若需要可重新订制) 默认热键: 收录该网站账号:Esc+F3 登陆该网站:Esc+F1 收录软件账号:Esc+F4 登录软件:Esc+Space 以上。

引言

已经使用多年,可以使用。
主要功能,填表单,即网页或者软件的密码等登陆,表单保存在当前文件夹下ini文件。热键可自行修改或联系本人。
网页可一键登:本网站、百度、各招聘网等等(需要验证码需要手动)
软件可一键登:魔兽官方对战平台、浏览器账号登陆,等(LOL等大型软件有密码输入保护的不保证成功,因为免费版的嘛~哈)

默认热键:

收录该网站账号:Esc+F3
登陆该网站:Esc+F1
收录软件账号:Esc+F4
登录软件:Esc+Space

操作方法举例:

网站登陆:

打开需要登陆的网站→按热键Esc+F3,输入该网站的账号与密码→OK

鼠标移动至要输入账号的地方→按热键Esc+F1→完成登陆

软件登陆:

打开需要登陆的软件→按热键Esc+F4→左键点击软件窗口选择该软件的→输入账号与密码→OK

鼠标移动至要输入账号的地方→按热键Esc+Space(空格键)→完成登陆

以上看似复杂,按要求操作一遍后很容易就理解上手,登陆非常便捷。而且换台电脑一样能用。

注意:

1,按要求操作,鼠标要移动输入框再按热键登陆。

2.输入账号密码有格式说明如:admin,123456,y,y              第一个admin是账号,英文逗号分隔,再123456是密码,英文逗号分隔,第一个y代表输入回车(有些网站不需要验证码可一键登陆[如www.autoahk.com]),第二个y代表另一种输入方法(某些网站或软件限制不能正常输入密码,可尝试第二种)

3.复制代码时别漏了代码框外的热键也要按顺序复制进去。。。

以上。

更新:

添加了打开软件提示启动成功,并测试能正常运行。

修改了Ctrl+F12退出软件

修正了在任何输入法状态都能正常登陆

 

以下是本软件源码:

#SingleInstance,force
#NoTrayIcon


ToolTip,系统启动成功!
Sleep,2000
ToolTip
return

~ESC & f3::

~f3 & ESC::

clipboardjx=%Clipboard%

Send,^l

Sleep,100

Send,^c

url=%Clipboard%

IfInString,url,http

{

	lenl:=InStr(url,"//")

	lenr:=InStr(url,"/",false,lenl+2)

	count:=lenr-lenl-2

	StringMid,url,url,lenl+2,count

}

InputBox,out,提示,请输入帐号与密码`n                           网站`n格式为:帐号,密码,是否按回车(y/n或1/0),[是否强制输入(y/n或1/0)],,,300

if out=

	return

StringSplit,outs,out,`,

loop,5000

{

	IniRead,outname,%a_scriptdir%\网页自动化登陆系统.ini,name,key%A_Index%,5001

	numoutname=%A_Index%

	StringSplit,inname,outname,|

	if (outname=5001)

		break

	if (url=inname1)

	{

		IniWrite,%url%|%outs1%|%outs2%|%outs3%|%outs4%,%a_scriptdir%\网页自动化登陆系统.ini,name,key%a_index%

		MsgBox,,,修改成功,0.5

		Clipboard=%clipboardjx%

		return

	}

}

IniWrite,%url%|%outs1%|%outs2%|%outs3%|%outs4%,%a_scriptdir%\网页自动化登陆系统.ini,name,key%numoutname%

MsgBox,,,保存成功,0.5

Clipboard=%clipboardjx%

return

~esc & f4::

~f4 & esc::

MsgBox,1,提示,是否打开源代码,0.5

IfMsgBox,ok

{

	Run,%a_scriptdir%\网页自动化登陆系统.ini

	return

}

SetTimer,point,300

KeyWait,LButton,d

SetTimer,point,off

ToolTip

WinGetActiveTitle,title0

WinGetClass,class,a

WinGet,exe,ProcessName,a

title=%title0%-%class%-%exe%



InputBox,out,提示,请输入帐号与密码`n`n 格式为:帐号,密码,是否按回车(y/n或1/0),[是否强制输入(y/n或1/0)],,,300

if out=

	return

StringSplit,user2,out,`,



loop,5000

{

	IniRead,outname,%a_scriptdir%\网页自动化登陆系统.ini,name,key%A_Index%,5001

	StringSplit,inname,outname,|

	numoutname=%A_Index%

	if (outname=5001)

		break

	if (title=inname1)

	{

		IniWrite,%title%|%user21%|%user22%|%user23%|%user24%,%a_scriptdir%\网页自动化登陆系统.ini,name,key%A_Index%

		;~ MsgBox,write %A_Index%

		MsgBox,,,修改成功,0.5



		return

	}

}

IniWrite,%title%|%user21%|%user22%|%user23%|%user24%,%a_scriptdir%\网页自动化登陆系统.ini,name,key%numoutname%

MsgBox,,,保存成功,0.5

return

point:

	ToolTip,请选择窗口

return

~esc & f1::

~f1 & esc::

MouseGetPos,ox,oy

Sleep,50

Send,^l

Sleep,100

Send,^c

Sleep,100

url=%Clipboard%



loop,5000

{

	IniRead,outname,%a_scriptdir%\网页自动化登陆系统.ini,name,key%A_Index%,5001

	StringSplit,namesp,outname,|

	pos:=InStr(url,namesp1)

	if (pos>0)

	{



		Sleep,30

		MouseMove,ox,oy,0

		Sleep,20

		Click

		Send,^a

		Sleep,40

		SendInput,% uStr(namesp2)

		Sleep,100

		Send,{tab 1}



		if (namesp5=1 or namesp5="y")

			SendInput,% namesp3

		else

			SendInput,% uStr(namesp3)

		if (namesp4=1 or namesp4="y")

			Send,{Enter}

		Sleep,300

		Send,{tab}

		break

	}

}



return

~esc & Space::

~Space & esc::

lebel1:

	Sleep,50

	Click

	Sleep,50

	Send,^a

	WinGetActiveTitle,atitle0

	WinGetClass,aclass,a

	WinGet,aexe,ProcessName,a

	atitle=%atitle0%-%aclass%-%aexe%

	loop,5000

	{

		IniRead,outname,%a_scriptdir%\网页自动化登陆系统.ini,name,key%A_Index%,5001



		StringSplit,namesp,outname,|



		if (atitle=namesp1)

		{



			Send,^a

			Sleep,50

			Send,% uStr(namesp2)

			Sleep,50

			Send,{tab}

			Sleep,50



			if (namesp5=1 or namesp5="y")

			{

				Sleep,50

				SendPlay,% namesp3

			}

			else

				Send,% uStr(namesp3)



			if (namesp4=1 or namesp4="y")

			{

				Sleep,100

				Send,{Enter}

			}

			break

		}



	}



return

uStr(str)
{
 charList:=StrSplit(str)
 for key,val in charList
 out.="{Asc " . asc(val) . "}"
 return out
}
return
^f12::

	ExitApp

 

人已赞赏
AHKV1

浏览器嵌入GUI窗口实例

2018-4-9 9:06:12

AHKV1

用一个脚本生成另一个脚本并运行

2018-4-9 21:50:46

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索