Изменить системное время.

Форумы Помощь по пакетуИзменить системное время. ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 91

Рейтинг: 0

#1: 2017-08-17 17:31:35 ЛС | профиль | цитата

Как можно установить, изменить системное время при помощи hiasm? Конкретно нужно по кнопке + добавлять день(число месяца) и по кнопке - отнимать день(число месяца).

карма: 0

Google vip	#1.1контекстная реклама от партнеров

Ответов: 537

Рейтинг: 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

Ответов: 91

Рейтинг: 0

#3: 2017-08-17 18:10:29 ЛС | профиль | цитата

В эти точки часы/годы минуты/месяцы секунды/дни, как задать дни?

карма: 0

Ответов: 16884

Рейтинг: 1239

#4: 2017-08-17 20:11:42 ЛС | профиль | цитата

В "Свойства" Time_Date выбери Date

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 207

Рейтинг: 14

#5: 2021-02-18 19:39:06 ЛС | профиль | цитата

Не получается cхемой от Sersey, поменять системную дату или время в Win-10

Подскажите, в чем может быть проблема?

карма: 2

Ответов: 697

Рейтинг: 143

#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
}

карма: 15

Ответов: 207

Рейтинг: 14

#7: 2021-02-18 22:15:58 ЛС | профиль | цитата

Gunta,Спасибо, но не изменяется. Не подскажешь, как запустить Powershell от имени администратора?
Если вручную запускаю батник с таким кодом от имени администратора, то все работает.


date 17-02-2021

карма: 2

Ответов: 697

Рейтинг: 143

#8: 2021-02-18 22:30:05 ЛС | профиль | цитата

Правый клик на кнопке пуск

Безымянный.png

В консоли Powershell запусти Set-ExecutionPolicy RemoteSigned
Все скрипты должны работать

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

карма: 15

Ответов: 207

Рейтинг: 14

#9: 2021-02-18 22:59:17 ЛС | профиль | цитата

Спасибо, Gunta
К сожалению, не помогло

карма: 2

Ответов: 1925

Рейтинг: 172

#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
}

карма: 9

Учебник по HiAsm | Видеоуроки | Мои программы

Ответов: 1342

Рейтинг: 31

#11: 2021-02-19 02:48:50 ЛС | профиль | цитата

В реестре по умолчанию можно изменить запуск от админа определенных программ, дабы ничего лишнего не кликать

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

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

карма: 2

Ответов: 697

Рейтинг: 143

#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/

карма: 15

Ответов: 207

Рейтинг: 14

#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

карма: 2

Форумы Помощь по пакетуИзменить системное время. ← Ctrl1Ctrl →


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