1UPsDevelopement.com

This is a piece from my Final fantasy 11 Configurator that I made back when I used to play the game.

Source code

Imports Microsoft.Win32

We’ll now make a registrykey variable.

Source code

Dim FF_key As RegistryKey

Now we will make sure the location want it stored in that variable.

Source code

FF_key = Registry.LocalMachine.OpenSubKey("\Software\Microsoft\", True)

Now to read in the Keys that are already saved by the game. In this part I called a few keys that I wanted information from, so in order to do that I first declare my variables:

Source code

Dim key_windowed_mode As String
Dim key_res_1 As String
Dim key_res_2 As String
Dim key_3D_res_1 As String
Dim key_3D_res_2 As String
Dim key_texture_compress As String
Dim key_on_screen_map As String
key_res_1 = FF_key.GetValue("0001")
key_res_2 = FF_key.GetValue("0002")
key_3D_res_1 = FF_key.GetValue("0003")
key_3D_res_2 = FF_key.GetValue("0004")
key_texture_compress = FF_key.GetValue("0018")
key_on_screen_map = FF_key.GetValue("0019")

The (“numbers”) is the key name which holds the information that I wanted.
Now when it comes to writing it’s just as easy:

Source code

FF_key.SetValue("0034", 1, RegistryValueKind.DWord

Valuekind.dword is just the datatype, you don’t always needs to do this but for this to work for me in this case I had to.

This bit of code will allow you to detect key presses while the form is not the active window. I currently use this for macros and for my trainer programs for turning on cheats.

All you need to have is a timer on the form. You can either drag and drop one on the form or declare it in code and write the timer.Tick event.

In this example I check for 2 key presses.

Source code

Dim altkey As Boolean
Dim Num_1 As Boolean
Dim Num_2 As Boolean
Dim Num_3 As Boolean
 
Private Sub tmr_Keys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr_Keys.Tick
	altkey = GetAsyncKeyState(Keys.LMenu)
        Num_1 = GetAsyncKeyState(Keys.NumPad1)
        Num_2 = GetAsyncKeyState(Keys.NumPad2)
        Num_3 = GetAsyncKeyState(Keys.NumPad3)
        If altkey And Num_1 = True Then 'Infinite Health Player 1
            btn_P1InfiniteHealth_Click(sender, e)
        ElseIf altkey And Num_2 = True Then
            btn_P1InfiniteKi_Click(sender, e) ' Infinite Ki Player 1
        ElseIf altkey And Num_3 = True Then
 
        End If
End Sub

I have been working on making some trainers for some games and I wanted a basic way of showing that a cheat was enabled.
I couldn’t figured out how to draw to the screen so I figured the title bar would be fine.

Source code

Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As IntPtr, ByVal lpString As String) As Boolean
 
Public Sub SetTitleText(ByVal processName() As Process, ByVal textToSend As String)
 
        For Each proc In processName
            SetWindowText(proc.MainWindowHandle, textToSend)
        Next
 
End Sub

The code above will allow you to set the title window to an external program.
An example on how to use it

Source code

Dim notepad() As Process = Process.GetProcessesByName("notepad")
 
Private Sub btn_Notepad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Notepad.Click
       SetTitleText(notepad,"Insert some text here")
End Sub

This was something I used in order to try and keep my programs down to 1 file. Instead of including a seperate file that handled the updating, I simply embedded it into the main program. To do this all I did was make it a resource and when I needed to use it I would write it out to the root directory that the program was in.

To add a file as a resource, right click your project and click properties.

Click on the Resources tab. On the top click on strings and select files. Drag and drop the file you want to include as the resource into this window.

Click save or save all.

Now when you decide you need to use that file you can write it out to a directory then run it.

Source code

IO.File.WriteAllBytes("./" & "Updater.exe",My.Resources.Updater)
Process.Start("Updater.exe")