Rus. server

    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Integer

    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Integer, _
    ByVal wMsg As Integer, _
    ByVal wParam As Integer, _
    ByVal lParam As String) As Integer

    Public Const WM_SETTEXT = &HC ' Для параметра wMsg

    Private Sub RenameWindow()
        Dim intWinHwnd As Integer
        Dim strWinName As String
        Dim strNewWinName As String

        strWinName = txtLastWinName.Text
        intWinHwnd = FindWindow(vbNullString, strWinName)

        If intWinHwnd = 0 Then
            MsgBox("Окно не найдено")
            Exit Sub
        End If

        strNewWinName = txtNewWinName.Text
        SendMessage(intWinHwnd, WM_SETTEXT, 0, strNewWinName)


    Private Sub btnCWN_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCWN.Click
        RenameWindow()
    End Sub

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//		Помощь в атаке
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
static DWORD WINAPI Assist() 
{	DWORD BaseAddress=0x0098ADDC;
	DWORD CallAddress =0x0057FA20;
	DWORD constanta=0x00940ba8; 

	__asm 
	{pushad;
		mov		eax, BaseAddress;
		mov		eax, dword ptr[eax];
		mov		eax, dword ptr[eax+0x1C]; 
		mov		eax, dword ptr[eax+0x4]; 
		mov		eax, dword ptr[eax+0x8]; 
		mov		eax, dword ptr[eax+0x34C]; 
		push eax; 
		push  constanta; 
		mov eax, CallAddress; 
		call eax;	
		popad;
	}
	return 0;
}