well , i dont know if its fake or real
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Linq
Imports System.Net
Imports System.Runtime.CompilerServices
Imports System.Text
Imports System.Threading
Imports System.Windows.Forms
Imports XigncodeManager.My
Imports XigncodeManager.My.Resources
Namespace XigncodeManager
<DesignerGenerated()>
Public Class Form1
Inherits Form
Private components As IContainer
<AccessedThroughProperty("PictureBox1")>
Private _PictureBox1 As PictureBox
<AccessedThroughProperty("Label1")>
Private _Label1 As Label
<AccessedThroughProperty("Timer1")>
Private _Timer1 As System.Windows.Forms.Timer
<AccessedThroughProperty("Timer2")>
Private _Timer2 As System.Windows.Forms.Timer
<AccessedThroughProperty("Timer3")>
Private _Timer3 As System.Windows.Forms.Timer
<AccessedThroughProperty("Timer4")>
Private _Timer4 As System.Windows.Forms.Timer
<AccessedThroughProperty("Label2")>
Private _Label2 As Label
<AccessedThroughProperty("GroupBox1")>
Private _GroupBox1 As GroupBox
<AccessedThroughProperty("GroupBox2")>
Private _GroupBox2 As GroupBox
<AccessedThroughProperty("CheckBox1")>
Private _CheckBox1 As CheckBox
<AccessedThroughProperty("Label3")>
Private _Label3 As Label
<AccessedThroughProperty("Label4")>
Private _Label4 As Label
<AccessedThroughProperty("Timer5")>
Private _Timer5 As System.Windows.Forms.Timer
<AccessedThroughProperty("GroupBox3")>
Private _GroupBox3 As GroupBox
<AccessedThroughProperty("CheckBox2")>
Private _CheckBox2 As CheckBox
<AccessedThroughProperty("WebBrowser1")>
Private _WebBrowser1 As WebBrowser
<AccessedThroughProperty("WebBrowser2")>
Private _WebBrowser2 As WebBrowser
<AccessedThroughProperty("Timer6")>
Private _Timer6 As System.Windows.Forms.Timer
<AccessedThroughProperty("Timer7")>
Private _Timer7 As System.Windows.Forms.Timer
Friend Overridable Property PictureBox1() As PictureBox
Get
Return Me._PictureBox1
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As PictureBox)
Me._PictureBox1 = value
End Set
End Property
Friend Overridable Property Label1() As Label
Get
Return Me._Label1
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Label)
Me._Label1 = value
End Set
End Property
Friend Overridable Property Timer1() As System.Windows.Forms.Timer
Get
Return Me._Timer1
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As System.Windows.Forms.Timer)
Me._Timer1 = value
End Set
End Property
Friend Overridable Property Timer2() As System.Windows.Forms.Timer
Get
Return Me._Timer2
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As System.Windows.Forms.Timer)
Dim value2 As EventHandler = AddressOf Me.Timer2_Tick
If Me._Timer2 IsNot Nothing Then
RemoveHandler Me._Timer2.Tick, value2
End If
Me._Timer2 = value
If Me._Timer2 IsNot Nothing Then
AddHandler Me._Timer2.Tick, value2
End If
End Set
End Property
Friend Overridable Property Timer3() As System.Windows.Forms.Timer
Get
Return Me._Timer3
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As System.Windows.Forms.Timer)
Dim value2 As EventHandler = AddressOf Me.Timer3_Tick
If Me._Timer3 IsNot Nothing Then
RemoveHandler Me._Timer3.Tick, value2
End If
Me._Timer3 = value
If Me._Timer3 IsNot Nothing Then
AddHandler Me._Timer3.Tick, value2
End If
End Set
End Property
Friend Overridable Property Timer4() As System.Windows.Forms.Timer
Get
Return Me._Timer4
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As System.Windows.Forms.Timer)
Dim value2 As EventHandler = AddressOf Me.Timer4_Tick
If Me._Timer4 IsNot Nothing Then
RemoveHandler Me._Timer4.Tick, value2
End If
Me._Timer4 = value
If Me._Timer4 IsNot Nothing Then
AddHandler Me._Timer4.Tick, value2
End If
End Set
End Property
Friend Overridable Property Label2() As Label
Get
Return Me._Label2
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Label)
Me._Label2 = value
End Set
End Property
Friend Overridable Property GroupBox1() As GroupBox
Get
Return Me._GroupBox1
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As GroupBox)
Me._GroupBox1 = value
End Set
End Property
Friend Overridable Property GroupBox2() As GroupBox
Get
Return Me._GroupBox2
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As GroupBox)
Me._GroupBox2 = value
End Set
End Property
Friend Overridable Property CheckBox1() As CheckBox
Get
Return Me._CheckBox1
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As CheckBox)
Dim value2 As EventHandler = AddressOf Me.CheckBox1_CheckedChanged
If Me._CheckBox1 IsNot Nothing Then
RemoveHandler Me._CheckBox1.CheckedChanged, value2
End If
Me._CheckBox1 = value
If Me._CheckBox1 IsNot Nothing Then
AddHandler Me._CheckBox1.CheckedChanged, value2
End If
End Set
End Property
Friend Overridable Property Label3() As Label
Get
Return Me._Label3
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Label)
Me._Label3 = value
End Set
End Property
Friend Overridable Property Label4() As Label
Get
Return Me._Label4
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As Label)
Me._Label4 = value
End Set
End Property
Friend Overridable Property Timer5() As System.Windows.Forms.Timer
Get
Return Me._Timer5
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As System.Windows.Forms.Timer)
Dim value2 As EventHandler = AddressOf Me.Timer5_Tick
If Me._Timer5 IsNot Nothing Then
RemoveHandler Me._Timer5.Tick, value2
End If
Me._Timer5 = value
If Me._Timer5 IsNot Nothing Then
AddHandler Me._Timer5.Tick, value2
End If
End Set
End Property
Friend Overridable Property GroupBox3() As GroupBox
Get
Return Me._GroupBox3
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As GroupBox)
Me._GroupBox3 = value
End Set
End Property
Friend Overridable Property CheckBox2() As CheckBox
Get
Return Me._CheckBox2
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As CheckBox)
Me._CheckBox2 = value
End Set
End Property
Friend Overridable Property WebBrowser1() As WebBrowser
Get
Return Me._WebBrowser1
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As WebBrowser)
Me._WebBrowser1 = value
End Set
End Property
Friend Overridable Property WebBrowser2() As WebBrowser
Get
Return Me._WebBrowser2
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As WebBrowser)
Me._WebBrowser2 = value
End Set
End Property
Friend Overridable Property Timer6() As System.Windows.Forms.Timer
Get
Return Me._Timer6
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As System.Windows.Forms.Timer)
Dim value2 As EventHandler = AddressOf Me.Timer6_Tick
If Me._Timer6 IsNot Nothing Then
RemoveHandler Me._Timer6.Tick, value2
End If
Me._Timer6 = value
If Me._Timer6 IsNot Nothing Then
AddHandler Me._Timer6.Tick, value2
End If
End Set
End Property
Friend Overridable Property Timer7() As System.Windows.Forms.Timer
Get
Return Me._Timer7
End Get
<MethodImpl(MethodImplOptions.Synchronized)>
Set(value As System.Windows.Forms.Timer)
Dim value2 As EventHandler = AddressOf Me.Timer7_Tick
If Me._Timer7 IsNot Nothing Then
RemoveHandler Me._Timer7.Tick, value2
End If
Me._Timer7 = value
If Me._Timer7 IsNot Nothing Then
AddHandler Me._Timer7.Tick, value2
End If
End Set
End Property
Public Sub New()
AddHandler MyBase.Load, AddressOf Me.Form1_Load
Me.InitializeComponent()
End Sub
<DebuggerNonUserCode()>
Protected Overrides Sub Dispose(disposing As Boolean)
Try
If disposing AndAlso Me.components IsNot Nothing Then
Me.components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
<DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New Container()
Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
AddressOf Me.PictureBox1 = New PictureBox()
AddressOf Me.Label1 = New Label()
AddressOf Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
AddressOf Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
AddressOf Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
AddressOf Me.Timer4 = New System.Windows.Forms.Timer(Me.components)
AddressOf Me.Label2 = New Label()
AddressOf Me.GroupBox1 = New GroupBox()
AddressOf Me.GroupBox2 = New GroupBox()
AddressOf Me.CheckBox1 = New CheckBox()
AddressOf Me.Label3 = New Label()
AddressOf Me.Label4 = New Label()
AddressOf Me.Timer5 = New System.Windows.Forms.Timer(Me.components)
AddressOf Me.GroupBox3 = New GroupBox()
AddressOf Me.CheckBox2 = New CheckBox()
AddressOf Me.WebBrowser1 = New WebBrowser()
AddressOf Me.WebBrowser2 = New WebBrowser()
AddressOf Me.Timer6 = New System.Windows.Forms.Timer(Me.components)
AddressOf Me.Timer7 = New System.Windows.Forms.Timer(Me.components)
(CType(AddressOf Me.PictureBox1, ISupportInitialize)).BeginInit()
AddressOf Me.GroupBox1.SuspendLayout()
AddressOf Me.GroupBox2.SuspendLayout()
AddressOf Me.GroupBox3.SuspendLayout()
Me.SuspendLayout()
AddressOf Me.PictureBox1.Image = AddressOf Resources.Fumbi
Dim arg_168_0 As Control = AddressOf Me.PictureBox1
Dim location As Point = New Point(1, 5)
arg_168_0.Location = location
AddressOf Me.PictureBox1.Name = "PictureBox1"
Dim arg_196_0 As Control = AddressOf Me.PictureBox1
Dim size As Size = New Size(154, 226)
arg_196_0.Size = size
AddressOf Me.PictureBox1.TabIndex = 0
AddressOf Me.PictureBox1.TabStop = False
AddressOf Me.Label1.AutoSize = True
AddressOf Me.Label1.Font = New Font("Microsoft Sans Serif", 9F, FontStyle.Bold, GraphicsUnit.Point, 0)
Dim arg_1EE_0 As Control = AddressOf Me.Label1
location = New Point(12, 9)
arg_1EE_0.Location = location
AddressOf Me.Label1.Name = "Label1"
Dim arg_216_0 As Control = AddressOf Me.Label1
size = New Size(75, 15)
arg_216_0.Size = size
AddressOf Me.Label1.TabIndex = 1
AddressOf Me.Label1.Text = "Xigncode3"
AddressOf Me.Timer1.Interval = 45
AddressOf Me.Timer3.Interval = 10
AddressOf Me.Timer4.Interval = 10
AddressOf Me.Label2.AutoSize = True
Dim arg_27B_0 As Control = AddressOf Me.Label2
location = New Point(6, 28)
arg_27B_0.Location = location
AddressOf Me.Label2.Name = "Label2"
Dim arg_2A3_0 As Control = AddressOf Me.Label2
size = New Size(119, 13)
arg_2A3_0.Size = size
AddressOf Me.Label2.TabIndex = 3
AddressOf Me.Label2.Text = "Waiting for S4League..."
AddressOf Me.GroupBox1.Controls.Add(AddressOf Me.Label2)
Dim arg_2EE_0 As Control = AddressOf Me.GroupBox1
location = New Point(161, 5)
arg_2EE_0.Location = location
AddressOf Me.GroupBox1.Name = "GroupBox1"
Dim arg_319_0 As Control = AddressOf Me.GroupBox1
size = New Size(133, 54)
arg_319_0.Size = size
AddressOf Me.GroupBox1.TabIndex = 4
AddressOf Me.GroupBox1.TabStop = False
AddressOf Me.GroupBox1.Text = "Status"
AddressOf Me.GroupBox2.Controls.Add(AddressOf Me.CheckBox1)
AddressOf Me.GroupBox2.Enabled = False
Dim arg_37D_0 As Control = AddressOf Me.GroupBox2
location = New Point(161, 74)
arg_37D_0.Location = location
AddressOf Me.GroupBox2.Name = "GroupBox2"
Dim arg_3A8_0 As Control = AddressOf Me.GroupBox2
size = New Size(133, 47)
arg_3A8_0.Size = size
AddressOf Me.GroupBox2.TabIndex = 5
AddressOf Me.GroupBox2.TabStop = False
AddressOf Me.GroupBox2.Text = "XigncodeManager"
AddressOf Me.CheckBox1.AutoSize = True
AddressOf Me.CheckBox1.Cursor = Cursors.Hand
AddressOf Me.CheckBox1.Enabled = False
AddressOf Me.CheckBox1.FlatStyle = FlatStyle.Flat
Dim arg_41B_0 As Control = AddressOf Me.CheckBox1
location = New Point(9, 19)
arg_41B_0.Location = location
AddressOf Me.CheckBox1.Name = "CheckBox1"
Dim arg_443_0 As Control = AddressOf Me.CheckBox1
size = New Size(76, 17)
arg_443_0.Size = size
AddressOf Me.CheckBox1.TabIndex = 0
AddressOf Me.CheckBox1.Text = "Anti XCLog"
AddressOf Me.CheckBox1.UseVisualStyleBackColor = True
AddressOf Me.Label3.AutoSize = True
AddressOf Me.Label3.Font = New Font("Microsoft Sans Serif", 8.25F, FontStyle.Bold Or FontStyle.Italic, GraphicsUnit.Point, 0)
Dim arg_4B1_0 As Control = AddressOf Me.Label3
location = New Point(167, 139)
arg_4B1_0.Location = location
AddressOf Me.Label3.Name = "Label3"
Dim arg_4D8_0 As Control = AddressOf Me.Label3
size = New Size(0, 13)
arg_4D8_0.Size = size
AddressOf Me.Label3.TabIndex = 4
AddressOf Me.Label4.AutoSize = True
AddressOf Me.Label4.Font = New Font("Microsoft Sans Serif", 8.25F, FontStyle.Bold Or FontStyle.Italic, GraphicsUnit.Point, 0)
Dim arg_52A_0 As Control = AddressOf Me.Label4
location = New Point(167, 165)
arg_52A_0.Location = location
AddressOf Me.Label4.Name = "Label4"
Dim arg_551_0 As Control = AddressOf Me.Label4
size = New Size(0, 13)
arg_551_0.Size = size
AddressOf Me.Label4.TabIndex = 6
AddressOf Me.Timer5.Interval = 10
AddressOf Me.GroupBox3.Controls.Add(AddressOf Me.CheckBox2)
Dim arg_59D_0 As Control = AddressOf Me.GroupBox3
location = New Point(161, 139)
arg_59D_0.Location = location
AddressOf Me.GroupBox3.Name = "GroupBox3"
Dim arg_5C8_0 As Control = AddressOf Me.GroupBox3
size = New Size(133, 54)
arg_5C8_0.Size = size
AddressOf Me.GroupBox3.TabIndex = 5
AddressOf Me.GroupBox3.TabStop = False
AddressOf Me.GroupBox3.Text = "Ads"
AddressOf Me.CheckBox2.AutoSize = True
AddressOf Me.CheckBox2.Checked = True
AddressOf Me.CheckBox2.CheckState = CheckState.Checked
AddressOf Me.CheckBox2.Enabled = False
Dim arg_637_0 As Control = AddressOf Me.CheckBox2
location = New Point(9, 25)
arg_637_0.Location = location
AddressOf Me.CheckBox2.Name = "CheckBox2"
Dim arg_65F_0 As Control = AddressOf Me.CheckBox2
size = New Size(47, 17)
arg_65F_0.Size = size
AddressOf Me.CheckBox2.TabIndex = 0
AddressOf Me.CheckBox2.Text = "Skip"
AddressOf Me.CheckBox2.UseVisualStyleBackColor = True
Dim arg_6A4_0 As Control = AddressOf Me.WebBrowser1
location = New Point(167, 277)
arg_6A4_0.Location = location
Dim arg_6BC_0 As Control = AddressOf Me.WebBrowser1
size = New Size(20, 20)
arg_6BC_0.MinimumSize = size
AddressOf Me.WebBrowser1.Name = "WebBrowser1"
AddressOf Me.WebBrowser1.ScriptErrorsSuppressed = True
Dim arg_6F0_0 As Control = AddressOf Me.WebBrowser1
size = New Size(127, 94)
arg_6F0_0.Size = size
AddressOf Me.WebBrowser1.TabIndex = 7
AddressOf Me.WebBrowser1.Visible = False
Dim arg_725_0 As Control = AddressOf Me.WebBrowser2
location = New Point(317, 277)
arg_725_0.Location = location
Dim arg_73D_0 As Control = AddressOf Me.WebBrowser2
size = New Size(20, 20)
arg_73D_0.MinimumSize = size
AddressOf Me.WebBrowser2.Name = "WebBrowser2"
AddressOf Me.WebBrowser2.ScriptErrorsSuppressed = True
Dim arg_771_0 As Control = AddressOf Me.WebBrowser2
size = New Size(127, 94)
arg_771_0.Size = size
AddressOf Me.WebBrowser2.TabIndex = 8
AddressOf Me.WebBrowser2.Visible = False
AddressOf Me.Timer6.Interval = 1000
AddressOf Me.Timer7.Interval = 1000
Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
Me.AutoScaleDimensions = autoScaleDimensions
Me.AutoScaleMode = AutoScaleMode.Font
Me.BackColor = Color.DarkGray
size = New Size(304, 236)
Me.ClientSize = size
Me.Controls.Add(AddressOf Me.WebBrowser2)
Me.Controls.Add(AddressOf Me.WebBrowser1)
Me.Controls.Add(AddressOf Me.GroupBox3)
Me.Controls.Add(AddressOf Me.Label4)
Me.Controls.Add(AddressOf Me.Label3)
Me.Controls.Add(AddressOf Me.GroupBox2)
Me.Controls.Add(AddressOf Me.GroupBox1)
Me.Controls.Add(AddressOf Me.Label1)
Me.Controls.Add(AddressOf Me.PictureBox1)
Me.FormBorderStyle = FormBorderStyle.FixedDialog
Me.Icon = CType(componentResourceManager.GetObject("$this.Ic on"), Icon)
Me.MaximizeBox = False
Me.Name = "Form1"
Me.Text = "XigncodeManager"
Me.TransparencyKey = Color.Fuchsia
(CType(AddressOf Me.PictureBox1, ISupportInitialize)).EndInit()
AddressOf Me.GroupBox1.ResumeLayout(False)
AddressOf Me.GroupBox1.PerformLayout()
AddressOf Me.GroupBox2.ResumeLayout(False)
AddressOf Me.GroupBox2.PerformLayout()
AddressOf Me.GroupBox3.ResumeLayout(False)
AddressOf Me.GroupBox3.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs)
Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("http://slat3.altervista.org/XigncodeManager/status_check5.txt"), HttpWebRequest)
Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
Dim text As String = streamReader.ReadToEnd()
Dim productVersion As String = Application.ProductVersion
' The following expression was wrapped in a checked-statement
If text.Contains("OK") Then
Dim httpWebRequest2 As HttpWebRequest = CType(WebRequest.Create("http://slat3.altervista.org/S4Manager/link1.txt"), HttpWebRequest)
Dim httpWebResponse2 As HttpWebResponse = CType(httpWebRequest2.GetResponse(), HttpWebResponse)
Dim streamReader2 As StreamReader = New StreamReader(httpWebResponse2.GetResponseStream())
Dim str As String = streamReader2.ReadToEnd()
Dim productVersion2 As String = Application.ProductVersion
AddressOf Me.WebBrowser1.Navigate("" + str)
AddressOf Me.Timer6.Start()
Dim processesByName As Process() = Process.GetProcessesByName("S4Client")
If processesByName.Count(Of Process)() > 0 Then
MessageBox.Show("Close S4League before start XigncodeManager", "Error")
Me.Close()
Else
AddressOf Me.Timer1.Start()
AddressOf Me.Timer4.Start()
AddressOf Me.Label2.Text = "Waiting for S4League..."
If Not AddressOf MyProject.Computer.FileSystem.FileExists("xigncode \xmag.xem") Then
MessageBox.Show("Your s4client isn't updated. Use the autopatcher", "Error")
Try
Interaction.Shell("patcher_s4.exe", AppWinStyle.MinimizedFocus, False, -1)
Catch expr_133 As Exception
ProjectData.SetProjectError(expr_133)
Me.Close()
ProjectData.ClearProjectError()
End Try
Me.Close()
Else
Try
Interaction.Shell("patcher_s4.exe", AppWinStyle.MinimizedFocus, False, -1)
Catch expr_163 As Exception
ProjectData.SetProjectError(expr_163)
Me.Close()
ProjectData.ClearProjectError()
End Try
AddressOf Me.Timer2.Start()
Dim list As List(Of Integer) = New List(Of Integer)()
Dim num As Integer = 48
Do
list.Add(num)
num += 1
Loop While num <= 57
Dim num2 As Integer = 97
Do
list.Add(num2)
num2 += 1
Loop While num2 <= 122
Dim num3 As Integer = 65
Do
list.Add(num3)
num3 += 1
Loop While num3 <= 90
Dim num4 As Integer = 33
Do
list.Add(num4)
num4 += 1
Loop While num4 <= 42
Dim random As Random = New Random()
Dim stringBuilder As StringBuilder = New StringBuilder()
Dim num5 As Integer = 1
Do
Dim index As Integer = random.[Next](0, list.Count)
stringBuilder.Append(Strings.Chr(list(index)))
num5 += 1
Loop While num5 <= 15
Me.Text = stringBuilder.ToString()
End If
End If
Else
MessageBox.Show("XigncodeManager isn't avaiable", "Error")
Me.Close()
End If
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs)
Dim processesByName As Process() = Process.GetProcessesByName("S4Client")
If processesByName.Count(Of Process)() > 0 Then
AddressOf Me.Label2.Text = "S4League found"
AddressOf Me.Label2.ForeColor = Color.Green
AddressOf Me.Label3.Text = "Xigncode3 is running"
AddressOf Me.Timer3.Start()
AddressOf Me.Timer4.Start()
End If
End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs)
AddressOf Me.Timer2.[Stop]()
Dim processesByName As Process() = Process.GetProcessesByName("S4Client")
If processesByName.Count(Of Process)() <= 0 Then
Me.Close()
End If
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
If AddressOf Me.CheckBox1.Checked Then
Thread.Sleep(8000)
AddressOf Me.Label2.Text = "Anti HSLog enabled"
AddressOf Me.Label2.ForeColor = Color.Green
Me.WindowState = FormWindowState.Minimized
MessageBox.Show("Anti HSLog enabled", "Anti HSLog")
Else
Thread.Sleep(6000)
AddressOf Me.Label2.Text = "Anti HSLog disabled"
AddressOf Me.Label2.ForeColor = Color.Red
MessageBox.Show("Anti HSLog disbled", "Anti HSLog")
End If
End Sub
Private Sub Timer4_Tick(sender As Object, e As EventArgs)
Dim processesByName As Process() = Process.GetProcessesByName("xxd-0.xem")
If processesByName.Count(Of Process)() > 0 Then
AddressOf Me.Label4.Text = "xxd-0.xem is running"
AddressOf Me.GroupBox2.Enabled = True
AddressOf Me.CheckBox1.Enabled = True
AddressOf Me.Timer5.Start()
AddressOf Me.Timer4.[Stop]()
End If
End Sub
Private Sub Timer5_Tick(sender As Object, e As EventArgs)
Dim processesByName As Process() = Process.GetProcessesByName("xxd-0.xem")
If processesByName.Count(Of Process)() <= 0 Then
Me.Close()
End If
End Sub
Private Sub Timer6_Tick(sender As Object, e As EventArgs)
Try
AddressOf Me.WebBrowser1.Document.GetElementById("skip_ad_bu tton").InvokeMember("click")
Catch expr_22 As Exception
ProjectData.SetProjectError(expr_22)
ProjectData.ClearProjectError()
End Try
If Operators.CompareString(AddressOf Me.WebBrowser1.Url.ToString(), "http://slat3.altervista.org/S4Manager/thanks.png", False) = 0 Then
AddressOf Me.Timer6.[Stop]()
AddressOf Me.Timer7.Start()
Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("http://slat3.altervista.org/S4Manager/link2.txt"), HttpWebRequest)
Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
Dim streamReader As StreamReader = New StreamReader(httpWebResponse.GetResponseStream())
Dim str As String = streamReader.ReadToEnd()
Dim productVersion As String = Application.ProductVersion
AddressOf Me.WebBrowser2.Navigate("" + str)
End If
End Sub
Private Sub Timer7_Tick(sender As Object, e As EventArgs)
Try
AddressOf Me.WebBrowser2.Document.GetElementById("skip_ad_bu tton").InvokeMember("click")
Catch expr_22 As Exception
ProjectData.SetProjectError(expr_22)
ProjectData.ClearProjectError()
End Try
If Operators.CompareString(AddressOf Me.WebBrowser1.Url.ToString(), "http://slat3.altervista.org/S4Manager/thanks2.png", False) = 0 Then
AddressOf Me.Timer7.[Stop]()
End If
End Sub
End Class
End Namespace
![[RELEASE]XigncodeManager](https://www.elitepvpers.com/forum/iconimages/s4-league-hacks-bots-cheats-exploits/release-xigncodemanager_ltr.gif){kind=small}
