Любой язык

Iska · Отправлено: **07:18, 24-06-2013** | #2

Цитата angel_lyucifer:

Мне нужна простая форма ввода на Hta »

Держите:

Код:

<html id="appHTML">
	<head>
		<meta charset="windows-1251">
		<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
		<meta http-equiv="Content-Language" content="ru">
		<title>Логин и пароль</title>
		<hta:Application
			Icon = "%SystemRoot%\system32\certutil.exe"
			Id="oHTA"
			ApplicationName="Логин и пароль"
			Border="normal"
			BorderStyle="normal"
			Caption="yes"
			ContextMenu="no"
			InnerBorder="yes"
			MaximizeButton="no"
			MinimizeButton="yes"
			Navigable="no"
			Scroll="auto"
			ScrollFlat="no"
			Selection="no"
			ShowInTaskbar="yes"
			SingleInstance="yes"
			SysMenu="yes"
			Version="0.1 beta"
			WindowState="normal"
		/>
		<style type="text/css">
			BODY {
				font: x-small Verdana, Arial, sans-serif;
				color: WindowText;
				background-color: ButtonFace;
			}
			.Row{
				clear:both;
			}
			.Left{
				float:Left;
				clear:none;
			}
			.Right{
				float:Right;
				clear:none;
			}
		</style>
		
		<script language="VBScript">
			Option Explicit
			
			Sub Window_OnLoad
				With window
					.resizeTo tagBody.scrollWidth \ 2 + 25, tagBody.scrollHeight + 32
					.moveTo (.screen.availWidth - tagBody.offsetWidth ) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2
				End With
			End Sub
			
			Sub OnClickButtonOK()
				Const TristateTrue = -1
				
				With CreateObject("Scripting.FileSystemObject")
					With .CreateTextFile("E:\Песочница\0283\Data.txt", True, TristateTrue)
						.WriteLine Login.value
						.WriteLine Password.value
						
						.Close
					End With
				End With
				
				window.close()
			End Sub
			
			Sub OnClickButtonCancel()
				window.close()
			End Sub
		</script>
	</head>
	<body id="tagBody" scroll="auto">
		<span Class="Row">
			<span Class="left"><span id="lblLogin">Логин: </span></span>
			<span Class="right"><input type="text" name="Login" id="Login" value="" size="30"></span>
		</span>
		<span Class="Row">
			<span Class="left"><span id="lblPassword">Пароль: </span></span>
			<span Class="right"><input type="password" name="Password" id="Password" value="" size="40"></span>
		</span>
		<hr Class="Row" />
		<span Class="Row">
			<span Class="left"></span>
			<span Class="right">
				<input type="button" name="OK" id="OK" value="Запомнить" onclick="OnClickButtonOK">
				<input type="button" name="Cancel" id="Cancel" value="Cancel" onclick="OnClickButtonCancel">
			</span>
		</span>
	</body>
</html>

zion87 · Отправлено: **20:01, 24-06-2013** | #3

вот
Приложение создает рядом файл Users.txt в таком формате

HTML код:

[gold_member]
login=gold_member
password=12345678

angel_lyucifer · Конфигурация компьютера

Цитата zion87:

Приложение создает рядом файл Users.txt в таком формате »

Ваша ссылка битая, файл не качается. И что это за приложение такое, можно описания к нему?

angel_lyucifer · Конфигурация компьютера

Цитата Iska:

Держите: »

Спасибо большое всё работает, только как изменить размер окно?

Iska · Отправлено: **23:15, 24-06-2013** | #6

Цитата angel_lyucifer:

как изменить размер окно? »

Не нравится автоматическая подстройка под содержимое (в основном, по вертикали) — просто замените:

Код:

			Sub Window_OnLoad
				With window
					.resizeTo tagBody.scrollWidth \ 2 + 25, tagBody.scrollHeight + 32
					.moveTo (.screen.availWidth - tagBody.offsetWidth ) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2
				End With
			End Sub

на:

Код:

			Sub Window_OnLoad
				With window
					.resizeTo Ширина, Высота
					.moveTo Отступ_слева, Отступ_сверху
				End With
			End Sub

где вместо выделенного подставьте потребные числовые значения.

zion87 · Отправлено: **05:57, 25-06-2013** | #7

Цитата angel_lyucifer:

Ваша ссылка битая, файл не качается. »

- все в порядке

Цитата angel_lyucifer:

И что это за приложение такое, можно описания к нему? »

- форма ввода написана на PHP Devel Studio. Полноценная среда программирования, которая позволяет создавать exe программы на языке PHP

исходник

angel_lyucifer · Конфигурация компьютера

Цитата zion87: - все в порядке »
Думаю что скрин говорит сам за себя, но всё равно вам спасибо.

angel_lyucifer · Конфигурация компьютера

Цитата Iska:
Не нравится автоматическая подстройка под содержимое (в основном, по вертикали) — просто замените: »

Спасибо, мне больше подходит.

Цитата Iska:
Не нравится автоматическая подстройка под содержимое (в основном, по вертикали) — просто замените: »
Спасибо большое...