Public paste
Undefined
By: Oo | Date: Feb 15 2010 15:27 | Format: None | Expires: never | Size: 57.26 KB | Hits: 798

  1. <DesignerGenerated> _
  2. Public Class Form1
  3.     Inherits Form
  4.     ' Methods
  5.     <DebuggerNonUserCode> _
  6.     Public Sub New()
  7.         AddHandler MyBase.FormClosing, New FormClosingEventHandler(AddressOf Me.Form1_FormClosing)
  8.         AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
  9.         Me.InitializeComponent
  10.     End Sub
  11.  
  12.     <DllImport("GDI32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
  13.     Private Shared Function BitBlt(ByVal srchDC As Integer, ByVal srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As Integer, ByVal op As Integer) As Integer
  14.     End Function
  15.  
  16.     Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
  17.         If Not Me.txtsteam.Text.Contains("Steam.exe") Then
  18.             MessageBox.Show("Seleccione o ficheiro Steam.exe !", "Nemesis AntiCheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  19.         Else
  20.             Dim str As String
  21.             Dim str7 As String
  22.             Dim utcNow As DateTime = DateTime.UtcNow
  23.             Dim str10 As String = Strings.LCase(Me.txtuser.Text)
  24.             Try
  25.                 ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  26.                 Dim request4 As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://loadigsp.net/registo/" & str10 & "/")), FtpWebRequest)
  27.                 request4.EnableSsl = True
  28.                 request4.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  29.                 request4.Method = "NLST"
  30.                 DirectCast(request4.GetResponse, FtpWebResponse).Close
  31.             Catch exception1 As Exception
  32.                 ProjectData.SetProjectError(exception1)
  33.                 Dim exception As Exception = exception1
  34.                 MessageBox.Show("O username inserido " & ChrW(233) & " inv" & ChrW(225) & "lido !", "Nemesis Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  35.                 ProjectData.ClearProjectError
  36.                 Return
  37.             End Try
  38.             Dim text As String = Me.txtpass.Text
  39.             Try
  40.                 ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  41.                 Dim request5 As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://loadigsp.net/registo/" & str10 & "/*.ini")), FtpWebRequest)
  42.                 request5.EnableSsl = True
  43.                 request5.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  44.                 request5.Method = "NLST"
  45.                 Dim response5 As FtpWebResponse = DirectCast(request5.GetResponse, FtpWebResponse)
  46.                 Dim str4 As String = New StreamReader(response5.GetResponseStream).ReadLine
  47.                 response5.Close
  48.                 str = Conversions.ToString(Strings.InStr(str4, ".", CompareMethod.Binary))
  49.                 str7 = Strings.Left(str4, CInt(Math.Round(CDbl((Conversions.ToDouble(str) - 1)))))
  50.             Catch exception4 As Exception
  51.                 ProjectData.SetProjectError(exception4)
  52.                 Dim exception2 As Exception = exception4
  53.                 MessageBox.Show("Preenche os campos de Login !", "Nemesis Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  54.                 ProjectData.ClearProjectError
  55.                 Return
  56.             End Try
  57.             If ([text] <> str7) Then
  58.                 MessageBox.Show("A password inserida relativamente ao username est" & ChrW(225) & " incorrecta !", "Nemesis Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  59.             Else
  60.                 Dim num2 As Long = Conversions.ToLong(Strings.Format(utcNow, "yyyyMMddHHmmss"))
  61.                 ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  62.                 Dim request2 As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://loadigsp.net/registo/" & str10 & "/*.mst")), FtpWebRequest)
  63.                 request2.EnableSsl = True
  64.                 request2.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  65.                 request2.Method = "NLST"
  66.                 Dim response2 As FtpWebResponse = DirectCast(request2.GetResponse, FtpWebResponse)
  67.                 Dim stringCheck As String = New StreamReader(response2.GetResponseStream).ReadLine
  68.                 response2.Close
  69.                 Dim str2 As String = Conversions.ToString(Strings.InStrRev(stringCheck, ".", -1, CompareMethod.Binary))
  70.                 Dim str3 As String = Strings.Left(stringCheck, CInt(Math.Round(CDbl((Conversions.ToDouble(str2) - 1)))))
  71.                 If (Conversions.ToDouble(str3) > num2) Then
  72.                     MessageBox.Show("A tua conta est" & ChrW(225) & " logada em outro Nemesis AntiCheat!" & ChrW(13) & ChrW(10) & "Tenta dentro de 1 minuto, e se este erro persistir entra em contacto connosco.", "Nemesis Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  73.                 Else
  74.                     ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  75.                     Dim request As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://loadigsp.net/registo/" & str10 & "/*.txt")), FtpWebRequest)
  76.                     request.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  77.                     request.EnableSsl = True
  78.                     request.Method = "NLST"
  79.                     Dim response As FtpWebResponse = DirectCast(request.GetResponse, FtpWebResponse)
  80.                     Dim str5 As String = New StreamReader(response.GetResponseStream).ReadLine
  81.                     response.Close
  82.                     Dim num As Integer = Strings.InStr(str5, ".", CompareMethod.Binary)
  83.                     Dim str8 As String = Strings.Left(str5, CInt(Math.Round(CDbl((Conversions.ToDouble(str) - 1)))))
  84.                     Dim num3 As Long = Conversions.ToLong(Strings.Format(DateAndTime.DateAdd("s", 60, utcNow), "yyyyMMddHHmmss"))
  85.                     ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  86.                     Dim request3 As FtpWebRequest = DirectCast(WebRequest.Create(String.Concat(New String() { "ftp://loadigsp.net/registo/", str10, "/", str3, ".mst" })), FtpWebRequest)
  87.                     request3.EnableSsl = True
  88.                     request3.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  89.                     request3.Method = "RENAME"
  90.                     request3.RenameTo = (Conversions.ToString(num3) & ".mst")
  91.                     DirectCast(request3.GetResponse, FtpWebResponse).Close
  92.                     Try
  93.                         If Me.CheckBox1.Checked Then
  94.                             Dim writer As New StreamWriter("C:Windowsuser.ini")
  95.                             writer.WriteLine(Me.txtuser.Text)
  96.                             writer.WriteLine(Me.txtpass.Text)
  97.                             writer.Close
  98.                         Else
  99.                             Dim writer2 As New StreamWriter("C:Windowsuser.ini")
  100.                             writer2.WriteLine("")
  101.                             writer2.WriteLine("")
  102.                             writer2.Close
  103.                         End If
  104.                         If Me.CheckBox2.Checked Then
  105.                             Dim writer3 As New StreamWriter("C:Windowssteam.ini")
  106.                             writer3.WriteLine(Me.txtsteam.Text)
  107.                             writer3.Close
  108.                         Else
  109.                             Dim writer4 As New StreamWriter("C:Windowssteam.ini")
  110.                             writer4.WriteLine("")
  111.                             writer4.Close
  112.                         End If
  113.                     Catch exception5 As Exception
  114.                         ProjectData.SetProjectError(exception5)
  115.                         Dim exception3 As Exception = exception5
  116.                         MessageBox.Show("Execute o AntiCheat como Administrador !", "Nemesis Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  117.                         Dim processesByName As Process() = Process.GetProcessesByName("Nemesis AntiCheat v2.1.3")
  118.                         If (processesByName.Length >= 1) Then
  119.                             Dim num5 As Integer = (processesByName.Length - 1)
  120.                             Dim i As Integer = 0
  121.                             Do While (i <= num5)
  122.                                 processesByName(i).Kill
  123.                                 i += 1
  124.                             Loop
  125.                         End If
  126.                         ProjectData.EndApp
  127.                         ProjectData.ClearProjectError
  128.                     End Try
  129.                     Me.Hide
  130.                     Me.NotifyIcon1.Visible = True
  131.                     MessageBox.Show("Login efectuado com sucesso!" & ChrW(13) & ChrW(10) & "Nota: N" & ChrW(227) & "o desligues o anti-cheat durante a gather ou ser" & ChrW(225) & "s kickado!", "Nemesis Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
  132.                     Me.Timer1.Start
  133.                     Me.Timer2.Start
  134.                 End If
  135.             End If
  136.         End If
  137.     End Sub
  138.  
  139.     Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
  140.         If Not Me.Label4.Visible Then
  141.             Me.Width = &H1BF
  142.             Me.Height = 370
  143.             Me.Label4.Visible = True
  144.         Else
  145.             Me.Width = &H1BF
  146.             Me.Height = &H103
  147.             Me.Label4.Visible = False
  148.         End If
  149.     End Sub
  150.  
  151.     Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
  152.         If (Me.OpenFileDialog1.ShowDialog = DialogResult.OK) Then
  153.             Me.txtsteam.Text = Me.OpenFileDialog1.FileName
  154.         End If
  155.     End Sub
  156.  
  157.     Protected Sub CapturarScreen()
  158.         Dim lpDriverName As String = "DISPLAY"
  159.         Dim lpDeviceName As String = ""
  160.         Dim lpOutput As String = ""
  161.         Dim lpInitData As String = ""
  162.         Dim hDC As Integer = Form1.CreateDC((lpDriverName), (lpDeviceName), (lpOutput), (lpInitData))
  163.         Dim num3 As Integer = Form1.CreateCompatibleDC(hDC)
  164.         Me.fw = Form1.GetDeviceCaps(hDC, 8)
  165.         Me.fh = Form1.GetDeviceCaps(hDC, 10)
  166.         Dim hObject As Integer = Form1.CreateCompatibleBitmap(hDC, Me.fw, Me.fh)
  167.         Dim num2 As Integer = Form1.SelectObject(num3, hObject)
  168.         Dim num5 As Integer = Form1.BitBlt(num3, 0, 0, Me.fw, Me.fh, hDC, 0, 0, &HCC0020)
  169.         hObject = Form1.SelectObject(num3, num2)
  170.         num5 = Form1.DeleteDC(hDC)
  171.         num5 = Form1.DeleteDC(num3)
  172.         Dim hbitmap As New IntPtr(hObject)
  173.         Me.Background = Image.FromHbitmap(hbitmap)
  174.         Form1.DeleteObject(hObject)
  175.     End Sub
  176.  
  177.     Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
  178.         Try
  179.             If Me.CheckBox1.Checked Then
  180.                 Dim reader As New StreamReader("C:Windowsuser.ini")
  181.                 Me.txtuser.Text = reader.ReadLine
  182.                 Me.txtpass.Text = reader.ReadLine
  183.                 reader.Close
  184.             Else
  185.                 Me.txtuser.ResetText
  186.                 Me.txtpass.ResetText
  187.             End If
  188.         Catch exception1 As Exception
  189.             ProjectData.SetProjectError(exception1)
  190.             Dim exception As Exception = exception1
  191.             MessageBox.Show("Execute o Anticheat como Administrador !", "Nemesis Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  192.             Dim processesByName As Process() = Process.GetProcessesByName("Nemesis AntiCheat v2.1.3")
  193.             If (processesByName.Length >= 1) Then
  194.                 Dim num2 As Integer = (processesByName.Length - 1)
  195.                 Dim i As Integer = 0
  196.                 Do While (i <= num2)
  197.                     processesByName(i).Kill
  198.                     i += 1
  199.                 Loop
  200.             End If
  201.             ProjectData.EndApp
  202.             ProjectData.ClearProjectError
  203.         End Try
  204.     End Sub
  205.  
  206.     Private Sub CheckBox2_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
  207.         Try
  208.             If Me.CheckBox2.Checked Then
  209.                 Dim reader As New StreamReader("C:Windowssteam.ini")
  210.                 Me.txtsteam.Text = reader.ReadLine
  211.                 reader.Close
  212.             Else
  213.                 Me.txtsteam.ResetText
  214.             End If
  215.         Catch exception1 As Exception
  216.             ProjectData.SetProjectError(exception1)
  217.             Dim exception As Exception = exception1
  218.             MessageBox.Show("Execute o Anticheat como Administrador !", "Nemesis Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  219.             Dim processesByName As Process() = Process.GetProcessesByName("Nemesis AntiCheat v2.1.3")
  220.             If (processesByName.Length >= 1) Then
  221.                 Dim num2 As Integer = (processesByName.Length - 1)
  222.                 Dim i As Integer = 0
  223.                 Do While (i <= num2)
  224.                     processesByName(i).Kill
  225.                     i += 1
  226.                 Loop
  227.             End If
  228.             ProjectData.EndApp
  229.             ProjectData.ClearProjectError
  230.         End Try
  231.     End Sub
  232.  
  233.     <DllImport("GDI32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
  234.     Private Shared Function CreateCompatibleBitmap(ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
  235.     End Function
  236.  
  237.     <DllImport("GDI32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
  238.     Private Shared Function CreateCompatibleDC(ByVal hDC As Integer) As Integer
  239.     End Function
  240.  
  241.     <DllImport("gdi32", EntryPoint:="CreateDCA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
  242.     Private Shared Function CreateDC(<MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpDriverName As String, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpDeviceName As String, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpOutput As String, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpInitData As String) As Integer
  243.     End Function
  244.  
  245.     <DllImport("GDI32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
  246.     Private Shared Function DeleteDC(ByVal hDC As Integer) As Integer
  247.     End Function
  248.  
  249.     <DllImport("GDI32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
  250.     Private Shared Function DeleteObject(ByVal hObj As Integer) As Integer
  251.     End Function
  252.  
  253.     <DebuggerNonUserCode> _
  254.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
  255.         Try
  256.             If (disposing AndAlso (Not Me.components Is Nothing)) Then
  257.                 Me.components.Dispose
  258.             End If
  259.         Finally
  260.             MyBase.Dispose(disposing)
  261.         End Try
  262.     End Sub
  263.  
  264.     Private Sub EntrarNoSiteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
  265.         Process.Start("http://gathers.loadigsp.net")
  266.     End Sub
  267.  
  268.     Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
  269.         Dim str4 As String = Strings.LCase(Me.txtuser.Text)
  270.         Try
  271.             ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  272.             Dim request As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://loadigsp.net/registo/" & str4 & "/*.mst")), FtpWebRequest)
  273.             request.EnableSsl = True
  274.             request.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  275.             request.Method = "NLST"
  276.             Dim response As FtpWebResponse = DirectCast(request.GetResponse, FtpWebResponse)
  277.             Dim stringCheck As String = New StreamReader(response.GetResponseStream).ReadLine
  278.             response.Close
  279.             Dim str As String = Conversions.ToString(Strings.InStrRev(stringCheck, ".", -1, CompareMethod.Binary))
  280.             Dim str2 As String = Strings.Left(stringCheck, CInt(Math.Round(CDbl((Conversions.ToDouble(str) - 1)))))
  281.             ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  282.             Dim request2 As FtpWebRequest = DirectCast(WebRequest.Create(String.Concat(New String() { "ftp://loadigsp.net/registo/", str4, "/", str2, ".mst" })), FtpWebRequest)
  283.             request2.EnableSsl = True
  284.             request2.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  285.             request2.Method = "RENAME"
  286.             request2.RenameTo = "0000.mst"
  287.             DirectCast(request2.GetResponse, FtpWebResponse).Close
  288.             Me.NotifyIcon1.Visible = False
  289.             Dim processesByName As Process() = Process.GetProcessesByName("Nemesis AntiCheat v2.1.3")
  290.             If (processesByName.Length >= 1) Then
  291.                 Dim num2 As Integer = (processesByName.Length - 1)
  292.                 Dim i As Integer = 0
  293.                 Do While (i <= num2)
  294.                     processesByName(i).Kill
  295.                     i += 1
  296.                 Loop
  297.             End If
  298.             ProjectData.EndApp
  299.         Catch exception1 As Exception
  300.             ProjectData.SetProjectError(exception1)
  301.             Dim exception As Exception = exception1
  302.             ProjectData.EndApp
  303.             ProjectData.ClearProjectError
  304.         End Try
  305.     End Sub
  306.  
  307.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
  308.         Try
  309.             If Me.CheckBox1.Checked Then
  310.                 Dim reader As New StreamReader("C:Windowsuser.ini")
  311.                 Me.txtuser.Text = reader.ReadLine
  312.                 Me.txtpass.Text = reader.ReadLine
  313.                 reader.Close
  314.             End If
  315.             If Me.CheckBox2.Checked Then
  316.                 Dim reader2 As New StreamReader("C:Windowssteam.ini")
  317.                 Me.txtsteam.Text = reader2.ReadLine
  318.                 reader2.Close
  319.             End If
  320.         Catch exception1 As Exception
  321.             ProjectData.SetProjectError(exception1)
  322.             Dim exception As Exception = exception1
  323.             MessageBox.Show("Execute o Anticheat como Administrador !", "Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  324.             Dim processesByName As Process() = Process.GetProcessesByName("Nemesis AntiCheat v2.1.3")
  325.             If (processesByName.Length >= 1) Then
  326.                 Dim num2 As Integer = (processesByName.Length - 1)
  327.                 Dim i As Integer = 0
  328.                 Do While (i <= num2)
  329.                     processesByName(i).Kill
  330.                     i += 1
  331.                 Loop
  332.             End If
  333.             ProjectData.EndApp
  334.             ProjectData.ClearProjectError
  335.         End Try
  336.     End Sub
  337.  
  338.     <DllImport("gdi32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
  339.     Private Shared Function GetDeviceCaps(ByVal hdc As Integer, ByVal nIndex As Integer) As Integer
  340.     End Function
  341.  
  342.     Private Sub InfoToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
  343.         MessageBox.Show("O Nemesis Anticheat foi desenvolvido por -B1G#B0Y- para as Gathers LoadiGSP, n" & ChrW(227) & "o podendo ser usado para outros meios, fins, comunidades, institui" & ChrW(231) & ChrW(245) & "es ou quaisqueres outras entidades / actividades que n" & ChrW(227) & "o as relacionadas com as Gathers LoadiGSP.net!", "Nemesis Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
  344.     End Sub
  345.  
  346.     <DebuggerStepThrough> _
  347.     Private Sub InitializeComponent()
  348.         Me.components = New Container
  349.         Dim manager As New ComponentResourceManager(GetType(Form1))
  350.         Me.Button2 = New Button
  351.         Me.PictureBox2 = New PictureBox
  352.         Me.CheckBox1 = New CheckBox
  353.         Me.txtuser = New TextBox
  354.         Me.Label3 = New Label
  355.         Me.Label1 = New Label
  356.         Me.Button1 = New Button
  357.         Me.txtpass = New TextBox
  358.         Me.Label2 = New Label
  359.         Me.Label5 = New Label
  360.         Me.Label4 = New Label
  361.         Me.txtsteam = New TextBox
  362.         Me.CheckBox2 = New CheckBox
  363.         Me.ContextMenuStrip1 = New ContextMenuStrip(Me.components)
  364.         Me.ToolStripMenuItem1 = New ToolStripMenuItem
  365.         Me.ToolStripSeparator2 = New ToolStripSeparator
  366.         Me.EntrarNoSiteToolStripMenuItem = New ToolStripMenuItem
  367.         Me.InfoToolStripMenuItem = New ToolStripMenuItem
  368.         Me.ToolStripSeparator1 = New ToolStripSeparator
  369.         Me.SairToolStripMenuItem = New ToolStripMenuItem
  370.         Me.Timer2 = New Timer(Me.components)
  371.         Me.NotifyIcon1 = New NotifyIcon(Me.components)
  372.         Me.Timer1 = New Timer(Me.components)
  373.         Me.Button3 = New Button
  374.         Me.OpenFileDialog1 = New OpenFileDialog
  375.         DirectCast(Me.PictureBox2, ISupportInitialize).BeginInit
  376.         Me.ContextMenuStrip1.SuspendLayout
  377.         Me.SuspendLayout
  378.         Me.Button2.FlatStyle = FlatStyle.Popup
  379.         Me.Button2.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  380.         Me.Button2.ForeColor = Color.DarkCyan
  381.         Dim point As New Point(1, &HD0)
  382.         Me.Button2.Location = point
  383.         Me.Button2.Name = "Button2"
  384.         Dim size As New Size(&H1B7, &H15)
  385.         Me.Button2.Size = size
  386.         Me.Button2.TabIndex = 30
  387.         Me.Button2.Text = "Clique aqui para Indicar / Modificar a Localiza" & ChrW(231) & ChrW(227) & "o do ficheiro Steam.exe"
  388.         Me.Button2.UseVisualStyleBackColor = True
  389.         Me.PictureBox2.Image = DirectCast(manager.GetObject("PictureBox2.Image"), Image)
  390.         point = New Point(-4, -2)
  391.         Me.PictureBox2.Location = point
  392.         Me.PictureBox2.Name = "PictureBox2"
  393.         size = New Size(&H1C3, &H4C)
  394.         Me.PictureBox2.Size = size
  395.         Me.PictureBox2.TabIndex = &H1D
  396.         Me.PictureBox2.TabStop = False
  397.         Me.CheckBox1.AutoSize = True
  398.         Me.CheckBox1.BackColor = Color.Transparent
  399.         Me.CheckBox1.Checked = True
  400.         Me.CheckBox1.CheckState = CheckState.Checked
  401.         Me.CheckBox1.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  402.         Me.CheckBox1.ForeColor = Color.DarkCyan
  403.         point = New Point(&HA4, &H88)
  404.         Me.CheckBox1.Location = point
  405.         Me.CheckBox1.Name = "CheckBox1"
  406.         size = New Size(160, &H11)
  407.         Me.CheckBox1.Size = size
  408.         Me.CheckBox1.TabIndex = &H1C
  409.         Me.CheckBox1.Text = "Guardar dados do login"
  410.         Me.CheckBox1.UseVisualStyleBackColor = False
  411.         Me.txtuser.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  412.         Me.txtuser.ForeColor = Color.DarkCyan
  413.         point = New Point(&H7B, &H57)
  414.         Me.txtuser.Location = point
  415.         Me.txtuser.MaxLength = &H11
  416.         Me.txtuser.Name = "txtuser"
  417.         size = New Size(250, &H15)
  418.         Me.txtuser.Size = size
  419.         Me.txtuser.TabIndex = &H18
  420.         Me.Label3.AutoSize = True
  421.         Me.Label3.BackColor = Color.Transparent
  422.         Me.Label3.Cursor = Cursors.Hand
  423.         Me.Label3.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  424.         Me.Label3.ForeColor = Color.Blue
  425.         point = New Point(&H114, 190)
  426.         Me.Label3.Location = point
  427.         Me.Label3.Name = "Label3"
  428.         size = New Size(&HA5, 13)
  429.         Me.Label3.Size = size
  430.         Me.Label3.TabIndex = &H1B
  431.         Me.Label3.Text = "Esqueceu-se da password ?"
  432.         Me.Label1.AutoSize = True
  433.         Me.Label1.BackColor = Color.Transparent
  434.         Me.Label1.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  435.         Me.Label1.ForeColor = Color.DarkCyan
  436.         point = New Point(&H2D, 90)
  437.         Me.Label1.Location = point
  438.         Me.Label1.Name = "Label1"
  439.         size = New Size(&H4A, 13)
  440.         Me.Label1.Size = size
  441.         Me.Label1.TabIndex = &H16
  442.         Me.Label1.Text = "Username :"
  443.         Me.Button1.BackColor = Color.White
  444.         Me.Button1.FlatStyle = FlatStyle.Popup
  445.         Me.Button1.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  446.         Me.Button1.ForeColor = Color.DarkCyan
  447.         point = New Point(&HA4, &H9F)
  448.         Me.Button1.Location = point
  449.         Me.Button1.Name = "Button1"
  450.         size = New Size(160, &H17)
  451.         Me.Button1.Size = size
  452.         Me.Button1.TabIndex = &H1A
  453.         Me.Button1.Text = "Entrar"
  454.         Me.Button1.UseVisualStyleBackColor = False
  455.         Me.txtpass.ForeColor = Color.DarkCyan
  456.         point = New Point(&H7B, &H71)
  457.         Me.txtpass.Location = point
  458.         Me.txtpass.MaxLength = 50
  459.         Me.txtpass.Name = "txtpass"
  460.         Me.txtpass.PasswordChar = ChrW(9679)
  461.         size = New Size(250, 20)
  462.         Me.txtpass.Size = size
  463.         Me.txtpass.TabIndex = &H19
  464.         Me.Label2.AutoSize = True
  465.         Me.Label2.BackColor = Color.Transparent
  466.         Me.Label2.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  467.         Me.Label2.ForeColor = Color.DarkCyan
  468.         point = New Point(&H31, &H74)
  469.         Me.Label2.Location = point
  470.         Me.Label2.Name = "Label2"
  471.         size = New Size(70, 13)
  472.         Me.Label2.Size = size
  473.         Me.Label2.TabIndex = &H17
  474.         Me.Label2.Text = "Password :"
  475.         Me.Label5.AutoSize = True
  476.         Me.Label5.BackColor = Color.Transparent
  477.         Me.Label5.Cursor = Cursors.Hand
  478.         Me.Label5.Font = New Font("Verdana", 8.25!, (FontStyle.Underline Or FontStyle.Italic), GraphicsUnit.Point, 0)
  479.         Me.Label5.ForeColor = Color.Blue
  480.         point = New Point(&H12, &H125)
  481.         Me.Label5.Location = point
  482.         Me.Label5.Name = "Label5"
  483.         size = New Size(&H195, 13)
  484.         Me.Label5.Size = size
  485.         Me.Label5.TabIndex = &H22
  486.         Me.Label5.Text = "Clique aqui para ver o exemplo de como seleccionar o ficheiro Steam"
  487.         Me.Label4.AutoSize = True
  488.         Me.Label4.BackColor = Color.Transparent
  489.         Me.Label4.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  490.         Me.Label4.ForeColor = Color.DarkCyan
  491.         point = New Point(&H18, &HF1)
  492.         Me.Label4.Location = point
  493.         Me.Label4.Name = "Label4"
  494.         size = New Size(&H7E, 13)
  495.         Me.Label4.Size = size
  496.         Me.Label4.TabIndex = &H21
  497.         Me.Label4.Text = "Caminho da Steam :"
  498.         Me.Label4.Visible = False
  499.         Me.txtsteam.ForeColor = Color.DarkCyan
  500.         point = New Point(&H9A, &HEE)
  501.         Me.txtsteam.Location = point
  502.         Me.txtsteam.MaxLength = 50
  503.         Me.txtsteam.Name = "txtsteam"
  504.         Me.txtsteam.ReadOnly = True
  505.         size = New Size(250, 20)
  506.         Me.txtsteam.Size = size
  507.         Me.txtsteam.TabIndex = &H20
  508.         Me.CheckBox2.AutoSize = True
  509.         Me.CheckBox2.BackColor = Color.Transparent
  510.         Me.CheckBox2.Checked = True
  511.         Me.CheckBox2.CheckState = CheckState.Checked
  512.         Me.CheckBox2.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  513.         Me.CheckBox2.ForeColor = Color.DarkCyan
  514.         point = New Point(&HAB, &H13D)
  515.         Me.CheckBox2.Location = point
  516.         Me.CheckBox2.Name = "CheckBox2"
  517.         size = New Size(&HB8, &H11)
  518.         Me.CheckBox2.Size = size
  519.         Me.CheckBox2.TabIndex = &H1F
  520.         Me.CheckBox2.Text = "Guardar caminho da Steam"
  521.         Me.CheckBox2.UseVisualStyleBackColor = False
  522.         Me.ContextMenuStrip1.BackgroundImage = DirectCast(manager.GetObject("ContextMenuStrip1.BackgroundImage"), Image)
  523.         Me.ContextMenuStrip1.Items.AddRange(New ToolStripItem() { Me.ToolStripMenuItem1, Me.ToolStripSeparator2, Me.EntrarNoSiteToolStripMenuItem, Me.InfoToolStripMenuItem, Me.ToolStripSeparator1, Me.SairToolStripMenuItem })
  524.         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
  525.         Me.ContextMenuStrip1.ShowImageMargin = False
  526.         size = New Size(&H9D, &H68)
  527.         Me.ContextMenuStrip1.Size = size
  528.         Me.ToolStripMenuItem1.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  529.         Me.ToolStripMenuItem1.ForeColor = Color.DarkCyan
  530.         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
  531.         size = New Size(&H9C, &H16)
  532.         Me.ToolStripMenuItem1.Size = size
  533.         Me.ToolStripMenuItem1.Text = "Entrar na Gather!"
  534.         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
  535.         size = New Size(&H99, 6)
  536.         Me.ToolStripSeparator2.Size = size
  537.         Me.EntrarNoSiteToolStripMenuItem.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  538.         Me.EntrarNoSiteToolStripMenuItem.ForeColor = Color.DarkCyan
  539.         Me.EntrarNoSiteToolStripMenuItem.Name = "EntrarNoSiteToolStripMenuItem"
  540.         size = New Size(&H9C, &H16)
  541.         Me.EntrarNoSiteToolStripMenuItem.Size = size
  542.         Me.EntrarNoSiteToolStripMenuItem.Text = "Entrar no Site"
  543.         Me.InfoToolStripMenuItem.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  544.         Me.InfoToolStripMenuItem.ForeColor = Color.DarkCyan
  545.         Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
  546.         size = New Size(&H9C, &H16)
  547.         Me.InfoToolStripMenuItem.Size = size
  548.         Me.InfoToolStripMenuItem.Text = "Info"
  549.         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
  550.         size = New Size(&H99, 6)
  551.         Me.ToolStripSeparator1.Size = size
  552.         Me.SairToolStripMenuItem.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, 0)
  553.         Me.SairToolStripMenuItem.ForeColor = Color.DarkCyan
  554.         Me.SairToolStripMenuItem.Name = "SairToolStripMenuItem"
  555.         size = New Size(&H9C, &H16)
  556.         Me.SairToolStripMenuItem.Size = size
  557.         Me.SairToolStripMenuItem.Text = "Sair"
  558.         Me.Timer2.Interval = &H7530
  559.         Me.NotifyIcon1.ContextMenuStrip = Me.ContextMenuStrip1
  560.         Me.NotifyIcon1.Icon = DirectCast(manager.GetObject("NotifyIcon1.Icon"), Icon)
  561.         Me.NotifyIcon1.Text = "Nemesis AntiCheat v2.1.3"
  562.         Me.Timer1.Interval = &H15F90
  563.         Me.Button3.FlatStyle = FlatStyle.Flat
  564.         Me.Button3.ForeColor = Color.DarkCyan
  565.         point = New Point(&H9A, &H105)
  566.         Me.Button3.Location = point
  567.         Me.Button3.Name = "Button3"
  568.         size = New Size(250, &H17)
  569.         Me.Button3.Size = size
  570.         Me.Button3.TabIndex = &H23
  571.         Me.Button3.Text = "Clique aqui para seleccionar o ficheiro Steam.exe"
  572.         Me.Button3.UseVisualStyleBackColor = True
  573.         Me.OpenFileDialog1.FileName = "Procure o ficheiro Steam"
  574.         Me.OpenFileDialog1.Filter = "Execut" & ChrW(225) & "veis(.exe)|*.exe"
  575.         Me.OpenFileDialog1.Title = "Nemesis AntiCheat"
  576.         Dim ef As New SizeF(6!, 13!)
  577.         Me.AutoScaleDimensions = ef
  578.         Me.AutoScaleMode = AutoScaleMode.Font
  579.         Me.BackgroundImage = DirectCast(manager.GetObject("$this.BackgroundImage"), Image)
  580.         size = New Size(&H1B9, &HE5)
  581.         Me.ClientSize = size
  582.         Me.Controls.Add(Me.Label4)
  583.         Me.Controls.Add(Me.txtsteam)
  584.         Me.Controls.Add(Me.Button3)
  585.         Me.Controls.Add(Me.Label5)
  586.         Me.Controls.Add(Me.CheckBox2)
  587.         Me.Controls.Add(Me.Button2)
  588.         Me.Controls.Add(Me.PictureBox2)
  589.         Me.Controls.Add(Me.CheckBox1)
  590.         Me.Controls.Add(Me.txtuser)
  591.         Me.Controls.Add(Me.Label3)
  592.         Me.Controls.Add(Me.Label1)
  593.         Me.Controls.Add(Me.Button1)
  594.         Me.Controls.Add(Me.txtpass)
  595.         Me.Controls.Add(Me.Label2)
  596.         Me.FormBorderStyle = FormBorderStyle.FixedSingle
  597.         Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
  598.         Me.MaximizeBox = False
  599.         Me.Name = "Form1"
  600.         Me.StartPosition = FormStartPosition.CenterScreen
  601.         Me.Text = "Nemesis AntiCheat v2.1.3"
  602.         DirectCast(Me.PictureBox2, ISupportInitialize).EndInit
  603.         Me.ContextMenuStrip1.ResumeLayout(False)
  604.         Me.ResumeLayout(False)
  605.         Me.PerformLayout
  606.     End Sub
  607.  
  608.     Private Sub Label3_Click(ByVal sender As Object, ByVal e As EventArgs)
  609.         Process.Start("http://gathers.loadigsp.net/?p=recuperar")
  610.         Me.txtuser.ResetText
  611.         Me.txtpass.ResetText
  612.     End Sub
  613.  
  614.     Private Sub Label5_Click(ByVal sender As Object, ByVal e As EventArgs)
  615.         Process.Start("http://gathers.loadigsp.net/steam.png")
  616.     End Sub
  617.  
  618.     Private Sub SairToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
  619.         Dim str4 As String = Strings.LCase(Me.txtuser.Text)
  620.         Try
  621.             ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  622.             Dim request As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://loadigsp.net/registo/" & str4 & "/*.mst")), FtpWebRequest)
  623.             request.EnableSsl = True
  624.             request.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  625.             request.Method = "NLST"
  626.             Dim response As FtpWebResponse = DirectCast(request.GetResponse, FtpWebResponse)
  627.             Dim stringCheck As String = New StreamReader(response.GetResponseStream).ReadLine
  628.             response.Close
  629.             Dim str As String = Conversions.ToString(Strings.InStrRev(stringCheck, ".", -1, CompareMethod.Binary))
  630.             Dim str2 As String = Strings.Left(stringCheck, CInt(Math.Round(CDbl((Conversions.ToDouble(str) - 1)))))
  631.             ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  632.             Dim request2 As FtpWebRequest = DirectCast(WebRequest.Create(String.Concat(New String() { "ftp://loadigsp.net/registo/", str4, "/", str2, ".mst" })), FtpWebRequest)
  633.             request2.EnableSsl = True
  634.             request2.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  635.             request2.Method = "RENAME"
  636.             request2.RenameTo = "0000.mst"
  637.             DirectCast(request2.GetResponse, FtpWebResponse).Close
  638.             Me.NotifyIcon1.Visible = False
  639.             Dim processesByName As Process() = Process.GetProcessesByName("Nemesis AntiCheat v2.1.3")
  640.             If (processesByName.Length >= 1) Then
  641.                 Dim num2 As Integer = (processesByName.Length - 1)
  642.                 Dim i As Integer = 0
  643.                 Do While (i <= num2)
  644.                     processesByName(i).Kill
  645.                     i += 1
  646.                 Loop
  647.             End If
  648.             ProjectData.EndApp
  649.         Catch exception1 As Exception
  650.             ProjectData.SetProjectError(exception1)
  651.             Dim exception As Exception = exception1
  652.             ProjectData.EndApp
  653.             ProjectData.ClearProjectError
  654.         End Try
  655.     End Sub
  656.  
  657.     <DllImport("GDI32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
  658.     Private Shared Function SelectObject(ByVal hDC As Integer, ByVal hObject As Integer) As Integer
  659.     End Function
  660.  
  661.     Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
  662.         Dim str3 As String = Strings.LCase(Me.txtuser.Text)
  663.         Dim utcNow As DateTime = DateTime.UtcNow
  664.         Try
  665.             ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  666.             Dim request As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://loadigsp.net/registo/" & str3 & "/*.txt")), FtpWebRequest)
  667.             request.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  668.             request.EnableSsl = True
  669.             request.Method = "NLST"
  670.             Dim response As FtpWebResponse = DirectCast(request.GetResponse, FtpWebResponse)
  671.             Dim str As String = New StreamReader(response.GetResponseStream).ReadLine
  672.             response.Close
  673.             Dim num As Integer = Strings.InStr(str, ".", CompareMethod.Binary)
  674.             Dim str2 As String = Strings.Left(str, (num - 1))
  675.             Dim num2 As Long = Conversions.ToLong(Strings.Format(utcNow, "yyyyMMddHHmmss"))
  676.             ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  677.             Dim request2 As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://loadigsp.net/registo/" & str3 & "/*.doc")), FtpWebRequest)
  678.             request2.EnableSsl = True
  679.             request2.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  680.             request2.Method = "NLST"
  681.             Dim response2 As FtpWebResponse = DirectCast(request2.GetResponse, FtpWebResponse)
  682.             Dim str6 As String = New StreamReader(response2.GetResponseStream).ReadLine
  683.             response2.Close
  684.             Dim str4 As String = Conversions.ToString(Strings.InStr(str6, ".", CompareMethod.Binary))
  685.             If (Conversions.ToDouble(Strings.Left(str6, CInt(Math.Round(CDbl((Conversions.ToDouble(str4) - 1)))))) > num2) Then
  686.                 If (Process.GetProcessesByName("hl").Length >= 1) Then
  687.                     Me.CapturarScreen
  688.                     Dim image As New Bitmap(Me.Background)
  689.                     Dim bitmap As New Bitmap(300, 300)
  690.                     Dim graphics As Graphics = Graphics.FromImage(bitmap)
  691.                     graphics.InterpolationMode = InterpolationMode.Low
  692.                     Dim rect As New Rectangle(0, 0, bitmap.Width, bitmap.Height)
  693.                     graphics.DrawImage(image, rect)
  694.                     Dim filename As String = String.Concat(New String() { "", str3, Conversions.ToString(utcNow.Hour), Conversions.ToString(utcNow.Minute), ".jpeg" })
  695.                     bitmap.Save(filename)
  696.                     ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  697.                     Dim request3 As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://screenshots.loadi.net/pics/" & filename)), FtpWebRequest)
  698.                     request3.Credentials = New NetworkCredential("screensh", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  699.                     request3.EnableSsl = True
  700.                     request3.Method = "STOR"
  701.                     Dim buffer As Byte() = File.ReadAllBytes(("C:" & filename))
  702.                     Dim requestStream As Stream = request3.GetRequestStream
  703.                     requestStream.Write(buffer, 0, buffer.Length)
  704.                     requestStream.Close
  705.                     requestStream.Dispose
  706.                     File.Delete(filename)
  707.                 End If
  708.             Else
  709.                 response2.Close
  710.             End If
  711.         Catch exception1 As Exception
  712.             ProjectData.SetProjectError(exception1)
  713.             Dim exception As Exception = exception1
  714.             MessageBox.Show("Erro ao tentar conectar ao servidor !" & ChrW(13) & ChrW(10) & "O AntiCheat ir" & ChrW(225) & " ser encerrado, tente novamente mais tarde." & ChrW(13) & ChrW(10) & "Contacte o administrador para mais informa" & ChrW(231) & ChrW(245) & "es.", "Nemesis AntiCheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  715.             ProjectData.EndApp
  716.             ProjectData.ClearProjectError
  717.         End Try
  718.     End Sub
  719.  
  720.     Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
  721.         Dim str4 As String = Strings.LCase(Me.txtuser.Text)
  722.         Dim utcNow As DateTime = DateTime.UtcNow
  723.         Dim num As Long = Conversions.ToLong(Strings.Format(utcNow, "yyyyMMddHHmmss"))
  724.         Try
  725.             ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  726.             Dim request As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://loadigsp.net/registo/" & str4 & "/*.mst")), FtpWebRequest)
  727.             request.EnableSsl = True
  728.             request.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  729.             request.Method = "NLST"
  730.             Dim response As FtpWebResponse = DirectCast(request.GetResponse, FtpWebResponse)
  731.             Dim stringCheck As String = New StreamReader(response.GetResponseStream).ReadLine
  732.             response.Close
  733.             Dim str As String = Conversions.ToString(Strings.InStrRev(stringCheck, ".", -1, CompareMethod.Binary))
  734.             Dim str2 As String = Strings.Left(stringCheck, CInt(Math.Round(CDbl((Conversions.ToDouble(str) - 1)))))
  735.             Dim num2 As Long = Conversions.ToLong(Strings.Format(DateAndTime.DateAdd("s", 60, utcNow), "yyyyMMddHHmmss"))
  736.             ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  737.             Dim request2 As FtpWebRequest = DirectCast(WebRequest.Create(String.Concat(New String() { "ftp://loadigsp.net/registo/", str4, "/", str2, ".mst" })), FtpWebRequest)
  738.             request2.EnableSsl = True
  739.             request2.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  740.             request2.Method = "RENAME"
  741.             request2.RenameTo = (Conversions.ToString(num2) & ".mst")
  742.             DirectCast(request2.GetResponse, FtpWebResponse).Close
  743.         Catch exception1 As Exception
  744.             ProjectData.SetProjectError(exception1)
  745.             Dim exception As Exception = exception1
  746.             MessageBox.Show("Erro ao tentar conectar ao servidor !" & ChrW(13) & ChrW(10) & "O AntiCheat ir" & ChrW(225) & " ser encerrado, tente novamente mais tarde." & ChrW(13) & ChrW(10) & "Contacte o administrador para mais informa" & ChrW(231) & ChrW(245) & "es.", "Nemesis AntiCheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  747.             ProjectData.EndApp
  748.             ProjectData.ClearProjectError
  749.         End Try
  750.     End Sub
  751.  
  752.     Private Sub ToolStripMenuItem1_Click(ByVal sender As Object, ByVal e As EventArgs)
  753.         Dim str As String = Strings.LCase(Me.txtuser.Text)
  754.         Try
  755.             ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf Me.validateCert)
  756.             Dim request As FtpWebRequest = DirectCast(WebRequest.Create(("ftp://loadigsp.net/registo/" & str & "/")), FtpWebRequest)
  757.             request.Credentials = New NetworkCredential("gathers@loadigsp.net", "qfO1chVxxA9THNwQIF9OVdl8Xz9gITnXJgKy")
  758.             request.EnableSsl = True
  759.             request.Method = "NLST"
  760.             Dim response As FtpWebResponse = DirectCast(request.GetResponse, FtpWebResponse)
  761.             Dim str3 As String = New StreamReader(response.GetResponseStream).ReadLine
  762.             response.Close
  763.             Dim str4 As String = str3
  764.             If (str4 = ".") Then
  765.                 MessageBox.Show("De momento n" & ChrW(227) & "o est" & ChrW(225) & "s em nenhuma gather para te conectares " & ChrW(224) & " mesma !", "Nemesis Anticheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  766.             Else
  767.                 Dim processesByName As Process() = Process.GetProcessesByName("hl")
  768.                 If (processesByName.Length >= 1) Then
  769.                     Dim num2 As Integer = (processesByName.Length - 1)
  770.                     Dim i As Integer = 0
  771.                     Do While (i <= num2)
  772.                         processesByName(i).Kill
  773.                         i += 1
  774.                     Loop
  775.                 End If
  776.                 Process.Start(Me.txtsteam.Text, ("-applaunch 10 -32bpp " & str4))
  777.             End If
  778.         Catch exception1 As Exception
  779.             ProjectData.SetProjectError(exception1)
  780.             Dim exception As Exception = exception1
  781.             MessageBox.Show("Erro ao tentar conectar ao servidor !" & ChrW(13) & ChrW(10) & "O AntiCheat ir" & ChrW(225) & " ser encerrado, tente novamente mais tarde." & ChrW(13) & ChrW(10) & "Contacte o administrador para mais informa" & ChrW(231) & ChrW(245) & "es.", "Nemesis AntiCheat", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  782.             ProjectData.EndApp
  783.             ProjectData.ClearProjectError
  784.         End Try
  785.     End Sub
  786.  
  787.     Public Function validateCert(ByVal sender As Object, ByVal certificate As X509Certificate, ByVal chain As X509Chain, ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
  788.         Return True
  789.     End Function
  790.  
  791.  
  792.     ' Properties
  793.     Friend Overridable Property Button1 As Button
  794.         Get
  795.             Return Me._Button1
  796.         End Get
  797.         Set(ByVal WithEventsValue As Button)
  798.             Dim handler As EventHandler = New EventHandler(AddressOf Me.Button1_Click)
  799.             If (Not Me._Button1 Is Nothing) Then
  800.                 RemoveHandler Me._Button1.Click, handler
  801.             End If
  802.             Me._Button1 = WithEventsValue
  803.             If (Not Me._Button1 Is Nothing) Then
  804.                 AddHandler Me._Button1.Click, handler
  805.             End If
  806.         End Set
  807.     End Property
  808.  
  809.     Friend Overridable Property Button2 As Button
  810.         Get
  811.             Return Me._Button2
  812.         End Get
  813.         Set(ByVal WithEventsValue As Button)
  814.             Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)
  815.             If (Not Me._Button2 Is Nothing) Then
  816.                 RemoveHandler Me._Button2.Click, handler
  817.             End If
  818.             Me._Button2 = WithEventsValue
  819.             If (Not Me._Button2 Is Nothing) Then
  820.                 AddHandler Me._Button2.Click, handler
  821.             End If
  822.         End Set
  823.     End Property
  824.  
  825.     Friend Overridable Property Button3 As Button
  826.         Get
  827.             Return Me._Button3
  828.         End Get
  829.         Set(ByVal WithEventsValue As Button)
  830.             Dim handler As EventHandler = New EventHandler(AddressOf Me.Button3_Click)
  831.             If (Not Me._Button3 Is Nothing) Then
  832.                 RemoveHandler Me._Button3.Click, handler
  833.             End If
  834.             Me._Button3 = WithEventsValue
  835.             If (Not Me._Button3 Is Nothing) Then
  836.                 AddHandler Me._Button3.Click, handler
  837.             End If
  838.         End Set
  839.     End Property
  840.  
  841.     Friend Overridable Property CheckBox1 As CheckBox
  842.         Get
  843.             Return Me._CheckBox1
  844.         End Get
  845.         Set(ByVal WithEventsValue As CheckBox)
  846.             Dim handler As EventHandler = New EventHandler(AddressOf Me.CheckBox1_CheckedChanged)
  847.             If (Not Me._CheckBox1 Is Nothing) Then
  848.                 RemoveHandler Me._CheckBox1.CheckedChanged, handler
  849.             End If
  850.             Me._CheckBox1 = WithEventsValue
  851.             If (Not Me._CheckBox1 Is Nothing) Then
  852.                 AddHandler Me._CheckBox1.CheckedChanged, handler
  853.             End If
  854.         End Set
  855.     End Property
  856.  
  857.     Friend Overridable Property CheckBox2 As CheckBox
  858.         Get
  859.             Return Me._CheckBox2
  860.         End Get
  861.         Set(ByVal WithEventsValue As CheckBox)
  862.             Dim handler As EventHandler = New EventHandler(AddressOf Me.CheckBox2_CheckedChanged)
  863.             If (Not Me._CheckBox2 Is Nothing) Then
  864.                 RemoveHandler Me._CheckBox2.CheckedChanged, handler
  865.             End If
  866.             Me._CheckBox2 = WithEventsValue
  867.             If (Not Me._CheckBox2 Is Nothing) Then
  868.                 AddHandler Me._CheckBox2.CheckedChanged, handler
  869.             End If
  870.         End Set
  871.     End Property
  872.  
  873.     Friend Overridable Property ContextMenuStrip1 As ContextMenuStrip
  874.         Get
  875.             Return Me._ContextMenuStrip1
  876.         End Get
  877.         Set(ByVal WithEventsValue As ContextMenuStrip)
  878.             Me._ContextMenuStrip1 = WithEventsValue
  879.         End Set
  880.     End Property
  881.  
  882.     Friend Overridable Property EntrarNoSiteToolStripMenuItem As ToolStripMenuItem
  883.         Get
  884.             Return Me._EntrarNoSiteToolStripMenuItem
  885.         End Get
  886.         Set(ByVal WithEventsValue As ToolStripMenuItem)
  887.             Dim handler As EventHandler = New EventHandler(AddressOf Me.EntrarNoSiteToolStripMenuItem_Click)
  888.             If (Not Me._EntrarNoSiteToolStripMenuItem Is Nothing) Then
  889.                 RemoveHandler Me._EntrarNoSiteToolStripMenuItem.Click, handler
  890.             End If
  891.             Me._EntrarNoSiteToolStripMenuItem = WithEventsValue
  892.             If (Not Me._EntrarNoSiteToolStripMenuItem Is Nothing) Then
  893.                 AddHandler Me._EntrarNoSiteToolStripMenuItem.Click, handler
  894.             End If
  895.         End Set
  896.     End Property
  897.  
  898.     Friend Overridable Property InfoToolStripMenuItem As ToolStripMenuItem
  899.         Get
  900.             Return Me._InfoToolStripMenuItem
  901.         End Get
  902.         Set(ByVal WithEventsValue As ToolStripMenuItem)
  903.             Dim handler As EventHandler = New EventHandler(AddressOf Me.InfoToolStripMenuItem_Click)
  904.             If (Not Me._InfoToolStripMenuItem Is Nothing) Then
  905.                 RemoveHandler Me._InfoToolStripMenuItem.Click, handler
  906.             End If
  907.             Me._InfoToolStripMenuItem = WithEventsValue
  908.             If (Not Me._InfoToolStripMenuItem Is Nothing) Then
  909.                 AddHandler Me._InfoToolStripMenuItem.Click, handler
  910.             End If
  911.         End Set
  912.     End Property
  913.  
  914.     Friend Overridable Property Label1 As Label
  915.         Get
  916.             Return Me._Label1
  917.         End Get
  918.         Set(ByVal WithEventsValue As Label)
  919.             Me._Label1 = WithEventsValue
  920.         End Set
  921.     End Property
  922.  
  923.     Friend Overridable Property Label2 As Label
  924.         Get
  925.             Return Me._Label2
  926.         End Get
  927.         Set(ByVal WithEventsValue As Label)
  928.             Me._Label2 = WithEventsValue
  929.         End Set
  930.     End Property
  931.  
  932.     Friend Overridable Property Label3 As Label
  933.         Get
  934.             Return Me._Label3
  935.         End Get
  936.         Set(ByVal WithEventsValue As Label)
  937.             Dim handler As EventHandler = New EventHandler(AddressOf Me.Label3_Click)
  938.             If (Not Me._Label3 Is Nothing) Then
  939.                 RemoveHandler Me._Label3.Click, handler
  940.             End If
  941.             Me._Label3 = WithEventsValue
  942.             If (Not Me._Label3 Is Nothing) Then
  943.                 AddHandler Me._Label3.Click, handler
  944.             End If
  945.         End Set
  946.     End Property
  947.  
  948.     Friend Overridable Property Label4 As Label
  949.         Get
  950.             Return Me._Label4
  951.         End Get
  952.         Set(ByVal WithEventsValue As Label)
  953.             Me._Label4 = WithEventsValue
  954.         End Set
  955.     End Property
  956.  
  957.     Friend Overridable Property Label5 As Label
  958.         Get
  959.             Return Me._Label5
  960.         End Get
  961.         Set(ByVal WithEventsValue As Label)
  962.             Dim handler As EventHandler = New EventHandler(AddressOf Me.Label5_Click)
  963.             If (Not Me._Label5 Is Nothing) Then
  964.                 RemoveHandler Me._Label5.Click, handler
  965.             End If
  966.             Me._Label5 = WithEventsValue
  967.             If (Not Me._Label5 Is Nothing) Then
  968.                 AddHandler Me._Label5.Click, handler
  969.             End If
  970.         End Set
  971.     End Property
  972.  
  973.     Friend Overridable Property NotifyIcon1 As NotifyIcon
  974.         Get
  975.             Return Me._NotifyIcon1
  976.         End Get
  977.         Set(ByVal WithEventsValue As NotifyIcon)
  978.             Me._NotifyIcon1 = WithEventsValue
  979.         End Set
  980.     End Property
  981.  
  982.     Friend Overridable Property OpenFileDialog1 As OpenFileDialog
  983.         Get
  984.             Return Me._OpenFileDialog1
  985.         End Get
  986.         Set(ByVal WithEventsValue As OpenFileDialog)
  987.             Me._OpenFileDialog1 = WithEventsValue
  988.         End Set
  989.     End Property
  990.  
  991.     Friend Overridable Property PictureBox2 As PictureBox
  992.         Get
  993.             Return Me._PictureBox2
  994.         End Get
  995.         Set(ByVal WithEventsValue As PictureBox)
  996.             Me._PictureBox2 = WithEventsValue
  997.         End Set
  998.     End Property
  999.  
  1000.     Friend Overridable Property SairToolStripMenuItem As ToolStripMenuItem
  1001.         Get
  1002.             Return Me._SairToolStripMenuItem
  1003.         End Get
  1004.         Set(ByVal WithEventsValue As ToolStripMenuItem)
  1005.             Dim handler As EventHandler = New EventHandler(AddressOf Me.SairToolStripMenuItem_Click)
  1006.             If (Not Me._SairToolStripMenuItem Is Nothing) Then
  1007.                 RemoveHandler Me._SairToolStripMenuItem.Click, handler
  1008.             End If
  1009.             Me._SairToolStripMenuItem = WithEventsValue
  1010.             If (Not Me._SairToolStripMenuItem Is Nothing) Then
  1011.                 AddHandler Me._SairToolStripMenuItem.Click, handler
  1012.             End If
  1013.         End Set
  1014.     End Property
  1015.  
  1016.     Friend Overridable Property Timer1 As Timer
  1017.         Get
  1018.             Return Me._Timer1
  1019.         End Get
  1020.         Set(ByVal WithEventsValue As Timer)
  1021.             Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer1_Tick)
  1022.             If (Not Me._Timer1 Is Nothing) Then
  1023.                 RemoveHandler Me._Timer1.Tick, handler
  1024.             End If
  1025.             Me._Timer1 = WithEventsValue
  1026.             If (Not Me._Timer1 Is Nothing) Then
  1027.                 AddHandler Me._Timer1.Tick, handler
  1028.             End If
  1029.         End Set
  1030.     End Property
  1031.  
  1032.     Friend Overridable Property Timer2 As Timer
  1033.         Get
  1034.             Return Me._Timer2
  1035.         End Get
  1036.         Set(ByVal WithEventsValue As Timer)
  1037.             Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer2_Tick)
  1038.             If (Not Me._Timer2 Is Nothing) Then
  1039.                 RemoveHandler Me._Timer2.Tick, handler
  1040.             End If
  1041.             Me._Timer2 = WithEventsValue
  1042.             If (Not Me._Timer2 Is Nothing) Then
  1043.                 AddHandler Me._Timer2.Tick, handler
  1044.             End If
  1045.         End Set
  1046.     End Property
  1047.  
  1048.     Friend Overridable Property ToolStripMenuItem1 As ToolStripMenuItem
  1049.         Get
  1050.             Return Me._ToolStripMenuItem1
  1051.         End Get
  1052.         Set(ByVal WithEventsValue As ToolStripMenuItem)
  1053.             Dim handler As EventHandler = New EventHandler(AddressOf Me.ToolStripMenuItem1_Click)
  1054.             If (Not Me._ToolStripMenuItem1 Is Nothing) Then
  1055.                 RemoveHandler Me._ToolStripMenuItem1.Click, handler
  1056.             End If
  1057.             Me._ToolStripMenuItem1 = WithEventsValue
  1058.             If (Not Me._ToolStripMenuItem1 Is Nothing) Then
  1059.                 AddHandler Me._ToolStripMenuItem1.Click, handler
  1060.             End If
  1061.         End Set
  1062.     End Property
  1063.  
  1064.     Friend Overridable Property ToolStripSeparator1 As ToolStripSeparator
  1065.         Get
  1066.             Return Me._ToolStripSeparator1
  1067.         End Get
  1068.         Set(ByVal WithEventsValue As ToolStripSeparator)
  1069.             Me._ToolStripSeparator1 = WithEventsValue
  1070.         End Set
  1071.     End Property
  1072.  
  1073.     Friend Overridable Property ToolStripSeparator2 As ToolStripSeparator
  1074.         Get
  1075.             Return Me._ToolStripSeparator2
  1076.         End Get
  1077.         Set(ByVal WithEventsValue As ToolStripSeparator)
  1078.             Me._ToolStripSeparator2 = WithEventsValue
  1079.         End Set
  1080.     End Property
  1081.  
  1082.     Friend Overridable Property txtpass As TextBox
  1083.         Get
  1084.             Return Me._txtpass
  1085.         End Get
  1086.         Set(ByVal WithEventsValue As TextBox)
  1087.             Me._txtpass = WithEventsValue
  1088.         End Set
  1089.     End Property
  1090.  
  1091.     Friend Overridable Property txtsteam As TextBox
  1092.         Get
  1093.             Return Me._txtsteam
  1094.         End Get
  1095.         Set(ByVal WithEventsValue As TextBox)
  1096.             Me._txtsteam = WithEventsValue
  1097.         End Set
  1098.     End Property
  1099.  
  1100.     Friend Overridable Property txtuser As TextBox
  1101.         Get
  1102.             Return Me._txtuser
  1103.         End Get
  1104.         Set(ByVal WithEventsValue As TextBox)
  1105.             Me._txtuser = WithEventsValue
  1106.         End Set
  1107.     End Property
  1108.  
  1109.     Public Shared ReadOnly Property UtcNow As DateTime
  1110.         Get
  1111.             Dim time As DateTime
  1112.             Return time
  1113.         End Get
  1114.     End Property
  1115.  
  1116.  
  1117.     ' Fields
  1118.     <AccessedThroughProperty("Button1")> _
  1119.     Private _Button1 As Button
  1120.     <AccessedThroughProperty("Button2")> _
  1121.     Private _Button2 As Button
  1122.     <AccessedThroughProperty("Button3")> _
  1123.     Private _Button3 As Button
  1124.     <AccessedThroughProperty("CheckBox1")> _
  1125.     Private _CheckBox1 As CheckBox
  1126.     <AccessedThroughProperty("CheckBox2")> _
  1127.     Private _CheckBox2 As CheckBox
  1128.     <AccessedThroughProperty("ContextMenuStrip1")> _
  1129.     Private _ContextMenuStrip1 As ContextMenuStrip
  1130.     <AccessedThroughProperty("EntrarNoSiteToolStripMenuItem")> _
  1131.     Private _EntrarNoSiteToolStripMenuItem As ToolStripMenuItem
  1132.     <AccessedThroughProperty("InfoToolStripMenuItem")> _
  1133.     Private _InfoToolStripMenuItem As ToolStripMenuItem
  1134.     <AccessedThroughProperty("Label1")> _
  1135.     Private _Label1 As Label
  1136.     <AccessedThroughProperty("Label2")> _
  1137.     Private _Label2 As Label
  1138.     <AccessedThroughProperty("Label3")> _
  1139.     Private _Label3 As Label
  1140.     <AccessedThroughProperty("Label4")> _
  1141.     Private _Label4 As Label
  1142.     <AccessedThroughProperty("Label5")> _
  1143.     Private _Label5 As Label
  1144.     <AccessedThroughProperty("NotifyIcon1")> _
  1145.     Private _NotifyIcon1 As NotifyIcon
  1146.     <AccessedThroughProperty("OpenFileDialog1")> _
  1147.     Private _OpenFileDialog1 As OpenFileDialog
  1148.     <AccessedThroughProperty("PictureBox2")> _
  1149.     Private _PictureBox2 As PictureBox
  1150.     <AccessedThroughProperty("SairToolStripMenuItem")> _
  1151.     Private _SairToolStripMenuItem As ToolStripMenuItem
  1152.     <AccessedThroughProperty("Timer1")> _
  1153.     Private _Timer1 As Timer
  1154.     <AccessedThroughProperty("Timer2")> _
  1155.     Private _Timer2 As Timer
  1156.     <AccessedThroughProperty("ToolStripMenuItem1")> _
  1157.     Private _ToolStripMenuItem1 As ToolStripMenuItem
  1158.     <AccessedThroughProperty("ToolStripSeparator1")> _
  1159.     Private _ToolStripSeparator1 As ToolStripSeparator
  1160.     <AccessedThroughProperty("ToolStripSeparator2")> _
  1161.     Private _ToolStripSeparator2 As ToolStripSeparator
  1162.     <AccessedThroughProperty("txtpass")> _
  1163.     Private _txtpass As TextBox
  1164.     <AccessedThroughProperty("txtsteam")> _
  1165.     Private _txtsteam As TextBox
  1166.     <AccessedThroughProperty("txtuser")> _
  1167.     Private _txtuser As TextBox
  1168.     Private Background As Bitmap
  1169.     Private components As IContainer
  1170.     Private fh As Integer
  1171.     Private fw As Integer
  1172.     Private Const SRCCOPY As Integer = &HCC0020
  1173. End Class
Latest pastes
1 days ago
7 days ago
19 days ago
24 days ago
26 days ago