gecko6989 (Normal User)
Pro
Messaggi: 64
Iscritto: 05/06/2007
|
Ho creato un form con un command button (per aprire il media player) e una textbox (che contiene l'URL di un video).
Siccome nn voglio assolutamente usare il controllo ActiveX del media player, ma lanciare direttamente il media player, Ho provato ad aprire il media player facendo così:
Shell "C:\Programmi\Windows Media Player\wmplayer.exe", vbMaximizedFocus
...e devo dire che è andato tutto per il meglio.
Mi rimangono però ancora due dubbi:
1) La path, nel mio caso "C:\Programmi\Windows Media Player\wmplayer.exe", va bene anche per gli altri computer, dove è possibile che il media player si trovi in altre cartelle??
Se non va bene come posso fare, cioè cosa andrei a mettere come path???
2) Quando lancio il media player, come faccio a far partire automaticamente un video, il quale indirizzo è presente in una textbox nel form??
Grazie a chi mi risp
Ultima modifica effettuata da gecko6989 il 10/10/2007 alle 13:10 |
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
per la 2 devi fare
Shell "C:\Programmi\Windows Media Player\wmplayer.exe " & text1.text, vbMaximizedFocus
per la prima dovresti usare comandi come %programfiles%
credo ma non ne sono certo che il codice corretto dovrebbe essere
Shell chr(34) & "%programfiles%\Windows Media Player\wmplayer.exe" & chr(34) & " " & text1.text, vbMaximizedFocus
|
|
BytE-FucK (Normal User)
Pro
Messaggi: 171
Iscritto: 09/10/2007
|
Per semplificare il tutto,potresti usare shellexecute:
Codice sorgente - presumibilmente VB.NET |
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_NORMAL = 1 Private Sub Command1_Click() ShellExecute hWnd, "Open", "C:/Swan.mp3", vbNullString, vbNullString, SW_NORMAL End Sub
|
Dove "C:/Swan.mp3" è il file da aprire
|
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
in effetti...
così ti si aprirebbe anche con il tuo lettore predefinito.
|
|
BytE-FucK (Normal User)
Pro
Messaggi: 171
Iscritto: 09/10/2007
|
Infact,se vuoi che non si apra,aprilo con il tuo programma,metti o un controllo mmcontrol o usi l'api mcisendstring
|
|
gecko6989 (Normal User)
Pro
Messaggi: 64
Iscritto: 05/06/2007
|
La soluzione che ho adottato alla fine è stata questa:
Dim sPath As String
sPath = Environ("ProgramFiles") & "\Windows Media Player\wmplayer.exe"
Shell sPath & " " & Text1.Text, vbMaximizedFocus
Grazie cmq a tutti per i buoni suggerimenti
|
|
BytE-FucK (Normal User)
Pro
Messaggi: 171
Iscritto: 09/10/2007
|
Non conoscevo sta funzione.....
Di nulla cmq..
|
|