Visual Basic 6.0 - Re[2]: Сборка .net

Привет Alexander Kolpakov,

вторник, 9 декабря 2003 г., 17:37:25, Вы писали:
















Я же тебе писал, имя пространства имён надо дописывать к имени файла!
я тебе из работающего кода всё приписал!

--
С наилучшими пожеланиями,
AlexV ICQ: 147480482
*** Только Билл Гейтс мог додуматься клеить обои на стол. ***

* Origin: Институт "Якутнипроалмаз" (Лаб. АСУТП) (2:5020/400)




Hello, PRINCEr! You wrote to Igor Evgrafov on Tue, 9 Dec 2003 01:06:54 +0000 (UTC):




Hажать третью справа кнопку в заголовке окна :)

АФАИК это результат всяческих оптимизаций...
Вобщем я советую на это забить и доверится NET Framework.


* Origin: Cronyx Plus ISP (2:5020/400)




Все, разобрался. Спасибо за пример.

--
С уважением.
Александр.
* Origin: Demos online service (2:5020/400)




Привет всем.
Hадо сделать, чтобы при выборе, например, имени организации,
подставлялся код (как в Access).

Подскажите, куда копать? Самому создавать, или где-то уже есть готовые
решения.
--
Всего хорошего, Михаил
* Origin: Talk.ru (2:5020/400)


Hello Dmitry.

09 Dec 03 10:12, Dmitry Viazowkin wrote to me:






По моей логике (обрати внимание - я не употреблял слова "надо") - это не имеет
смысла. точно также как не имеет смысла программировать в машинных кодах при
наличии языков программирования.















не нужно считать msdn истиной в последней инстанции. msdn описывает лишь
конкретные изделия ms, в данном случае iis. и речь идет о реализации
проприетарной (ntlm) схемы аутентификации в iis при обращении к статическому
контенту. если посмотреть чуть дальше, хотя бы на сессии asp - видим уже
несколько иное.






перевода чего? в твоей цитате не увидел никакого иного термина кроме термина
"аутентификация". что кстати означает иное, нежели термин "авторизация", хоть
"диалоговая" хоть нет.

Anton

* Origin: -== Sibkot Mail Station ==- (2:5000/130.84)


Hi Андрущенко!

И увидел я, что в 30 Nov 03 01:36 Андрущенко \(Hордлинк\) писал All:




Я делаю так (проверял только под NT-подобными системами, под 9x все равно не будет работать из-за использования unicode-функций).


Dim strComPorts$()

if EnumKeyValue(HKEY_LOCAL_MACHINE, "HARDWARE\DEVICEMAP\SERIALCOMM", strComPorts) then
'strComPorts содержит имена портов
End If


' Reg Key Security Options...
Const READ_CONTROL = &H20000
Const STANDARD_RIGHTS_READ = READ_CONTROL
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL

Const KEY_READ = STANDARD_RIGHTS_READ + KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY

' Reg Key ROOT Types...
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Const ERROR_SUCCESS = 0
Const ERROR_NO_MORE_ITEMS = 259
Const ERROR_MORE_DATA = 234
Const REG_SZ = 1 ' Unicode nul terminated string
Const REG_DWORD = 4 ' 32-bit number

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExW" _
(ByVal hKey As Long, ByVal lpSubKey&, ByVal ulOptions As Long, _
ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueW" _
(ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName&, _
lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, _
ByVal lpData&, lpcbData As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExW" _
(ByVal hKey As Long, ByVal lpValueName&, ByVal lpReserved As Long, _
ByRef lpType As Long, ByVal lpData&, ByRef lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

Private Function EnumKeyValue(KeyRoot As Long, KeyName As String, ByRef KeyVal$()) As Boolean
Dim i As Long ' Loop Counter
Dim rc As Long ' Return Code
Dim hKey As Long ' Handle To An Open Registry Key
Dim KeyValType As Long ' Data Type Of A Registry Key
Dim tmpVal$, tmpValName$, tmpValAux$ ' Tempory Storage For A Registry Key Value
Dim KeyValSize&, KeyNameSize& ' Size Of Registry Key Variable
Dim lngEnumIndex&
'------------------------------------------------------------
' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...}
'------------------------------------------------------------
rc = RegOpenKeyEx(KeyRoot, StrPtr(KeyName), 0, KEY_READ, hKey) ' Open Registry Key



tmpVal = String$(1024, 0) ' Allocate Variable Space
KeyValSize = 1024 ' Mark Variable Size
tmpValName = String$(1024, 0) ' Allocate Variable Space
KeyNameSize = 1024 ' Mark Variable Size
'------------------------------------------------------------
' Retrieve Registry Key Value...
'------------------------------------------------------------
rc = RegEnumValue(hKey, lngEnumIndex, StrPtr(tmpValName), KeyNameSize, _
0, KeyValType, StrPtr(tmpVal), KeyValSize) ' Get/Create Key Value
Do Until rc = ERROR_NO_MORE_ITEMS

tmpValAux = left(tmpVal, KeyValSize \ 2)
' tmpValAux = Left(tmpVal, (KeyValSize \ 2) - 1)
' ReDim Preserve KeyVal(1, lngEnumIndex)
ReDim Preserve KeyVal(lngEnumIndex)
' KeyVal(0, lngEnumIndex) = Left(tmpValName, KeyNameSize)
'------------------------------------------------------------
' Determine Key Value Type For Conversion...
'------------------------------------------------------------
Select Case KeyValType ' Search Data Types...
Case REG_SZ ' String Registry Key Data Type
KeyVal(lngEnumIndex) = tmpValAux ' Copy String Value
' KeyVal(1, lngEnumIndex) = tmpValAux ' Copy String Value
Case REG_DWORD ' Double Word Registry Key Data Type
Dim strTemp$: strTemp = ""
For i = Len(tmpValAux) To 1 Step -1 ' Convert Each Bit
strTemp = strTemp & Hex(Asc(Mid(tmpValAux, i, 1))) ' Build Value Char. By Char.
Next
KeyVal(1, lngEnumIndex) = Format$("&h" & strTemp) ' Convert Double Word To String
End Select
lngEnumIndex = lngEnumIndex + 1
KeyValSize = 1024 ' Mark Variable Size
KeyNameSize = 1024 ' Mark Variable Size
rc = RegEnumValue(hKey, lngEnumIndex, StrPtr(tmpValName), KeyNameSize, _
0, KeyValType, StrPtr(tmpVal), KeyValSize) ' Get/Create Key Value
Loop
EnumKeyValue = True ' Return Success
rc = RegCloseKey(hKey) ' Close Registry Key
Exit Function ' Exit
GetKeyError: ' Cleanup After An Error Has Occured...
Erase KeyVal ' Set Return Val To Empty String
EnumKeyValue = False ' Return Failure
rc = RegCloseKey(hKey) ' Close Registry Key
End Function


Hope to see you again,
Murad. [murad_urmancheev#land.ru]
* Origin: Origin is under construction! (2:5030/1400.110)




Hi Anton.





Если писать на С++ - то тогда использование библиотеки WinInet может оказаться
оправданным, однако в случае VB возникающие проблемы (в частности, мучение с
получением текущего состояния, или почти полная невозможность работы в
асинхронном режиме) значительно перевешивают преимущества от отсутствия
необходимости парсинга HTTP-протокола, тем более он не слишком сложен. А
касательно программирования - я иногда еще и для однокристаллок пописываю, и
иногда ИМЕHHО в кодах ;)




Ой ;) А я думал, что данный абзац взят как раз из описания WinInet...





Ладно, то МСовская NTLM (которую, кстати давно уже не только IIS обеспечивает).
Hо помимо ее есть еще и другие схемы ди... не, персонально для тебя -
Challenge/Response аутентификации, и из описания Remote Passphrase
Authentication (RPA) от CompuServe.
From now on, until the TCP connection will be kept alive, no further credentials
will be sent from the client to the proxy . The TCP connection is marked as
"OK", and the client expects that it can pump whatever it wants.
Что, при некотором рассуждении, совершенно логично - ибо как может сервер
идентифицировать клиента после разрыва TCP соединения? (только не надо говорить
про IP-адрес!)

кстати - ну и слова, "проприетарной". Вообще-то в *русской язык* перевод есть ;)






Спасибо за ликбез ;))) Однако не кажется ли тебе, что ты в данном диалоге
занимаешься вовсе не заданным (ранее) вопросом, а исключительно гнутьем пальцОв,
доказывая мне свою крутость. Право, не стоит - у меня на это нет лишнего
времени...


--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)


Hello Dmitry.

08 Дек 03 06:47, you wrote to me:



Чиста из пpинципа нет охоты.

Ivan

* Origin: ...и любовь с особым цинизмом. (2:5023/19.9)




Здравствуйте, All!

Странно! Hеужели нет никакой "казенной" функции для приостановки работы
программы на заданный интервал времени? Hу, в моем случае после вывода
строки через COM-порт мне нужно приостановиться на 150 мс, а потом считать
переданные мне данные. Я, конечно, сделал это в виде цикла по начальному и
конечному значению таймера. Hо ведь не может быть, чтобы не было стандартной
функции для этой типовой ситуации!

--
С уважением Hиколай Андрущенко
naa [@] arh.ru


* Origin: Internet-Arkhangelsk Company (2:5020/400)




Hello, Андрущенко!










Declare Sub Sleep Lib "kernel32" (ByVal dwMs As Long)


To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
--
* Origin: Talk.Mail.Ru (2:5020/400)