Temas

Amigos, recurro a ustedes para que me puedan ayudar a un problema que escapa de mi conocimiento, el cual es muy básico.

Lo que busco es lo siguiente, tengo un programa que trabaja muy bien, el único problema es que este programa trabaja bien solo cuando se instala en la carpeta de Archivos de programa, ya que las rutas las toma de por ejemplo:

Código [Seleccionar] Expandir


Shell (Environ$("ProgramFiles") & "\apss\data\app.exe")


El problema se genera cuando alguien instala la aplicación en otro unidad o directorio, supongamos en una partición, el programa pierde su funcionalidad.

Para solucionar este problema, se me ocurre lo siguiente, al momento de iniciar por primera ves el programa, pida almacenar la ruta, en donde se instaló el programa, el usuario la selecciona a través de un "CommonDialog" y la ruta se almacena en un archivo .ini, supongamos la ruta "D:/apps"

y luego llamar esa ruta para ejecutar las funciones del programa, algo así como:
"

Código [Seleccionar] Expandir


Dim Directorio As String
With CreateObject("WScript.Shell")
Directoriosave = "ruta almacenada en ini"
Shell (Dir$("Directoriosave ") & "\apss\data\app.exe")


el problema es como almacenar la ruta en un INI a través del CommonDialog

Yo tengo el siguiente código para hacer la verificación al iniciar el programa:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim Directorio As String
With CreateObject("WScript.Shell")
Directoriosave = .SpecialFolders("Mydocuments") & "\save\"
If Dir$(Directoriosave & "ruta.ini") <> "" Then
'la ruta esta almacenada, el programa sigue su funcionamiento normal
Else
'la ruta no esta creada, opción para que el usuario escoja la dirección **es lo que me falta hacer
End If
End With
End Sub

Pero me falta el poder almacenar la ruta en el ini, tengo el siguiente código, que hace algo similar, pero que ejecuta un .exe. si el exe no esta, abre una ventana para solicitar que el usuario lo escoja manualmente, luego almacena la ruta en un ini y después inicia el exe desde la ruta. Yo quiero hacer lo mismo, pero con un directorio, pero solo almacenar la ruta.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Static Respuesta As String ' creamos una variable que no se pierde
If Respuesta = "" Then
If Dir(("C:/ruta.txt"), vbArchive) <> vbNullString Then
Open ("C:/ruta.txt") For Input As #1
Line Input #1, Respuesta
Close #1
Else
Respuesta = ("C:/notepad.exe")
End If
End If

If Dir(Respuesta, vbArchive) = vbNullString Then
CommonDialog1.Filter = "Archivos Ejecutables (*.exe)|*.exe"
CommonDialog1.ShowOpen
'si el usuario selecciona cancelar que salga del sub
If CommonDialog1.FileName = "" Then Exit Sub
Respuesta = CommonDialog1.FileName
Open ("C:/ruta.txt") For Output As #1
Print #1, CommonDialog1.FileName
Close #1
End If
ChDir Left$(Respuesta, Len(Respuesta) - Len(Dir$(Respuesta)))
Shell Respuesta, vbNormalFocus
End Sub

Gracias amigos, espero se entienda.

Amigos, necesito que durante la ejecución de un programa, cada cierto tiempo se comprueben nuevas actualizaciones a traces de un timer, el problema es que la propiedad "interval" del timer solo admite hasta el valor "60000" que equivale a 6 minutos.

Mi pregunta es, ¿Hay alguna forma para alargar el tiempo? supongamos que el timer se programe para ejecutar una acción cada "3 horas" por ejemplo

gracias amigos

Amigos les cuento, tengo un form principal y 3 form adicionales que tienen opciones, la cosa es que quiero que al llamar a los form adicionales aparezcan al centro del form principal y que cuando este se mueva, los otros form también lo hagan. Espero se entienda xD

Saludos amigos

Enviado desde mi GT-I9300 mediante Tapatalk

Amigos les cuento, tengo un problema, no logro hacer funcionar lo que quiero, es algo complejo de explicar, les cuento:

tengo un checkbox que:
1. cuando se marca cambia el nombre de una carpeta
2. cuando se desmarca cambia por el nombre anterior



El tema es que quiero que el programa detecte el nombre que tiene para marcar o no marcar el checkbox, trate de hacer lo siguiente. Cuando se inicie el programa haga una comprobación del nombre que tiene la carpeta y marque o desmarque el checkbox.

este es el código:

Código [Seleccionar] Expandir

Private Sub Check1_Click()
If Check1.Value = 1 Then
   Name "C:\activo" As "C:\inactivo"
Else
   Name "C:\inactivo" As "C:\activo"
End If
End Sub

Private Sub Form_Load()
If Len("C:\activo") = 0 Then
   Check1.Value = 0
   Else
   Check1.Value = 1
End If
End Sub
mas que nada quiero saber como hacer para que cuando se marque una opción al volver a iniciar el programa aparezca la opción marcada.

Difícil de explicar, espero alguien entienda.

dejo el proyecto por si alguien me da una mano por favor

https://mega.co.nz/#!2MZjGJRQ!aCjfA5BJFmhi1_qzh4eqVaWX8-xV198JfNNoFFccWH0

Amigos tengo el siguiente código que me muestra un mensaje cuando los valores de dos textbox son diferentes:

Código [Seleccionar] Expandir

  If Val(Text1.Text) <> Val(Text2.Text) Then
    MsgBox ("Hay una nueva actualizacion...")
    End If


El problema es que solo funciona con números enteros, lo que quiero es que funcione también con texto, por ejemplo:

Text1 = version 2.1
Text2 = version 2.2

y que aparezca el mensaje
gracias amigos 

Amigos, estoy en un proyecto personal, les cuento:
Tengo un botón que al presionarlo simula la presión sobre la tecla "Insert" en windows 7 y windows 8 funciona perfecto, pero el windows xp, no me funciona, simplemente la tecla no se presiona.

Este es el código:

Código [Seleccionar] Expandir

SendKeys.Send("{INSERT}")
No entiendo cual será el problema, ¿se puede lograr de otra manera?

Esto me tiene de cabeza, no entiendo cual es el problema, resulta que quiero abrir un archivo exe y usando un código que antes usaba, no me funciona.

Use este:

Código [Seleccionar] Expandir

Shell "C:\apa.exe", vbMaximizedFocus

también este:

Código [Seleccionar] Expandir

Shell (App.Path & "\apa.exe")

y siempre recibo el mismo error:


Intente bajar otra versión de vb6, probé en windows xp, windows 7 y sigue saliendo el mismo error.

Si alguien sabe de esto, le pido que me ayude por favor

Muchas gracias

Amigos, les cuento, tengo el siguiente código que me permite crear un archivo de texto en una ruta con los valores indicados:

Código [Seleccionar] Expandir

Private Sub Command2_Click()
Dim fnum As Integer

fnum = FreeFile 'se obtiene el numero de archivo
Open "ruta/valor.txt" For Output As fnum 'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "ataque 12"
Print #fnum, "atauqe 13"
Print #fnum, "poder 15"

Close fnum 'se cierra el archivo
End Sub

Pero me gustaría poder crear el archivo de texto, tomando como referencia los datos que se agreguen en un textbox multilinea a través de un commandbutton.

Me podrían ayudar a adaptar el código

Muchas Gracias 

Tengo un código, que muestra paginas web.

El primero "WebBrowser1" muestra el contenido de un archivo de texto alojado en un servidor

y el "webrowser2" muestra el contenido de un archivo de texto en un directorio de windows.



Lo que yo quiero es que se haga una comparación entre el WebBrowser1 y el WebBrowser2 y si los valores son distintos, muestre un mensaje diciendo que hay una nueva versión.

Esto es lo que tengo, pero no aparece el MSGBOX

Código [Seleccionar] Expandir

Private Sub Form_Load()
If Val(WebBrowser2) <> Val(WebBrowser1) Then
   MsgBox ("Hay una nueva actualizacion...")
   
End If
End Sub

Este es el código completo

Código [Seleccionar] Expandir

Private Sub Form_Resize()

   Dim linea As String
   Dim c As String
   
' Muestra en textbox contenido archivo version.txt

   Dim contenido As String 'Variable donde se guardará el texto
   WebBrowser2.Navigate (Environ$("ProgramFiles") & "\KONAMI\Pro Evolution Soccer 6\Launcher\version2.html")
         
   'Le indicamos al WebBrowser que cargue la url
       Sleep 3 'Le damos oportunidad al WebBrowser de cargar la pagina web
 
   
 ' Muestra en textbox contenido archivo version.txt desde servidor
   
  'Variable donde se guardará el texto
   WebBrowser1.Navigate "www.chile-pro.com/updatepatch/Launcher/version2.html" 'Le indicamos al WebBrowser que cargue la url
   Sleep 3 'Le damos oportunidad al WebBrowser de cargar la pagina web  
 
End Sub

Ayuda por favor

Amigos, algos simple, pero no he podido dar en el clavo, tengo un botón que borra un archivo, funciona perfecto.

El problema esta cuando el archivo ya fue borrado, me lanza error, lo que quiero, es a través de la instrucción IF, se borre el archivo si es que existe y si no, que lo salte y no haga nada.

intento con esto, pero esta mal la sintaxis:

Código [Seleccionar] Expandir

Private Sub Command2_Click()

Kill App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin"

If Kill(App.Path + "\kitserver\dat\0_text.afs\unnamed_535.bin") = 1 Then
    Else
 
  End If
End Sub

haber si me dan una mano amigos
saludos

Amigos, les cuento lo que quiero hacer es copiar archivo y que el tiempo que tome en copiar muestre un gif cargando.

tengo el form1 que se ve así:



al presionar el botón instalar aparece el gif:



use la dll "GIF89.DLL", el problema es como hacer para sincronizar el mostrar la imagen con el tiempo que tome en copiar el archivo. creo que con un control "timer" se podría lograr.

este es el código:

Código [Seleccionar] Expandir

Private Sub Form_Load()
On Error Resume Next
'Si bien se carga como un ocx, esta es una dll. La misma copiarla en _
en el directorio de systema de windows para que funcione

Gif89a1.FileName = App.Path + "\cargando.gif"

End Sub


Private Sub Command1_Click()
Gif89a1.Visible = True

FileCopy "C:\0_sound.afs", "C:\a\0_sound.afs"
End Sub



¿Esto es posible? o alguna forma mas fácil de hacerlo
anexo el source por si alguien me puede ayudar por favor
https://dl.dropboxusercontent.com/s/08qwy0t1yt3dl12/copiar.rar?dl=1&token_hash=AAEoC7NgB-SrfBRDO2ja6HwpKGyGXOIzrcWifjntTn2WdA

Gracias amigos

Amigos, les pido su ayuda, lo que quiero lograr es que a través de un optionbuton renombrar una carpeta, al seleccionar el optionbuton y presionar el botón aplicar se renombra un archivo.

El problema es que cuando el archivo ya se renombra, al volver a seleccionar el mismo botón, como el archivo ya fue renombrado, me da el error de (No se ha encontrado el archivo)

Este es el código:

Private Sub opci_Click()
'Si está seleccionado el Option1 se ejecuta la siguiente condición
If Option19.Value = True Then
  Name "c:\a.txt" As "c:\archivo.txt"
  MsgBox "Fuente por defecto", vbInformation + vbOKOnly
Else: Option19.Value = False
  MsgBox "Fuente cambiada", vbInformation + vbOKOnly
 
End If

Gracias amigos

Amigos les cuento, tengo el siguiente código, que me permite cambiar archivos de una carpeta a otra y ademas ir mostrando diferentes imágenes al revisar las opciones:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
'Si está seleccionado el Option1 se ejecuta la siguiente condición
If Option1.Value = True Then
   Kill "C:\destino\unknow_00053.fnt"
      MsgBox "Fuente por defecto"
End If

'Si está seleccionado el Option2 esta
If Option2.Value = True Then
FileCopy "C:\fnt\F2\unknow_00053.fnt", "C:\destino\unknow_00053.fnt"
MsgBox "Fuente cambiada"
End If

'Si está seleccionado el Option3 se ejecuta esta otra
If Option3.Value = True Then
FileCopy "C:\fnt\F3\unknow_00053.fnt", "C:\destino\unknow_00053.fnt"
MsgBox "Fuente cambiada"
End If

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()
Image3.Visible = False
Image2.Visible = False
Image1.Visible = True
End Sub

Private Sub Option2_Click()
Image3.Visible = False
Image2.Visible = True
Image1.Visible = False
End Sub

Private Sub Option3_Click()
Image3.Visible = True
Image2.Visible = False
Image1.Visible = False

Así se ve el programa:



Lo que quiero es que al elegir una opción, se cree un archivo ini, recordando la opción escogida, por lo tanto, si elijo la fuente 2, al cerrar y abrir el programa, este muestre la opción escogida.

Gracias amigos 

Amigos, les cuento, buscando nuevos diseños para mi pograma, me encontre con esto:



Un diseño que me gustaría implementar, mi duda es si ¿se puede lograr algo como esto en vb6?, es decir poder ajustar el contorno del form a una imagen, o lograr algo parecido

gracias  

Mi consulta es la siguiente, tengo un código que me muestra en un textbox el contenido de un archivo.txt que esta en mi pc, mi pregunta es.

Como podría hacer lo mismo con un archivo de texto que esta en un servidor ?

El codigo es este:

Código [Seleccionar] Expandir

Private Sub Form_load()
    Dim linea As String
    Dim c As String
   
' Muestra en textbox el contenido de archivo local version.txt

    Open "c:/version.txt" For Input As #1
    linea = ""
    Me.Text4.Text = ""
    While Not EOF(1)
        c = Input(1, #1)
        If c = "," Then
            Me.Text4.Text = Me.Text4.Text + linea + vbNewLine
            linea = ""
        Else
            linea = linea + c
        End If
    Wend
    If linea <> "" Then Me.Text4.Text = Me.Text4.Text + linea
    Close #1
   
  ' Muestra en textbox el contenido de  archivo version.txt desde servidor
   
    Open "http://miweb/updatepatch/version.txt" For Input As #1
    linea = ""
    Me.Text3.Text = ""
    While Not EOF(1)
        c = Input(1, #1)
        If c = "," Then
            Me.Text3.Text = Me.Text3.Text + linea + vbNewLine
            linea = ""
        Else
            linea = linea + c
        End If
    Wend
    If linea <> "" Then Me.Text3.Text = Me.Text3.Text + linea
    Close #1   

End Sub

Así se ve en mi programa:



Muchas, pero muchas gracias por la paciencia

Enviado desde mi GT-I9300 usando Tapatalk

Amigos, como están, estoy programando mi aplicación y me gusto mucho este diseño:  



Esas 3 pestañas con iconos en forma vertical que van mostrando diferente información.

Mi pregunta es, puedo lograr algo como eso en vb5???
hay algún componente que me permita llegar a obtener algo parecido?

gracias  

Amigos les cuento, soy fanático del PES6 y editaba su base de datos, para hacer actualizaciones y editar los stats de cada jugador.

Utilizaba un programa llamado magin roster editor, que importaba los datos de cada jugador de la pagina http://pesstatsdatabase.com/PSD/ Funcionaba perfecto, pero resulta que cambiaron los servidores y ahora ya no se puede importar nada y hay que agregar dato por dato de cada jugado, es un trabajo de joyeria.

Mi pregunta es:
Hay alguna forma de poder editar el programa, modificar las rutas y volver a importar los datos.

Es es el programa en cuestión: http://www.mediafire.com/download/s6185j5obo0z37q/majin_roster_editor_pes_6_beta_fix_by_majin.rar

desconozco si esto es posible, solo quiero saber si hay alguna posibilidad de arreglar este error.

Saludos

Hola amigos, este es el primer post que hago de muchos mas que vendran, me intereso el tema de la Programación en BATCH,

Pimero que todo tengo windows 7, intento abrir el PES6.exe con este codigo

start "D:\Program Files\KONAMI\Pro Evolution Soccer 6\pes6.exe"

y solo consigo que me abra una consola  CMD que dice pes6.exe, pero no me abre el juego y al colocar la direccion directa en la consola de comandos me tira el mensaje AFS File not found, y esos archivos si estan detro de la carpeta donde tengo intalado el juego, porque al abrir el pes6.exe me inicia sin problemas.

¿mi pregunta es como tengo que hacer el codigo para que me abra el juego?

Saludos amigos y gracias por darse la molestia de contestar