In Winamp Internet-Adrese per vba abspielen

Hallo Wissende,
Winamp gibt es bei http://winamp.com kostenlos. Bei Google wimmelt es von Lösungen wie man per VB bzw vba den winamp dazu brigt Playlists oder eine mp3 abzuspielen.
Aber ich fand nichts darüber wie man ihn dazu bewegt eine Internet-Adresse, auf der gerade gestreamt wird, abzuspielen.
Ich hatte mir Code gebastelt der bis zu dem Fensterchen kam wo man die URl dann eingibt, aber ab dann versagte Sendkeys und leider ist dieser Code weg.
Jetzt wollte ich den Code nachbauen, kam nur auf diesen Schnipsel, da warum auch immer winamp nur aufblinkt und dann wieder verschwunden ist.
Dies hatte ich beim ersten Versuch nicht.
Option Explicit


Sub tt()
Dim spiel ' als was?
spiel = Shell("C:\Programme\Winamp\winamp.exe")
SendKeys "^{L}" 'Strg+L = Abspielen Internetadresse
End Sub

Gruß
Reinhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Reinhard, ich ahbe mal was für dich zusammengebastelt.Ich hoffe es Hilft dir !
grüße Chris
Declare


Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_CONTROL = &H11     'STRG Taste
Private Const VK_L = &H4C   'Taste L
Private Const KEYEVENTF_KEYUP = &H2 'Die angegebene Taste wird losgelassen

Sub tt()
Dim spiel ' als was?
spiel = Shell("D:\Programme\Winamp\winamp.exe", 1)
AppActivate spiel, True
SendKeys "^{L}"  'Strg+L = Abspielen Internetadresse
'Alt+F4 drücken
Call keybd_event(VK_CONTROL, 0&, 0&, 0&)
Call keybd_event(VK_L, 0&, 0&, 0&)
'Und wieder loslassen
Call keybd_event(VK_CONTROL, 0&, KEYEVENTF_KEYUP, 0&)
Call keybd_event(VK_L, KEYEVENTF_KEYUP, 0&, 0&)
End Sub

Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const VK_CONTROL = &H11 'STRG Taste Private Const VK_L = &H4C 'Taste L Private Const KEYEVENTF_KEYUP = &H2 'Die angegebene Taste wird losgelassen Sub tt() Dim spiel ' als was? spiel = Shell("c:\Programme\Winamp\winamp.exe", 3) AppActivate spiel, True Call keybd_event(VK_CONTROL, 0&, 0&, 0&) Call keybd_event(VK_L, 0&, 0&, 0&) SendKeys Range("A1") SendKeys "{Enter}" 'Und wieder lhhhohhhhhhhhslassen Call keybd_event(VK_CONTROL, 0&, KEYEVENTF_KEYUP, 0&) Call keybd_event(VK_L, KEYEVENTF_KEYUP, 0&, 0&) 'SendKeys "{Tab}{Tab}{Tab}{Enter}" 'SendKeys "%{F4}" End Sub Gruß Reinhard

Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub tt() Dim spiel ' als was? spiel = Shell("D:\Programme\Winamp\winamp.exe", 3) Sleep 1000 AppActivate spiel SendKeys ("^{l}") SendKeys Range("A1") SendKeys "{Enter}" End Sub

Beliebteste Forumthreads (12 Monate)

In Winamp Internet-Adrese per vba abspielen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread