<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; HTA: Файл внутри тела скрипта]]></title>
		<link>https://forum.script-coding.com/viewtopic.php?id=6179</link>
		<atom:link href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=6179&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «HTA: Файл внутри тела скрипта».]]></description>
		<lastBuildDate>Mon, 03 Oct 2011 20:13:47 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=52133#p52133</link>
			<description><![CDATA[<p><a href="http://forum.script-coding.com/viewtopic.php?id=4761">WSH: работа с бинарными данными через ADODB.Stream на VBS</a></p><div class="codebox"><pre><code>&lt;SCRIPT Language=VBScript&gt;
Data = &quot;89504E470D0A1A0A0000000D4948445200000027000000420803000000E3443FEE0000000C504C5445F0EEEEF95353F59393FF04047F58B0FF000000097048597300002E2300002E230178A53F760000014249444154789CED955902C42008434DB8FF9DA7AD4BD9AC1C60FCAA363E10115AF38361251D404D27520242A40414290171EB0A409112F0F6AEE2E1C33A033BEA0C1CA413900374022ECE37900BF30D5494EBB380FB061AA7F6401AC41EE8CEB803D20176C007C76B1C8000D0930A5D4A208D35658D619069D28A3821E6CC60FB5E1013A2B679AB7CB7749B026F1A7ADB74157362EE49B9417D1C1349172D636DAF83F1DE7EEB3889F729E7B943EE7434B762CFA1269C81EBF74B1BC035E3B80215671DB267E14AABF523E6C57B46F3E315B6960BA16DC4B49E89A4F3282F0BD4897F1A2C7606D43BC35F57D7857A1375CF0DF9C297E87A6AF9040B3A2E9DAF48C11134575A32DD0439A0D7ADA70857846C00D4DF50349D4C55A45D5B31B2F104231269D95D2DA12F317D96ABBA0BDE5692B9A3EA847AF1794654544EBAE95AC7F103F62B06FEC580AB3F0000000049454E44AE426082&quot;
Set FSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Path = FSO.GetSpecialFolder(2) &amp; &quot;\face.png&quot;
If FSO.FileExists(Path)=False Then
Set FileObj = FSO.CreateTextFile(Path, True)
For i = 1 To Len(Data) Step 2
FileObj.Write Chr(CLng(&quot;&amp;H&quot; &amp; Mid(Data,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject(&quot;WScript.Shell&quot;)
WSHshell.Run Path, 0
&lt;/SCRIPT&gt;</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (armenxxx1)]]></author>
			<pubDate>Mon, 03 Oct 2011 20:13:47 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=52133#p52133</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=52107#p52107</link>
			<description><![CDATA[<div class="quotebox"><cite>Mat Skywalker пишет:</cite><blockquote><p>Вы не указали язык програмирования Jscript</p></blockquote></div><p>Согласен, надо было обернуть в HTA, тогда бы вопросов не возникло.<br />Думаю суть от того не меняется.</p>]]></description>
			<author><![CDATA[null@example.com (DnsIs)]]></author>
			<pubDate>Mon, 03 Oct 2011 06:01:45 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=52107#p52107</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=52104#p52104</link>
			<description><![CDATA[<div class="quotebox"><blockquote><p>Помозговал чуток и вот:</p></blockquote></div><p>Вы не указали язык програмирования Jscript</p>]]></description>
			<author><![CDATA[null@example.com (Mat Skywalker)]]></author>
			<pubDate>Mon, 03 Oct 2011 03:24:15 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=52104#p52104</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=52025#p52025</link>
			<description><![CDATA[<p>Если хорошо копать форум, то можно найти <a href="http://forum.script-coding.com/viewtopic.php?id=1226">такую тему</a><br />Помозговал чуток и вот:</p><div class="codebox"><pre><code>file_in  = &quot;program.exe&quot;
file_out  = &quot;program.hta&quot;

var fs =new ActiveXObject(&quot;Scripting.FilesystemObject&quot;);
var x=binCode(file_in);

f = fs.openTextFile(file_out,2,true);

f.write(&#039;&lt;html&gt;&lt;head&gt;&lt;META http-equiv=&quot;MSThemeCompatible&quot; content=&quot;Yes&quot;&gt;&lt;title&gt;Example&lt;/title&gt;&lt;script&gt;\n&#039;)
f.write(&#039;document.bgColor=&quot;#f7f7f7&quot;; window.resizeTo(400, 300); window.moveTo(window.screen.width/2-200,window.screen.height/2-150);\n&#039;)
f.write(&#039;var s=&quot;&#039;+x+&#039;&quot;;\n&#039;)
f.write(&#039;file_out = &quot;program_out.exe&quot;\n&#039;)
f.write(&#039;function binCode(file,str) {\n&#039;)
f.write(&#039;with(new ActiveXObject(&quot;ADODB.Stream&quot;)) {\n&#039;)
f.write(&#039;Type=2;charset=&quot;ibm866&quot;;open();\n&#039;)
f.write(&#039;str=str.replace(/#/g,&quot;%00&quot;).replace(/:/g,&quot;%u0&quot;).replace(/=/g,&quot;%u2&quot;);\n&#039;)
f.write(&#039;writeText(unescape(str));saveToFile(file,2);close();}\n&#039;)
f.write(&#039;document.getElementById(&quot;info&quot;).innerHTML=&quot;Записан &lt;b&gt;&quot;+file_out+&quot;&lt;/b&gt;&quot;;}&lt;/script&gt;\n&#039;)
f.write(&#039;&lt;HTA:APPLICATION ID=&quot;oHTA&quot; APPLICATIONNAME=&quot;htagui&quot;  BORDER=&quot;thick&quot; BORDERSTYLE=&quot;normal&quot; CAPTION=&quot;yes&quot; COMMANDLINE=&quot;&quot; CONTEXTMENU=&quot;yes&quot; ICON=&quot;explorer.exe&quot; INNERBORDER=&quot;no&quot; MAXIMIZEBUTTON=&quot;no&quot; MINIMIZEBUTTON=&quot;yes&quot; NAVIGABLE=&quot;yes&quot; SCROLL=&quot;no&quot; SCROLLFLAT=&quot;no&quot; SELECTION=&quot;yes&quot; SHOWINTASKBAR=&quot;yes&quot; SINGLEINSTANCE=&quot;yes&quot; SYSMENU=&quot;yes&quot; VERSION=&quot;1.0&quot; WINDOWSTATE=&quot;normal&quot;&gt;\n&#039;)
f.write(&#039;&lt;/head&gt;&lt;body&gt;&lt;input onclick=&quot;binCode(file_out,s)&quot; type=&quot;button&quot; value=&quot;OK&quot;/&gt;&lt;div id=info&gt;&lt;/div&gt;&lt;/body&gt;&lt;/html&gt;&#039;)

function binCode(file) {

    with(new ActiveXObject(&quot;ADODB.Stream&quot;)) {
        Type=2;
        charset=&#039;ibm866&#039;;
        open();
        loadFromFile(file);
        var str=escape(readText()).replace(/%00(?=%)/g,&quot;#&quot;).replace(/%u0/g,&quot;:&quot;).replace(/%u2/g,&quot;=&quot;);
        return str;
        close();
    }
}</code></pre></div><p>Отредактируйте строку <strong>file_in&nbsp; = &quot;program.exe&quot;</strong></p><p>Запускаете скрипт и получаете на выходе HTA-шку, с зашитым в нее файлом.</p>]]></description>
			<author><![CDATA[null@example.com (DnsIs)]]></author>
			<pubDate>Fri, 30 Sep 2011 17:10:39 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=52025#p52025</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=52019#p52019</link>
			<description><![CDATA[<p>не сработало ?</p>]]></description>
			<author><![CDATA[null@example.com (smaharbA)]]></author>
			<pubDate>Fri, 30 Sep 2011 14:58:48 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=52019#p52019</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=51422#p51422</link>
			<description><![CDATA[<p>Отсуствует ШелСкрипт. <br />Добавил</p><div class="codebox"><pre><code>{
var ШелСкрипт = new ActiveXObject(&quot;WScript.Shell&quot;),
Враппер=new ActiveXObject(&quot;DynamicWrapper.hta&quot;);
}</code></pre></div><p>Теперь возникла такая ошибка:<br />Приложение или библиотека %Path% не является образом программы для Windows NT. Проверьте назначение установочного диска.</p>]]></description>
			<author><![CDATA[null@example.com (JSmаn)]]></author>
			<pubDate>Sun, 11 Sep 2011 17:25:25 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=51422#p51422</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=51420#p51420</link>
			<description><![CDATA[<p><a href="http://www.n-d.ru/files/topmost.dll.rar">http://www.n-d.ru/files/topmost.dll.rar</a></p>]]></description>
			<author><![CDATA[null@example.com (smaharbA)]]></author>
			<pubDate>Sun, 11 Sep 2011 15:09:16 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=51420#p51420</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=51401#p51401</link>
			<description><![CDATA[<p>Проверил, не работает. Может быть архив с примерами опубликуете?</p>]]></description>
			<author><![CDATA[null@example.com (JSmаn)]]></author>
			<pubDate>Sun, 11 Sep 2011 10:01:39 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=51401#p51401</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=51400#p51400</link>
			<description><![CDATA[<p><strong>smaharbA</strong>, и что это даст?</p>]]></description>
			<author><![CDATA[null@example.com (alexii)]]></author>
			<pubDate>Sun, 11 Sep 2011 09:59:20 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=51400#p51400</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=51388#p51388</link>
			<description><![CDATA[<p>не поверишь</p><p>copy /b ехефайл + хтафайл результат</p>]]></description>
			<author><![CDATA[null@example.com (smaharbA)]]></author>
			<pubDate>Sun, 11 Sep 2011 07:12:12 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=51388#p51388</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=51361#p51361</link>
			<description><![CDATA[<p>Спасибо большое!</p>]]></description>
			<author><![CDATA[null@example.com (SergeyA)]]></author>
			<pubDate>Fri, 09 Sep 2011 19:41:58 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=51361#p51361</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=51282#p51282</link>
			<description><![CDATA[<p>Надо просто поиском по форуму воспользоваться <br /><a href="http://forum.script-coding.com/viewtopic.php?id=4328">Хранение ресурсов в теге Script</a> <br /><a href="http://forum.script-coding.com/viewtopic.php?id=3054">HTA: хранение ресурсов в гипертекстовых приложениях</a></p>]]></description>
			<author><![CDATA[null@example.com (JSmаn)]]></author>
			<pubDate>Wed, 07 Sep 2011 06:50:54 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=51282#p51282</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=51209#p51209</link>
			<description><![CDATA[<p>простой текст хранить в комментариях:<br /></p><div class="codebox"><pre><code>
&lt;!--

@echo off

echo This is BATCH file

--&gt;</code></pre></div><p>бинарные данные модно хранить в тех же комментариях, кодированных, например, в base64.</p><p>Средств для чтения кода из комментария - масса: как простое чтение из файла и поиск требуемой подстроки, так и методы работы с DOM.</p>]]></description>
			<author><![CDATA[null@example.com (Rumata)]]></author>
			<pubDate>Mon, 05 Sep 2011 07:14:37 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=51209#p51209</guid>
		</item>
		<item>
			<title><![CDATA[HTA: Файл внутри тела скрипта]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=51150#p51150</link>
			<description><![CDATA[<p>Здравствуйте, имеется не большой скрипт HTA,как добавить файл exe а точнее скомпилированный bat в тело скрипта и при открытии hta чтоб этот exe сохранился на компьютер и запустился?</p><div class="codebox"><pre><code>
&lt;html&gt;
&lt;head&gt;

  &lt;META http-equiv=&quot;MSThemeCompatible&quot; content=&quot;Yes&quot;&gt; &lt;!-- Включаем текущую тему Windows для наших контролов --&gt;
  &lt;title&gt;Example&lt;/title&gt; &lt;!-- Заголовок окна --&gt;

  &lt;script&gt;
    document.bgColor=&quot;#f7f7f7&quot;; &lt;!-- Цвет бэкграунда --&gt;
    window.resizeTo(400, 300); &lt;!-- Размер окна --&gt;
    window.moveTo(window.screen.width/2-200,window.screen.height/2-150); &lt;!-- Координаты окна --&gt;
  &lt;/script&gt;

  &lt;!-- Выставляем параметры окна --&gt;
  &lt;HTA:APPLICATION ID=&quot;oHTA&quot;
    APPLICATIONNAME=&quot;htagui&quot; 
	BORDER=&quot;thick&quot;
	BORDERSTYLE=&quot;normal&quot;
	CAPTION=&quot;yes&quot;
	COMMANDLINE=&quot;&quot;
	CONTEXTMENU=&quot;yes&quot;
    ICON=&quot;explorer.exe&quot;
	INNERBORDER=&quot;no&quot;
	MAXIMIZEBUTTON=&quot;no&quot;
	MINIMIZEBUTTON=&quot;yes&quot;
	NAVIGABLE=&quot;yes&quot;
    SCROLL=&quot;no&quot;
	SCROLLFLAT=&quot;no&quot;
	SELECTION=&quot;yes&quot;
	SHOWINTASKBAR=&quot;yes&quot;
    SINGLEINSTANCE=&quot;yes&quot;
	SYSMENU=&quot;yes&quot;
	VERSION=&quot;1.0&quot;
	WINDOWSTATE=&quot;normal&quot;&gt;

&lt;/head&gt;
&lt;body&gt;

	
&lt;/body&gt;
&lt;/html&gt;</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (SergeyA)]]></author>
			<pubDate>Sun, 04 Sep 2011 06:56:42 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=51150#p51150</guid>
		</item>
	</channel>
</rss>
