| |
|
|
| |
to: Мария
(09.01.2008 в 15:38)
|
| |  
| |
| |
| |
| |
|
|
| |
to: час
(06.01.2008 в 18:32)
|
| | Большое спасибо! Все получилось. Прошу прощения за задержку с ответом, не было возможности выходить в интернет. | |
| |
| |
| |
|
|
| |
to: час
(06.01.2008 в 16:54)
|
| | не знай получилося или нет  | |
| |
| |
| |
|
|
| |
to: час
(06.01.2008 в 16:53)
|
| |
Me!Поле = " Пользователь " & GetComputerName()
|
что бы воспользоваться | |
| |
| |
| |
|
|
| |
to: Мария
(06.01.2008 в 16:41)
|
| |
Public Declare Function GetComputerNameA Lib "Kernel32" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
' Возвращает имя компьютера в сети
Function GetComputerName() As String
Const MAX_COMUTERNAME = 99
Dim lpBuffer As String * MAX_COMUTERNAME
Dim lenString As Long
On Error GoTo GetComputerName_Error
Call SysCmd(acSysCmdSetStatus, "Osnovnoy -> " & "GetComputerName")
lenString = MAX_COMUTERNAME
Call GetComputerNameA(lpBuffer, lenString)
'GetComputerName = Left$(lpBuffer, lenString)
GetComputerName = StrConv(Left$(lpBuffer, lenString), vbLowerCase)
On Error GoTo 0
Exit Function
GetComputerName_Error:
End Function
|
| |
| |
| |
| |
|
|
| | Поздравляю всех с наступившим Новым годом и наступающим Рождеством! Счастья, здоровья, любви, исполнения желаний!
Снова прошу помощи. Мне нужно запретить вызывать одну форму на всех компьютерах, кроме одного. Думаю при ее открытии проверять сетевое имя компьютера, но не знаю, как можно его получить. | |
| |
| |
