Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: kuki06 en 28 Abril 2006, 04:11 am



Título: Dudas! :P
Publicado por: kuki06 en 28 Abril 2006, 04:11 am
Hola Gente..
tego unas dudas...

1) estoy haciendo un "instalador".. osea:

CopyFile App.Path & "\Mi programa.exe", C:\Documents and settings\All users\Escritorio

lo que quiero es que autodetecte donde esta el escritorio..

2) como hacer un cliente ftp? osea.. que por lo menos suba y baje no pido que se vean directorios pero si se pudiera mejor ^^ (Porfavor decirme mediante Inet ;) )

y nada mas.. espero sus respuestas


Título: Re: Dudas! :P
Publicado por: JuszR en 28 Abril 2006, 04:21 am
Creo que es con %USER%. ;)

Un consejo: No pongas EXEs en el escritorio, ponlos en una subcarpeta en Archivos de Programa. En el escritorio solamente pon un shortcut (.lnk). ;)


Título: Re: Dudas! :P
Publicado por: kuki06 en 28 Abril 2006, 04:36 am
y cmo creo las propiedades del .lnk
es decir, como creo un .lnk


Título: Re: Dudas! :P
Publicado por: moe88 en 28 Abril 2006, 11:13 am
Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long


no tiene mucha dificultad, ahi va un ejemplo

strDestino = "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\" & vbNullChar
strAccesoDirecto = "Restaurar sistema.lnk" & vbNullChar
strPath = "C:\WINDOWS\system32\Restore\rstrui.exe" & vbNullChar
strArgumentos = "" & vbNullChar
x = fCreateShellLink(strDestino, strAccesoDirecto, strPath, strArgumentos, True, "")


Título: Re: Dudas! :P
Publicado por: _Sergi_ en 28 Abril 2006, 12:51 pm
Por favor, pongan el code con las etiquetas [code ] y [/code ].

Lo que dice X.Cyclop es que uses una variable de entorno, %user% pero %user% no existe (aunq la puedes crear si quieres...). Aparte de eso, en VB no puedes usar variables de entorno directamente.

Para usar variables de entorno en VB tienes que usar la funcion Envirom; para obtener el escritorio seria asi:

Código:
Dim Escritorio as string
Escritorio = Environ("USERPROFILE") & "\Escritorio"

Un saludo!



Título: Re: Dudas! :P
Publicado por: moe88 en 28 Abril 2006, 13:08 pm
Por favor, pongan el code con las etiquetas [code ] y [/code ].

Código:
Private Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long

strDestino = "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\" & vbNullChar
strAccesoDirecto = "Restaurar sistema.lnk" & vbNullChar
strPath = "C:\WINDOWS\system32\Restore\rstrui.exe" & vbNullChar
strArgumentos = "" & vbNullChar
x = fCreateShellLink(strDestino, strAccesoDirecto, strPath, strArgumentos, True, "")


Disculpad :)  , pero nunca postee en foros, este es el primero en que participo... así será a a partir de ahora :)