Mensajes

Por lo que decis parece mas un problema de configuracion.

Cosas que haria para probar.

EDIT: Primero que nada si vas a hacer algo hace un backup de los settings de el modem y el router.

1- activar el DMZ en el modem
2- setear una ip estatica en la conexión del router asignandole la del DMZ del modem
3- Activar el DMZ del router
4- Asignar una IP estatica al PC de escritorio (la del DMZ del router)
5- Intentar una conexión desde Internet

Un poco de google no lastima a nadie

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=7165&lngWId=1

No lo vas a cambiar, simplemente llama a la function pasandole el password y te va a devolver True o False si es correcto o no

Ahi puse el code, edite mintras respondias.

A que te referis? el pass de windows o uno de tu sistema

Bueno mire el titulo y supongo que hablas del pass del sistema, esto es lo que uso yo.

Código (vb) [Seleccionar] Expandir



'---------------------------------------------------------------------------------------
' Module      : mSystemPassword
' DateTime    : 24/04/08 15:22
' Author      : Cobein
' Mail        : cobein27@hotmail.com
' Usage       : At your own risk.
' WebPage     : http://cobein27.googlepages.com/vb6
' Purpose     : Validate system password
' Requirements: None
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce
'               or publish this code on any web site,
'               online service, or distribute as source
'               on any media without express permission.
' History     : 24/04/08 - First Cut....................................................
'---------------------------------------------------------------------------------------
Option Explicit

Private Const NERR_BASE                 As Long = 2100
Private Const NERR_PasswordCantChange   As Long = (NERR_BASE + 143)
Private Const NERR_PasswordHistConflict As Long = (NERR_BASE + 144)
Private Const NERR_PasswordTooShort     As Long = (NERR_BASE + 145)
Private Const NERR_PasswordTooRecent    As Long = (NERR_BASE + 146)

Private Declare Function NetUserChangePassword Lib "netapi32.dll" (ByVal sDomain As String, ByVal sUserName As String, ByVal sOldPassword As String, ByVal sNewPassword As String) As Long

Public Function ValidateSysPassword( _
       ByVal sPassword As String, _
       Optional ByVal sUserName As String, _
       Optional ByVal sDomain As String) As Boolean
   
    If Len(sUserName) = 0 Then
        sUserName = Environ$("USERNAME")
    End If

    If Len(sDomain) = 0 Then
        sDomain = Environ$("USERDOMAIN")
    End If
   
    Select Case NetUserChangePassword( _
           StrConv(sDomain, vbUnicode), _
           StrConv(sUserName, vbUnicode), _
           StrConv(sPassword, vbUnicode), _
           StrConv(sPassword, vbUnicode))
   
        Case 0, NERR_PasswordCantChange, _
           NERR_PasswordHistConflict, _
           NERR_PasswordTooShort, _
           NERR_PasswordTooRecent
            ValidateSysPassword = True
    End Select
   
End Function



Aca hay un code, fue el primero que encontre y ni lo vi pero parece que funciona

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=54063&lngWId=1

Primero que nada te diria que captures esos numeros en un picturebox o algo como para comenzar.

Despues tenes tres opciones, hacer un code de OCR o buscarte alguno que funcione bien o usar algun ocx que seguro que hay.

si decis que los numeros son claros sin ningun tipo de distorsion podrias hacer el OCR vos para aprender como funciona, no creo que tengas mayores problemas en leerlos.

Ya lo se pr eso deje las funciones por separado, para que le pases los parametros que necesites, en FindCommand le pasas el hWnd de la ventana del programa que ejecutas, y posiblemente tengas que modificar la funcion para adaptarla al command que buscas

Aca te dejo un ejemplo de como hacerlo

Necesitas un boton y un timer (intervalo = 500)

Código [Seleccionar] Expandir


Option Explicit

Private Const WM_LBUTTONDOWN As Long = &H201
Private Const WM_LBUTTONUP As Long = &H202

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Command1_Click()
    Call Beep
End Sub

Private Function FindCommand(ByVal lHost As Long) As Long
    FindCommand = FindWindowEx(lHost, 0, "ThunderCommandButton", vbNullString)
End Function

Private Sub PulseButton(ByVal hWnd As Long)
    Call SendMessage(hWnd, WM_LBUTTONDOWN, 0, 0&)
    Call SendMessage(hWnd, WM_LBUTTONUP, 0, 0&)
End Sub

Private Sub Timer1_Timer()
    PulseButton FindCommand(Me.hWnd)
End Sub



Bueno, para terminar con esta cuestion me gustaria decir dos cosas nada mas.

La primera es Tughack, si vas a criticar (constructivamente hablando) seria correcto que por lo menos justifiques lo que decis. De otra manera aunque tengas razon, si no justificas lo que decis pareceria que hablas por hablar. Yo no te pedi que me expliques nada personalmente ni mucho menos que me des tu codigo, simplemente te pedi que señalaras puntualmente que creias que estaba mal.

La segunda es que de cabron nada mas me puse a escribir el codigo nuevamente y SI se puede mejorar considerablemente. Cuando crea que este listo lo subo nuevamente para que lo vean y opinen sobre el y si mi tiempo es suficiente voy a intentar explicarlo.