Mensajes

Si  pero es q yo no dije eso  La primera parte seria el stub (por llamarlo asi) q se encargaria de dividir las otras dos y ejecutarlas o de hacer todas las funciones q se te ocurran..

Código [Seleccionar] Expandir


----------   Stub
    marca virica
----------   Huesped
    marca virica
----------    Virus


Se autolee, se parte, y ejecuta los dos trozos

Asi:

Código [Seleccionar] Expandir

Dim foto As New cjpeg


Private Sub Command1_Click()
foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
foto.Quality = 50   ' aqui ajustas la calidad dsd 1 a 100 hasi bajas calidad bajas peso
foto.SampleScreen
foto.SaveFile ("c:\" & "\capture" & ".jpg")
End Sub

A lo mejor es por la ruta, prueva a obtener la ruta corta por q creo recordar q rutas como C:\archivo de programa o ese tipo de nombres con mas de 8 caracteres no funcionan.
Tienes q obtener el nomre corto con la api GetShortPathName 

Prueva y nos cuentas q tampoco estoy 100% seguro
1S4ludo

Joer... q mala es la envidia, siempre estamos igual..

Hola, mira un ejemplo para hacer sonar una cancion

Código [Seleccionar] Expandir

'módulo:

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

'formulario:

Private Sub Command1_Click()
    iResult = mciExecute("Play c:\windows\ringin.wav")
End Sub

El archivo tiene q ser Wav o Midi





Y otro ejemplo de mciSendString de la api guide:

Código [Seleccionar] Expandir

'This project needs a Common Dialog box, named 'CDBox'
'  (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
'   and select Microsoft Common Dialog control)
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim Alias As String
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Const PlayTime = 10
    'Set the common dialog box' title
    CDBox.DialogTitle = "Choose your midi-file"
    'Set the filter
    CDBox.Filter = "Midi-files (*.mid)|*.mid"
    'Show the 'Open File'-dialog
    CDBox.ShowOpen
    'Extract an alias from the file
    Alias = Left$(CDBox.FileTitle, Len(CDBox.FileTitle) - 4)

    'play midi
    R% = mciSendString("OPEN " + CDBox.filename + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0)
    R% = mciSendString("PLAY " + Alias + " FROM 0", 0&, 0, 0)
    R% = mciSendString("CLOSE ANIMATION", 0&, 0, 0)

    'play midi for 10 secs
    t = Timer
    Do: DoEvents: Loop Until Timer > t + PlayTime

    'stop midi and close it
    R% = mciSendString("OPEN " + CDBox.filename + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0)
    R% = mciSendString&("STOP " + Alias, 0&, 0, 0)
    R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub

1S4ludo

Eso depende, si lo kieres hacer facil y muy cutre puedes usar send keys dejando tu explorador abierto y tu Pc poco operable ya q tendrias q tener esa ventana siempre visible... si no documentate un poco mas, q aki nadie va a hacer el programa por ti...

O mejor q tanto lio usa el modulo cJpe (ya esta muy posteado en el foro, buscalo) y lo haces todo en un paso...
En la legada al cliente tienes q guardar los datos en un archivo y cargarlos en un picture con loadPicture

Da igual una q otra mira:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
MsgBox Environ("WINDIR")
MsgBox Environ("SYSTEMROOT")
End Sub

Para obtener la ruta de windows y de system32, mejor q andar usando la api es usar environ, por ej:

Código [Seleccionar] Expandir

msgbox environ("WINDIR")
msgbox environ ("SYSTEMDIR")

La de system32 creo q era asi, q no me apetece provar 

Hay mas llamadas como HOMEDRIVE para el disco C (comunmente claro ) o TMP para los temporales, tb hay otra para archivos de programa pero no me acuerdo ahora..

1S4ludo

Mira:

http://foro.elhacker.net/index.php/topic,134637.0.html

Ahí lo tienes, aunke a mi ese método (espero q Hendrix no me pegue despues de esto) no es uno de los q mas me gusta. Yo suelo meterl todos los archivos separados por una marca y luego q el split se parta por esa marca con un split y ejecute los archivos, pero el resultado es el mismo son solo estilos