Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос / 11 сообщений из 11, страница 1 из 1
05.10.2005, 13:02:40
    #33306100
syned
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Как из VB получить имя локального компьютера
...
Рейтинг: 0 / 0
05.10.2005, 13:19:54
    #33306169
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Const MAX_COMPUTERNAME_LENGTH As Long =  31 

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" 
(ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
    Dim dwLen As Long
    Dim strString As String
    'Create a buffer
    dwLen = MAX_COMPUTERNAME_LENGTH +  1 
    strString = String(dwLen, "X")
    'Get the computer name
    GetComputerName strString, dwLen
    'get only the actual data
    strString = Left(strString, dwLen)
    'Show the computer name
    MsgBox strString
End Sub
...
Рейтинг: 0 / 0
05.10.2005, 13:22:54
    #33306179
syned
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Melkiades
Код: plaintext
1.
    strString = String(dwLen, "X")


Error 1 '.' expected. D:\Work\vb\WindowsApplication1\WindowsApplication1\Form1.vb 344 21 WindowsApplication1

Error 2 'String' is a class type and cannot be used as an expression. D:\Work\vb\WindowsApplication1\WindowsApplication1\Form1.vb 344 15 WindowsApplication1
...
Рейтинг: 0 / 0
05.10.2005, 13:28:30
    #33306202
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
В .Net другой синтаксис. Но API-функция та же.
...
Рейтинг: 0 / 0
05.10.2005, 13:29:22
    #33306206
syned
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
а в .Net как?
можешь помочь?
...
Рейтинг: 0 / 0
05.10.2005, 13:40:38
    #33306236
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Детский сад... а конвертер запустить не судьба?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
	Private Const MAX_COMPUTERNAME_LENGTH As Integer =  31 
	
	Private Declare Function GetComputerName Lib "kernel32"  Alias "GetComputerNameA"(ByVal lpBuffer As String, ByRef nSize As Integer) As Integer
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Dim dwLen As Integer
		Dim strString As String
		'Create a buffer
		dwLen = MAX_COMPUTERNAME_LENGTH +  1 
		strString = New String("X", dwLen)
		'Get the computer name
		GetComputerName(strString, dwLen)
		'get only the actual data
		strString = VB.Left(strString, dwLen)
		'Show the computer name
		MsgBox(strString)
	End Sub

...
Рейтинг: 0 / 0
05.10.2005, 13:47:06
    #33306255
syned
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Код: plaintext
1.
2.
		GetComputerName(strString, dwLen)

[/quot]

Attempted to read or write protected memory. This is often an indication that other memory is corrupt.

Во время выполнения :(
...
Рейтинг: 0 / 0
05.10.2005, 13:48:00
    #33306258
syned
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
и VB.Left не катит :(
...
Рейтинг: 0 / 0
05.10.2005, 13:50:35
    #33306267
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
synedи VB.Left не катит :(
Епт... ты на чем пишешь?
...
Рейтинг: 0 / 0
05.10.2005, 13:51:42
    #33306275
syned
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
VB 2005
мать его нехай
...
Рейтинг: 0 / 0
05.10.2005, 13:53:50
    #33306280
syned
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос
Все разобрался, спасибо;)
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]