| Вопрос: Слежка за братом! | Добавлено: 24.03.06 18:10 |
Автор вопроса:  DaaGER | Web-сайт: smartic.ru | ICQ: 329195567 |
| Мне нужна программа которая записывала бы когда пользователь выходит в Инет и под каким соединением (его имя) и когда отключается! |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 24.03.06 18:31 |
HomeWorkStatist  правда не поддерживается он более, но всем перечисленным обладает Вообще же можно и написать, это не много и не долго.
|
||
|
Номер ответа: 2 Автор ответа:  ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #2 | Добавлено: 24.03.06 19:15 |
|
StatWin. Я им уже 6 лет пользуюсь... Ведет статистику запусков
компьютера и выхода в инет. Записывает время входа/выхода, имя юзера, соединение. |
||
|
Номер ответа: 3 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #3 | Добавлено: 24.03.06 19:58 |
|
Во, наведу на мысль.
Только, нужно подключить мозги, а то пишет по таймеру. Код, записвает в файл, время и дату начала и конца соединения: Option Explicit
Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long Private Const RAS95_MaxEntryName = 256 Private Const RAS95_MaxDeviceType = 16 Private Const RAS95_MaxDeviceName = 32 Private Type RASCONN95 dwSize As Long hRasCon As Long szEntryName(RAS95_MaxEntryName) As Byte szDeviceType(RAS95_MaxDeviceType) As Byte szDeviceName(RAS95_MaxDeviceName) As Byte End Type Private Type RASCONNSTATUS95 dwSize As Long RasConnState As Long dwError As Long szDeviceType(RAS95_MaxDeviceType) As Byte szDeviceName(RAS95_MaxDeviceName) As Byte End Type Public Function IsConnected() As Boolean Dim TRasCon(255) As RASCONN95 Dim lg As Long Dim lpcon As Long Dim RetVal As Long Dim Tstatus As RASCONNSTATUS95 TRasCon(0).dwSize = 412 lg = 256 * TRasCon(0).dwSize RetVal = RasEnumConnections(TRasCon(0), lg, lpcon) Tstatus.dwSize = 160 RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus) If Tstatus.RasConnState = &H2000 Then IsConnected = True Else IsConnected = False End If End Function Private Sub Timer1_Timer() Dim FNum As Integer If IsConnected() Then FNum = FreeFile Open App.Path & "\log.txt" For Append As FNum Print #FNum, "Начало соединения: " & Now Close FNum Else FNum = FreeFile Open App.Path & "\log.txt" For Append As FNum Print #FNum, "Конец соединения: " & Now Close FNum End If End Sub |
||
|
Номер ответа: 4 Автор ответа: DaaGER ICQ: 329195567 Вопросов: 52 Ответов: 67 |
Web-сайт: Профиль | | #4 | Добавлено: 25.03.06 00:07 |
| А имя соединения он (код) записывает, а то брат любит посидеть под моим соединением, а мне влом его удалять, чтобы заново не создавать. | ||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 25.03.06 02:35 |
|
У меня аналогичная трабла была
только с малой сестрой и папиком
Ну с сестрой я быстро разобрался, сказал полезишь - леща, а то и в ухо
А папику сказал будешь лазить - поставлю пароль на биос. Что такое биос он незнает, но я довольно доходчиво объяснил что комп он не включит
|
||
|
Номер ответа: 6 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #6 | Добавлено: 25.03.06 05:44 |
|
Гы... Мне бы Ваши траблы.
HACKER а если папик узнает что такое БИОС,FAT32,NTFS и Linux? И если не захочет помнить пароли биоса а начнет дергать батарейку? Да и сестра подрастет. |
||
|
Номер ответа: 7 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #7 | Добавлено: 25.03.06 06:37 |
|
Посмотри в примерах на сайте, не много подбацай и ОПА, готово!
|
||
|
Номер ответа: 8 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #8 | Добавлено: 05.05.06 12:02 |
|
И если не захочет помнить пароли биоса а начнет дергать батарейку?
а разве так пасс чистится? чет такого не припомню |
||
|
Номер ответа: 9 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #9 | Добавлено: 05.05.06 13:25 |
|
а разве так пасс чистится?
От материнки зависит. Бывает, что чистится. |
||
|
Номер ответа: 10 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #10 | Добавлено: 05.05.06 18:56 |
| По идее не должен чиститься. Он же в энергонезависимую память записывается. А вообще единственный верный способ защитить свой компьютер - накрыть чехлом с обычным висячим замком. | ||
|
Номер ответа: 11 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #11 | Добавлено: 05.05.06 22:06 |
|
архиологи
|
||
Страница: 1 |