Сообщение при первом запуске программы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д