elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


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

Desconectado Desconectado

Mensajes: 18


Ver Perfil
Duda Sobre Visual Basic 6.0
« en: 19 Septiembre 2011, 00:02 am »
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 am por GarnoX » En línea
raul338


Desconectado Desconectado

Mensajes: 2.633


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 am »
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: 18


Ver Perfil
Re: Duda Sobre Visual Basic 6.0
« Respuesta #2 en: 19 Septiembre 2011, 00:12 am »
Cita de: raul338 en 19 Septiembre 2011, 00:08 am
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


Desconectado Desconectado

Mensajes: 2.633


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 am »
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: 18


Ver Perfil
Re: Duda Sobre Visual Basic 6.0
« Respuesta #4 en: 19 Septiembre 2011, 00:32 am »
Cita de: raul338 en 19 Septiembre 2011, 00:16 am
.............................. 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


Desconectado Desconectado

Mensajes: 2.633


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 am »
Entendiste bien, como hacerlo, ya te dije :xD con InStr y Mid$
En línea
GarnoX

Desconectado Desconectado

Mensajes: 18


Ver Perfil
Re: Duda Sobre Visual Basic 6.0
« Respuesta #6 en: 19 Septiembre 2011, 01:34 am »
Cita de: raul338 en 19 Septiembre 2011, 01:11 am
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: 299



Ver Perfil WWW
Re: Duda Sobre Visual Basic 6.0
« Respuesta #7 en: 19 Septiembre 2011, 14:26 pm »
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
  1. 'Code by Herio
  2. Dim var0 as String
  3.  
  4. 'Cargamos la ruta en la variable var0
  5. var0 = App.Path
  6.  
  7. 'Modificamos la ruta, para conseguir la del gta_sa.exe
  8. var0 = Replace(var0, "Folder1", "gta_sa.exe", , , vbTextCompare) 
  9.  
  10. 'Ejecutamos gta_sa.exe
  11. 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 pm por Herio » En línea
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: Duda Sobre Visual Basic 6.0
« Respuesta #8 en: 19 Septiembre 2011, 17:57 pm »
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
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
Hurubnar

Desconectado Desconectado

Mensajes: 299



Ver Perfil WWW
Re: Duda Sobre Visual Basic 6.0
« Respuesta #9 en: 19 Septiembre 2011, 18:27 pm »
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
  1. Dim var0 as String
  2. 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
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Duda sobre visual basic 6.0
Programación Visual Basic 		komodin 2 1,280 Último mensaje 23 Diciembre 2006, 04:15 am
por komodin
Duda sobre worm en visual basic
Programación Visual Basic 		mario98c 8 4,807 Último mensaje 29 Abril 2008, 17:40 pm
por SKL (orignal)
duda sobre visual basic « 1 2 3 »
Programación Visual Basic 		lalo3010 22 6,715 Último mensaje 31 Marzo 2010, 07:01 am
por Shell Root
DUDA SOBRE UN EJERCISIO DE VISUAL BASIC (modulos)
.NET (C#, VB.NET, ASP) 		crashoverride1305 3 3,635 Último mensaje 1 Enero 2013, 18:27 pm
por pakodla51
Duda sobre visual basic
Programación Visual Basic 		TheH4ck 2 1,727 Último mensaje 30 Julio 2014, 01:31 am
por TheH4ck
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines