Mensajes

yo la lavo cada muuuucho, lo que tiene la incultura, ahora a gastar una toalla distinta al día xD

desde cuando se le considera cultura a esto....mmm rayos yo sabia que dicha referencia se usaba para otras cosas, pero bueno...

Yo nunca la lava... la lavan por mi, solo cada semana

Nota: Uso 3 toallas que uso en cada ducha, es decir una toalla en una ducha... las otras dos en las siguientes.

P.D.: Espero no Exageren el tema.

Dulces Lunas!¡.

[UC]

.
Este CSocketMaster trae un UC con el cual podras manejar Igual que el OCX del Windosck.

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

Dulces Lunas!¡.

Código (Vb) [Seleccionar] Expandir



UserControl.ContainerHwnd



Dulces Lunas!¡.

mmm...

CSocketMaster tre ejemplos, pero aun asi manejalo como WinSock OCX... y si no traes ni idea... a leerse la Help de las Clase

Dulces Lunas!¡.

[SkyWeb07]

...
Le pedi a SkyWeb07 que me pasara las ligas de una Clase o que te las posteara... veo que no te las puso aquí estan..: aun asi agradecele a el.

http://www.nirsoft.net/vb/console_application_visual_basic.html
Editado:---> Ligero error
http://vb.mvps.org/samples/Console/   <--- esta es la Buena

Dulce Infierno Lunar!¡.

[@evillcs]

@evillcs

Usa CDO.

P.D.: No cites todo el post ¬¬" se vuelve ilegible el hilo,

Dulces Lunas!¡.

Si quieres que se rellene todo el progressbar usa eun bucle for y sleep.

salu2!

Sin Sleep.... o se estara dormiendo el hilo... un Doevents quisas o esta funcion...

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Declare Function WaitMessage Lib "user32" () As Long

Enum eTime
    AñoBisiesto = 31622400
    Año = 31536000
    Semanas = 604800
    Dias = 86400
    Horas = 3600
    Minutos = 60
    Segundos = 1
End Enum

Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE      As Date
   vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time)
   Do While vDateE > Time
       Call WaitMessage
       If Not UseAllProc Then DoEvents
   Loop
End Sub



ademas el ProgressBAr seria para otras cosas...

Dulce Infierno Lunar!¡.

[i = i +1]

usa

Código (Vb) [Seleccionar] Expandir



Option Explicit



y avisa si te causa errores en las declaraciones... aun asi i = i +1 es ahora si que tonto ya que puedes usar la propiedad listcount del List1.

Dulce Infierno Lunar!¡.

.
El codigo se puede optimizar bastantes y viendolo al aire, dejarlo a la mitad o menos...

no me gusto la busqueda, es muy impresisa, ya que no cuenta con un filtro mas presiso ( varios criterios a la vez ), aunque es buena idea!¡.

Dulces Lunas!¡.

[AddressOf ()]

.
cuales son los parametros?... si es un proceso tuyo seria mejor que pusieras el codigo, si es una API mensiona cual es..., que no se te peude ayudar mucho de esta forma.



Pon el proceso con el que haces referencia "AddressOf ()" en un Modulo tipo Bas... y ponlo de forma PUBLIC

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
Inyectar &H0, GetAddr(AddressOf SMain)
End Sub
Public Function GetAddr(ByVal lAddr As Long) As Long
  GetAddr = lAddr
End Function
Private Function Inyectar(ProcessHandle As Long, ByVal EntryPoint As Long)
End Function



en un modulo (BAS)

Código (vb) [Seleccionar] Expandir



Public Function SMain()

End Function



Dulces Lunas!¡