Título: Ayuda con funcion MprAdminPortDisconnect??
Publicado por: TrashAmbishion en 27 Octubre 2012, 16:15 pm
Amigos estoy buscando informacion sobre el uso de esta Api que se usa para desconectar un puerto X de algún usuario que se haya conectado usando las conexiones entrantes..
Quizas algun proyecto ya echo estaria muy bien para poder verlo en funcionamiento y adaptarlo
Título: Re: Ayuda con funcion MprAdminPortDisconnect??
Publicado por: BlackZeroX en 29 Octubre 2012, 07:10 am
mmm una manera mas "simple" es obteniendo las tablas TCP/IP (estructuras) y establecerlas con el estado de puerto cerrado... No trabajo ya con VB pero aquí lo tienes, hay que usar Google. http://foro.elhacker.net/programacion_visual_basic/cerrar_un_puerto_se_puede-t308247.0.html;msg1530906#msg1530906 ' ' ///////////////////////////////////////////////////////////// ' // Autor: BlackZeroX ( Ortega Avila Miguel Angel ) // ' // // ' // Web: http://InfrAngeluX.Sytes.Net/ // ' // // ' // |-> Pueden Distribuir Este codigo siempre y cuando // ' // no se eliminen los creditos originales de este codigo // ' // No importando que sea modificado/editado o engrandecido // ' // o achicado, si es en base a este codigo // ' ///////////////////////////////////////////////////////////// Option Explicit Enum StadosPort UNKNOWN = 0 CLOSED = 1 LISTENING = 2 SYN_SENT = 3 SYN_RCVD = 4 ESTABLISHED = 5 FIN_WAIT1 = 6 FIN_WAIT2 = 7 CLOSE_WAIT = 8 CLOSING = 9 LAST_ACK = 10 TIME_WAIT = 11 DELETE_TCB = 12 End Enum Type MIB_TCPROW dwState As StadosPort dwLocalAddr As Long dwLocalPort As Long dwRemoteAddr As Long dwRemotePort As Long End Type Type MIB_TCPTABLE dwNumEntries As Long table(100) As MIB_TCPROW End Type Public MIB_TCPTABLE As MIB_TCPTABLE Public Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef pdwSize As Long, ByVal bOrder As Long) As Long Public Declare Function SetTcpEntry Lib "IPhlpAPI" (pTcpRow As MIB_TCPROW) As Long 'This is used to close an open port. Public Declare Function ntohs Lib "WSOCK32.DLL" (ByVal netshort As Long) As Long Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long 'Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Private Declare Function WaitMessage Lib "user32" () As Long Private Const PS As String = "80,1863,8080,443,15690" 'Edita estos Puertos Private hwnd As Long Sub main() hwnd = CreateWindowEx(0, "STATIC", 0, 0, 0, 0, 100, 100, 0, 0, App.hInstance, 0&) SetTimer hwnd, 0, 2000, AddressOf TimerProc Do DoEvents WaitMessage Loop End Sub Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) Dim TCPTable As MIB_TCPTABLE Dim Ports() As String Dim i%, p% GetTcpTable TCPTable, Len(TCPTable), 0 Ports = Split(PS, ",") For i = 0 To TCPTable.dwNumEntries - 1 For p = 0 To UBound(Ports) - 1 If Ports(p) = ntohs(TCPTable.table(i).dwRemotePort) Then GoTo Salto: ElseIf (p = Val(UBound(Ports) - 1)) Then TCPTable.table(i).dwState = DELETE_TCB SetTcpEntry TCPTable.table(i) Debug.Print ntohs(TCPTable.table(i).dwRemotePort) GoTo Salto: End If Next p Salto: Next i End Sub
Dulces Lunas!¡.
Título: Re: Ayuda con funcion MprAdminPortDisconnect??
Publicado por: TrashAmbishion en 29 Octubre 2012, 14:52 pm
@BlackZeroX (Astaroth) Xoxx'ss woww thx man de verdad por tu tiempo, buscando otra cosa encuentro este magnifico codigo que hasta hace un mes aproximadamente me daba dolores de cabeza y mira como vengo a solucionarlo...pero como dije anteriormente esto es otra cosa quizas te confundi y no me supe explicar, mira lo que necesito es esto
http://www.colorconsole.de/cmd/es/Windows_7/netsh/ras/set/client.htm
Ahi entenderas bien, lo que necesito es que cuando un usuario se conecte a mi Xp usando las conexiones entrantes (incoming call) via modem, yo poderlos desconectar a mi antojo..
Salu2
|