Подключение к проекту на VB.net модулей с расширением .CS

[krukovis84]

Всем доброго времени суток!

Я как то очень давно читал, что VS2008 позволяет работать в одном проекте с модулями написанными на разных языках в рамках одной студии. Я нашел 3 модуля написаные видимо на C# (расширение у них *.CS и значек отображается C# =) ). В этих модулях написаны нужные мне функции работы с памятью. Я методом перетаскивания засунул их в свой проект. Но как теперь пользоватья этими функциями - не знаю. Они вроде все Public, но из модулей на VB я их не вижу.

Подскажите пожалуйста куда посмотреть, а лучше доступным языком на этом форуме расскажите каким образом можно подключить к проекту на VB.net модули с расширением *.CS.

Заранее благодарен.

[FireFenix]

http://www.developerfusion.com/tools/co ... arp-to-vb/
перевести C# в Vb для полноценности и не парится +)

[krukovis84]

Я тоже нашел этот ресурс.
Просто переживал по поводу ошибок конвертации. И подумал что если исходный код на C# подцепить к проекту, то тогда точно можно не боятся.

Но если вы советуете, значит пологаю хороший конвертер. Буду тестить. Спасибо!

[krukovis84]

Подскажите пожалуйста правильно ли я исправил одну ошибку:

Код: Выделить всё

Public Function ReadMemoryString_(ByVal lpBaseAddress As Integer, ByVal hProcess As IntPtr) As String
            Dim cData As Char() = New Char(63) {}
            Dim lpBuffer As Byte() = New Byte(63) {}
            Dim sData As String = ""
            Dim lpNumberOfBytesRead As Integer

            ReadProcessMemory(hProcess, lpBaseAddress, lpBuffer, lpBuffer.Length, lpNumberOfBytesRead)
            Dim c As Integer = -2
            For b As Integer = 0 To 30
                c += 2
                If lpBuffer(c) <> 0 Then
                    cData(b) = BitConverter.ToChar(lpBuffer, c)
                    Try
                        If cData(b) = 32 Then '  "Ошибка 10 Оператор "=" для типов "Char" и "Integer" не определен."

                            sData += "_"
                        Else
                            sData += cData(b).ToString()
                        End If
                    Catch
                    End Try
                Else
                    Exit For
                End If
            Next
            Return sData
        End Function

Если вот эту строку:
If cData(b) = 32 Then ' Выдает ошибку: "Ошибка 10 Оператор "=" для типов "Char" и "Integer" не определен."
Заменить на:
If cData(b) = Chr(32) Then - будет правильно?

На C# эта функция выглядела так:

Код: Выделить всё

public string ReadMemoryString_(int lpBaseAddress, IntPtr hProcess)
        {
            char[] cData = new char[64];
            byte[] lpBuffer = new byte[64];
            string sData = "";
            int lpNumberOfBytesRead;

            ReadProcessMemory(hProcess, lpBaseAddress, lpBuffer, lpBuffer.Length, out lpNumberOfBytesRead);
            int c = -2;
            for (int b = 0; b < 31; b++)
            {
                c += 2;
                if (lpBuffer[c] != 0)
                {
                    cData[b] = BitConverter.ToChar(lpBuffer, c);
                    try
                    {
                        if (cData[b] == 32) // Вот эта строка в исходной функции.
                            sData += "_";
                        else
                            sData += cData[b].ToString();
                    }
                    catch
                    {
                    }
                }
                else break;
            }
            return sData;
        }       
        #endregion
    }
}

И еще один вопрос по поводу строчки перед кодом в модуле:
На С#

Код: Выделить всё

using System.Linq;

- ошибки никакой не дает.
А на VB эта строка выглядит вот так:

Код: Выделить всё

Imports System.Linq

и дает предупреждение: "Предупреждение. Пространство имен или тип, указанные в операторе Imports "System.Linq", не содержат открытые члены или не могут быть найдены. Убедитесь, что пространство имен или тип определены и содержат хотя бы один открытый член. Убедитесь, что имя импортируемого элемента не было использовано в других Imports."

Что делать чтобы все было хорошо? Помогите разобраться, пожалуйста.

[FireFenix]

Подскажите пожалуйста правильно ли я исправил одну ошибку:

Код: Выделить всё

Public Function ReadMemoryString_(ByVal lpBaseAddress As Integer, ByVal hProcess As IntPtr) As String
            Dim cData As Char() = New Char(63) {}
            Dim lpBuffer As Byte() = New Byte(63) {}
            Dim sData As String = ""
            Dim lpNumberOfBytesRead As Integer

            ReadProcessMemory(hProcess, lpBaseAddress, lpBuffer, lpBuffer.Length, lpNumberOfBytesRead)
            Dim c As Integer = -2
            For b As Integer = 0 To 30
                c += 2
                If lpBuffer(c) <> 0 Then
                    cData(b) = BitConverter.ToChar(lpBuffer, c)
                    Try
                        If cData(b) = 32 Then '  "Ошибка 10 Оператор "=" для типов "Char" и "Integer" не определен."

                            sData += "_"
                        Else
                            sData += cData(b).ToString()
                        End If
                    Catch
                    End Try
                Else
                    Exit For
                End If
            Next
            Return sData
        End Function

Если вот эту строку:
If cData(b) = 32 Then ' Выдает ошибку: "Ошибка 10 Оператор "=" для типов "Char" и "Integer" не определен."
Заменить на:
If cData(b) = Chr(32) Then - будет правильно?

На C# эта функция выглядела так:

Код: Выделить всё

public string ReadMemoryString_(int lpBaseAddress, IntPtr hProcess)
        {
            char[] cData = new char[64];
            byte[] lpBuffer = new byte[64];
            string sData = "";
            int lpNumberOfBytesRead;

            ReadProcessMemory(hProcess, lpBaseAddress, lpBuffer, lpBuffer.Length, out lpNumberOfBytesRead);
            int c = -2;
            for (int b = 0; b < 31; b++)
            {
                c += 2;
                if (lpBuffer[c] != 0)
                {
                    cData[b] = BitConverter.ToChar(lpBuffer, c);
                    try
                    {
                        if (cData[b] == 32) // Вот эта строка в исходной функции.
                            sData += "_";
                        else
                            sData += cData[b].ToString();
                    }
                    catch
                    {
                    }
                }
                else break;
            }
            return sData;
        }       
        #endregion
    }
}

Dim cData As Char() = New Char(63) {} создаёт массив символов и сравнивать каждый элемент массива можно только с символом...
смею предположить, что здесь тоже должен был быть массив байтов Dim cData(64) as Byte, что будет соответствовать коду

If cData(b) = 32 Then ' Выдает ошибку: "Ошибка 10 Оператор "=" для типов "Char" и "Integer" не определен."
Заменить на:
If cData(b) = Chr(32) Then - будет правильно?

да

Насчёт этого sData += "_" и Data += cData(b).ToString() не знаю - работает или нет, но с синтаксической точки зрения было бы правильнее sData &= "_" и sData &= cData(b).ToString()

И еще один вопрос по поводу строчки перед кодом в модуле:
На С#

Код: Выделить всё

using System.Linq;

- ошибки никакой не дает.
А на VB эта строка выглядит вот так:

Код: Выделить всё

Imports System.Linq

и дает предупреждение: "Предупреждение. Пространство имен или тип, указанные в операторе Imports "System.Linq", не содержат открытые члены или не могут быть найдены. Убедитесь, что пространство имен или тип определены и содержат хотя бы один открытый член. Убедитесь, что имя импортируемого элемента не было использовано в других Imports."

Наверное библиотека в рефренсах не подцеплена или несколько одинаковых объявлений в одном модуле

[krukovis84]

Dim cData As Char() = New Char(63) {} создаёт массив символов и сравнивать каждый элемент массива можно только с символом...
смею предположить, что здесь тоже должен был быть массив байтов Dim cData(64) as Byte, что будет соответствовать коду

Я конечно дико извиняюсь, но чем отличаются эти объявления? С точки зрения синтаксиса - это вроде одно и то же.

По остальному: + и & для выражений типа string это вроде как то же одно и то же... Ну я не давно в программировании. Переубедите меня, пожалуйста, если это не так. Я ж че.. я ж чтоб пральна все было...

[Viper]

Вообще-то Char<>Byte. Byte он и есть байт, а вот Char равен двум байтам.

[FireFenix]

Вообще-то Char<>Byte. Byte он и есть байт, а вот Char равен двум байтам.

ай беда, я забыл что .net всё в 2х байтном уникоде....

Dim cData As Char() = New Char(63) {} создаёт массив символов и сравнивать каждый элемент массива можно только с символом...
смею предположить, что здесь тоже должен был быть массив байтов Dim cData(64) as Byte, что будет соответствовать коду

Я конечно дико извиняюсь, но чем отличаются эти объявления? С точки зрения синтаксиса - это вроде одно и то же.

По остальному: + и & для выражений типа string это вроде как то же одно и то же... Ну я не давно в программировании. Переубедите меня, пожалуйста, если это не так. Я ж че.. я ж чтоб пральна все было...

& - конкатенация
+ - сложение
у vb.net, но на + мало ли что может быть заведено у стринга

[krukovis84]

Вообще-то Char<>Byte. Byte он и есть байт, а вот Char равен двум байтам.

ай беда, я забыл что .net всё в 2х байтном уникоде....

Я должен сделать вывод что правильно объявлять массив нужно все таки: Dim cData As Char() = New Char(63) {} , а не Dim cData(64) as Byte ?

у vb.net, но на + мало ли что может быть заведено у стринга

Да, согласен, мало ли что)). А конкатенация для строки всяко понятней и роднее.

If cData(b) = 32 Then ' Выдает ошибку: "Ошибка 10 Оператор "=" для типов "Char" и "Integer" не определен."
Заменить на:
If cData(b) = Chr(32) Then - будет правильно?

да

А почему так будет правильно, объясните пожалуйста. А то я просто по наитию поправил, но так и не понял почему нужно так .
И одна просьба, не могли бы откомментировать на сколько сможете подробно эту функцию:

Код: Выделить всё

Public Function ReadMemoryString_(ByVal lpBaseAddress As Integer, ByVal hProcess As IntPtr) As String
            Dim cData As Char() = New Char(63) {}
            Dim lpBuffer As Byte() = New Byte(63) {}
            Dim sData As String = ""
            Dim lpNumberOfBytesRead As Integer

            ReadProcessMemory(hProcess, lpBaseAddress, lpBuffer, lpBuffer.Length, lpNumberOfBytesRead)
            Dim c As Integer = -2
            For b As Integer = 0 To 30
                c += 2
                If lpBuffer(c) <> 0 Then
                    cData(b) = BitConverter.ToChar(lpBuffer, c)
                    Try
                        If cData(b) = Char(32) Then

                            sData += "_"
                        Else
                            sData += cData(b).ToString()
                        End If
                    Catch
                    End Try
                Else
                    Exit For
                End If
            Next
            Return sData
        End Function

Я бы на ее примере со всеми остальными функциями разобрался из модуля, который с С# конвертировал. А то я уже 3 день изучаю эти функции, но к пониманию никак не могу приблизиться.
Заранее благодарен.

[FireFenix]

Вообще-то Char<>Byte. Byte он и есть байт, а вот Char равен двум байтам.

ай беда, я забыл что .net всё в 2х байтном уникоде....

Я должен сделать вывод что правильно объявлять массив нужно все таки: Dim cData As Char() = New Char(63) {} , а не Dim cData(64) as Byte ?

Вообще нада смотреть, как лежат данные в процессе.... обычно текст символ 1 байтной кодировкой, но судя из примера у тебя используется 2х байтная => нужно Dim cData As Char

If cData(b) = Chr(32) Then - будет правильно?
А почему так будет правильно, объясните пожалуйста. А то я просто по наитию поправил, но так и не понял почему нужно так.

В зависимости, какую кодировку рассматриваем, то используем приведение кода символа к символу через
Chr - для 1 байтных
ChrW или Char - для 2х байтных
Или если поизвращаться, то можно и через System.Text.Encoding

И одна просьба, не могли бы откомментировать на сколько сможете подробно эту функцию:
Я бы на ее примере со всеми остальными функциями разобрался из модуля, который с С# конвертировал. А то я уже 3 день изучаю эти функции, но к пониманию никак не могу приблизиться.
Заранее благодарен.

Код: Выделить всё

'Функция читает текст из процесса по заданному смещению
Public Function ReadMemoryString_(ByVal lpBaseAddress As Integer, ByVal hProcess As IntPtr) As String
            Dim cData As Char() = New Char(63) {}
            Dim lpBuffer As Byte() = New Byte(63) {}
            Dim sData As String = ""
            Dim lpNumberOfBytesRead As Integer

            'Считываем, по нашему смещению и толщине буфера, кусок памяти процесса в буфер lpBuffer
            ReadProcessMemory(hProcess, lpBaseAddress, lpBuffer, lpBuffer.Length, lpNumberOfBytesRead)
            Dim c As Integer = -2

            'Пробегаем по полученному буферу и формируем строку
            For b As Integer = 0 To 30
                c += 2
                'Проверяем на нулевой символ
                If lpBuffer(c) <> 0 Then
                    'BitConverter.ToChar - преообразуем байтовое представление в наш тип Char
                    cData(b) = BitConverter.ToChar(lpBuffer, c)
                    Try
                        '32- вроде код пробела
                        'преобразуем наш код 32 в тип Char и сравниваем с тем, что валяется в массиве
                        If cData(b) = Char(32) Then
                            'Если найдено, то пробел заменяет нижней чертой и записывает в конечную строку
                            sData += "_"
                        Else
                            'Если нет - просто записываем в конечную строку символ из буфера
                            sData += cData(b).ToString()
                        End If
                    Catch
                    End Try
                Else
                    'Если достигли конца нуль-терминированной строки, то выходим из цикла и отдаём конечную строку
                    Exit For
                End If
            Next

            Return sData
        End Function

[krukovis84]

Ура! Спасибо всем! Во всем разобрался!