Kanaduchi 287 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 огрмомноя просьба к создателям выключалки... сделайте теперь програмку включения а то выключалка есть а про включалку совсем забыли оффтоп: берём обычный электронный таймер, который пищит, находим в нём контакты на 12V, которые замыкаются при срабатывании будильника/таймера, коннектим к ним конакты с кнопки Power и вуаля п.с. фокус опасный, в домашних условиях не повторять Цитата Ссылка на сообщение Поделиться на другие сайты
оlег 63 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 оффтоп: берём обычный электронный таймер, который пищит, находим в нём контакты на 12V, которые замыкаются при срабатывании будильника/таймера, коннектим к ним конакты с кнопки Power и вуаля п.с. фокус опасный, в домашних условиях не повторять Намного проще в BIOS активировать функцию Power On by Alarm включение питания компьютера в заданное время текущего месяца. или Wake On Ring From Soft-off включение компьютера по телефонному звонку или Wake On LAN From Soft-off включение по сигналу из локальной сети. Цитата Ссылка на сообщение Поделиться на другие сайты
Мирный Атом 632 Опубликовано 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 176 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 1. Увы, прошу прощения, программа 2009 года. Не продумались, есть некоторые баги, но незначительные. Баги, из-за которых падает программа, далеко не незначительные Цитата Ссылка на сообщение Поделиться на другие сайты
Arkadiy 70 Опубликовано 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 Цитата Ссылка на сообщение Поделиться на другие сайты
Мирный Атом 632 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Arkadiy в Hex там как раз основное Цитата Ссылка на сообщение Поделиться на другие сайты
Arkadiy 70 Опубликовано 12 января, 2011 Автор Share Опубликовано 12 января, 2011 Arkadiy в Hex там как раз основное да я понял. assebmler))) Цитата Ссылка на сообщение Поделиться на другие сайты
Keeper-Volok 37 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 3. Это файлы .dll для правильной работы программы на разных ОС. Серьёзно? Я думал эта волна в годах 2000-ых остановилась... Цитата Ссылка на сообщение Поделиться на другие сайты
Arkadiy 70 Опубликовано 12 января, 2011 Автор Share Опубликовано 12 января, 2011 Серьёзно? Я думал эта волна в годах 2000-ых остановилась... Я пробовал на windows vista запускать без .dll, и была ошибка Цитата Ссылка на сообщение Поделиться на другие сайты
Roman_Five 598 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Это связано в связи с тем, что я однажды (по глупости) спамил на офф форуме. ;) как полезно хранить старую почту в почтовике. Arkadiy = Defence не "однажды", а 34 темы с 14.07.2010 по 16.09.2010 (это не считая тех, которые админы успевали удалять до их рассылки в уведомления) 1 Цитата Ссылка на сообщение Поделиться на другие сайты
Keeper-Volok 37 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Я пробовал на windows vista запускать без .dll, и была ошибка Открою вам страшную тайну. Если на ту висту поставить Вашу вижл студию (или что там, не знаю, PEiD лень искать), то прога и без dll-ок пойдëт... Цитата Ссылка на сообщение Поделиться на другие сайты
Kapral 1 488 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 не "однажды", а 34 темы с 14.07.2010 по 16.09.2010 (это не считая тех, которые админы успевали удалять до их рассылки в уведомления) Не будем вспоминать Кстати насчет выключения Встроенный шедулер + встроенный shutdown - рулез Цитата Ссылка на сообщение Поделиться на другие сайты
Skarbovoy 470 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Keeper-Volok "Их Студия" официально несовместима с той Вистой . Цитата Ссылка на сообщение Поделиться на другие сайты
Ta2i4 176 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 Открою вам страшную тайну.Если на ту висту поставить Вашу вижл студию (или что там, не знаю, PEiD лень искать), то прога и без dll-ок пойдëт... У меня на семёрке запустилась без всяких dll-ок Цитата Ссылка на сообщение Поделиться на другие сайты
Skarbovoy 470 Опубликовано 12 января, 2011 Share Опубликовано 12 января, 2011 У меня на семёрке запустилась без всяких dll-ок Т.к. у вас стоит Visual Basic Run-Time Redistribution Pack, поставился с какой-то программой. Цитата Ссылка на сообщение Поделиться на другие сайты
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.