Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Jimmerman

Pages: [1]
1
Mount and Blade / Mount & Blade Simple Wallhack
« on: July 12, 2018, 09:02:54 pm »
Mount & Blade Simple Wallhack

http://tkc-community.net/forum/index.php?action=downloads;sa=view;down=476

Supports native and PW models, does not support NW

2
Mount and Blade / Jimmerman's Warband Key Changer
« on: November 01, 2017, 06:31:34 am »
*This is not a keygen to play the game without paying for it, this is just an alternative to manually opening regedit every time you want to change your key*


I recently took intro to computer science and realized I could actually make something I would use in the future. No reason not to share it, so here you go.

This won't work if you somehow changed your warband key path from "Computer\HKEY_CURRENT_USER\Software\MountAndBladeWarbandKeys"

Just paste a key into one of the boxes and click a button."Set Key" changes your default warband key, "Set NW" changes your NW key, there aren't any checks to make sure you put the key in correctly so make sure you don't fat-finger a button while copypasting or add an extra space

Download: http://tkc-community.net/forum/index.php?action=downloads;sa=view;down=471

https://www.virustotal.com/#/file/776b82f5ffa754e91832bc844d9233139fa7061bf95b9b8075ca2529d5be467b/detection

If it isn't working try running as administrator. If it still doesn't work I don't know how to help you, this is only tested on Windows 10 64-bit.

Code: [Select]
'this is the entirety of the bad code behind the GUI, in case you're paranoid about thievery
Public Class frmKeyChanger
    Dim strKey As String
    Dim strName As String
    Dim strReg As String = "HKEY_CURRENT_USER\Software\MountAndBladeWarbandKeys"
    Private Sub btnSet1_Click(sender As Object, e As EventArgs) Handles btnSet1.Click
        strName = "serial_Key"
        strKey = txtKey1.Text
        My.Computer.Registry.SetValue(strReg, strName, strKey)
    End Sub

    Private Sub btnErase1_Click(sender As Object, e As EventArgs) Handles btnErase1.Click
        txtKey1.Clear()
    End Sub

    Private Sub btnSet2_Click(sender As Object, e As EventArgs) Handles btnSet2.Click
        strName = "serial_Key"
        strKey = txtKey2.Text
        My.Computer.Registry.SetValue(strReg, strName, strKey)
    End Sub

    Private Sub btnSet3_Click(sender As Object, e As EventArgs) Handles btnSet3.Click
        strName = "serial_Key"
        strKey = txtKey3.Text
        My.Computer.Registry.SetValue(strReg, strName, strKey)
    End Sub

    Private Sub btnSet4_Click(sender As Object, e As EventArgs) Handles btnSet4.Click
        strName = "serial_Key"
        strKey = txtKey4.Text
        My.Computer.Registry.SetValue(strReg, strName, strKey)
    End Sub

    Private Sub btnSet5_Click(sender As Object, e As EventArgs) Handles btnSet5.Click
        strName = "serial_Key"
        strKey = txtKey5.Text
        My.Computer.Registry.SetValue(strReg, strName, strKey)
    End Sub

    Private Sub btnErase2_Click(sender As Object, e As EventArgs) Handles btnErase2.Click
        txtKey2.Clear()
    End Sub

    Private Sub btnErase3_Click(sender As Object, e As EventArgs) Handles btnErase3.Click
        txtKey3.Clear()
    End Sub

    Private Sub btnErase4_Click(sender As Object, e As EventArgs) Handles btnErase4.Click
        txtKey4.Clear()
    End Sub

    Private Sub btnErase5_Click(sender As Object, e As EventArgs) Handles btnErase5.Click
        txtKey5.Clear()
    End Sub

    Private Sub btnNw1_Click(sender As Object, e As EventArgs) Handles btnNw1.Click
        strName = "serial_key_nw"
        strKey = txtKey1.Text
        My.Computer.Registry.SetValue(strReg, strName, strKey)
    End Sub

    Private Sub btnNw2_Click(sender As Object, e As EventArgs) Handles btnNw2.Click
        strName = "serial_key_nw"
        strKey = txtKey2.Text
        My.Computer.Registry.SetValue(strReg, strName, strKey)
    End Sub

    Private Sub btnNw3_Click(sender As Object, e As EventArgs) Handles btnNw3.Click
        strName = "serial_key_nw"
        strKey = txtKey3.Text
        My.Computer.Registry.SetValue(strReg, strName, strKey)
    End Sub

    Private Sub btnNw4_Click(sender As Object, e As EventArgs) Handles btnNw4.Click
        strName = "serial_key_nw"
        strKey = txtKey4.Text
        My.Computer.Registry.SetValue(strReg, strName, strKey)
    End Sub

    Private Sub btnNw5_Click(sender As Object, e As EventArgs) Handles btnNw5.Click
        strName = "serial_key_nw"
        strKey = txtKey5.Text
        My.Computer.Registry.SetValue(strReg, strName, strKey)
    End Sub
End Class

Pages: [1]