网页自动化登陆系统（填表单）

引言

已经使用多年，可以使用。
主要功能，填表单，即网页或者软件的密码等登陆，表单保存在当前文件夹下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