利用FTP制作注册登录示例（谨慎使用）

Menu,Tray,NoStandard
Gui,Add, Text,xm y+10, 用户名:`n`n密  码:`n`n卡  密:
Gui,Add,Edit,ym Section x+2 r1 vMyHm w100 Limit7 Number
Gui,Add,Edit,xs y+4 r1 vMyMm wp+ Limit7 Number
Gui,Add,Edit,xs y+4 r1 vMyKm wp+ Limit9 Number
Gui,Add,Button,xm y+5 Section,确定注册
Gui,Add,Button,ys x+5 Default ,确定登录
Gui,Show
return
Button确定登录:
	Gui, Submit ,NoHide
	if not MyHm
	{
		MsgBox,请输入用户名
		return
	}else if not MyMm
	{
		MsgBox,请输入密码
		return
	}
	FileDelete,%A_Temp%%MyHm%.txt
	URLDownloadToFile,http://habit-2015.54fe89771abc8.d01.nanoyun.com/Account/user/%MyHm%.txt?fakeParam=%A_Now% ,%A_Temp%%MyHm%.txt
	if ErrorLevel = 1
	{
		MsgBox,出现问题
	}
	FileRead, version, %A_Temp%%MyHm%.txt
	FileDelete,%A_Temp%%MyHm%.txt
	pinginfo := Object()
	site = www.baidu.com
	pinginfo["site"] := site
	pinginfo := ping(pinginfo)
	msg := pinginfo["msg"]
	TrayTip,注册卡正确,正在验证时间,,1
	winbd :=获取时间()
	StringTrimRight, winbd, winbd, 3
	Loop, Parse, version , `n, `r
	{
		field = %A_LoopField%
		if A_Index = 1
		{
			if (field != MyMm)
			{
				MsgBox,密码错误
				return
			}
		}
		else
		{
			if (field "%FTPLogFile%",,Hide
	FileDelete %FTPCommandFile%
	TrayTip,注册成功,使用时间%version%天,,1
return
;~ rename 123.txt NewFileName.txt 更名


ping(pinginfo){
	site := pinginfo["site"] ;赋值
	RunWait, %ComSpec% /c ping -n 1 %site% >%A_Temp%ahk_ping.tmp, , Hide ;有cmd ping网址并保存到临时文件夹
	FileRead, content, %A_Temp%ahk_ping.tmp ;读取整个文件到变量
	StringReplace, content, content, `r, , All ;去除回车符
	StringSplit, var, content, `n ;按换行分割
	if content Contains 请求超时,Request timed out
	{
		pinginfo["msg"] = "请求超时" ;返回msg
		MsgBox,请求超时
		ExitApp
		return pinginfo ;返回数组
	}
	if content Contains 找不到主机,could not find host
	{
		pinginfo["msg"] = "找不到主机"
		MsgBox,找不到主机
		ExitApp
		return pinginfo ;返回数组
	}
	else
	{
		pinginfo["msg"] := "正常"
		return pinginfo ;返回数组
	}
}
获取时间()
{
	Loop
	{
		文本:=UrlDownloadToVar("http://open.baidu.com/special/time/")
		RegExMatch(文本,"window.baidu_time((d*)",秒数)
		if (秒数1"")
			break
		if (A_Index>5)
			return
	}
	秒数:=秒数1
	StringMid,毫秒,秒数,11,3	;注意是提取3位数的毫秒而不是4位
	秒数:=秒数/1000
	起始时间=1970010108 ;起始时间设置为19700101的8点 这样简化了时区转换的一个步骤
	起始时间+=%秒数%,Seconds   ;起始时间按秒加了这么多 就是当前时间
	return,起始时间 . 毫秒
}
UrlDownloadToVar(URL,Charset="",URLCodePage="",Proxy="",ProxyBypassList="",Cookie="",Referer="",UserAgent="",EnableRedirects="",Timeout=-1)
{
	ComObjError(0)
	WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
	if (URLCodePage"")
		WebRequest.Option(2):=URLCodePage
	if (EnableRedirects"")
		WebRequest.Option(6):=EnableRedirects
	if (Proxy"")
		WebRequest.SetProxy(2,Proxy,ProxyBypassList)
	WebRequest.Open("GET", URL, true)
	if (Cookie"")
	{
		WebRequest.SetRequestHeader("Cookie","tuzi")
		WebRequest.SetRequestHeader("Cookie",Cookie)
	}
	if (Referer"")
		WebRequest.SetRequestHeader("Referer",Referer)
	if (UserAgent"")
		WebRequest.SetRequestHeader("User-Agent",UserAgent)
	WebRequest.Send()
	WebRequest.WaitForResponse(Timeout)
	if (Charset="")
		return,WebRequest.ResponseText()
	else
	{
		ADO:=ComObjCreate("adodb.stream")
		ADO.Type:=1
		ADO.Mode:=3
		ADO.Open()
		ADO.Write(WebRequest.ResponseBody())
		ADO.Position:=0
		ADO.Type:=2
		ADO.Charset:=Charset
		return,ADO.ReadText()
	}
}