Mensajes

esto esta re-seco!¡.

es fácil un ejemplo sutil seria este:

Código (vb) [Seleccionar] Expandir


sub main()
   msgbox(DataArrival(val(inputbox("Ingresa un Index X entre 0 y 10","","0"))))
end sub

public function DataArrival() as string()
  dim tmpArray() as string,i as integer
  redim tmparray(10)
'   tmparray(0) = "a"
'   tmparray(1) = "aa"
'   tmparray(2) = "aaa"
'   tmparray(3) = "aaaa"
'   tmparray(4) = "aaaaa"
'   tmparray(5) = "aaaaaa"
'   tmparray(6) = "aaaaaaa"
'   tmparray(7) = "aaaaaaaa"
'   tmparray(8) = "aaaaaaaaa"
'   tmparray(9) = "aaaaaaaaaa"
'   tmparray(10) = "aaaaaaaaaaa"
   '    //  Es lo mismo que arriva solo que simplificado
   for i = lbound(tmparray) to ubound(tmparray)
       tmparray=string(i+1,"a")
   next

   DataArrival=tmparray
end function


P.D.: Pega en un modulo y pon el proceso sub main() como inicial igual puedes quitar TODOS los FORMS y meter un modulo simple y pegar este código de esta forma se ejecuta automaticamente.

Dulce Infierno Lunar!¡.

[Que hace?]

Publico el tema en respuesta a aceptación de Conexiones Multi-Cliente ( http://foro.elhacker.net/programacion_vb/conexiones_multiples_con_winsock_ayuda-t288193.0.html ).

Es muy sencilla pero a mas de uno les va a servir de algo... es la misma funcion que ocupo para mis proyectos

Que hace?

.............Acepta conexiones en una matrix de Socket's en este caso en particular esta diseñado para cSocketMaster

Con que funciona?

.............cSocketMaster +ctl ( Control de usuario ) donde este seria el que crearia la matrix requerida!¡.

Ventajas?

.............Se ocupan los indices anteriores que se encuentren con algun error o que no esten conectados realmente, es decir reduce el uso de la memoria. Se deben la maxima matrix ya para mas velocidad aun que esto seria modificable dubclaseificando el indice con algun Modulo de clase... pero bueno xP.

Codigo:

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
   Socket(SocketIndex).Accept requestid
End Function



la llamada:

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



Descargar cSocketMaster + Ctl (Para manejarlo igual que el winsock de M$)

Código [Seleccionar] Expandir



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



Nota: Si se desea usar este codigo para el WinSock de la Ocx de M$ debera editar las las propiedades de CloseSck a Close

Sangriento Infierno Lunar!¡.

[lee un manual de winsock!¡]

Te Respondo:

Si, si se puede.

Si quieres sber el como, lee un manual de winsock!¡.

Nota: revisa esta funcion:  http://foro.elhacker.net/programacion_vb/sourcefuncionvb6_aceptarconeccion_sencilla_funcion-t290957.0.html;msg1441007#msg1441007

Dulces Lunas!¡.

Entonces el APP que dices que hisiste en un post abajo no es tuyo realmente jaja (RIP).

Sangriento Infierno Lunar!¡.

Los Hilos en VB6 son inestables!¡ en ocasiones se crean pero no se pueden terminar o se suspende susproceso por arte de magia... quisas esto me ocurra a mi solamente xS.

P.D.: yo ya le habia dicho por msn ¬¬" sobre esas aplicaciones... jamas me hizo caso ¬¬"

Dulces Lunas!¡

Código (vb) [Seleccionar] Expandir


Private Declare Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


Es solo una API, ya estan las Web's llenas de esa API...!¡.

Mi aqui una Alternativa 100% FUD (Aquí)

Dulces Infierno Lunar!¡.

[RecursosVisualBasic]

LeandroA había hecho un ejemplo muy bueno para eso. Actualmente no lo tengo, pero si encuentro el link lo pongo.

Un saludo

Será el que usa la dll para pasarlo a mp3 vdd... el que yo digo es por DirectX 8 (Hoy en dia la pc que no tenga DirectX seria raro)  y no usa una comversion aun temporal todo es vía Streaming

P.D.: si es el de la ddl lo encuentras en la pagina RecursosVisualBasic si es otro ni idea xP.

Dulces Lunas!¡.

:http://msdn.microsoft.com/es-es/library/bt3szac5(VS.80).aspx

sisi esa pagina yo ya la habia visto pero no entiendo nada O.o

la vdd si estas en el IDE de vb6 ya es muy poca el Intelicense del IDe te DICE que debes poner ¬¬" haganme el favor

Código (vb) [Seleccionar] Expandir



msgbox replace("Mola %", "%", "Mundo")



P.D.: VB es para flojos que no se aprenden las Sintaxis y .NET ni se diga pero que no quieran leer la ayuda al escribir una palabra/funcion y ver el tootltipo que aparece ya es...

Dulces Lunas!¡.

Usa el buscardor del foro yo postee el codigo hace tiempo

Dulces Lunas!¡.