elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda con funcion MprAdminPortDisconnect??
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con funcion MprAdminPortDisconnect??  (Leído 1,962 veces)
TrashAmbishion


Desconectado Desconectado

Mensajes: 755


Ver Perfil
Ayuda con funcion MprAdminPortDisconnect??
« 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


En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Ayuda con funcion MprAdminPortDisconnect??
« Respuesta #1 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

Código
  1.  
  2. '
  3. '   /////////////////////////////////////////////////////////////
  4. '   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
  5. '   //                                                         //
  6. '   // Web:     http://InfrAngeluX.Sytes.Net/                  //
  7. '   //                                                         //
  8. '   //    |-> Pueden Distribuir Este codigo siempre y cuando   //
  9. '   // no se eliminen los creditos originales de este codigo   //
  10. '   // No importando que sea modificado/editado o engrandecido //
  11. '   // o achicado, si es en base a este codigo                 //
  12. '   /////////////////////////////////////////////////////////////
  13.  
  14. Option Explicit
  15.  
  16. Enum StadosPort
  17.  UNKNOWN = 0
  18.  CLOSED = 1
  19.  LISTENING = 2
  20.  SYN_SENT = 3
  21.  SYN_RCVD = 4
  22.  ESTABLISHED = 5
  23.  FIN_WAIT1 = 6
  24.  FIN_WAIT2 = 7
  25.  CLOSE_WAIT = 8
  26.  CLOSING = 9
  27.  LAST_ACK = 10
  28.  TIME_WAIT = 11
  29.  DELETE_TCB = 12
  30. End Enum
  31. Type MIB_TCPROW
  32.  dwState As StadosPort
  33.  dwLocalAddr As Long
  34.  dwLocalPort As Long
  35.  dwRemoteAddr As Long
  36.  dwRemotePort As Long
  37. End Type
  38. Type MIB_TCPTABLE
  39.  dwNumEntries As Long
  40.  table(100) As MIB_TCPROW
  41. End Type
  42. Public MIB_TCPTABLE As MIB_TCPTABLE
  43. Public Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
  44. Public Declare Function SetTcpEntry Lib "IPhlpAPI" (pTcpRow As MIB_TCPROW) As Long 'This is used to close an open port.
  45. Public Declare Function ntohs Lib "WSOCK32.DLL" (ByVal netshort As Long) As Long
  46. 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
  47. Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
  48. 'Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
  49. Private Declare Function WaitMessage Lib "user32" () As Long
  50.  
  51. Private Const PS As String = "80,1863,8080,443,15690" 'Edita estos Puertos
  52. Private hwnd As Long
  53. Sub main()
  54.    hwnd = CreateWindowEx(0, "STATIC", 0, 0, 0, 0, 100, 100, 0, 0, App.hInstance, 0&)
  55.    SetTimer hwnd, 0, 2000, AddressOf TimerProc
  56.    Do
  57.        DoEvents
  58.        WaitMessage
  59.    Loop
  60. End Sub
  61.  
  62. Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
  63.    Dim TCPTable As MIB_TCPTABLE
  64.    Dim Ports() As String
  65.    Dim i%, p%
  66.    GetTcpTable TCPTable, Len(TCPTable), 0
  67.    Ports = Split(PS, ",")
  68.    For i = 0 To TCPTable.dwNumEntries - 1
  69.        For p = 0 To UBound(Ports) - 1
  70.            If Ports(p) = ntohs(TCPTable.table(i).dwRemotePort) Then
  71.                GoTo Salto:
  72.            ElseIf (p = Val(UBound(Ports) - 1)) Then
  73.                TCPTable.table(i).dwState = DELETE_TCB
  74.                SetTcpEntry TCPTable.table(i)
  75.                Debug.Print ntohs(TCPTable.table(i).dwRemotePort)
  76.                GoTo Salto:
  77.            End If
  78.        Next p
  79. Salto:
  80.    Next i
  81. End Sub
  82.  
  83.  

Dulces Lunas!¡.


En línea

The Dark Shadow is my passion.
TrashAmbishion


Desconectado Desconectado

Mensajes: 755


Ver Perfil
Re: Ayuda con funcion MprAdminPortDisconnect??
« Respuesta #2 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
« Última modificación: 29 Octubre 2012, 15:36 pm por raul338 » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda en una función
Programación Visual Basic
karmany 0 1,190 Último mensaje 6 Febrero 2006, 00:14 am
por karmany
ayuda con la funcion Do Until
Programación Visual Basic
kakinets 5 2,360 Último mensaje 24 Marzo 2006, 15:11 pm
por karmany
Funcion en PHP ..ayuda..!
PHP
SoFtDrAkE 0 1,403 Último mensaje 21 Abril 2007, 23:40 pm
por SoFtDrAkE
[Ayuda] Función IF
Programación Visual Basic
Servia 6 1,876 Último mensaje 15 Diciembre 2007, 18:22 pm
por Spider-Net
ayuda con la funcion rnd
Programación Visual Basic
pana88 2 1,200 Último mensaje 7 Enero 2008, 03:18 am
por pana88
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines