HTAをもっと流行らせる計画 Part2

HTAをもっと流行らせる計画 Part2at TECH

HTAをもっと流行らせる計画 Part2 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

400:デフォルトの名無しさん
 10/05/01 10:49:06 .net
<?xml version="1.0"?><package><job id="a"><script language="VBScript"><![CDATA[   
Rem Pipe を分ける.wsf Unicodeで保存 
Set objShell = CreateObject("Wscript.Shell") 
Set objPipe = objShell.Exec("cmd.exe /c (for /L %i IN (1, 1, 123) DO @dir c:\) | find  "":"" ") 
Set objPipe2 = objShell.Exec("cmd.exe /c sort /r | mshta.exe " & _ 
"""" & "javascript:" & "objDOM=new ActiveXObject('MSXML2.DOMDocument');" & _  
"objDOM.load('" & replace(Wscript.ScriptFullName, "\", "\\") & "');" & _  
"objDOM.selectSingleNode(""/package/job[@id='HTA']"").childNodes(0).nodeValue" & """")   
 
Do Until(objPipe.StdOut.AtEndOfStream) 
objPipe2.StdIn.WriteLine objPipe.StdOut.ReadLine 
Loop]]></script></job><job id="HTA"><![CDATA[<head><script language = "VBScript">   
Sub DisplayStdIn() : Set objFso = CreateObject("scripting.FilesystemObject")  
Set objStdIn = objFso.GetStandardStream(0) : str=""  
document.getElementById("atextarea").value=""  
Do Until objStdIn.AtEndOfStream : str = str & objStdIn.ReadLine & vbcrlf 
Loop : document.getElementById("atextarea").value = str: End Sub  
</script><style type="text/css">.texttype { height:100%; width:100%; }   
</style></head><body onload="DisplayStdIn()">   
<p class="texttype"><TEXTAREA id="atextarea" wrap="off" class="texttype">   
</TEXTAREA></p></body>]]></job></package>

次ページ