Что нового
Автор:
Фильтры

инфа о пк + сообщение на сервер в txt

D

drdirect

Новичок
Сообщения
7
Репутация
0
Версия AutoIt: 3.
версия 3.3.12.0
Описание:
Здравствуйте,помогите пожалуйста, нужен скрипт который бы выдавал инфу о пк (имя пользователя,имя компа и ип адрес) и поле для ввода свободной инфы (просто текстовое поле) и кнопка чтоб отправить инфу + все введенное на определенный сервер
Примечания:
...
 
CreatoR

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,673
Репутация
2,486
drdirect
Сказали же переоформит а не создавать новую тему...

Предупреждение За нарушение общих правил (пункт Б.2):
Не создавайте одинаковые темы в разных форумах, и/или темы с разными названиями несущие одинаковое содержание.
Нажмите, чтобы раскрыть...


С уважением, ваш Администратор.





Предыдущая тема удалена.
 
ildar

ildar

Осваивающий
Сообщения
252
Репутация
30
Код: 
$sText = InputBox("", 'Имя пользователя - ' & @UserName & @CR & 'Имя компа - ' & @ComputerName & @CR & 'ип адрес - ' & @IPAddress1 & @CR & "Введите отправляемый текст","")
А дальше вводим текст, нажимаем ok и все отправляется в txt-файле на какой-нибудь сервер? Или вся информация дописывается в какой нибудь txt-файл на сервере?
 
Автор
D

drdirect

Новичок
Сообщения
7
Репутация
0
ildar сказал(а):
Код: 
$sText = InputBox("", 'Имя пользователя - ' & @UserName & @CR & 'Имя компа - ' & @ComputerName & @CR & 'ип адрес - ' & @IPAddress1 & @CR & "Введите отправляемый текст","")
А дальше вводим текст, нажимаем ok и все отправляется в txt-файле на какой-нибудь сервер? Или вся информация дописывается в какой нибудь txt-файл на сервере?
Нажмите, чтобы раскрыть...

да на сервер 192.168.0.1 или 4 в сетевую папку ну допустим "запросы"
и можно ли изменить размер букв в имени компа и пользователя,ну чтоб они большие были
и отправляемый файл сохранялся в формате дата,время(до секунды)
 
ildar

ildar

Осваивающий
Сообщения
252
Репутация
30
Код: 
#include <File.au3>
$sPath = '\\192.168.0.1\запросы'
$sText = InputBox("", 'Имя пользователя - ' & @UserName & @CR & 'Имя компа - ' & @ComputerName & @CR & 'ип адрес - ' & @IPAddress1 & @CR & "Введите отправляемый текст","")
$file = FileOpen($sPath & '\' & @MDAY & @MON & @YEAR & '_' & @HOUR & @MIN & @SEC & '.txt', 1)
; Проверяет, является ли файл открытым, перед тем как использовать функции чтения/записи в файл
If $file = -1 Then
    MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
    Exit
EndIf
FileWrite($file, 'Имя пользователя - ' & @UserName & @CRLF & 'Имя компа - ' & @ComputerName & @CRLF & 'ип адрес - ' & @IPAddress1 & @CRLF & $sText)
FileClose($file)
 
Автор
D

drdirect

Новичок
Сообщения
7
Репутация
0
спасибо большое,то что надо, вот только можно ли как то сделать и выделить имя пользоватебя большими буквами(для слепых эзверей)
 
ildar

ildar

Осваивающий
Сообщения
252
Репутация
30
Код: 
InputBox
нет таких опций. Можно реализовать с помощью GUI, время будет. попробую.
 
ildar

ildar

Осваивающий
Сообщения
252
Репутация
30
Экспериментируй с шрифтами и цветом
Код: 
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <File.au3>

Local $hGui, $msg, $Input1, $Input2, $Input3, $Input4, $BtnOk, $sText

$hGui = GUICreate("GUI с поддержкой drag and drop", 380, 160, @DesktopWidth / 2 - 190, @DesktopHeight / 2 - 80, -1, $WS_EX_ACCEPTFILES)
$Input1 = GUICtrlCreateInput('', 10, 95, 360, 22, $WS_BORDER)
$BtnOk = GUICtrlCreateButton("OK", (380 - 70) / 2, 127, 70, 26)
GUICtrlCreateLabel('Имя пользователя - ' & @UserName, 10, 10, 350, 27, $SS_LEFT)
GUICtrlSetBkColor(-1, 0xfdffae)														; цвет фона
 $font = "Arial"																	; какой шрифт
GUICtrlSetFont(-1, 16, 400, 0, $font) 												; Размер шрифта
GUICtrlCreateLabel('Имя компа - ' & @ComputerName, 10, 37, 350, 27, $SS_LEFT)
GUICtrlSetBkColor(-1, 0xfdffae)
 $font = "Arial"
 GUICtrlSetFont(-1, 16, 400, 0, $font)
 GUICtrlCreateLabel('ип адрес - ' & @IPAddress1, 10, 64, 350, 27, $SS_LEFT)
GUICtrlSetBkColor(-1, 0xfdffae)
 $font = "Arial"
 GUICtrlSetFont(-1, 16, 400, 0, $font)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $BtnOk
            $sText = ''
            $sText &= GUICtrlRead($Input1)
            $sPath = '\\192.168.0.1\запросы'
            $file = FileOpen($sPath & '\' & @MDAY & @MON & @YEAR & '_' & @HOUR & @MIN & @SEC & '.txt', 1)
			; Проверяет, является ли файл открытым, перед тем как использовать функции чтения/записи в файл
			If $file = -1 Then
				MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
				Exit
			EndIf
			FileWrite($file, 'Имя пользователя - ' & @UserName & @CRLF & 'Имя компа - ' & @ComputerName & @CRLF & 'ип адрес - ' & @IPAddress1 & @CRLF & $sText)
			FileClose($file)
			ExitLoop
	EndSwitch
WEnd
 
Автор
D

drdirect

Новичок
Сообщения
7
Репутация
0
все отлично,огромное спасибо, только есть одно но, кол-во вводимых знаков в поле зависит от его ширины, как поставить ограничение хотя б в 1000 символов, и визуально его увеличить,ну чтоб там было 4-5 строк
 
ildar

ildar

Осваивающий
Сообщения
252
Репутация
30
Я не пользуюсь GUI, было пару раз 2 года назад. Может есть кто на этом "собаку съел"? Во вложении есть одна приблуда, для формирования GUI. Можешь сам нарисовать и подкорректировать под свою задачу.
Не получилось вложить большой слишком. По гугли koda_1.7.2.8
 
I

InnI

AutoIT Гуру
Сообщения
4,951
Репутация
1,446
drdirect [?]
ограничение хотя б в 1000 символов, и визуально его увеличить
Нажмите, чтобы раскрыть...
Код: 
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <File.au3>

Local $hGui, $msg, $Input1, $Input2, $Input3, $Input4, $BtnOk, $sText

$hGui = GUICreate("GUI с поддержкой drag and drop", 370, 230, @DesktopWidth / 2 - 190, @DesktopHeight / 2 - 80, -1, $WS_EX_ACCEPTFILES)
$Input1 = GUICtrlCreateEdit('', 10, 95, 350, 90)                                    ; многострочный редактор
GUICtrlSetLimit(-1, 1000)                                                           ; ограничение 1000 символов
;~ GUICtrlSetBkColor(-1, 0xc0c0ff)                                                     ; цвет фона
;~ $font = "Tahoma"                                                                    ; какой шрифт
;~ GUICtrlSetFont(-1, 12, 400, 0, $font)                                               ; Размер шрифта
$BtnOk = GUICtrlCreateButton("OK", (380 - 70) / 2, 195, 70, 26)
GUICtrlCreateLabel('Имя пользователя - ' & @UserName, 10, 10, 350, 27, $SS_LEFT)
GUICtrlSetBkColor(-1, 0xfdffae)                                                     ; цвет фона
$font = "Arial"                                                                     ; какой шрифт
GUICtrlSetFont(-1, 16, 400, 0, $font)                                               ; Размер шрифта
GUICtrlCreateLabel('Имя компа - ' & @ComputerName, 10, 37, 350, 27, $SS_LEFT)
GUICtrlSetBkColor(-1, 0xfdffae)
$font = "Arial"
GUICtrlSetFont(-1, 16, 400, 0, $font)
GUICtrlCreateLabel('ип адрес - ' & @IPAddress1, 10, 64, 350, 27, $SS_LEFT)
GUICtrlSetBkColor(-1, 0xfdffae)
$font = "Arial"
GUICtrlSetFont(-1, 16, 400, 0, $font)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $BtnOk
            $sText = ''
            $sText &= GUICtrlRead($Input1)
            $sPath = '\\192.168.0.1\запросы'
            $file = FileOpen($sPath & '\' & @MDAY & @MON & @YEAR & '_' & @HOUR & @MIN & @SEC & '.txt', 1)
            ; Проверяет, является ли файл открытым, перед тем как использовать функции чтения/записи в файл
            If $file = -1 Then
                MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
                Exit
            EndIf
            FileWrite($file, 'Имя пользователя - ' & @UserName & @CRLF & 'Имя компа - ' & @ComputerName & @CRLF & 'ип адрес - ' & @IPAddress1 & @CRLF & $sText)
            FileClose($file)
            ExitLoop
    EndSwitch
WEnd
 
Автор
D

drdirect

Новичок
Сообщения
7
Репутация
0
спасибо еще раз,но теперь проблема в другом...антивирь видит вирь в нем...
 
Автор
D

drdirect

Новичок
Сообщения
7
Репутация
0
эмм,а как тогда.чем компилить :stars:
 
alex33

alex33

Скриптер
Сообщения
1,457
Репутация
186
drdirect сказал(а):
эмм,а как тогда.чем компилить :stars:
Нажмите, чтобы раскрыть...
1. Открываете компилятор.
2. Открываете меню "Compression".
скрин
3. убираете галочку с пункта "UPX Compress .exe stub".
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
G Автоматизация + сообщение в ТГ Стол заказов 0
L Сообщение о завершение скрипта без MsgBox Общие вопросы по AutoIt 13
zalola181 рандомно выбирать 1 слово из 4-5 и отобразить сообщением Стол заказов 2
W Грохнуть всплывающее сообщение Avast Общие вопросы по AutoIt 3
A Не отправляется сообщение в телеграм при повторении цикла Стол заказов 0
Похожие темы
Автоматизация + сообщение в ТГ
Сообщение о завершение скрипта без MsgBox
рандомно выбирать 1 слово из 4-5 и отобразить сообщением
Грохнуть всплывающее сообщение Avast
Не отправляется сообщение в телеграм при повторении цикла
Верх