Что нового

Скрипт просящий пароль и взависимости от пароля открывающий определенный файл

System_Error

Новичок
Сообщения
2
Репутация
0
Помогите написать скрипт, который бы просил пароль и в зависимости от введенного пароля создавал и открывал тот txt файл к которому, этот пароль привязан. Например пользователь вводит пароль 12345 открывается файл 1.txt с содержимым xxxxx. Пользователь вводит пароль 54321 открывается файл 2.txt с содержимым zzzzz.
 

ZeVSalt

Я не лупоглазый, это прищур такой !
Сообщения
136
Репутация
0
Код:
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <file.au3>

$pass1 = '111111'
$pass2 = '222222'
$pass3 = '333333'

GUICreate("Ввод пароля",200,100)
$EditPass = GUICtrlCreateInput ('111111',10,10,180)
$Button1 = GUICtrlCreateButton ('OK',10,40,50)
$Button2 = GUICtrlCreateButton ('Cancel',70,40,50)

GUISetState()


While 1
    Switch GUIGetMsg()
		 Case $GUI_EVENT_CLOSE
            ExitLoop
		 Case $Button1
			$ReadPass = GUICtrlRead ($EditPass,0)
			   Switch $ReadPass
					 Case $ReadPass = $pass1
						$hFile = FileOpen(@ScriptDir & "\Text1.txt",0)
						$FileRead = FileRead ($hFile)
						GUICreate("Содержимое файла",500,200)
						GUICtrlCreateLabel ($FileRead,10,10,480,100)
						GUISetState()

					 Case $ReadPass = $pass2
						$hFile = FileOpen(@ScriptDir & "\Text2.txt",0)
						$FileRead = FileRead ($hFile)
						GUICreate("Содержимое файла",500,200)
						GUICtrlCreateLabel ($FileRead,10,10,480,100)
						GUISetState()
					 Case $ReadPass = $pass3
						$hFile = FileOpen(@ScriptDir & "\Text3.txt",0)
						$FileRead = FileRead ($hFile)
						GUICreate("Содержимое файла",500,200)
						GUICtrlCreateLabel ($FileRead,10,10,480,100)
						GUISetState()

			   EndSwitch

        Case $Button2
            Exit
    EndSwitch
WEnd
 
A

Alofa

Гость
OffTopic:
ZeVSalt дескрипторы от "FileOpen()" нужно закрывать.
 
Автор
S

System_Error

Новичок
Сообщения
2
Репутация
0
Пришлось не множко подправить но все равно большое спасибо! Вопрос решен! :beer:
 
Верх