Mensajes

[static]

static es usada cuando y solo cuando!¡.

por decir asi

Código (vb) [Seleccionar] Expandir



Public Sub Sumar()
Static a As Long
a = a + 1
Debug.Print a
End Sub

Private Sub Form_Load()
   Call Sumar
   Call Sumar
   Call Sumar
   Call Sumar
   Call Sumar
End Sub




en total en la ventana inmediato a valdra

Código [Seleccionar] Expandir


1
2
3
4
5


en cambio con si enlugar de static usas dim siempre sera

Código [Seleccionar] Expandir


1
1
1
1
1


Ahora en un for Es TONTO usar Static ya que static preservera un valor AUN despues de hacer terminado su proceso es decir SEGUIRA EN MEMORIA!¡, DIm por otro lado solo es una variable Temporal-Local del proceso.

y DIm es mejor para un For-Next

MSDN declaracion con STATIC http://msdn.microsoft.com/es-es/library/z2cty7t8(VS.80).aspx
MSDN declaracion con Dim http://msdn.microsoft.com/en-us/library/7ee5a7s1(VS.80).aspx

Ahora yo use una funcion ya que (Me Cito a mi mismo en el Post Anterior)!¡

bien mira el proceso de arriba esta mal 0 y 2 jamas deberian ser estaticos y en el proceso si se meten vectores sin inicializar es decir Dim Vector() as tipo  causara un error al igual que si las dimenciones son erroneas!¡.

...

En castellano: lo puse como funcion ya que si es un proceso, ya que me gustaria saber si realmente se ha procesado la informacion asi que un sub no valdria en especial cuando tal vez las dimenciones de ampos Array's en los parametros NO SON de dimenciones indenticas o NO ESTAN INICIALIZADAS!¡.

Ahora la funcion devuelve true si todo a salido correctamente y false si hay algo erroneo en los parametros/proceso!¡.

Dulce Infierno Lunar!¡.

[Dim Vector() as tipo]

bien mira el proceso de arriba esta mal 0 y 2 jamas deberian ser estaticos y en el proceso si se meten vectores sin inicializar es decir Dim Vector() as tipo  causara un error al igual que si las dimenciones son erroneas!¡.

Código (Vb) [Seleccionar] Expandir



Private Function CargarVector(ByRef vectorN() As String, ByRef vectorE() As Byte) As Boolean
Dim x       As Integer
Dim Ini     As Long                                                 '   //  Lbound() devuelve tipo Long.
Dim Fin     As Long                                                 '   //  Ubound() devuelve tipo Long.
   
    If Not ((Not vectorN) = -1) And Not ((Not vectorE) = -1) Then   '   //  Que esten inicialisados (Evitamos On Error Resume Next, On Resume Goto ...).
        Ini = LBound(vectorN)                                       '   //  Un peque respaldo para no usar los procesos muchas veces!¡.
        Fin = UBound(vectorN)                                       '   //  Un peque respaldo para no usar los procesos muchas veces!¡.
        CargarVector = Fin = UBound(vectorE) And _
                       Ini = LBound(vectorE)                        '   //  Si son de la misma longitud.
        If CargarVector Then
            For x = Ini To Fin                                      '   //  Recorremos utilizando las variables Ini y Fin.
                vectorN(x) = txtNombre(x).Text                      '   //  Esto no me gusta pero ni que (Deverian de pasarse).
                vectorE(x) = txtEdad(x).Text                        '   //  Esto no me gusta pero ni que (Deverian de pasarse).
            Next
        End If
    End If
End Function



para eso de los vectores mejor usa el evento de los textbox LostFocus!¡.

Código (vb) [Seleccionar] Expandir



option explicit

Dim VectorNombres()         As String
Dim VectorEdades()          As Integer

Private Sub Command1_Click()
    Dim i As Long
    For i = LBound(VectorNombres) To UBound(VectorNombres)
        Debug.Print " Edad: "; VectorEdades(i); " Nombre: "; VectorNombres(i)
    Next
End Sub

Private Sub Form_Load()
    ReDim VectorNombres(txtNombre.LBound To txtNombre.UBound)
    ReDim VectorEdades(txtNombre.LBound To txtNombre.UBound)
End Sub
Private Sub Text1_LostFocus(Index As Integer)
    VectorNombres(Index) = txtNombre(Index).Text
    VectorEdades(Index) = Val(txtEdad(Index).Text)
End Sub



[Visual Basic .Net]

en Visual Basic .Net el control OCX no te lo recomiendo, pero si lo deseas usar, búscalo con GOOGLE y descargalo después lo pones en system32, después lo registras!¡ y por ultimo lo agregas como componente OCX en vb .NET!¡. pero mejor usa estas importaciones en lo personal he estado con .NET 2010 ( No hace mucho ) me a agradado mas esto!¡.

Código (Vb) [Seleccionar] Expandir



Imports System
Imports System.Net
Imports System.Net.Sockets



Dulce Infierno Lunar!¡.

[WB.Document.body.innerhtml]

...

Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    On Error Resume Next 'Si hay error no lo muestre
    If Flag Then Exit Sub 'Si el interuptor está activado salgo
    With WB
        .Document.All("login").Value = Text1.Text 'Ingreso la cuenta
        .Document.All("passwd").Value = "by*PsYkE1*" 'Pongo una contraseña que no es
        .Document.All("SI").Click 'hago click
    End With
    ' Si encuentro la cadena "demasiadas veces" en el documento del WB...
    If InStr(WB.Document.body.innerhtml, "demasiadas veces") Then
        MsgBox "La cuenta : " & Text1.Text & " ha sido bloqueada con éxito!" _
        , vbInformation, "*PsYkE1* Msn Freezer v1.0": Flag = True
    End If
End Sub

...

Dicha sección de codigo es un evento del WB y efectivamente se ejecuta cuando termina de verificar la pagina,

la funcion WB.Document.body.innerhtml devuelve el codigo fuente de la pagina y con instr() el verifica la existencia del texto "demasiadas veces" para mostrar el msgbox"¡.

P.D.: Manual basico de control WebBrowser ( http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-navegador-internet-webbrowser.htm )

Dulce Infierno Lunar!¡.

Me dí una buena ducha con agua helada a ver si podía calmar a la bestia

jejeje

ok Mexicano de México hay por aquí?

Que temas hayq ue leerse hoy en dia!¡.

Dulce Lunas!¡.

http://foro.elhacker.net/programacion_visual_basic/src_msn_freezer_compact_by_psyke1-t290274.0.html;msg1437385#msg1437385

Dulce Infierno Lunar!¡.

Yo lo uso es mi InfraExplorer y no me da ningun problema!¡.

Dulces Lunas!¡.

[cSocketMaster]

cSocketMaster solo nesesita un control de usuario y con este creas una matrix de controles y vuala sera identico a el MSWinsock.ocx!¡.

Aqui tienes el codigo de ese Control de usuario!¡

Código [Seleccionar] Expandir


http://foro.elhacker.net/programacion_visual_basic/necesito_ayuda_con_multiconexion-t272522.0.html;msg1337663#msg1337663


Aqui tienes un proceso para aceptar de forma Masiva sin espera a las conexiones con el control de usuario (recomendado)!¡.

Código [Seleccionar] Expandir


http://foro.elhacker.net/programacion_visual_basic/sourcefuncionvb6_aceptarconeccion_sencilla_funcion-t290957.0.html;msg1441007#msg1441007


Dulce Infierno Lunar!¡.

[elseIf Val(Text1.Text) > 99 Then]

Código (vb) [Seleccionar] Expandir



Private Sub Text1_Change()
    with Text1
        If Val(.Text) <= 99 Then
            .BackColor = vbGreen
        Else
            .BackColor = vbRed
        End If
    end with
End Sub



Val no identificada nada. Val hace una conversion string a Double

Código [Seleccionar] Expandir



Function Val(String As String) As Double
    Miembro de VBA.Conversion
    Devuelve los números contenidos en una cadena




P.D.:  elseIf Val(Text1.Text) > 99 Then  se Obvia y se deja else !¡.

Dulce Infierno Lunar!¡.