VBCoding Библиотека кодов Visual Basic 6 Оболочка и система Как сделать, что бы программу невозможно было закрыть

Visual Basic 6
Как сделать, что бы программу невозможно было закрыть
Можно сделать, что бы в памяти висели две копии программу, одна следит за другой и если другую закрывают, то она снова запускается.
Разместите на форме Timer с интервалом 1000(секунда).

Private Sub Timer1_Timer()
If App.PrevInstance = False Then
Shell iif((Right(App.Path, 1) = "\"), App.Path, App.Path & "\") & App.EXEName & ".exe"
Dim tim As Long
tim = Timer
Do While (Timer - tim) < 1
DoEvents
Loop
End If
End Sub
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Оболочка и система Как сделать, что бы программу невозможно было закрыть  
Powered by Exponenta -