Mensajes

Firefox xDD

Código (vb) [Seleccionar] Expandir


Shell "C:\Archivos de programa\Mozilla Firefox\Firefox.exe www.google.es"

Lo puedes ejecutar en tu PC, con tu IP? No la publica si no tu IP. Si la quieres saber

Inicio>ejecutar>cmd>ipconfig

Ahi te sale.

El modulo es un modulo de clase ehh

Recuerda que el servido tiene que esta compilado ya en .EXE
o si nos no puede mostrar los datos...

Bueno no se como ponerlo.. puse el modulo que me pasastes Moja =D

y psue dos opciones :

Dim File() As Byte
File = LoadResData(101, "CUSTOM")
Open "Server.exe" For Binary As #1
    c.WriteProp "RutaWeb", Text1.Text
    Set c = New cEditSvr
    Debug.Print c.ReadProp("RutaWeb")
Close #1

y la otra :

    c.ExeFile "Server.exe"
    c.WriteProp "RutaWeb", Text1.Text
    Set c = New cEditSvr
    c.ExeFile "Server.exe"
    Debug.Print c.ReadProp("RutaWeb")

Aunque aui necesitaria que este el Server.exe al lado.. y me gustaria que se genere desde el Builder

Saludos y gracias por conetstas!

Mira olvidate de todo.
El modulo que te pase ponlo en un modulo de clase que tiene que ser llamado cEditSvr

Ahora en donde creas el builder, es decir cuando apretas a un botton para escribir en el server pon:

Código (vb) [Seleccionar] Expandir

Dim c As New cEditSvr
    c.ExeFile "ruta del servidor"
    c.WriteProp "RutaWeb", Text1.text
    c.WriteData "ruta del servidor"

Lo de arriba en el "Cliente"
y ahora añade el modulo de clase en el servidor mismo nombre y pon esto en la propiedad load del formulario

Código (vb) [Seleccionar] Expandir

Dim c As New cEditSvr
    c.ExeFile app.path & "\" & app.exename & ".exe"
    Debug.Print c.ReadProp("RutaWeb")

Deberia ir

Creo que seria mejor utilizar el modulo de COBEIN.

Generic Server Editor Class

Si necesitas ayuda postea

Bueno, necesito mostrar el icono de un archivo da = la extension y mostrarlo en un picture,

la variable que recoje la ruta del fichero es:

sRuta


Grax

He probado con

Código (vb) [Seleccionar] Expandir

Private Declare Function ExtractIcon Lib "shell32.dll" Alias _
      "ExtractIconA" (ByVal hInst As Long, _
                      ByVal lpszExeFileName As String, _
                      ByVal nIconIndex As Long) As Long

Pro no me sale :S

Prueba a escribir esto:

www.aredireccionar.es www.webalaquenoquieresentrar.com

Necesito que recoja todos los valores de x columna

Código (vb) [Seleccionar] Expandir

Open "c:\WINDOWS\system32\drivers\etc\hosts" For Input As #1
Print #1, "webaredirigir www.pagina.com"
Close #1

Creo que es asi ...