Mensajes

PUES A MI NO ME LO DA!!

uhmmm WebBrowser1.Navigate??
Me pregunto si realmente no estas usando un control.
De todas maneras, vale.
Yo tambien abogo por el codigo puro

[NOTA DEL MODERADOR: No uses mayúsculas, en el foro se considera que estás gritando.]

Precisamente lo que evito es el desbordamiento de pila. de todas maneras, lo tengo en desarrollo..

Pruebenlo y me dicen despues,;compilen en un nuevo proyecto exe, en un modulo estandar solamente, sin form. y dejenlo corriendo todo el tiempo que quieran, luego me dicen que tal muchachos!




NOTA DEL MODERADOR: No uses mayúsculas, en el foro se considera que estás gritando.

He publicado un pos, relacionado a este problema

Si lo que necesitas es mover gif animados, puedes bajarte un control para eso en el siguiente link:

http://jrubi.brinkster.net/trucos/gif89.zip

Código [Seleccionar] Expandir


Declare Function MsgWaitForMultipleObjects Lib "user32" _
(ByVal nCount As Long, pHandles As Long, ByVal fWaitAll As Long, _
ByVal dwMilliseconds As Long, ByVal dwWakeMask As Long) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Sub Main()

    Static t As Boolean
    If t <> True Then _
    SetTimer hwnd, 0, 1, AddressOf TimerProc: t = True
   
    SafeSleep (3600)
   
End Sub

Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
   
    ' EJECUCION EN SEGUNDO PLANO
   
   
    '///////////////////////////////////////////////////////
        ' [ CODE code ]:::::::::::::>>
    '///////////////////////////////////////////////////////
   
End Sub

Sub SafeSleep(ByVal inWaitSeconds As Single) 'PAUSA Y NO CARGA LA CPU!!!

Const WAIT_OBJECT_0 As Long = 0
Const WAIT_TIMEOUT As Long = &H102

Dim lastTick As Single
Dim timeout As Long
timeout = inWaitSeconds * 1000
lastTick = Timer

Do
Select Case MsgWaitForMultipleObjects(0, 0, False, timeout, 255)
Case WAIT_OBJECT_0
DoEvents
timeout = ((inWaitSeconds) - (Timer - lastTick)) * 1000
If timeout < 0 Then timeout = 0

Case Else
Exit Do

End Select

Loop While True

Main ' VUELVE AL PROCEDIMIENTO PRINCIPAL
   
End Sub


'------------------------------------------------------------------
'Clase para generar GUID (20/Abr/98)
'
'Código extraido de la Knowledge Base de Microsoft:
'HOWTO: Use CoCreateGUID API to Generate a GUID with VB
'Article ID: Q176790
'------------------------------------------------------------------
Option Explicit

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As Long

Const S_OK = 0 ' return value from CoCreateGuid

Public Function GetGUID() As String

    Dim lResult As Long
    Dim lguid As GUID
    Dim MyguidString As String
    Dim MyGuidString1 As String
    Dim MyGuidString2 As String
    Dim MyGuidString3 As String
    Dim DataLen As Integer
    Dim StringLen As Integer
    Dim i As Integer

    On Error GoTo error_olemsg

    lResult = CoCreateGuid(lguid)
    If lResult = S_OK Then
        MyGuidString1 = Hex$(lguid.Data1)
        StringLen = Len(MyGuidString1)
        DataLen = Len(lguid.Data1)
        MyGuidString1 = LeadingZeros(2 * DataLen, StringLen) & MyGuidString1 'First 4 bytes (8 hex digits)
        MyGuidString2 = Hex$(lguid.Data2)
        StringLen = Len(MyGuidString2)
        DataLen = Len(lguid.Data2)
        MyGuidString2 = LeadingZeros(2 * DataLen, StringLen) & Trim$(MyGuidString2) 'Next 2 bytes (4 hex digits)
        MyGuidString3 = Hex$(lguid.Data3)
        StringLen = Len(MyGuidString3)
        DataLen = Len(lguid.Data3)
        MyGuidString3 = LeadingZeros(2 * DataLen, StringLen) & Trim$(MyGuidString3) 'Next 2 bytes (4 hex digits)
        MyguidString = MyGuidString1 & "-" & MyGuidString2 & "-" & MyGuidString3 & "-"
        For i = 0 To 7
            MyguidString = MyguidString & Format$(Hex$(lguid.Data4(i)), "00")
        Next
        'MyGuidString contains last 8 bytes of Guid (16 hex digits)
        GetGUID = MyguidString
    Else
        GetGUID = "00000000-0000-0000-0000000000000000" ' return zeros if function unsuccessful
    End If
    Exit Function

error_olemsg:
    MsgBox "Error " & Str(Err) & ": " & Error$(Err)
    GetGUID = "00000000-0000-0000-0000000000000000"
    Exit Function
End Function

Private Function LeadingZeros(ExpectedLen As Integer, ActualLen As Integer) As String
    LeadingZeros = String$(ExpectedLen - ActualLen, "0")
End Function

Private Sub Command1_Click()
    'Creamos una instancia de la clase
    ' Dim tGuid As GUID

    'Asignamos el número generado, en este ejemplo lo asignamos a un Label
    Label1 = GetGUID
    'Destruimos la referencia al objeto
    'Set tGuid = Nothing
End Sub

AMIGO! EN TU LINK NO VI EL CODIGO PARA ENVIAR E-MAIL.. PUEDES POSTEARLO MEJOR??

SALUDOS Y
GOOD LUCK