Сообщение при первом запуске программы - VB

Узнай цену своей работы

Формулировка задачи:

Как сделать так, чтобы при первом запуске программы, вадавало любое сообщение (MsgBox), а при всех последующих - ничего не вылезало...

Решение задачи: «Сообщение при первом запуске программы»

textual
Листинг программы
sub FirstRun()
Dim ret&
on error resume next
ret = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\MyProgram\FirstRun")
on error resume 0
if ret=0 then 
  CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\MyProgram\FirstRun", 1, "REG_BINARY"
  msgbox "Первый запуск"
end if
end sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы