Imports System.Net

Public Class FormMain
    Dim dllname As String = ""
    Dim jogoexe As String = ""



    Private Sub goAtt_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim LoaderDown As WebClient = New WebClient
        'Eventos down progress & down completo
        AddHandler LoaderDown.DownloadProgressChanged, AddressOf Atualiza_ProgressChanged
        AddHandler LoaderDown.DownloadFileCompleted, AddressOf Atualiza_DownloadCompleted
        LoaderDown.DownloadFileAsync(New Uri(LoginForm.linkdosite + dllname), Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\" & dllname)
        Button1.Text = "Baixando"
        Button1.Enabled = False

    End Sub


    Private Sub Atualiza_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
        Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
        Dim percentage As Double = bytesIn / totalBytes * 100
        Dim position As Integer = Int32.Parse(Math.Truncate(percentage).ToString())
        Label1.Text = "Atualizando loader... (" + position.ToString + "% - " + FormatBytes(bytesIn) _
            + "/" + FormatBytes(totalBytes)
        ProgressBar1.Value = position
    End Sub
    Private Sub Atualiza_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
        Label1.Text = "Download Feito."
        'Button1.Enabled = True
        Timer1.Start()

    End Sub

    Private Sub FormMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If LoginForm.versao.SelectedIndex = 0 Then
            jogoexe = "csgo"
            dllname = "hack.dll"
        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Button1.Text = "Procurando jogo para injectar"
        If Process.GetProcessesByName(jogoexe).Count > 0 Then

            Timer1.Stop()
            Inject(jogoexe, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\" & dllname)
            Label1.Text = "Dll injectada."
            Threading.Thread.Sleep(100)

            Application.Exit()

        End If
    End Sub

    Private Sub FormMain_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        Application.Exit()
        LoginForm.Close()

    End Sub
End Class