Mensajes

[ESE]

ESE archivo .LOG, para que te podamos decir el error que hay en ese server

Peganos el contenido del fichero .LOG

Claro.

Gracias por responder, lo descargue pero el problema es cuando quiero abrir un archivo .frm me tira el siguiente error:


¿Por qué? ¿Como lo soluciono?

Saludos.

Eso no es problema del VB, sino de tu proyecto... pegamos los datos del fichero LOG, nosotros intentaremos solucionar el problema

Como me conoces Leandro

Bueno, no entiendo muy bien a lo que te refieres, pero si lo que quieres es que una aplicacion al intentar obtener tu ruta obtenga una equivocada se puede hacer cambiando la informacion que hay en el PEB sobre tu ruta... (Si no me equivoco W$ la carga de ahi )...

Ahora mismo no tengo ningun code funcional que haga eso, pero puedo intentar mañana hacerlo, ahora aqui en España es algo tarde

Creo que habria una restriccion con el tamaño de la ruta..... si fuera mayor a a la actual seria un rollo, abria que reservar memoria y puag.. no es buena idea...

Espero acordarme mañana de esto y prepararte un code

[Si no programas una DLL compatible no va ha haber ninguna posibilidad de que la cargues con WINDOWS]

claro mi idea no es exactamente como dices BlackZeroX pero tu propuesta es interesante me podrias dar una idea  que registros debo escrbir...

La verdad es que si widows llama a las funciones que necesite dentro de mi dll no las van a encontrar ...pero sin embargo me da la impresion que las carga (parcialmente talvez o simplemente las abre) en memoria porque no la puedo borrar cuando la reemplazo

Si no programas una DLL compatible no va ha haber ninguna posibilidad de que la cargues con WINDOWS

Lo he hecho en visual he leido que no se puede hacer dll verdaderas con VB..¿no sera eso?...la dll verdadera (me refiero a la original ) la tengo registrada y se que esta cargada en memoria pork no se puede borrar . pero yo la borro eliminando algunos registros y recien la reemplazo por mi dll. pero nada...

Bueno, es principalmente porque tu creas una DLL ActiveX... y esas no valen

Mírate esto:

Código [Seleccionar] Expandir

http://209.85.135.132/search?q=cache:x3FYbQNA3HwJ:www.advancevb.com.ar/blog/static.php%3Fpage%3Dstatic080812-151510+Compiler+Control+site:http://www.advancevb.com.ar/&cd=1&hl=es&ct=clnk&gl=es

A ver si aparece por aqui Cobein y le da por seguir su manual de crear DLLs , sobretodo la parte de los TLB , que hacerlos 'a mano' es jodido

Hola Tengo registrada una dll que siempre se carga al inicio. He intentado reemplazarla por otra dll creada por mi mismo para que se cargue al inicio de windows, pero no corre. ¿a que se debera?

A que haces mal la DLL...

Código (vb) [Seleccionar] Expandir

Option Explicit  
 
Private Function Enviar_Mail_CDO(SerVidor_SMTP As String, _  
                            Para As String, _  
                            De As String, _  
                            Asunto As String, _  
                            Mensaje As String, _  
                            Optional Path_Adjunto As String, _  
                            Optional Puerto As String = "25", _  
                            Optional Usuario As String, _  
                            Optional Password As String, _  
                            Optional Usar_Autentificacion As Boolean = True, _  
                            Optional Usar_SSL As Boolean = True) As Boolean  
     
     
   Me.MousePointer = vbHourglass  
     
   ' Variable de objeto Cdo.Message  
   Dim Obj_Email As Object 'As CDO.Message  
           
     
   ' Crea un Nuevo objeto CDO.Message  
   ' Set Obj_Email = New CDO.Message  
   Set Obj_Email = CreateObject("CDO.Message")  
     
   ' Indica el servidor Smtp para poder enviar el Mail ( puede ser el nombre _  
     del servidor o su dirección IP )  
   Obj_Email.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SerVidor_SMTP  
     
   Obj_Email.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
     
   ' Puerto. Por defecto se usa el puerto 25, en el caso de Gmail se usan los puertos _  
     465 o  el puerto 587 ( este último me dio error )  
     
   Obj_Email.Configuration.Fields.Item _  
       ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(Puerto)  
 
     
   ' Indica el tipo de autentificación con el servidor de correo _  
    El valor 0 no requiere autentificarse, el valor 1 es con autentificación  
   Obj_Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/" & _  
               "configuration/smtpauthenticate") = Abs(Usar_Autentificacion)  
     
     
     
       ' Tiempo máximo de espera en segundos para la conexión  
   Obj_Email.Configuration.Fields.Item _  
       ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30  
 
     
   ' Configura las opciones para el login en el SMTP  
   If Usar_Autentificacion Then  
 
   ' Id de usuario del servidor Smtp ( en el caso de gmail, debe ser la dirección de correro _  
    mas el @gmail.com )  
   Obj_Email.Configuration.Fields.Item _  
       ("http://schemas.microsoft.com/cdo/configuration/sendusername") = Usuario  
 
   ' Password de la cuenta  
   Obj_Email.Configuration.Fields.Item _  
       ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Password  
 
   ' Indica si se usa SSL para el envío. En el caso de Gmail requiere que esté en True  
   Obj_Email.Configuration.Fields.Item _  
       ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Usar_SSL  
     
   End If  
     
 
   ' *********************************************************************************  
   ' Estructura del mail  
   '**********************************************************************************  
     
   ' Dirección del Destinatario  
   Obj_Email.To = Para  
     
   ' Dirección del remitente  
   Obj_Email.From = De  
     
   ' Asunto del mensaje  
   Obj_Email.Subject = Asunto  
     
   ' Cuerpo del mensaje  
   Obj_Email.TextBody = Mensaje  
     
   'Ruta del archivo adjunto  
     
   If Path_Adjunto <> vbNullString Then  
       Obj_Email.AddAttachment (Path_Adjunto)  
   End If  
     
   ' Actualiza los datos antes de enviar  
   Obj_Email.Configuration.Fields.Update  
     
   On Error Resume Next  
   ' Envía el email  
   Obj_Email.Send  
     
     
   If Err.Number = 0 Then  
      Enviar_Mail_CDO = True  
   Else  
      MsgBox Err.Description, vbCritical, " Error al enviar el amil "  
   End If  
     
   ' Descarga la referencia  
   If Not Obj_Email Is Nothing Then  
       Set Obj_Email = Nothing  
   End If  
     
   On Error GoTo 0  
   Me.MousePointer = vbNormal  
 
End Function  
 
Private Sub Command1_Click()  
     
   Dim ret As Boolean  
     
   ' Asegurarse de pasar bien los últimos dos parámetros _  
    ( Si usa login y si el server usa SSL)  
     
   ret = Enviar_Mail_CDO(txt_Servidor, _  
                         txt_Para, _  
                         txt_De, _  
                         txt_Asunto, _  
                         txt_Mensaje, _  
                         txt_Adjunto, _  
                         txt_Puerto, _  
                         txt_Usuario, _  
                         txt_Password, _  
                         True, _  
                         True)  
     
   ' Si devuelve true es por que no hubo errores en el envio  
   If ret Then  
       MsgBox " .. Maneje enviado ", vbInformation  
   End If  
End Sub  
 
Private Sub Form_Load()  
 
   Me.Caption = " Ejemplo para enviar correo usando la libreria Microsoft CDO "  
   Command1.Caption = " Enviar mail "  
     
   txt_Servidor.Text = "smtp.gmail.com"  
   txt_Para = "destinatario@dominio.com"  
   txt_De = "remitente@dominio.com"  
   txt_Asunto = "Prueba"  
   txt_Mensaje = " ... Cuerpo del mensaje "  
   txt_Adjunto = vbNullString  
   txt_Puerto.Text = 465  
   txt_Password = ""  
   txt_Usuario = ""  
End Sub  

[Shell-Killer]

Un gran curro sin duda Shell-Killer mi voto ya es tuyo

[el_c0c0]

Es tal y como dice el_c0c0:

Código [Seleccionar] Expandir

http://es.wikipedia.org/wiki/Tipo_de_letra#Formatos_tipogr.C3.A1ficos_digitales

Escalables == Fuente Bitmap

Lo digo porque hay gente (como yo) que las conoce así , si no recuerdo mal, es que no pierde calidad por mucho que las deformes