elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
29 Mayo 2012, 03:18  


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo, raul338)
| | |-+  Duda Sobre Visual Basic 6.0
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Duda Sobre Visual Basic 6.0  (Leído 834 veces)
GarnoX

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Duda Sobre Visual Basic 6.0
« en: 19 Septiembre 2011, 00:02 »

Hola buenos tardes:)
Tengo una pequeña duda he estado leyendo sus guias de hace un buen tiempo y se me ocurrio la idea de crear un launcher
para  X cosa  pero el problema llega cuando yo quiero usar  los exe para ejecutarlo en su mismo directorio

el codigo que tengo en vb 6.0 lo llevo asi:)

Código:
Private Sub Command1_Click()
 On Error GoTo error:
 If Shell(App.Path & "\gta_sa.exe", vbNormalFocus) Then
 Else
error:
 MsgBox ("No se encontro el Archivo")
 End If

hay se que tengo el código bien porque solo tengo que meter elProyecto.exe en la carpeta del juego..

la cosa cambia cuando lo que yo quiero hacer  es Tener el proyecto.exe Fuera de la Carpeta del juego  llame al juego igual pero espeficicando la carpeta..


Gracias Por la ayuda :)


« Última modificación: 19 Septiembre 2011, 00:04 por GarnoX » En línea
raul338
Moderador
***
Conectado Conectado

Mensajes: 2.371


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Duda Sobre Visual Basic 6.0
« Respuesta #1 en: 19 Septiembre 2011, 00:08 »

El foro de vb es acá

Y en lugar de usar App.Path, deberias guardar la ruta completa en un string (ya sea leyendo de un archivo de configuracion, por ejemplo)


En línea

GarnoX

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Re: Duda Sobre Visual Basic 6.0
« Respuesta #2 en: 19 Septiembre 2011, 00:12 »

El foro de vb es acá
Y en lugar de usar App.Path, deberias guardar la ruta completa en un string (ya sea leyendo de un archivo de configuracion, por ejemplo)

Ok... Pero  yo el juego lo tengo En una Carpeta en el usb :) y cada vez cambia la Letra eso seria un problema cuando  por X cosa la Unidad me dejara de ser E:\


Por cierto:

si el foro de Vb es ese pero por ningun lado vi dudas o preguntas en el :) asi que la puse aca Si hay agun moderador que me haga el favor de mover el post  Thanks so much
En línea
raul338
Moderador
***
Conectado Conectado

Mensajes: 2.371


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Duda Sobre Visual Basic 6.0
« Respuesta #3 en: 19 Septiembre 2011, 00:16 »

Como que no viste preguntas? :xD hay varios hilos con dudas ahí :P

Entonces, Te conviene tomar la unidad activa del App.Path (haciendo un Instr + Mid$ buscando los ":" para obtener la letra de la unidad) y de ahi agregarle la ruta relativa :P

Ej

Shell(strLetraUnidad & ":\Juegos\MiJueguito.exe")
En línea

GarnoX

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Re: Duda Sobre Visual Basic 6.0
« Respuesta #4 en: 19 Septiembre 2011, 00:32 »

.............................. Te conviene tomar la unidad activa del App.Path (haciendo un Instr + Mid$ buscando los ":" para obtener la letra de la unidad) y de ahi agregarle la ruta relativa :
ej:
Shell(strLetraUnidad & ":\Juegos\MiJueguito.exe")

no entendí :(

Lo que me quieres decir que es mas Facil App.path q llame la ubicacion donde esta ejecutando el Proyecto.exe y  Verifique la Letra  una vez verificada Dejarle el string con la Supuesta Ruta Por ejemplo "X:\Juegos\MiJueguito.exe") donde X sera La Variable de la Letra de la unidad...

Ok eso fue lo que  :xD yo entendi pero no entendi como hacerlo : :-\
En línea
raul338
Moderador
***
Conectado Conectado

Mensajes: 2.371


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Duda Sobre Visual Basic 6.0
« Respuesta #5 en: 19 Septiembre 2011, 01:11 »

Entendiste bien, como hacerlo, ya te dije :xD con InStr y Mid$
En línea

GarnoX

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Re: Duda Sobre Visual Basic 6.0
« Respuesta #6 en: 19 Septiembre 2011, 01:34 »

Entendiste bien, como hacerlo, ya te dije :xD con InStr y Mid$

pero la cosa es que no se usar las funciones  instr y mid :-\
En línea
Hurubnar


Desconectado Desconectado

Mensajes: 300



Ver Perfil WWW
Re: Duda Sobre Visual Basic 6.0
« Respuesta #7 en: 19 Septiembre 2011, 14:26 »

Buenas GarnoX:

Al conectar la unidad flash al PC, la ruta de este archivo (el que ejecutará el juego) sería:
X:\Folder1

Y el path de gta_sa.exe sería:
X:\

Pues bien, si guardamos la ruta X:\Folder1 en una variable y logramos eliminar la siguiente parte: Folder1  y añadir la cadena de texto gta_sa.exe, lograremos la ruta del ejecutable gta_sa.exe, es decir: X:\gta_sa.exe


Código
'Code by Herio
Dim var0 as String
 
'Cargamos la ruta en la variable var0
var0 = App.Path
 
'Modificamos la ruta, para conseguir la del gta_sa.exe
var0 = Replace(var0, "Folder1", "gta_sa.exe", , , vbTextCompare)
 
'Ejecutamos gta_sa.exe
Shell(var0)

Es algo primitivo, pero no es que tenga grandes conocimientos de Visual Basic 6.0 ... Aún así, espero que te ayude.

Un saludo,
atte. Herio

PD No lo he testeado.

« Última modificación: 19 Septiembre 2011, 14:34 por Herio » En línea
Elemental Code


Desconectado Desconectado

Mensajes: 499


Im beyond the system


Ver Perfil
Re: Duda Sobre Visual Basic 6.0
« Respuesta #8 en: 19 Septiembre 2011, 17:57 »

pero usa la funcion left :P

si o si la letra de la unidad va a ser la primera desde la izquierda.
La segunda van a tener que ser los dos puntos :
y la tercera una contrabarra \

ej:
Código:
C:\Archivos de Programa\Te tiro el rayo
El primer caracter es "C"
El seguno caracter es ":"
y el tercero es "\"
En línea

Hurubnar


Desconectado Desconectado

Mensajes: 300



Ver Perfil WWW
Re: Duda Sobre Visual Basic 6.0
« Respuesta #9 en: 19 Septiembre 2011, 18:27 »

Elemental Code tiene razón, yo ni me acordaba de la función left (la más simple y eficaz para lo que quieres hacer).

Para lograr la letra de la unidad te bastaría con:

Código
Dim var0 as String
var0 = Left(App.Path, 1)

Por lo que solo faltaría sumarle a la variable var0 la ruta restante de gta_sa.exe

Aquí hay información sobre esta y otras funciones (muy simple):
http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm#left-mid-right

Un saludo,
atte. Herio
En línea
GarnoX

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Re: Duda Sobre Visual Basic 6.0
« Respuesta #10 en: 20 Septiembre 2011, 03:05 »

buenos chicos estoy haciendo experimentos :) si me sale bien les aviso :)  :silbar: :silbar:

-----------------------------------------

edit: es buena idea que instale el CD de los msdn de visual basic 6 porque tengo instalado tanto el 6 como el net ultimaste 2010 :)

« Última modificación: 20 Septiembre 2011, 03:08 por GarnoX » En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Una duda sobre visual basic « 1 2 »
Programación General
IvanUgu 18 1,173 Último mensaje 17 Febrero 2005, 08:49
por Free-Knowledgend
Duda sobre visual basic 6.0
Programación Visual Basic
komodin 2 337 Último mensaje 23 Diciembre 2006, 04:15
por komodin
Tengo una Duda. Sobre el Visual Basic.
Programación Visual Basic
Zona-Hacking 3 794 Último mensaje 9 Enero 2010, 01:04
por seba123neo
duda sobre visual basic « 1 2 »
Programación Visual Basic
lalo3010 22 2,548 Último mensaje 31 Marzo 2010, 07:01
por Shell Root
Duda sobre navegador en visual basic
Programación Visual Basic
Hack-11 3 728 Último mensaje 19 Junio 2011, 00:58
por k0ws
Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines