Прошу оценить мою программу

[Kanaduchi]

огрмомноя просьба к создателям выключалки...

сделайте теперь програмку включения а то выключалка есть а про включалку совсем забыли

оффтоп: берём обычный электронный таймер, который пищит, находим в нём контакты на 12V, которые замыкаются при срабатывании будильника/таймера, коннектим к ним конакты с кнопки Power и вуаля

 

п.с. фокус опасный, в домашних условиях не повторять

[оlег]

оффтоп: берём обычный электронный таймер, который пищит, находим в нём контакты на 12V, которые замыкаются при срабатывании будильника/таймера, коннектим к ним конакты с кнопки Power и вуаля

 

п.с. фокус опасный, в домашних условиях не повторять

 

Намного проще в BIOS активировать функцию Power On by Alarm включение питания компьютера в заданное время текущего месяца.

или Wake On Ring From Soft-off включение компьютера по телефонному звонку или Wake On LAN From Soft-off включение по сигналу из локальной сети.

[Мирный Атом]

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]

1. Увы, прошу прощения, программа 2009 года. Не продумались, есть некоторые баги, но незначительные.

Баги, из-за которых падает программа, далеко не незначительные

[Arkadiy]

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

[Мирный Атом]

Arkadiy в Hex там как раз основное

[Arkadiy]

Arkadiy в Hex там как раз основное

 

да я понял. assebmler)))

[Keeper-Volok]

3. Это файлы .dll для правильной работы программы на разных ОС.

Серьёзно?

 

Я думал эта волна в годах 2000-ых остановилась...

[Arkadiy]

Серьёзно?

 

Я думал эта волна в годах 2000-ых остановилась...

 

Я пробовал на windows vista запускать без .dll, и была ошибка

[Roman_Five]

Это связано в связи с тем, что я однажды (по глупости) спамил на офф форуме.

 

;)

как полезно хранить старую почту в почтовике.

Arkadiy = Defence

не "однажды", а 34 темы с 14.07.2010 по 16.09.2010 (это не считая тех, которые админы успевали удалять до их рассылки в уведомления)

[Keeper-Volok]

Я пробовал на windows vista запускать без .dll, и была ошибка

Открою вам страшную тайну.

Если на ту висту поставить Вашу вижл студию (или что там, не знаю, PEiD лень искать), то прога и без dll-ок пойдëт...

[Kapral]

не "однажды", а 34 темы с 14.07.2010 по 16.09.2010 (это не считая тех, которые админы успевали удалять до их рассылки в уведомления)

 

Не будем вспоминать

 

Кстати насчет выключения

Встроенный шедулер + встроенный shutdown - рулез

[Skarbovoy]

Keeper-Volok

"Их Студия" официально несовместима с той Вистой .

[Ta2i4]

Открою вам страшную тайну.

Если на ту висту поставить Вашу вижл студию (или что там, не знаю, PEiD лень искать), то прога и без dll-ок пойдëт...

У меня на семёрке запустилась без всяких dll-ок

[Skarbovoy]

У меня на семёрке запустилась без всяких dll-ок

Т.к. у вас стоит Visual Basic Run-Time Redistribution Pack, поставился с какой-то программой.