Войти

Показать полную графическую версию : [решено] форма ввода


angel_lyucifer
24-06-2013, 00:48
Привет всем! Я пишу небольшое приложение для автоматизации, но мне нужна ваша помощь.
Мне нужна простая форма ввода на Hta, в ней надо два узеньких окошечка в первом окошке будет вводится (Логин), а второе окошечка для ввода (Пароля) и одна кнопка (Запомнить) для сохранения введённой информации.
Когда нажимаешь на кнопку Запомнить, тогда Логин и Пароль записывались бы текстовый файл если такой есть Data.txt.
Но запись происходила построчно если есть логин а пароля нет то тогда записывался только логин в первую строку файла, если нет логина но есть пароль тогда записать во вторую строку а первая строка должна быть пустой.
Когда есть логин и пароль тогда надо записать в первую строку логин а во вторую нужно записать пароль...

Очень надо, пожалуйста помогите создать такую форму ввода?

Iska
24-06-2013, 07:18
Мне нужна простая форма ввода на 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
24-06-2013, 20:01
вот (http://rghost.ru/46988318)
Приложение создает рядом файл Users.txt в таком формате

[gold_member]
login=gold_member
password=12345678

angel_lyucifer
24-06-2013, 20:22
Приложение создает рядом файл Users.txt в таком формате »
Ваша ссылка битая, файл не качается. И что это за приложение такое, можно описания к нему?

angel_lyucifer
24-06-2013, 22:19
Держите: »

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

Iska
24-06-2013, 23:15
как изменить размер окно? »
Не нравится автоматическая подстройка под содержимое (в основном, по вертикали) — просто замените:
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
25-06-2013, 05:57
Ваша ссылка битая, файл не качается. » - все в порядке
И что это за приложение такое, можно описания к нему? » - форма ввода написана на PHP Devel Studio. Полноценная среда программирования, которая позволяет создавать exe программы на языке PHP

http://s53.radikal.ru/i141/1306/17/c9d4ac86c0a7.png

исходник (http://rghost.ru/46997596)

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

angel_lyucifer
25-06-2013, 18:54
Цитата Iska:
Не нравится автоматическая подстройка под содержимое (в основном, по вертикали) — просто замените: »
:up Спасибо, мне больше подходит. :)

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




© OSzone.net 2001-2012