Вверх ↑
Этот топик читают: Гость
Ответов: 32
Рейтинг: -2
#1: 2018-03-27 18:11:12 ЛС | профиль | цитата
Довольно завараживающее известие но реализуемое ...
карма: -2
cschanell
0
Разработчик
Ответов: 4698
Рейтинг: 426
#2: 2018-03-27 18:16:33 ЛС | профиль | цитата
Не реализуемо. HTML - не программа, а просто язык разметки. Как bb-коды.
карма: 10
0
Ответов: 32
Рейтинг: -2
#3: 2018-03-27 18:57:28 ЛС | профиль | цитата
Вообще то ...
Вот программа

Add(MainForm,6471000,42,56)
{
Width=577
Height=483
Caption="Среда HTML Приложений"
}
Add(Button,814362,357,371)
{
Top=421
Width=569
Height=35
Align=4
Caption="Запустить"
link(onClick,3089212:doExecute,[])
}
Add(WebBrowser,7369172,154,63)
{
Width=569
Height=421
Align=5
URL="file:///C:\Users\CATSCRTPTYT\Desktop\Project\ConsoleSystem APPS\logo.htapk"
link(URL,11636968:Value,[(160,51)(136,51)(136,107)(111,107)])
}
Add(ODialog,3089212,420,371)
{
Filter="HTA|*.HTAPK"
}
Add(DropFile,509242,28,112)
{
link(onDropFile,11636968:doValue,[(100,118)(100,69)])
}
Add(Memory,11636968,105,63)
{
link(onData,7369172:doNavigate,[])
}

Файл главной страницы

<html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<head>
<title>Дом</title>
<meta http-equiv="content-type" content="text/html; charset=windows-1251">
<meta name="generator" content="HtmlReader v2.5">
<font color="red">Домашняя страница</font>
<p>Ссылка на приложухи</p>
<a href="file:///C:\Users\CATSCRTPTYT\Desktop\Project\ConsoleSystem APPS\htapk">Go to Apps</a>
</head>
<body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000">

</body>
</html>

--- Добавлено в 2018-03-27 18:58:14

Программа открывает HTML в себе я потом сделаю шифрование!

--- Добавлено в 2018-03-27 19:05:05

Дешифровка

Add(MainForm,6471000,21,42)
{
Width=577
Height=483
Caption="Среда HTML Приложений"
}
Add(Button,814362,147,266)
{
Top=421
Width=569
Height=35
Align=4
Caption="Запустить"
link(onClick,3089212:doExecute,[])
}
Add(WebBrowser,7369172,322,105)
{
Width=569
Height=421
Align=5
URL="file:///C:\Users\CATSCRTPTYT\Desktop\Project\ConsoleSystem APPS\logo.htapk"
link(URL,11262536:Value,[(328,97)(363,97)])
}
Add(ODialog,3089212,210,266)
{
Filter="HTA|*.HTAPK"
link(onExecute,9837762:doWork1,[(254,272)(254,307)])
}
Add(DropFile,509242,21,301)
{
link(onDropFile,9837762:doWork2,[])
}
Add(Memory,11636968,91,28)
{
link(onData,1958485:doEvent1,[(135,34)(135,72)(86,72)])
}
Add(DeCrypt,10653412,147,182)
{
Key="123"
link(onDeCrypt,9165983:doEvent1,[(195,188)(195,34)])
link(DataCrypt,3950923:Item,[(153,170)(129,170)(129,226)(104,226)])
}
Add(StrList,399140,294,28)
{
FileName="Cache.html"
}
Add(Hub,9165983,210,28)
{
link(onEvent1,399140:doAdd,[])
link(onEvent2,399140:doSave,[(259,41)(259,69)])
}
Add(StrList,13389320,98,119)
{
link(FileName,11636968:Value,[(111,69)(97,69)])
}
Add(ArrayEnum,3950923,98,182)
{
link(onItem,10653412:doDeCrypt,[])
link(onEndEnum,7369172:doNavigate,[(226,195)(226,111)])
link(Array,13389320:Array,[(104,173)(118,173)])
}
Add(Hub,1958485,49,189)
{
link(onEvent1,13389320:doLoad,[(58,195)])
link(onEvent2,3950923:doEnum,[(81,202)(81,188)])
}
Add(Memory,11262536,357,56)
{
Default=String(Cache.html)
}
Add(HubEx,9837762,75,301)
{
Angle=3
link(onEvent,11636968:doValue,[(79,34)])
}


Редактировалось 2 раз(а), последний 2018-03-27 19:05:05
карма: -2
cschanell
0
Разработчик
Ответов: 4698
Рейтинг: 426
#4: 2018-03-27 19:09:10 ЛС | профиль | цитата
Это ваша программа и есть программа, которая просто загружает и показывает html-разметку. И то разметка реализована некорректно: в head не должно быть тегов font, p и a., doctype должен идти самым первым, а абсолютные ссылки не будут работать у других. Вот, почитайте про html.

Редактировалось 1 раз(а), последний 2018-03-27 19:09:50
карма: 10
0
Ответов: 32
Рейтинг: -2
#5: 2018-03-27 19:27:31 ЛС | профиль | цитата
У меня возникло кучу проблем
По сути уже все готово но...
Почему то после шифрования теряется <text> и <meta http-equiv="content-type" content="text/html; charset=windows-1251">

Add(MainForm,6471000,21,42)
{
Width=577
Height=483
Caption="Среда HTML Приложений"
}
Add(Button,814362,147,266)
{
Top=421
Width=569
Height=35
Align=4
Caption="Запустить"
link(onClick,3089212:doExecute,[])
}
Add(WebBrowser,7369172,322,105)
{
Width=569
Height=421
Align=5
URL="file:///C:\Users\CATSCRTPTYT\Desktop\Project\ConsoleSystem APPS\logo.htapk"
Point(NewWindow)
link(URL,11262536:Value,[(328,97)(363,97)])
link(NewWindow,575444:Value,[(335,93)(370,93)(370,121)(405,121)])
}
Add(ODialog,3089212,210,266)
{
Filter="HTA|*.htapk"
link(onExecute,9837762:doWork1,[(254,272)(254,307)])
}
Add(DropFile,509242,21,301)
{
link(onDropFile,9837762:doWork2,[])
}
Add(Memory,11636968,91,28)
{
link(onData,1958485:doEvent1,[(135,34)(135,72)(86,72)])
}
Add(DeCrypt,10653412,147,182)
{
Key="123"
link(onDeCrypt,9165983:doEvent1,[(195,188)(195,34)])
link(DataCrypt,3950923:Item,[(153,170)(129,170)(129,226)(104,226)])
}
Add(StrList,399140,294,28)
{
FileName="Cache.html"
}
Add(Hub,9165983,210,28)
{
link(onEvent1,399140:doAdd,[])
}
Add(StrList,13389320,98,119)
{
link(FileName,11636968:Value,[(111,69)(97,69)])
}
Add(ArrayEnum,3950923,98,182)
{
link(onItem,10653412:doDeCrypt,[])
link(onEndEnum,6123057:doEvent1,[(226,195)(226,111)])
link(Array,13389320:Array,[(104,173)(118,173)])
}
Add(Hub,1958485,49,189)
{
link(onEvent1,13389320:doLoad,[(58,195)])
link(onEvent2,3950923:doEnum,[(81,202)(81,188)])
}
Add(Memory,11262536,357,56)
{
Default=String(file:///C:\Users\CATSCRTPTYT\Desktop\Project\ConsoleSystem APPS\htapk\Cache.html)
}
Add(HubEx,9837762,75,301)
{
Angle=3
link(onEvent,11636968:doValue,[(79,34)])
}
Add(Hub,6123057,245,105)
{
link(onEvent1,399140:doSave,[(277,111)(277,69)])
link(onEvent2,7369172:doNavigate,[(291,118)(291,111)])
}
Add(Memory,575444,399,77)
{
Default=Integer(1)
}

Может проблема в шивровщике ?
Я переделал программу открытия

Add(MainForm,6471000,21,42)
{
Width=577
Height=483
Caption="Среда HTML Приложений"
}
Add(Button,814362,147,266)
{
Top=421
Width=569
Height=35
Align=4
Caption="Запустить"
link(onClick,3089212:doExecute,[])
}
Add(WebBrowser,7369172,322,105)
{
Width=569
Height=421
Align=5
URL="file:///C:\Users\CATSCRTPTYT\Desktop\Project\ConsoleSystem APPS\logo.htapk"
Point(NewWindow)
link(URL,11262536:Value,[(328,97)(363,97)])
link(NewWindow,575444:Value,[(335,93)(370,93)(370,121)(405,121)])
}
Add(ODialog,3089212,210,266)
{
Filter="HTA|*.htapk"
link(onExecute,9837762:doWork1,[(254,272)(254,307)])
}
Add(DropFile,509242,21,301)
{
link(onDropFile,9837762:doWork2,[])
}
Add(Memory,11636968,91,28)
{
link(onData,1958485:doEvent1,[(135,34)(135,72)(86,72)])
}
Add(DeCrypt,10653412,147,182)
{
Key="123"
link(onDeCrypt,9165983:doEvent1,[(195,188)(195,34)])
link(DataCrypt,3950923:Item,[(153,170)(129,170)(129,226)(104,226)])
}
Add(StrList,399140,294,28)
{
FileName="Cache.html"
}
Add(Hub,9165983,210,28)
{
link(onEvent1,399140:doAdd,[])
}
Add(StrList,13389320,98,119)
{
link(FileName,11636968:Value,[(111,69)(97,69)])
}
Add(ArrayEnum,3950923,98,182)
{
link(onItem,10653412:doDeCrypt,[])
link(onEndEnum,6123057:doEvent1,[(226,195)(226,111)])
link(Array,13389320:Array,[(104,173)(118,173)])
}
Add(Hub,1958485,49,189)
{
link(onEvent1,13389320:doLoad,[(58,195)])
link(onEvent2,3950923:doEnum,[(81,202)(81,188)])
}
Add(Memory,11262536,357,56)
{
Default=String(file:///C:\Users\CATSCRTPTYT\Desktop\Project\ConsoleSystem APPS\htapk\Cache.html)
}
Add(HubEx,9837762,75,301)
{
Angle=3
link(onEvent,11636968:doValue,[(79,34)])
}
Add(Hub,6123057,245,105)
{
link(onEvent1,399140:doSave,[(277,111)(277,69)])
link(onEvent2,7369172:doNavigate,[(291,118)(291,111)])
}
Add(Memory,575444,399,77)
{
Default=Integer(1)
}


--- Добавлено в 2018-03-27 19:30:48

На счет главной страницы... переделываю А всё таки почему потеря блоков ?

--- Добавлено в 2018-03-27 19:35:46

Переделка главной страницы

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=windows-1251">
<meta name="generator" content="HtmlReader v2.5">
<title>Дом</title>
</head>
<body bgcolor="green" text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000">
<font color="red">Домашняя страница</font>
<p>Ссылка на приложухи</p>
<a href="file:///C:\Users\CATSCRTPTYT\Desktop\Project\ConsoleSystem APPS\htapk">Go to Apps</a>
</body>
</html>

--- Добавлено в 2018-03-27 19:36:26

Организую скачивание в каталог потом

Редактировалось 3 раз(а), последний 2018-03-27 19:36:26
карма: -2
cschanell
0
Ответов: 32
Рейтинг: -2
#6: 2018-04-06 15:07:46 ЛС | профиль | цитата
Короче я закрываю проэкт
карма: -2
cschanell
0
Ответов: 4630
Рейтинг: 749
#7: 2018-04-10 10:35:12 ЛС | профиль | цитата
Короче, мы как-то и не сомневались.
карма: 26

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)