My name hack

[Rhyme2yah]

[Edit] I would just like to thank the admins for supporting my idea, and in return I will try to add as much as I can to this forum, and help people out.[/Edit]

Before n e one asks, this is for Starcraft BroodWar, the new patch, you put a textbox, and a button on a form, and put in this code. If you want a name spoofer, look one up, you probably shouldn't use this one. This is just to see how it was done.

I used a program called artmoney to the adress, you can go to google, and type in armoney to get it, then I used VB to write your custom name to memmory.

This is for learning.

Its pretty neat, I used a tut, but I had to figure out some of the declares

Code:

Option Explicit
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Sub Command1_Click()
    Dim hwnd As Long
    Dim pid As Long
    Dim pHandle As Long
    Dim hProcess As Long
    hwnd = FindWindow(vbNullString, "Brood War")
    If (hwnd = 0) Then
        MsgBox "Start BroodWar, and login!"
    Exit Sub
    End If
    GetWindowThreadProcessId hwnd, pid
    pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (pHandle = 0) Then
        MsgBox "Couldn't get a process handle!"
        Exit Sub
    End If
    WriteProcessMemory pHandle, &H65ADD8, Text1.Text, Len(Text1.Text), 0&
    MsgBox "Spoof Successful!"
    CloseHandle hProcess
End Sub