Mensajes

[Ejemplo:]

Hola, antetodo muchas gracias por sus opiniones, bien por lo que veo a algunos les a generado un error, la verdad no estoy muy seguro de lo que pueda ser, pero lo e vuelto a compilar y lo suvi de nuevo, y bien porlomenos para salir del paso le puse en todas las subrutinas "On error resume next" una salida rapida por ahora despues cuando suva el source ya me podran especificar en que linea esta el error. me gustaria a aquellos que le dio un error volvieran a vajarlo aver si les sigue dando.

por lo del ocx veo que a varios les intereso, cuatros de ellos son mios, pero el del winsock (que ya todos lo conosen por su clase CSocketMaster.cls) , el del menu y el ctldonwload no son mios.

Por el del tooltips no creo que lo puedan descifrar ya que si no se los explico no lo van a sacar.
en cada control que posea hwnd en su propiedad "Tag" deben escribir lo que quieran mostrar, si quieren porner saltos de linea ponen este simbolo "|" y si quieren especificar el titulo al final del titulo le ponen </T>

Ejemplo:

En la propiedad tag de un textbox le ponen

Titulo</T>esto es una linea|esto es otra linea|esto es otra linea

En el form load
ToolTips1.ShowToolTips Me

y en el unload
ToolTips1.StopToolTips

volviendo a el proyecto a alguien mas le dio error o no les funciono?

A me ovidaba yo estoy usando Excel 2002, quizas el error sea porque ustedes tengan alguna versión mas nueva, puede ser??

Saludos

[Requerimientos:]

Este mi ultimo proyecto, Se trata de una aplciacion para extraer y mostrar datos en la web, como ser una imagen que posea IP, Navegador, Sistema Operativo, ISP, Pais, Dominio por el cual navegan,el UserAgent,  es algo asi como esas imagenes que vemos en las firmas de algunos usuarios donde muestran esos datos, ademas todo queda registrado en nuestra  pc, Tambien crea una estadistica sobre los Navegadores utilizados, SO, Horarios de visita, Paises.
Tambien cuenta con la opcion de enviar una captura de nuestra WebCam, o una imagen que nosotros querramos.
tiene opciones de autologin en NO-IP, Autoconexion a internet, todo esto para que nuestro server este siempre en escucha.
Bien tambien cuenta con un opcion algo engañosa que se trata de poner un usuario y contraseña, y si por ejemplo envian la imagen generada por mail (por ejemplo) cuando el usuario que la reciva le saltara el tipico cartel de login de los navegadores, y bien si el usuario es lo suficientemente iluso pondra su usuario y contraseña, o bien  en algun foros pero no este, pues ya El Brujo me regaño ( pero esto no es el proposito de la aplicacion  )

Requerimientos:

*  Excel (por desgracia, por el tema de los graficos)
*  Microsoft Windows Common Controls 5.0
*  Conexion a Internet, y no estar devajo de un Router (o bien configurarlo)

La aplicacion viene con una Dll para descomprimir una Base de datos que hay que actualiar aproximadamente ves por mes y Un Ocx de nombre ControlsAAA , que posee 7 Subcontroles, para la Interfas Grafica y Conexion

Esta programado en visual Basic 6

Funcionamiento
Descargan la Aplicacion (mas adelante pondre el source)
La descomprimen, La ejecutan y Precionan el boton "Iniciar" luego precionan e portapaples y copian la direcion de la imagen y luego la ponen en donde gusten (Cadena de mails, Foros, Paginas Web. etc)
bien como veran utiliza la ip, pero si quieren se van a opciones y preciona el items no ip y pueden logear su cuenta, esta ya quedara configurada
Es cuestion de que lo investiguen un poco , ademas viene con un tooltips de ayuda para cada control que los guiara facilmente.

Capturas:







Descarga:
http://es.geocities.com/leandroascierto/SpyUserAgent.zip


Bien espero contar con ustedes para una opinion o cualquier fallo que encuentren.

El ejemplo funcional lo pueden ver aqui en mi firma (si es dentro de estos dias)
esta imagen es tomada desde mi pc, y esos son sus datos

si es IE con sendmesage, con firefox la unica forma que conozco es copiandolo en el portapapeles

Tu estas ablando de SO podrias programar un SO  en VB estas cabron

ese we no los esta ofreciendo

son cosas diferentes creeme nada que ver

Primero y principal Microsoft no es un SO, Si lo es Windows, pero no es el caso.se trata de tener un poco mas de respeto a quienes humildemente quieren compartir algo con nosotros, Sinceramente si yo donara mi proyecto y me contestas asi , me tomo un avion, me voy hasta Mexico y te pego un escupitajo en la cara.

Saludos

de que nos sirve esta bien el cactus joiner

entonces para que voy a seguir programando si ya existe Microsoft

hola mirate estas apis estan interesantes

Código [Seleccionar] Expandir


      Option Explicit

      ' No more data is available.
      Const ERROR_NO_MORE_ITEMS = 259

      ' The data area passed to a system call is too small.
      Const ERROR_INSUFFICIENT_BUFFER = 122

      Private Declare Function InternetSetCookie Lib "wininet.dll" _
       Alias "InternetSetCookieA" _
       (ByVal lpszUrlName As String, _
       ByVal lpszCookieName As String, _
       ByVal lpszCookieData As String) As Boolean

      Private Declare Function InternetGetCookie Lib "wininet.dll" _
       Alias "InternetGetCookieA" _
       (ByVal lpszUrlName As String, _
       ByVal lpszCookieName As String, _
       ByVal lpszCookieData As String, _
       lpdwSize As Long) As Boolean

      Private Sub Command1_Click()
       Dim bRet As Boolean
       bRet = InternetSetCookie("http://xxxx/xxxx.htm", _
        "Test", "Sent as Test via VB")
       If bRet = False Then
           MsgBox "Failed"
       End If
      End Sub

      Private Sub Command2_Click()
        Dim sCookieVal As String * 256
        Dim bRet As Boolean
        bRet = InternetGetCookie("http://xxxx/xxxx.htm", _
         "Test", sCookieVal, 255)
        If bRet = False Then
          MsgBox "Failed"
        Else
          MsgBox sCookieVal
        End If
      End Sub


Hola yo utilizo esta funcion , no es de lo mas elegante ya que utiliza on error, pero la que puso Hendrix, tiene un problema , es que si el archivo tiene propiedades ocultas o mejor dicho no normal, este te informara que no existe.

Código [Seleccionar] Expandir

Public Function FileExist(File As String) As Boolean
On Error GoTo Fallo
Dim ret As Long
ret = GetAttr(File)
FileExist = True
Exit Function
Fallo:
End Function

Private Sub Command1_Click()
MsgBox FileExist("C:\archivo.txt")
End Sub

Saludos

Buenisimo , la verdad, y tambien es lindo para un salvapantallas, aunque no la salvaria mucho pero esta muy copado, avia visto otros ejemplos de movimientos de particulas pero consumian mucho cpu

Saludos

vos te referis a poner una imagen de fondo en el treeview?, bueno poder se puede , pero te advierto que es bastante codigo para solo una imagen de fondo , como quieras , si queres te lo paso


Saludos

buenisimo!!!!, vale aclarar que en el ejemplo los textbox estan sin enlazar al codigo

osea quedaria asi

Private Sub Command1_Click()
    user = Text1   ''tu mail
    pass = Text2  ''tu pass
    host = Text3   ''tu hostname
    ip = ""     ''dejalo vacio para autodetectar
    Text4.Text = UpdateNoIP(user, pass, host, ip)
End Sub

Dominicano: esto sirve para autentificarte a tu cuenta de NO-IP sin tener que usar la aplicacion que ellos te brindan, y esto tiene sus ventajas  por ejemplo no nesesitas instalarla, pudes hacer que cuando quieres que tu server se ponga en listen se autentifique con este codigo, osea en pocas palabras dejas de depender de otra aplicacion externa , bien si vas a requerir tener una cuenta en NO-IP

Muchisimas gracias por el code