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

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

AHK源码 继CapsLock+之后,功能更完善的CapsLockPlus

2018-3-29 16:17:00

办公

自动化启动管理器

2018-5-3 0:04:28

6 条回复 A文章作者 M管理员
  1. 河许人

    建议把使用方法写清楚

  2. dome

    厉害了!我的哥

  3. dome

    代码为什么是断开的呢,难道是多个脚本?

  4. 咦,有大神!

    代码断开不怪我~
    断开一篇也不能算成五篇,
    利剑出销的时候就是一格一格的,
    神龙许完愿就会分成五颗珠子。

    • dome

      哈哈 随你 只是询问下,明天用下看看的,一直想写个类似的,没时间写,多谢分享!!

  5. 大道也

    收藏学习。

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