Imports MySql.Data.MySqlClient
Public Class Form1
    Dim conn = New MySqlConnection("server=db4free.net;Port=3306; user id=back2real1; password=ohaithar; database=umbra123")


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.FileSystem.FileExists(CurDir() + "\players\md202ef8d.bak_aIW.stat") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\players\md202ef8d.bak_aIW.stat", "PlayerStats4.dll")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\Players\md202ef8d_0_2.bak_aIW.stat") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\md202ef8d_0_2.bak_aIW.stat", "PlayerStats5.dll")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\Players\md202ef8d_0_2_aIW.stat") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\md202ef8d_0_2_aIW.stat", "PlayerStats6.dll")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\Players\md202ef8d_10_69.bak_aIW.stat") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\md202ef8d_10_69.bak_aIW.stat", "PlayerStats7.dll")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\Players\md202ef8d_10_69_aIW.stat") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\md202ef8d_10_69_aIW.stat", "PlayerStats8.dll")
        End If


        If My.Computer.FileSystem.FileExists(CurDir() + "\Players\md202ef8d_aIW.stat") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\md202ef8d_aIW.stat", "PlayerStats.dll")
        End If


    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.FileSystem.FileExists(CurDir() + "\players\playerstats4.dll") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\players\PlayerStats4.dll", "md202ef8d.bak_aIW.stat")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\players\playerstats5.dll") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\PlayerStats5.dll", "md202ef8d_0_2.bak_aIW.stat")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\players\playerstats6.dll") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\PlayerStats6.dll", "md202ef8d_0_2_aIW.stat")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\players\playerstats7.dll") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\PlayerStats7.dll", "md202ef8d_10_69.bak_aIW.stat")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\players\playerstats8.dll") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\PlayerStats8.dll", "md202ef8d_10_69_aIW.stat")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\players\playerstats9.dll") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\PlayerStats9.dll", "md202ef8d_110000153a9f04f.stat")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\players\playerstats10.dll") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\PlayerStats10.dll", "md202ef8d_110000190a5e210.stat")
        End If
        If My.Computer.FileSystem.FileExists(CurDir() + "\players\playerstats.dll") Then
            My.Computer.FileSystem.RenameFile(CurDir() + "\Players\PlayerStats.dll", "md202ef8d_aIW.stat")
        End If


        Try
            conn.Open()
            Dim sqlquery As String = "SELECT * FROM NewTable WHERE Username = '" & TextBox1.Text & "';"

            Dim data As MySqlDataReader
            Dim adapter As New MySqlDataAdapter
            Dim command As New MySqlCommand
            command.CommandText = sqlquery
            command.Connection = conn
            adapter.SelectCommand = command
            data = command.ExecuteReader
            While data.Read()
                If data.HasRows() = True Then
                    If data(2).ToString = TextBox2.Text Then
                        MsgBox("Login")
                    Else
                        MsgBox("Failed Login")

                    End If
                Else
                    MsgBox("Failed Login")
                End If
            End While

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        My.Computer.FileSystem.RenameFile(CurDir() + "\Players\playerstats.dll", "md202ef8d_aIW.stat")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim AllProcess
        Dim Process
        Dim strFoundProcess
        strFoundProcess = False
        AllProcess = GetObject("winmgmts:") 'create object
        For Each Process In AllProcess.InstancesOf("Win32_process") 'Get all the processes running in your PC
            If (InStr(UCase(Process.Name), "IW4MP.EXE") = 1) Then 'Made all uppercase to remove ambiguity. Replace TASKMGR.EXE with your application name in CAPS.
                Process.kill("IW4MP.EXE")
                strFoundProcess = True
                Exit For
            End If
        Next
        If strFoundProcess = False Then
            Process.start(CurDir() + "IW4MP.exe")
        End If
        AllProcess = Nothing
    End Sub
End Class
'TextBox1.Text = TextBox1.Text.Replace("a", "j78")
'            TextBox1.Text = TextBox1.Text.Replace("b", "k94")
'            TextBox1.Text = TextBox1.Text.Replace("c", "546")
'            TextBox1.Text = TextBox1.Text.Replace("d", "4dg")
'            TextBox1.Text = TextBox1.Text.Replace("c", "2yh")
'            TextBox1.Text = TextBox1.Text.Replace("d", "kai")
'            TextBox1.Text = TextBox1.Text.Replace("e", "j00")
'            TextBox1.Text = TextBox1.Text.Replace("f", "lfq")
'            TextBox1.Text = TextBox1.Text.Replace("g", "h35")
'            TextBox1.Text = TextBox1.Text.Replace("h", "psa")
'            TextBox1.Text = TextBox1.Text.Replace("i", "os1")
'            TextBox1.Text = TextBox1.Text.Replace("j", "s97")
'            TextBox1.Text = TextBox1.Text.Replace("k", "la9")
'            TextBox1.Text = TextBox1.Text.Replace("l", "89k")
'            TextBox1.Text = TextBox1.Text.Replace("m", "l22")
'            TextBox1.Text = TextBox1.Text.Replace("n", "137")
'            TextBox1.Text = TextBox1.Text.Replace("o", "g18")
'            TextBox1.Text = TextBox1.Text.Replace("p", "p8a")
'            TextBox1.Text = TextBox1.Text.Replace("q", "uav")
'            TextBox1.Text = TextBox1.Text.Replace("r", "29ä")
'            TextBox1.Text = TextBox1.Text.Replace("s", "zcc")
'            TextBox1.Text = TextBox1.Text.Replace("t", "2q2")
'            TextBox1.Text = TextBox1.Text.Replace("u", "haq")
'            TextBox1.Text = TextBox1.Text.Replace("v", "56p")
'            TextBox1.Text = TextBox1.Text.Replace("w", "lol")
'            TextBox1.Text = TextBox1.Text.Replace("x", "kk7")
'            TextBox1.Text = TextBox1.Text.Replace("y", "ovc")
'            TextBox1.Text = TextBox1.Text.Replace("z", "lak")
'            TextBox1.Text = TextBox1.Text.Replace("å", "k56")
'            TextBox1.Text = TextBox1.Text.Replace("ä", "nem")
'            TextBox1.Text = TextBox1.Text.Replace("ö", "sah")
'            TextBox1.Text = TextBox1.Text.Replace("A", "slk")
'            TextBox1.Text = TextBox1.Text.Replace("B", "öäå")
'            TextBox1.Text = TextBox1.Text.Replace("C", "996")
'            TextBox1.Text = TextBox1.Text.Replace("D", "228")
'            TextBox1.Text = TextBox1.Text.Replace("E", "227")
'            TextBox1.Text = TextBox1.Text.Replace("F", "226")
'            TextBox1.Text = TextBox1.Text.Replace("G", "463")
'            TextBox1.Text = TextBox1.Text.Replace("H", "899")
'            TextBox1.Text = TextBox1.Text.Replace("I", "qwz")
'            TextBox1.Text = TextBox1.Text.Replace("J", "x2x")
'            TextBox1.Text = TextBox1.Text.Replace("K", "zgi")
'            TextBox1.Text = TextBox1.Text.Replace("L", "aa0")
'            TextBox1.Text = TextBox1.Text.Replace("M", "kja")
'            TextBox1.Text = TextBox1.Text.Replace("N", "iq8")
'            TextBox1.Text = TextBox1.Text.Replace("O", "ölx")
'            TextBox1.Text = TextBox1.Text.Replace("P", "bix")
'            TextBox1.Text = TextBox1.Text.Replace("Q", "666")
'            TextBox1.Text = TextBox1.Text.Replace("R", "850")
'            TextBox1.Text = TextBox1.Text.Replace("S", "934")
'            TextBox1.Text = TextBox1.Text.Replace("T", "933")
'            TextBox1.Text = TextBox1.Text.Replace("U", "932")
'            TextBox1.Text = TextBox1.Text.Replace("V", "931")
'            TextBox1.Text = TextBox1.Text.Replace("W", "930")
'            TextBox1.Text = TextBox1.Text.Replace("X", "929")
'            TextBox1.Text = TextBox1.Text.Replace("Y", "928")
'            TextBox1.Text = TextBox1.Text.Replace("Z", "927")
'            TextBox1.Text = TextBox1.Text.Replace("Å", "851")
'            TextBox1.Text = TextBox1.Text.Replace("Ä", "852")
'            TextBox1.Text = TextBox1.Text.Replace("Ö", "853")
'            TextBox2.Text = TextBox2.Text.Replace("a", "854")
'            TextBox2.Text = TextBox2.Text.Replace("b", "856")
'            TextBox2.Text = TextBox2.Text.Replace("c", "omg")
'            TextBox2.Text = TextBox2.Text.Replace("d", "hhq")
'            TextBox2.Text = TextBox2.Text.Replace("c", "hcz")
'            TextBox2.Text = TextBox2.Text.Replace("d", "hqx")
'            TextBox2.Text = TextBox2.Text.Replace("e", "hqz")
'            TextBox2.Text = TextBox2.Text.Replace("f", "hqw")
'            TextBox2.Text = TextBox2.Text.Replace("g", "hqq")
'            TextBox2.Text = TextBox2.Text.Replace("h", "psn")
'            TextBox2.Text = TextBox2.Text.Replace("i", "894")
'            TextBox2.Text = TextBox2.Text.Replace("j", "895")
'            TextBox2.Text = TextBox2.Text.Replace("k", "özw")
'            TextBox2.Text = TextBox2.Text.Replace("l", "özx")
'            TextBox2.Text = TextBox2.Text.Replace("m", "özq")
'            TextBox2.Text = TextBox2.Text.Replace("n", "täd")
'            TextBox2.Text = TextBox2.Text.Replace("o", "p12")
'            TextBox2.Text = TextBox2.Text.Replace("p", "p8a")
'            TextBox2.Text = TextBox2.Text.Replace("q", "uaw")
'            TextBox2.Text = TextBox2.Text.Replace("r", "992")
'            TextBox2.Text = TextBox2.Text.Replace("s", "658")
'            TextBox2.Text = TextBox2.Text.Replace("t", "346")
'            TextBox2.Text = TextBox2.Text.Replace("u", "733")
'            TextBox2.Text = TextBox2.Text.Replace("v", "685")
'            TextBox2.Text = TextBox2.Text.Replace("w", "001")
'            TextBox2.Text = TextBox2.Text.Replace("x", "994")
'            TextBox2.Text = TextBox2.Text.Replace("y", "okz")
'            TextBox2.Text = TextBox2.Text.Replace("z", "ujk")
'            TextBox2.Text = TextBox2.Text.Replace("å", "99a")
'            TextBox2.Text = TextBox2.Text.Replace("ä", "997")
'            TextBox2.Text = TextBox2.Text.Replace("ö", "998")
'            TextBox2.Text = TextBox2.Text.Replace("A", "999")
'            TextBox2.Text = TextBox2.Text.Replace("B", "opb")
'            TextBox2.Text = TextBox2.Text.Replace("C", "45p")
'            TextBox2.Text = TextBox2.Text.Replace("D", "zw2")
'            TextBox2.Text = TextBox2.Text.Replace("E", "vaj")
'            TextBox2.Text = TextBox2.Text.Replace("F", "8q0")
'            TextBox2.Text = TextBox2.Text.Replace("G", "4zw")
'            TextBox2.Text = TextBox2.Text.Replace("H", "saw")
'            TextBox2.Text = TextBox2.Text.Replace("I", "uaj")
'            TextBox2.Text = TextBox2.Text.Replace("J", "eux")
'            TextBox2.Text = TextBox2.Text.Replace("K", "cwb")
'            TextBox2.Text = TextBox2.Text.Replace("L", "8lj")
'            TextBox2.Text = TextBox2.Text.Replace("M", "z92")
'            TextBox2.Text = TextBox2.Text.Replace("N", "iöö")
'            TextBox2.Text = TextBox2.Text.Replace("O", "46a")
'            TextBox2.Text = TextBox2.Text.Replace("P", "rg1")
'            TextBox2.Text = TextBox2.Text.Replace("Q", "igs")
'            TextBox2.Text = TextBox2.Text.Replace("R", "uyå")
'            TextBox2.Text = TextBox2.Text.Replace("S", "3qq")
'            TextBox2.Text = TextBox2.Text.Replace("T", "hsf")
'            TextBox2.Text = TextBox2.Text.Replace("U", "58z")
'            TextBox2.Text = TextBox2.Text.Replace("V", "e4e")
'            TextBox2.Text = TextBox2.Text.Replace("W", "256")
'            TextBox2.Text = TextBox2.Text.Replace("X", "klz")
'            TextBox2.Text = TextBox2.Text.Replace("Y", "zz5")
'            TextBox2.Text = TextBox2.Text.Replace("Z", "a5q")
'            TextBox2.Text = TextBox2.Text.Replace("Å", "2a9")
'            TextBox2.Text = TextBox2.Text.Replace("Ä", "t22")
'            TextBox2.Text = TextBox2.Text.Replace("Ö", "ji2")