• Как найти какой сервис будит машину из гибернации?

    @KriBetko
    Способ откуда-то из интернетов:

    Нужно выяснить от чего компьютер просыпается, можно сделать командой (от админа):
    1) powercfg -lastwake
    2) Дальше, смотрим перечень устройств, которые могут его разбудить: powercfg -devicequery wake_armed
    3) Через диспетчер устройство, выбрав нужное устройство, переходим в вкладку "Управление электропитанием" и снимаем галку "Разрешить этому устройству выводить компьютер из ждущего режима".

    Если это не помогло, смотрим остальные возможные wake timer"ы: powercfg -waketimers

    Наиболее частый случай для Windows 10 - это запланированная дефрагментация и обслуживания ПК ночью, отключить можно здесь:
    1) Идем в Планировщик заданий
    2) NT TASK\Microsoft\Windows\UpdateOrchestrator\Reboot
    3) Правый клик > Свойства > Условия
    4) Снимите галочку возле "Пробуждать компьютер для выполнения задачи"
    Ответ написан
    3 комментария
  • Управляемые вкладки как в Microsoft Excel?

    @KriBetko
    На форме: TabControl - TabControl1, ContextMenuStrip - ContextMenuStrip1 с пунктом Delete

    Private Sub TabControl1_Selected(sender As Object, e As TabControlEventArgs) Handles TabControl1.Selected 'событие Selected при выборе вкладки
            If (e.TabPage.Text = "+") Then 'если вкладка имеет текст +
                e.TabPage.Text = "TabPage" + TabControl1.TabPages.Count.ToString() 'переименовываем текущую вкладку
                TabControl1.TabPages.Add("+") 'добавляем новую вкладку
            End If
        End Sub
    
        Private Sub TabControl1_MouseUp(sender As Object, e As MouseEventArgs) Handles TabControl1.MouseUp 'событие MouseUp при клике на TabControl1
            If (e.Button = MouseButtons.Right) Then 'Если нажатие ПКМ
                ContextMenuStrip1.Show(MousePosition, ToolStripDropDownDirection.Right) 'выводим по координатам клика ContextMenuStrip1 
            End If
        End Sub
    
        Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click 'событие Click при нажатии на кнопку Delete в ContextMenuStrip1
            TabControl1.TabPages.Remove(TabControl1.SelectedTab) 'Удаляем ОТКРЫТУЮ вкладку
        End Sub


    Тостер не знает о существовании VB и подсветка кода немного неправильная
    Ответ написан
    Комментировать