Вверх ↑
Этот топик читают: Гость
Ответов: 91
Рейтинг: 0
#1: 2017-08-17 17:31:35 ЛС | профиль | цитата
Как можно установить, изменить системное время при помощи hiasm? Конкретно нужно по кнопке + добавлять день(число месяца) и по кнопке - отнимать день(число месяца).
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 470
Рейтинг: 14
#2: 2017-08-17 17:40:29 ЛС | профиль | цитата
Примерно так:

Add(MainForm,2953706,21,105)
{
Height=187
}
Add(Time,2595331,196,217)
{
link(newHours,13937559:Text,[])
link(newMinute,3334690:Text,[])
link(newSecond,15129611:Text,[])
}
Add(Edit,13937559,196,161)
{
Left=5
Top=5
Text="19"
}
Add(Edit,3334690,203,119)
{
Left=65
Top=5
Text="35"
}
Add(Edit,15129611,210,77)
{
Left=125
Top=5
Text="05"
}
Add(Button,10099614,140,217)
{
Left=5
Top=35
Width=70
Caption="Установить"
link(onClick,2595331:doTimeDate,[])
}
карма: 4

0
Ответов: 91
Рейтинг: 0
#3: 2017-08-17 18:10:29 ЛС | профиль | цитата
В эти точки часы/годы минуты/месяцы секунды/дни, как задать дни?
карма: 0

0
Ответов: 16884
Рейтинг: 1237
#4: 2017-08-17 20:11:42 ЛС | профиль | цитата
В "Свойства" Time_Date выбери Date
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 192
Рейтинг: 12
#5: 2021-02-18 19:39:06 ЛС | профиль | цитата
Не получается cхемой от Sersey, поменять системную дату или время в Win-10
Подскажите, в чем может быть проблема?
карма: 1

0
Ответов: 203
Рейтинг: 28
#6: 2021-02-18 21:56:56 ЛС | профиль | цитата
Joiner писал(а):
поменять системную дату или время в Win-10

Попробуй так.

Add(MainForm,2953706,210,175)
{
link(onCreate,3068635:doString,[])
}
Add(WinExec,11401622,392,175)
{
FileName="POWERSHELL"
Mode=0
Point(doConsoleExec)
Point(onConsoleTerminate)
link(onConsoleTerminate,2953706:doClose,[(431,195)(431,230)(200,230)(200,202)])
}
Add(FormatStr,3068635,308,189)
{
DataCount=1
Mask="Set-Date '%1'"
link(onFString,11401622:doConsoleExec,[])
link(Str1,11847773:Text,[])
}
Add(VisualStrings,11847773,308,112)
{
Lines=#18:18-4-2021 21:49:52|
Width=144
Height=32
}

карма: 5

0
Ответов: 192
Рейтинг: 12
#7: 2021-02-18 22:15:58 ЛС | профиль | цитата
Gunta,Спасибо, но не изменяется. Не подскажешь, как запустить Powershell от имени администратора?
Если вручную запускаю батник с таким кодом от имени администратора, то все работает.

date 17-02-2021
карма: 1

0
Ответов: 203
Рейтинг: 28
#8: 2021-02-18 22:30:05 ЛС | профиль | цитата
Правый клик на кнопке пуск
Безымянный.png
В консоли Powershell запусти Set-ExecutionPolicy RemoteSigned
Все скрипты должны работать

Редактировалось 3 раз(а), последний 2021-02-18 22:33:48
карма: 5

0
Ответов: 192
Рейтинг: 12
#9: 2021-02-18 22:59:17 ЛС | профиль | цитата
Спасибо, Gunta
К сожалению, не помогло
карма: 1

0
Ответов: 1892
Рейтинг: 165
#10: 2021-02-18 23:52:54 ЛС | профиль | цитата
Joiner, если только powershell от админа запускать:

Add(MainForm,13313477,518,329)
{
link(onCreate,3068635:doString,[])
}
Add(WinExec,11401622,700,329)
{
FileName="POWERSHELL"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleTerminate)
link(onConsoleTerminate,13313477:doClose,[(739,349)(739,384)(508,384)(508,356)])
}
Add(FormatStr,3068635,616,343)
{
DataCount=1
Mask="Set-Date '%1'"
link(onFString,11401622:doShellExec,[(674,349)(674,342)])
link(Str1,11847773:Text,[])
}
Add(VisualStrings,11847773,616,266)
{
Lines=#18:18-4-2021 21:49:52|
Width=144
Height=32
}
карма: 8
0
Ответов: 1309
Рейтинг: 29
#11: 2021-02-19 02:48:50 ЛС | профиль | цитата
В реестре по умолчанию можно изменить запуск от админа определенных программ, дабы ничего лишнего не кликать

https://lumpics.ru/how-to-run-the-program-as-administrator/#_9

Запускать свой софт нужно тоже от админа и стоит так же туда дописать запуск своего софта от админа, и нужно будет только один раз записать, дальше все будет само работать
карма: 2

0
Ответов: 203
Рейтинг: 28
#12: 2021-02-19 06:51:14 ЛС | профиль | цитата
Joiner писал(а):
К сожалению, не помогло

Возможно, у тебя другой локальный формат времени.
запусти и посмотри что пишет в консоль.

Add(MainForm,13313477,406,168)
{
link(onCreate,3068635:doString,[])
}
Add(WinExec,11401622,539,168)
{
FileName="POWERSHELL"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleTerminate)
Point(onConsoleResult)
Point(onConsoleError)
link(onConsoleResult,5080565:doWork1,[(592,195)])
link(onConsoleError,5080565:doWork2,[])
}
Add(FormatStr,3068635,476,182)
{
DataCount=1
Mask="Set-Date '%1'"
link(onFString,11401622:doConsoleExec,[])
link(Str1,8008583:Text,[])
}
Add(Memo,1623594,665,196)
{
Left=650
Top=200
Align=5
}
Add(Charset,6505833,609,196)
{
link(onCharset,1623594:doAdd,[])
}
Add(VisualStrings,8008583,476,105)
{
Lines=#18:18-4-2021 21:49:52|
Width=144
Height=32
}
Add(HubEx,5080565,588,196)
{
link(onEvent,6505833:doCharset,[])
}


Попробуй написать дату-время в разных форматах. https://windowsnotes.ru/powershell-2/formaty-vremeni-i-daty-v-powershell/
Если тебе нужно "отодвинуть" дату-время на определённые часы, дни, года и т.д. https://fixmypc.ru/post/kak-pomeniat-v-powershell-tekushchee-vremia-s-set-timezone-i-set-date/
карма: 5

0
Ответов: 192
Рейтинг: 12
#13: 2021-02-19 15:00:51 ЛС | профиль | цитата
Спасибо всем за помощь.
Gunta писал(а):
Возможно, у тебя другой локальный формат времени.

Да, формат стоит Русский(Украина)
Если выбрать Русский(Россия) то схема 3042, отлично работает.
Осталось разобраться как поменять дату, учитывая формат времени региональных настроек.

--- Добавлено в 2021-02-19 15:09:53

Из реестра можно получать формат даты

Add(MainForm,2953706,126,105)
{
Width=410
Height=321
link(onCreate,16218840:doRead,[])
}
Add(Registry,16218840,203,119)
{
HKey=1
Key="Control Panel\International"
Value="sShortDate"
Point(doExistsValue)
link(onRead,2953706:doCaption,[(242,125)(242,91)(113,91)(113,111)])
}


--- Добавлено в 2021-02-19 15:17:39

Почему-то в DateConvertor не предусмотрена возможность менять формат строки Format, динамически через точку.

Редактировалось 3 раз(а), последний 2021-02-19 15:17:39
карма: 1

0
13
Сообщение
...
Прикрепленные файлы
(файлы не залиты)