| angel_lyucifer |
24-06-2013 00:48 2173045 |
форма ввода
Привет всем! Я пишу небольшое приложение для автоматизации, но мне нужна ваша помощь.
Мне нужна простая форма ввода на Hta, в ней надо два узеньких окошечка в первом окошке будет вводится (Логин), а второе окошечка для ввода (Пароля) и одна кнопка (Запомнить) для сохранения введённой информации.
Когда нажимаешь на кнопку Запомнить, тогда Логин и Пароль записывались бы текстовый файл если такой есть Data.txt.
Но запись происходила построчно если есть логин а пароля нет то тогда записывался только логин в первую строку файла, если нет логина но есть пароль тогда записать во вторую строку а первая строка должна быть пустой.
Когда есть логин и пароль тогда надо записать в первую строку логин а во вторую нужно записать пароль...
Очень надо, пожалуйста помогите создать такую форму ввода?
|
Цитата:
Цитата 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>
|
вот
Приложение создает рядом файл Users.txt в таком формате
HTML код:
[gold_member]
login=gold_member
password=12345678
|
| angel_lyucifer |
24-06-2013 20:22 2173573 |
Цитата:
Цитата zion87
Приложение создает рядом файл Users.txt в таком формате »
|
Ваша ссылка битая, файл не качается. И что это за приложение такое, можно описания к нему? |
| angel_lyucifer |
24-06-2013 22:19 2173628 |
Спасибо большое всё работает, только как изменить размер окно? |
Цитата:
Цитата 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
где вместо выделенного подставьте потребные числовые значения. |
Цитата:
Цитата angel_lyucifer
Ваша ссылка битая, файл не качается. »
|
- все в порядке
Цитата:
Цитата angel_lyucifer
И что это за приложение такое, можно описания к нему? »
|
- форма ввода написана на PHP Devel Studio. Полноценная среда программирования, которая позволяет создавать exe программы на языке PHP
исходник |
| angel_lyucifer |
25-06-2013 18:14 2174123 |
Цитата zion87: - все в порядке »
Думаю что скрин говорит сам за себя, но всё равно вам спасибо. |
| angel_lyucifer |
25-06-2013 18:54 2174142 |
Цитата Iska:
Не нравится автоматическая подстройка под содержимое (в основном, по вертикали) — просто замените: »
:up Спасибо, мне больше подходит. :)
Цитата Iska:
Не нравится автоматическая подстройка под содержимое (в основном, по вертикали) — просто замените: »
Спасибо большое... :yes: :up :yahoo: |
Время: 00:05.
© OSzone.net 2001-
