Здравствуйте.
Хочу написать небольшой скрипт, на подобие icq,но по проще для локальной сети...
Помогите и поправте, что не так...
Смысл такой: В поле Input1 вводится текст. При нажатии кнопки Buton1 текст сохраняется в txt файл. После чего текст должен вывестись в поле Input 2.(лучше в поле Edit)
В чем проблема: Текст вводится и сохраняется, но не отображается. Приходится закрывать скрипт, а при повторном запуске текст появляется в окне обзора. Мне надо, чтобы текст вставлялся без закрытия,а при нажатии одной кнопки и сохранялся и загружался в поле обзора..... Так же чтоб можно было загружать содержимое txt файла по указанному ip адрессу(txt файл будет распологаться у админа на локальном сервере)
Вот что у меня есть:
А еще бесит что каждый новый текст замещает предыдущий. А можно сделать так чтобы старый текст оставался, а к нему добовлялся новый.
Хочу написать небольшой скрипт, на подобие icq,но по проще для локальной сети...
Помогите и поправте, что не так...
Смысл такой: В поле Input1 вводится текст. При нажатии кнопки Buton1 текст сохраняется в txt файл. После чего текст должен вывестись в поле Input 2.(лучше в поле Edit)
В чем проблема: Текст вводится и сохраняется, но не отображается. Приходится закрывать скрипт, а при повторном запуске текст появляется в окне обзора. Мне надо, чтобы текст вставлялся без закрытия,а при нажатии одной кнопки и сохранялся и загружался в поле обзора..... Так же чтоб можно было загружать содержимое txt файла по указанному ip адрессу(txt файл будет распологаться у админа на локальном сервере)
Вот что у меня есть:
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $sConfig = @ScriptDir & "\1.txt"
Global $sNotes = StringReplace(IniRead($sConfig, "Himerty", "Notes", ""), "\n", @CRLF)
SoundPlay("\musik\*.mp3")
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("", 403, 396, 192, 124)
$Input1 = GUICtrlCreateInput("", 16, 272, 369, 75)
$Button1 = GUICtrlCreateButton("Отправить", 312, 360, 75, 25)
;$Input3 = GUICtrlCreateInput("", 16, 360, 137, 21)
$Button2 = GUICtrlCreateButton("Обновить", 160, 360, 97, 25)
$Edit1 = GUICtrlCreateEdit($sNotes, 16, 16, 369, 241)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
obnovit()
Case $Button1
$sNotes = StringReplace(GUICtrlRead($Input1), @CRLF, "\n")
IniWrite($sConfig, "Himerty", "Notes", $sNotes)
EndSwitch
WEnd
Func obnovit()
EndFunc
А еще бесит что каждый новый текст замещает предыдущий. А можно сделать так чтобы старый текст оставался, а к нему добовлялся новый.