Mensajes

.
En este hilo hay varios codigos de varios usuarios de vb6 realizando el codigo de la maneras mas prolija y tambien mas rapida.

Puedes ver los codigos fuente para darte una idea de como hacerlo.

http://foro.elhacker.net/programacion_visual_basic/reto_isfibonaccinumbern_as_long_as_boolean-t319480.0.html;msg1580947#msg1580947

Temibles Lunas!¡.

No lo creo, porque simplemente reiteré lo ya dicho por otros usuarios:

@WindHack metiche...

Debido a esto, publico mi codigo ya no tiene caso ahora el limite de tiempo,

La parte comentada es mi codigo resultante.

Código (Vb) [Seleccionar] Expandir



Sub main(): Const s As String = "Sub main(): Const s As String = @: msgbox Replace$(s, Chr(64), Chr(34) & s & Chr(34)): End Sub": MsgBox Replace$(s, Chr(64), Chr(34) & s & Chr(34)): End Sub
'Sub main(): Const s As String = "Sub main(): Const s As String = @: msgbox Replace$(s, Chr(64), Chr(34) & s & Chr(34)): End Sub": MsgBox Replace$(s, Chr(64), Chr(34) & s & Chr(34)): End Sub



Dulces Lunas!¡.

@WindHack

Como la cagas.

Dulces Lunas!¡.

sino un programa, una función, que muestre su propio código fuente.

Esactamente no valen textbox forms ni nada por que entonces tendran que mostrar el codigo fuente de los mismo ( Codigo diseño, eventos, etc... y eso es imposible ).

Dulces Lunas!¡.

.
Disculpen por lo de la fecha, es que si no se pone una fecha para esto con el 1ro que publique el otro puede inspirarse y ese no es el objetivo.

Por otro lado debe imprimirse en su totalidad TODO el codigo, si pusieron funciones en modulos estas funciones deben ser impresas de igual manera, y con impresas me refiero al metodo que deseen aun que con un pequeño msgbox bastaria ( en dado caso tambien debe mostrar el codigo del msgbox tal cual. ).

Es un reto mas que nada de destreza mental.

Dulces Lunas!¡.

.
Usa este codigo para volver a ocupar indices que ya estan los sockets desconectados, es decir que si antes tenias 0,1,2,3,4 se deconecta el 2 en la siguiente vez con estas funciones podras volver a ocupar dicho indice sin problemas.

Código (Vb) [Seleccionar] Expandir



'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////
'
Option Explicit
Private Enum SockState
    sckClosed = 0
    sckOpen
    sckListening
    sckConnectionPending
    sckResolvingHost
    sckHostResolved
    sckConnecting
    sckConnected
    sckClosing
    sckError
End Enum
Public Function IndexSocketCerrado(ByRef Socket As Object) As Integer
Dim Index                   As Integer
Dim SockSt                  As SockState
    IndexSocketCerrado = -1
    For Index = Socket.lbound To Socket.UBound
        With Socket(Index)
            SockSt = .State
            If SockSt = sckClosed Or SockSt = sckListening Or SockSt = sckClosing Then
                'If SockSt = sckClosed Or SockSt = sckListening Or SockSt = sckClosing Or SockSt = sckError Then    '   //  Optativo
                IndexSocketCerrado = Index
                Exit For
            End If
        End With
    Next
End Function

Public Function AceptarConexion(ByRef Socket As Object, requestid As Long) As Boolean
Dim SocketIndex             As Integer
    SocketIndex = IndexSocketCerrado(Socket)
    If SocketIndex = -1 Then
        SocketIndex = Socket.UBound + 1
        Load Socket(SocketIndex)
    End If
    Socket(SocketIndex).CloseSck  ' // Poner Close en lugar de CloseSck   si se usa el OCX WindSock de M$.
    Socket(SocketIndex).Accept requestid
End Function



Ejemplo de uso simple:

Código (Vb) [Seleccionar] Expandir



'   //  ---->
'   //  Donde Socket_In es el socket que aceptara la conexion entrante en el Socket_Conexion
'   //  Cabe destacar que Socket_In debera ser una matrix de controles
'   //  ---->
Private Sub Socket_Conexion_ConnectionRequest(Index As Integer, ByVal requestid As Long)
        Call AceptarConexion(Socket_In, requestid)
End Sub



CSocketMaster... Con CTL.

http://infrangelux.sytes.net/fileX/?file=/BlackZeroX/Programacion/vb6/CSocketMaster.rar&dir=/BlackZeroX/Programacion/vb6&

Temibles Lunas!¡.

.
tienes que usar un pequeño protocolo de comunicación:

Temibles Lunas!¡.

.
Pues piensenle por que si se puede, quien se de por vensido le mando el codigo por mp, mientras tanto a quemar la materia gris!¡.

Dulces Lunas!¡.

.
Si mencionas a C/C++ y lo relacionas con APIS, entonces tendras que toquetear APIS y/o ASM, de igual manera se puede hacer en VB6. es decir C/C++ son instrucciones y funciones basicas que no hacen practicamente nada funciones y librerias de C/C++, hay librerias no Standart pero aun asi esas no Stantart se pueden hacer. es decir C/C++ No es magia negra.

Lo que quiero decir es que si sabes hacer algo en PseudoCodigo lo puedes migrar a cualquier lenguaje (Exeptuando lenguajes que nesesiten interpretes como PHP con este caso en particular, o quien sabe...)

Dulces Lunas!¡.

[S.O.]

.

Bueno ya NO pueden decir que no se puede hacer un S.O.. en el lenguaje Basic ni denigrarlo tanto.

http://wiki.osdev.org/FreeBasic_Barebones

Dulces Lunas!¡.