Mensajes

Eso por lo general pasa cuando usas https y http a la vez

Código (vb) [Seleccionar] Expandir


Private Function IsNumeric_r338v2(ByVal str As String) As Boolean
    Dim cReg As Object
    Set cReg = CreateObject("VBScript.RegExp")
    str = Trim$(str)
    With cReg
        ' Testeamos con . como separador de miles y , como separador de decimales
        ' Personalmente seria para mi "^-?(?:\d{1,3}(?:\.\d{3})*|\d+)(?:\,\d+)?$"
        ' ya que 133.23.330 no es un numero aunque IsNumeric diga que si ¬¬
        .Pattern = "^[+\-]?(?:\d{1,3}(?:\.\d{1,3})*|\d*)\,?\d*?$"
        .Global = True
        .IgnoreCase = True
    End With
    IsNumeric_r338v2 = cReg.Test(str)
    If Not IsNumeric_r338v2 Then
        While InStr(str, "..")
            str = Replace$(str, "..", vbNullString)
        Wend
        ' Testeamos con , como separador de miles y . como separador de decimales
        cReg.Pattern = "^[+\-]?(?:\d{1,3}(?:\,\d{3})*|\d+)\.?\d*$"
        IsNumeric_r338v2 = cReg.Test(str)
    End If
    Set cReg = Nothing
End Function


Obviamente ya no es la mas rápida, lo arregle para los caprichos de IsNumeric (desde cuando 1..2..3 es un numero?!!!)

Código [Seleccionar] Expandir


sTest                  IsNumeric_r338   IsNumeric  CDbl(sTest)
1..3                   Verdadero        Verdadero       13
+33.2                  Verdadero        Verdadero       332
11111111111111111111   Verdadero        Verdadero       1,11111111111111E+19
12,12                  Verdadero        Verdadero       12,12
12.12                  Verdadero        Verdadero       1212
133.23.330             Verdadero        Verdadero       13323330
36.658,30              Verdadero        Verdadero       36658,3
81,838.59              Verdadero        Verdadero       81,83859
-65,1                  Verdadero        Verdadero       -65,1
12,23,34               Falso            Falso      
asdf                   Falso            Falso      
a12f                   Falso            Falso      
1..1                   Verdadero        Verdadero       11
1,,1                   Falso            Falso      
1..2..3                Verdadero        Verdadero       123


Se puede y de hecho yo ayude a montar uno

Del router A tenes que conectar al puerto WAN del router B y a este configurarlo como IP fija (sin DHCP) y listo :3 tenes una subred. Si queres abrir puertos tendras que abrir puertos en ambos routers. En el router A tendras que abrirlos con la ip del Router B y no de la PC a la que queres que acceda

@beholdte: Sabés que empezé a hurgar entre las fotos que tengo (normalmente no soy de sacarme fotos) ... y me dí cuenta de algo terrible ! x'D

En todas las fotos que me saqué, estoy siempre con la que dice "/* No comment */" o "I see dumb people" (o "No, I will not fix your computer") ... no sé por qué x'D

Tambien me gustaria saber donde las hiciste , y jamas te vi con otras remeras

Lo malo de hacerlas en casa es que chupan la RÉ tinta

Yo intentaría asi

Código (vb) [Seleccionar] Expandir


Private Declare Function SendMessageTimeout lib "USER32" Alias "SendMessageTimeoutA" _
        (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
         lParam As Any, ByVal fuFlags As Long, ByVal uTimeout As Long, _
         ByVal lpdwResult As Long) As Long
Private Const SMTO_BLOCK As Long = &H1 ' Previene que tu aplicacion procese mensajes mientras se espera
Private Const SMTO_ERRORONEXIT As Long = &H20 ' Devuelve 0 si el proceso de destino finaliza o la ventana es destruido
Private Const WM_GETTEXT As Long = &HD

Function IsAlive(ByVal hwnd as Long, Optional ByVal TimeOut as Long = 4500) as Boolean
    IsAlive = SendMessageTimeout(hwnd, WM_GETTEXT, 0, 0, SMTO_BLOCK Or SMTO_ERRORONEXIT, TimeOut)
End Function


Aunque no lo he probado ni yo por apurado

Abajo hay una nota que dice claramente

Nota: Para ver el estado del programa para ver si este responde o no, se usa la función del api SendMessageTimeout.

Que se usaría algo así

Código (vb) [Seleccionar] Expandir


Private Declare Function SendMessageTimeout lib "USER32" Alias "SendMessageTimeoutA" _
        (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
         lParam As Any, ByVal fuFlags As Long, ByVal uTimeout As Long, _
         ByVal lpdwResult As Long) As Long

' Constantes para fuFlags
Private Const SMTO_ABORTIFHUNG As Long = &H2 ' No espera a que se termine el TimeOut
Private Const SMTO_BLOCK As Long = &H1 ' Previene que tu aplicacion procese mensajes mientras se espera
Private Const SMTO_NORMAL As Long = &H0 ' No previene que tu aplicacion procese mensajes mientras se espera
Private Const SMTO_NOTIMEOUTIFNOTHUNG As Long = &H8 ' Si el proceso destino procesa mensajes no espera a el TimeOut
Private Const SMTO_ERRORONEXIT As Long = &H20 ' Devuelve 0 si el proceso de destino finaliza o la ventana es destruido


putear = insultar al aire

tenemos que aprender el español "de españa" para entenderlos? no jodan, aprendan argentino (?

sera tu configuracion. Yo desactivo los resutados en videos y hasta ahora no hay tutorial que no haya encontrado. Tampoco hay soluciones a todos los problemas, yo necesito algo en asm (yo no se asm) y en google no hay

Si solo te dedicas a putear no lograrás nada. No es lo mismo actualizacion de drivers que una actualizacion de firmware que encima puede estar mal hecho

Actualizaciones de driver o de firmware?