Mensajes

Aun le falta...!¡.

Código [Seleccionar] Expandir



Dim tt(100) As Double
tt(0) = 6
tt(1) = 8
tt(2) = 9
tt(3) = 10
tt(4) = 11
tt(5) = 12
tt(6) = 12
tt(7) = 12
tt(8) = 13
tt(9) = 14
tt(10) = 15
tt(11) = 16
tt(12) = 17
tt(13) = 18
tt(14) = 19
tt(15) = 19
tt(16) = 19
tt(17) = 20
tt(18) = 20
tt(19) = 21
tt(20) = 21
tt(21) = 22
tt(22) = 23
tt(23) = 24
tt(24) = 24
tt(25) = 25
tt(26) = 25
tt(27) = 25
tt(28) = 27
tt(29) = 28
tt(30) = 29
tt(31) = 31
tt(32) = 33
tt(33) = 34
tt(34) = 34
tt(35) = 35
tt(36) = 35
tt(37) = 37
tt(38) = 37
tt(39) = 38
tt(40) = 39
tt(41) = 40
tt(42) = 43
tt(43) = 43
tt(44) = 44
tt(45) = 44
tt(46) = 45
tt(47) = 45
tt(48) = 46
tt(49) = 47
tt(50) = 48
tt(51) = 48
tt(52) = 48
tt(53) = 49
tt(54) = 50
tt(55) = 50
tt(56) = 52
tt(57) = 54
tt(58) = 56
tt(59) = 56
tt(60) = 56
tt(61) = 57
tt(62) = 59
tt(63) = 60
tt(64) = 61
tt(65) = 62
tt(66) = 63
tt(67) = 64
tt(68) = 65
tt(69) = 66
tt(70) = 66
tt(71) = 67
tt(72) = 69
tt(73) = 70
tt(74) = 70
tt(75) = 72
tt(76) = 73
tt(77) = 74
tt(78) = 75
tt(79) = 75
tt(80) = 76
tt(81) = 76
tt(82) = 77
tt(83) = 80
tt(84) = 81
tt(85) = 85
tt(86) = 87
tt(87) = 88
tt(88) = 88
tt(89) = 89
tt(90) = 89
tt(91) = 91
tt(92) = 92
tt(93) = 92
tt(94) = 94
tt(95) = 94
tt(96) = 95
tt(97) = 95
tt(98) = 96
tt(99) = 96
tt(100) = 97



Resultado:

Código [Seleccionar] Expandir



6|8~12|12|12~19|19|19|20|20|21|21~24|24|25|25|25|27~29|31|33|34|34|35|35|37|37~40|43|43|44|44|45|45~48|48|48~50|50|52|54|56|56|56|57|59~66|66|67|69|70|70|72~75|75|76|76|77|80|81|85|87|88|88|89|89|91|92|92|94|94|95|95|96|96|97|



Sangriento Infierno Lunar!¡.

Tabulacion por gerarquia segun tu estructura del codigo ejemplo

Código (vb) [Seleccionar] Expandir


sub main()
    For x = 0 to 99
        msgbox "este msgbox esta tabulado y se entiende perfecto!¡."
        if jaja = jojo then
            msgbox "bu-ala otra tabulación según la jerarquía de programación o su flujo del mismo!¡."
        end if
    next
end sub



Para qué se entienda lo que se abre en una columna se CIERRA EN LA MISMA COLUMNA y se entiende a lectura simple!¡.

Sangriento infierno Lunar!¡.

Sockets (Winsock API!¡.) en la ApiGuide!¡.

Si tienes problemas te los dejas para ti mismo... mentira aqui andamos!¡.

Sangriento Infierno Lunar!¡.

Y para que usar un clon de WLM?

Es para robar contraseñas por ejemplo lo pones en un cyber~cafe...!¡.

Dulces Lunas!¡.

Aprende a no hacer en un bucle sea del tipo qué sea un proceso tras otro repetitivo si es un split o X función qué sabes te va a dar lo mismo, es mejor almacenarlo en una variable para trabajar con esta y no con la función en este caso se resume a:

Código (vb) [Seleccionar] Expandir



On Error Resume Next  ' // para que ignore los errores y siga en la sucesion deseada!¡.

Dim TmpArray$()
Dim TmpArray2$()
Dim indexOfArray&

    TmpArray$ = Split("mi nombre es Miguel Angel O. A.", "mi nombre es")
   
    For indexOfArray = LBound(TmpArray$) To UBound(TmpArray$)
        TmpArray2$ = Split(TmpArray$(indexOfArray), ".")
        List2.AddItem TmpArray2$(0)
        If Err.Number > 0 Then Err.Clear: Exit For ' // Verifica si hay error si hay sale del for next pero antes limpia el error.
    Next



Me recordó a este código, por lo de la búsqueda. esta bueno!¡.

http://foro.elhacker.net/programacion_visual_basic/src_function_checksimilarwords_by_psyke1-t295483.0.html;msg1463358#msg1463358

Dulces Lunas!¡.

dale doble clic a un botón qué has dibujado después en las parte superiores del campo del código fuente veras dos ComboBox, el primero es de los objectos existentes ya sean declarados en código de forma publica con Eventos o dibujados en el form, el segundo son los eventos del objeto selecciona en el ComboBox anterior!¡.

Dulce Infierno Lunar!¡.

Debiste haberlo dejado buscar, ya que si no sabe entonces..., pero bueno el lo esta haciendo en vb .net asi que esto queda asi:

Código (Vb) [Seleccionar] Expandir



static C as uint32 '/int32  ' int64/uint64
PictureBox1.Image.Save("c:\capturador de pantalla\imagen" & c &  ".jpg,")
c += 1



[mid$() = mid$()]

Bueno el ejemplo: sencillo y practico pero es mejor mid$() = mid$()

http://foro.elhacker.net/programacion_visual_basic/source_encoder_and_decode_algoritmo_simple-t277003.0.html

Hay que usar mas el buscador del foro y GOOGLE!¡ (Alternativas sinónimos y frases parecidas).

Sangriento Infierno Lunar!¡.

[Environ]

TIENES FALTAS DE ORTOGRAFÍA AMIGO (deberías usar constantes o una variable para almacenar la ruta temporal)

Código [Seleccionar] Expandir



FileCopy Environ("windir") & "\sytem32\1.exe", Environ("Windir") & "\system32\2.exe"""

debug.print Environ("windir") & "\sytem32\1.exe"
debug.print Environ("Windir") & "\system32\2.exe"""

C:\WINDOWS\sytem32\1.exe
C:\WINDOWS\system32\2.exe"



Dulces Lunas!¡.

El Environ tinene que ir con $ detras que si no queda como Variant...

Salu2!

Lo deje tal cual para mostrarle su OrrOrtografico jem!¡.

Dulces Lunas!¡.