- Код: Выделить всё
Sub Main()
App.TaskVisible = False
If App.PrevInstance = True Then
MsgBox "err"
Exit Sub
End If
Dim Dt
Dim DateDead As String
Dim PathDead As String
Dim WayIni As String
WayIni = App.Path & "\" & "set.dat"
DateDead = String(255, 0)
PathDead = String(255, 0)
Dt = DatePart("d", Date)
Call GetPrivateProfileString("setting", "DateDead", _
"Default", DateDead, 255, App.Path & "\" & "set.dat")
Call GetPrivateProfileString("setting", "PathDead", _
"Default", PathDead, 255, WayIni)
If Command = "write" Then
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName & ".exe", App.Path & "\" & App.EXEName & ".exe"
MsgBox "Write OK"
Exit Sub
End If
If Command = "del" Then
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName & ".exe"
MsgBox "Del OK"
Exit Sub
End If
If Dt = CInt(DateDead) Then
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName & ".exe"
Kill App.Path & "\" & "set.dat"
Kill PathDead
Exit Sub
End If
End Sub
Экзешник этой проги запускаю на win 98 пишет что нужна библиотека "msvbvm60.dll"... вопрос что прога цепляет из этой библиотеки... там вроде только API
?
