Kanaduchi 264 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 огрмомноя просьба к создателям выключалки... сделайте теперь програмку включения а то выключалка есть а про включалку совсем забыли оффтоп: берём обычный электронный таймер, который пищит, находим в нём контакты на 12V, которые замыкаются при срабатывании будильника/таймера, коннектим к ним конакты с кнопки Power и вуаля п.с. фокус опасный, в домашних условиях не повторять Ссылка на сообщение Поделиться на другие сайты
оlег 56 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 оффтоп: берём обычный электронный таймер, который пищит, находим в нём контакты на 12V, которые замыкаются при срабатывании будильника/таймера, коннектим к ним конакты с кнопки Power и вуаля п.с. фокус опасный, в домашних условиях не повторять Намного проще в BIOS активировать функцию Power On by Alarm включение питания компьютера в заданное время текущего месяца. или Wake On Ring From Soft-off включение компьютера по телефонному звонку или Wake On LAN From Soft-off включение по сигналу из локальной сети. Ссылка на сообщение Поделиться на другие сайты
Мирный Атом 421 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Arkadiy Ваших шаловливых ручек дело? код: VERSION 5.00 Begin VB.Form Form1 Caption = "StartDown" BackColor = &H808080& ScaleMode = 1 AutoRedraw = False FontTransparent = True DrawStyle = 1 DrawMode = 1 BorderStyle = 1 'Fixed Single 'Icon = n/a LinkTopic = "Form1" LinkMode = 1 'Automatic MaxButton = 0 'False MinButton = 0 'False ClientLeft = 45 ClientTop = 435 ClientWidth = 8955 ClientHeight = 5490 StartUpPosition = 3 'Windows Default Begin CommandButton Command2 Caption = "Пуск таймера" BackColor = &H808080& Left = 2880 Top = 3480 Width = 2535 Height = 495 TabIndex = 3 Style = 1 End Begin Timer Timer1 Enabled = 0 'False Interval = 1000 Left = 5640 Top = 4800 End Begin ComboBox Combo1 Left = 240 Top = 2640 Width = 4935 Height = 360 Text = "Выберите действие после истечения таймера" TabIndex = 2 BeginProperty Font Name = "MS Sans Serif" Size = 9,75 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin TextBox Text1 Left = 1680 Top = 3480 Width = 975 Height = 405 TabIndex = 1 End Begin CommandButton Command1 Caption = "Пуск таймера" BackColor = &H404040& Left = 2880 Top = 3480 Width = 2535 Height = 495 Visible = 0 'False TabIndex = 0 Style = 1 End Begin Image Image1 Picture = "Form1.frx":0 Left = 0 Top = 0 Width = 9000 Height = 5460 End End Attribute VB_Name = "Form1" Там HEX километровые есть. Кому надо-скину ) Ссылка на сообщение Поделиться на другие сайты
Ta2i4 129 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 1. Увы, прошу прощения, программа 2009 года. Не продумались, есть некоторые баги, но незначительные. Баги, из-за которых падает программа, далеко не незначительные Ссылка на сообщение Поделиться на другие сайты
Arkadiy 45 Опубликовано 12 января, 2011 Автор Share Опубликовано 12 января, 2011 (изменено) Arkadiy Ваших шаловливых ручек дело? код: VERSION 5.00 Begin VB.Form Form1 Caption = "StartDown" BackColor = &H808080& ScaleMode = 1 AutoRedraw = False FontTransparent = True DrawStyle = 1 DrawMode = 1 BorderStyle = 1 'Fixed Single 'Icon = n/a LinkTopic = "Form1" LinkMode = 1 'Automatic MaxButton = 0 'False MinButton = 0 'False ClientLeft = 45 ClientTop = 435 ClientWidth = 8955 ClientHeight = 5490 StartUpPosition = 3 'Windows Default Begin CommandButton Command2 Caption = "Пуск таймера" BackColor = &H808080& Left = 2880 Top = 3480 Width = 2535 Height = 495 TabIndex = 3 Style = 1 End Begin Timer Timer1 Enabled = 0 'False Interval = 1000 Left = 5640 Top = 4800 End Begin ComboBox Combo1 Left = 240 Top = 2640 Width = 4935 Height = 360 Text = "Выберите действие после истечения таймера" TabIndex = 2 BeginProperty Font Name = "MS Sans Serif" Size = 9,75 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty End Begin TextBox Text1 Left = 1680 Top = 3480 Width = 975 Height = 405 TabIndex = 1 End Begin CommandButton Command1 Caption = "Пуск таймера" BackColor = &H404040& Left = 2880 Top = 3480 Width = 2535 Height = 495 Visible = 0 'False TabIndex = 0 Style = 1 End Begin Image Image1 Picture = "Form1.frx":0 Left = 0 Top = 0 Width = 9000 Height = 5460 End End Attribute VB_Name = "Form1" Там HEX километровые есть. Кому надо-скину ) угу)) но у тебя декомпилятор для vb 2005, а у меня vb 6.0 поэтому не весь. понятно) Изменено 12 января, 2011 пользователем Arkadiy 1 Ссылка на сообщение Поделиться на другие сайты
Мирный Атом 421 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Arkadiy в Hex там как раз основное Ссылка на сообщение Поделиться на другие сайты
Arkadiy 45 Опубликовано 12 января, 2011 Автор Share Опубликовано 12 января, 2011 Arkadiy в Hex там как раз основное да я понял. assebmler))) Ссылка на сообщение Поделиться на другие сайты
Keeper-Volok 16 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 3. Это файлы .dll для правильной работы программы на разных ОС. Серьёзно? Я думал эта волна в годах 2000-ых остановилась... Ссылка на сообщение Поделиться на другие сайты
Arkadiy 45 Опубликовано 12 января, 2011 Автор Share Опубликовано 12 января, 2011 Серьёзно? Я думал эта волна в годах 2000-ых остановилась... Я пробовал на windows vista запускать без .dll, и была ошибка Ссылка на сообщение Поделиться на другие сайты
Roman_Five 489 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Это связано в связи с тем, что я однажды (по глупости) спамил на офф форуме. ;) как полезно хранить старую почту в почтовике. Arkadiy = Defence не "однажды", а 34 темы с 14.07.2010 по 16.09.2010 (это не считая тех, которые админы успевали удалять до их рассылки в уведомления) 1 Ссылка на сообщение Поделиться на другие сайты
Keeper-Volok 16 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Я пробовал на windows vista запускать без .dll, и была ошибка Открою вам страшную тайну. Если на ту висту поставить Вашу вижл студию (или что там, не знаю, PEiD лень искать), то прога и без dll-ок пойдëт... Ссылка на сообщение Поделиться на другие сайты
Kapral 1 322 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 не "однажды", а 34 темы с 14.07.2010 по 16.09.2010 (это не считая тех, которые админы успевали удалять до их рассылки в уведомления) Не будем вспоминать Кстати насчет выключения Встроенный шедулер + встроенный shutdown - рулез Ссылка на сообщение Поделиться на другие сайты
Skarbovoy 369 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Keeper-Volok "Их Студия" официально несовместима с той Вистой . Ссылка на сообщение Поделиться на другие сайты
Ta2i4 129 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Открою вам страшную тайну.Если на ту висту поставить Вашу вижл студию (или что там, не знаю, PEiD лень искать), то прога и без dll-ок пойдëт... У меня на семёрке запустилась без всяких dll-ок Ссылка на сообщение Поделиться на другие сайты
Skarbovoy 369 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 У меня на семёрке запустилась без всяких dll-ок Т.к. у вас стоит Visual Basic Run-Time Redistribution Pack, поставился с какой-то программой. Ссылка на сообщение Поделиться на другие сайты
Рекомендуемые сообщения
Пожалуйста, войдите, чтобы комментировать
Вы сможете оставить комментарий после входа в
Войти