Visual
Basic - Советы
[О программах]
Как запустить на VB5.0 исходники, написанные на VB6.0
Kак сделать, чтобы программa перестала работать примерно через 30 дней?
Вызов различных программ
Чтобы Ваш EXE не был запущен одновременно два раза в событие Form_Load впишите:
Private Sub Form_Load()
If App.PrevInstance
= True Then
MsgBox "Проект уже запущен!"
End
End If
Назад
Чтобы запустить
на VB5.0 исходники, написанные на VB6.0 откройте файл проекта с расширением
VBP каким-нибудь текстовым редактором и удалите строки:
Retained = 0
DebugStartupOption = 0
Kак сделать, чтобы программa перестала работать примерно через 30 дней?
Сделать это очень просто. Сначала нужно либо записать в регистр либо куда-нибудь в папку Windows в файл *.ini, например дату первого запуска. Потом при каждом запуске нужно проверять разницу между текущей датой и датой первого запуска. Например так:
If DateDiff("d", #11/8/99#, Date) > 30 Then ...
'если разница между датой 11 августой 1999 года
и текущей
'в днях больше 30, тогда ....
А потом можно просто закрыть программу и всё!
Сделать это очень просто! Всего лишь надо вызвать команду Shell с именем нужного файла. Например при нажатии кнопки Command1 должен запускать калькулятор:
Private Sub Command1_Click()
Call Shell("c:\windows\calc.exe",
vbNormalFocus)
End Sub
Константа, стоящая после запятой - определяет вид окна программы. Конечно есть одна проблема - как определить путь к тому или иному приложению на компьютере пользователя? Стандартные программы от Windows всегда находятся в виндовском каталоге.
