• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




[vb6.0] [vb6.0] 실행돼있는 상태에서 자신 파일 삭제

하나를하더라도최선을
2020.02.24 11:58 890 0

본문



Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As StringByVal lpFile As StringByVal lpParameters As StringByVal lpDirectory As StringByVal nShowCmd As Long) As Long
Sub KillSelf()
    Dim cAppPath, cTarget, strBat
    cAppPath = IIf(Right(App.Path, 1= "\", Left(App.Path, Len(App.Path) - 1), App.Path)
    cTarget = cAppPath & "\Kill.bat"
    strBat = _
    "@echo off" & vbCrLf & _
    ":retry" & vbCrLf & _
    "IF NOT EXIST """ & cAppPath & "\" & App.EXEName & ".exe"" goto end" & vbCrLf & _
    "attrib """ & cAppPath & "\" & App.EXEName & ".exe"" -h -r -s" & vbCrLf & _
    "del """ & cAppPath & "\" & App.EXEName & ".exe""" & vbCrLf & _
    "IF EXIST """ & cAppPath & "\" & App.EXEName & ".exe"" goto retry" & vbCrLf & _
    "@echo on" & vbCrLf & _
    "cls" & vbCrLf & _
    "del %0" & vbCrLf & _
    "exit"
    Open cTarget For Output As #1
    Print #1, strBat
    Close #1
    ShellExecute Me.hWnd, "OPEN", cTarget, """"0
    End
End Sub
 
 
Private Sub Command1_Click()
    KillSelf
End Sub
[출처] 실행되있는 상태에서 자신파일삭제 (고구마S) |작성자 잘모르는 초보
 


댓글목록 0

등록된 댓글이 없습니다.