| Вопрос: подкиньте код | Добавлено: 29.05.06 01:59 |
Автор вопроса:  ArtBase | ICQ: 55593017 |
| люди, плиз, срочно. подкиньте код проги, которая может отключать комп от инета (ADSL и проч.). или хотя бы подскажите есть ли вообще такие проги в инете и где. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 29.05.06 02:06 |
|
DialUp:
Public Sub HangUp() Dim i As Long Dim lpRasConn(255) As RasConn Dim lpcb As Long Dim lpcConnections As Long Dim hRasConn As Long lpRasConn(0).dwSize = RAS_RASCONNSIZE lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize lpcConnections = 0 ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections) If ReturnCode = ERROR_SUCCESS Then For i = 0 To lpcConnections - 1 If Trim(ByteToString(lpRasConn(i).szEntryName)) = Trim(gstrISPName) Then hRasConn = lpRasConn(i).hRasConn ReturnCode = RasHangUp(ByVal hRasConn) End If Next i End If End Sub Public Function ByteToString(bytString() As Byte) As String Dim i As Integer ByteToString = "" i = 0 While bytString(i) = 0& ByteToString = ByteToString & Chr(bytString(i)) i = i + 1 Wend End Function Private Sub Form_Load() HangUp End Sub модуль Public Const RAS_MAXENTRYNAME As Integer = 256
Public Const RAS_MAXDEVICETYPE As Integer = 16 Public Const RAS_MAXDEVICENAME As Integer = 128 Public Const RAS_RASCONNSIZE As Integer = 412 Public Type RasEntryName dwSize As Long szEntryName(RAS_MAXENTRYNAME) As Byte End Type Public Type RasConn dwSize As Long hRasConn As Long szEntryName(RAS_MAXENTRYNAME) As Byte szDeviceType(RAS_MAXDEVICETYPE) As Byte szDeviceName(RAS_MAXDEVICENAME) As Byte End Type Public Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long Public Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long Public gstrISPName As String Public ReturnCode As Long |
||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 29.05.06 02:08 |
| хотя подозреваю что можно и через rundll32.exe... токо чё-то пока ненайду... | ||
|
Номер ответа: 3 Автор ответа: ArtBase ICQ: 55593017 Вопросов: 23 Ответов: 76 |
Профиль | | #3 | Добавлено: 29.05.06 18:44 |
| не. у меня не диалап. у меня инет по кабельному идёт. ведь есть у "антихакера касперского" ползунок, переместив который на самый верх - обрубятся все соединения. вот как так отключить всё это дело? | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 29.05.06 19:42 |
 ну да, в ring0 и не такое можно но это ж незначит что на ВБ можно...
|
||
|
Номер ответа: 5 Автор ответа: student-uni Вопросов: 122 Ответов: 257 |
Профиль | | #5 | Добавлено: 29.05.06 23:18 |
| HangUp разрывает любое РАС соединение, не только диалап | ||
|
Номер ответа: 6 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #6 | Добавлено: 31.05.06 11:45 |
| Круто... | ||
Страница: 1 |