qicai 发表于 2017-8-5 12:12

支持,{:2_420:}

liyuext01 发表于 2017-8-5 12:18

谢谢楼主

alanshu 发表于 2017-8-5 12:28

需要回一个看看。

99777777 发表于 2017-8-5 12:32

谢谢分享

yunjin9856 发表于 2017-8-5 12:40

感谢楼主

FeiXJ168 发表于 2017-8-5 12:41

谢谢分享

yunjin9856 发表于 2017-8-5 12:41

怎么我所在的用户组无法查看附件呢?

volcanol 发表于 2017-8-5 12:52

为了看这个,我设置了安全中心4个东东

无敌小喵喵 发表于 2017-8-5 13:18

好东西 求下载

冷暖人生路 发表于 2017-8-5 13:32

本帖最后由 冷暖人生路 于 2017-8-5 13:37 编辑

; <COMPILER: v1.0.47.6>
MsgBox ,0, 魔影小试, ESET用户名及密码下载`n5秒后自动确认下载, 5
TrayTip , 请稍侯, 正在努力下载用户名及密码, 5, 1]
UrlDownloadToFile, http://www.nod32jihuoma.com/, key.txt
Loop
{
FileReadLine, line, key.txt, %A_Index%
if ErrorLevel
break
RegExMatch(line, "用户名:(.+) 用",URL)
if (StrLen(URL)<>0)
URLs=%URLs%%URL%`n
}
FileAppend , %URLs%, j.txt
Loop
{
FileReadLine, line1, j.txt, %A_Index%
if ErrorLevel
break
NewStr := SubStr(line1, 1,42)
NewStrq=%NewStrq%%NewStr%`n
}
FileAppend , %NewStrq%, 用户名及密码.txt
Filedelete , j.txt
Filedelete , key.txt

UrlDownloadToFile, https://nod32.buzzdope.com/, key1.txt
Loop
{
FileReadLine, line2, key1.txt, %A_Index%
if ErrorLevel
break
RegExMatch(line2, "TRIA(.+)</tr",URL1)
if (StrLen(URL1)<>0)
URLs1=%URLs1%%URL1%`n
}
FileAppend , %URLs1%, j1.txt
Loop
{
FileReadLine, line3, j1.txt, %A_Index%
if ErrorLevel
break
NewStr1 := SubStr(line3, 1,16)
NewStr2 := SubStr(line3,26,10)

NewStrq1=%NewStrq1%用户名:%NewStr1%密码:%NewStr2%`n
}
FileAppend , %NewStrq1%, 用户名及密码.txt
Filedelete , key1.txt
Filedelete , j1.txt



UrlDownloadToFile, http://down.lansedongli.com/zt/eset_nod32_key.html, key2.txt
Loop
{
FileReadLine, line5, key2.txt, %A_Index%
if ErrorLevel
break
RegExMatch(line5, "用户名:TRIAL(.+)<",URL2)
if (StrLen(URL2)<>0)
URLs2=%URLs2%%URL2%`n
}
FileAppend , %URLs2%, j3.txt
Loop
{
FileReadLine, line6, j3.txt, %A_Index%
if ErrorLevel
break
NewStr3 := SubStr(line6, 1,40)
NewStrq2=%NewStrq2%%NewStr3%`n
}
FileAppend , %NewStrq2%, 用户名及密码.txt
Filedelete , j3.txt
Filedelete , key2.txt
早就放弃ahk了 等于开源的
页: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14
查看完整版本: 2017年8月4日新鲜出炉的用户名及密码获取工具