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