VB 4/6- und VBA-Forum - Beitragsübersicht -
Von Ronan
Datum 20. November 2016 um 17:28:00
Frage Hallo ich hab ein Programm geschrieben in welchem ich den Winamp auslese, was im grunde auch gut klappt nur ich bräuchte Interpret und Titel einzeln
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Sub winamp()
Dim p_laenge As Long, p As String
Dim hwndWinamp As Long
Dim text1, text2 As String
Dim titnumb As String

hwndWinamp = FindWindow("Winamp v1.x", vbNullString)
p_laenge = GetWindowTextLength(hwndWinamp) + 1
p = Space(p_laenge)
p_laenge = GetWindowText(hwndWinamp, p, p_laenge)
text1 = Left$(p$, p_laenge)
text2 = Replace(text1, "- Winamp", vbNullString)
Label1.Caption = text2
Label2.Caption = Mid(text2, 1, 1)
End Sub

Private Sub Form_Load()
Call winamp
End Sub

Private Sub Timer1_Timer()
Call winamp
End Sub
Das Beispiel hab ich gefunden nur weiss ich nicht wie ich das trennen kann.

Danke im voraus
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ]
Antworten
VB6: Winamp auslesen - Ronan 20. November 2016 um 17:28:00
Re: Winamp auslesen - Detlev Schubert 31. Juli 2017 um 09:39:15

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Visual Basic 6 (*.exe)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015