Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите пишу прогу для работать с реестром на удалённом компьютере / 25 сообщений из 103, страница 1 из 5
  1  все
09.06.2010, 09:46
    #36677069
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
Private Sub Command1_Click()
Dim lRetVal As Long
Dim hKey As Long
Dim sValue As String

lRetVal = RegOpenKeyEx(hRemoteReg, _
"HARDWARE\DESCRIPTION\System", 0, KEY_QUERY_VALUE, hKey)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot open key"
Else
sValue = String(255, " ")
lRetVal = RegQueryValueExString(hKey, _
"SystemBIOSVersion", 0&, REG_SZ, sValue, 255)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot query value"
Else
MsgBox sValue
End If
lRetVal = RegCloseKey(hKey)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot close key"
End If
End If
End Sub

Private Sub Form_Load()

Option Explicit

Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003

Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_ALL_ACCESS = &H3F

Private Const REG_SZ As Long = 1
Private Const ERROR_SUCCESS = 0&

Private Declare Function RegConnectRegistry Lib "advapi32.dll" _
Alias "RegConnectRegistryA" _
(ByVal lpMachineName As String, _
ByVal hKey As Long, _
phkResult As Long) As Long

End Property

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" _
(ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long

Private Declare Function RegQueryValueExString Lib "advapi32.dll" _
Alias "RegQueryValueExA" _
(ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, _
lpType As Long, _
ByVal lpData As String, _
lpcbData As Long) As Long

Private hRemoteReg As Long
End Sub
Private Sub Form_Load()
Dim lRet As Long

'Connect to the remote registry
lRet = RegConnectRegistry("\\RemoteMachineName", _
HKEY_LOCAL_MACHINE, _
hRemoteReg)

If (lRet = ERROR_SUCCESS) Then
MsgBox "Successfully connected to remote registry"
Else
MsgBox "Error:" & Err.LastDllError
Unload Me
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lRet As Long
If hRemoteReg <> 0 Then
lRet = RegCloseKey(hRemoteReg)
End If
End Sub

End Sub


но выходит ошибка
в

Private Declare Function RegConnectRegistry Lib "advapi32.dll" _
Alias "RegConnectRegistryA" _
(ByVal lpMachineName As String, _
ByVal hKey As Long, _
phkResult As Long) As Long


""""""""""ОШИБКА""""""""""
Compile eror :
only comments may appear after End Sub, End Function or End property
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

Что делать???????????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 09:51
    #36677092
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
Код: plaintext
1.
2.
End Sub

End Sub

Что непонятно в тексте ошибки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:01
    #36677122
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
Private Sub Command1_Click()
Dim lRetVal As Long
Dim hKey As Long
Dim sValue As String

lRetVal = RegOpenKeyEx(hRemoteReg, _
"HARDWARE\DESCRIPTION\System", 0, KEY_QUERY_VALUE, hKey)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot open key"
Else
sValue = String(255, " ")
lRetVal = RegQueryValueExString(hKey, _
"SystemBIOSVersion", 0&, REG_SZ, sValue, 255)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot query value"
Else
MsgBox sValue
End If
lRetVal = RegCloseKey(hKey)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot close key"
End If
End If
End Sub

Private Sub Form_Load()

Option Explicit

Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003

Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_ALL_ACCESS = &H3F

Private Const REG_SZ As Long = 1
Private Const ERROR_SUCCESS = 0&

Private Declare Function RegConnectRegistry Lib "advapi32.dll" _
Alias "RegConnectRegistryA" _
(ByVal lpMachineName As String, _
ByVal hKey As Long, _
phkResult As Long) As Long


Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" _
(ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long

Private Declare Function RegQueryValueExString Lib "advapi32.dll" _
Alias "RegQueryValueExA" _
(ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, _
lpType As Long, _
ByVal lpData As String, _
lpcbData As Long) As Long

Private hRemoteReg As Long
End Sub
Private Sub Form_Load()
Dim lRet As Long

'Connect to the remote registry
lRet = RegConnectRegistry("\\RemoteMachineName", _
HKEY_LOCAL_MACHINE, _
hRemoteReg)

If (lRet = ERROR_SUCCESS) Then
MsgBox "Successfully connected to remote registry"
Else
MsgBox "Error:" & Err.LastDllError
Unload Me
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lRet As Long
If hRemoteReg <> 0 Then
lRet = RegCloseKey(hRemoteReg)
End If
End Sub

End Sub


но выходит ошибка
в

Private Declare Function RegConnectRegistry Lib "advapi32.dll" _
Alias "RegConnectRegistryA" _
(ByVal lpMachineName As String, _
ByVal hKey As Long, _
phkResult As Long) As Long
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:04
    #36677130
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
это я там уже х стродал помоги пожалуйста
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:09
    #36677145
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
как правильно его составить помоги????????????????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:10
    #36677148
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
kingarthyr,

1) Я уже ответил, привел фрагмент неверного кода
2) Прочти правила форума, научись оформлять код в сообщениях
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:10
    #36677151
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
Shocker.Pro,
не получаться помоги
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:13
    #36677158
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
Еще там проблема - определения констант и Option не могут быть внутри процедуры.
Дальше не смотрел.

Хочешь стать крутым мегакулхацкером? Отредактировать чужой реестр? Книжки сначала почитай немножко по VB, а то молоко еще на губах не обсохло
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:15
    #36677163
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
Shocker.Pro а то молоко еще на губах не обсохло

ха, сорвался, а я так ждал, так ждал ....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:17
    #36677167
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
ну справедливости ради держался ты ОЧЕНЬ долго. Я бы и 10% не выдержал от твоего

respect!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:18
    #36677171
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
да мне это по диплому надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:20
    #36677182
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
Shocker.Pro,
а как константу забивать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:23
    #36677196
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
[quot Shocker.Pro]Еще там проблема - определения констант и Option не могут быть внутри процедуры.
Дальше не смотрел.

А Как это я с программистикой не очень на VB работал на 1 курсе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:26
    #36677211
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
kingarthyrэто я там уже х стродал помоги пожалуйстаkingarthyrА Как это я с программистикой не очень на VB работал на 1 курсе
Да, пожалуй я погорячился насчет учебника по VB. Начать надо с учебника русского языка :-\
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:28
    #36677214
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
ну как константу вводить????????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:29
    #36677218
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
 
2ShamanusShamanusShocker.Pro а то молоко еще на губах не обсохло


ха, сорвался, а я так ждал, так ждал ....

Ха.
Неужели эта тема прошла мимо тебя?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:30
    #36677221
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
kingarthyrну как константу вводить????????
С помощью Const.
Описание есть в хелпе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:47
    #36677307
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
Shocker.Pro
 

жесть, особенно на фразе

Yuliya_7Я хорошо умею работать с SQL севером. А что на этом форуме сначала выясняют квалификацию, а потом дают ответы?


но все равно, это нечестная тема, там ты слишком вежливо ответил несмотря на идиотские посты.
Эту тему мы заносим в разряд культовых
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:54
    #36677339
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
 
ShamanusShocker.Pro
жесть, особенно на фразе

Yuliya_7Я хорошо умею работать с SQL севером. А что на этом форуме сначала выясняют квалификацию, а потом дают ответы?


но все равно, это нечестная тема, там ты слишком вежливо ответил несмотря на идиотские посты.
Эту тему мы заносим в разряд культовых
У нас одна девочка написала в резюме:
В совершенстве владею программой Windows Media Player версии 9
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 10:56
    #36677349
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
Shocker.Pro,
Private Sub Form_Load()

Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003

Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_ALL_ACCESS = &H3F

Private Const REG_SZ As Long = 1
Private Const ERROR_SUCCESS = 0&

Private Declare Function RegConnectRegistry Lib "advapi32.dll" _
Alias "RegConnectRegistryA" _
(ByVal lpMachineName As String, _
ByVal hKey As Long, _
phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" _
(ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long

Private Declare Function RegQueryValueExString Lib "advapi32.dll" _
Alias "RegQueryValueExA" _
(ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, _
lpType As Long, _
ByVal lpData As String, _
lpcbData As Long) As Long

Private hRemoteReg As Long
End Sub
Private Sub Form_Load()
Dim lRet As Long

'Connect to the remote registry
lRet = RegConnectRegistry("\\RemoteMachineName", _
HKEY_LOCAL_MACHINE, _
hRemoteReg)

If (lRet = ERROR_SUCCESS) Then
MsgBox "Successfully connected to remote registry"
Else
MsgBox "Error:" & Err.LastDllError
Unload Me
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lRet As Long
If hRemoteReg <> 0 Then
lRet = RegCloseKey(hRemoteReg)
End If

End Sub

все ровно не помучается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 11:02
    #36677369
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
А что пишет? :)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 11:05
    #36677385
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
kingarthyrвсе ровно не помучается

Ровно не получается, криво - тоже не получается

Я уже говорил - декларации констант (а заодно и АПИ-функций) не могут быть внутри процедуры. Вынесите их в общий раздел модуля.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 11:06
    #36677387
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
Игорь Горбонос,

""""""""""ОШИБКА""""""""""
Compile eror :
only comments may appear after End Sub, End Function or End property
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 11:08
    #36677390
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
kingarthyr,

а зачем
Код: plaintext
Private Sub Form_Load()
ты объявил два раза?

А еще я просил прочитать правила форума и научиться оформлять код
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2010, 11:11
    #36677403
kingarthyr
kingarthyr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите пишу прогу для работать с реестром на удалённом компьютере
я взял этот код с
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Как в Visual Basic 6.0 работать с реестром на удалённом компьютере
http://www.source-code.ru/msdn/howto/q315586.shtml

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите пишу прогу для работать с реестром на удалённом компьютере / 25 сообщений из 103, страница 1 из 5
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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