DARK KINGS
Thanks For Visit The Forum:) Download Tools And Enjoy:) Join Mig33 Chat Room >dhaka onuvab<

Dhaka

July 2017
SunMonTueWedThuFriSat
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendar Calendar

Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» Dark B00mb3r by fajiil-(free)
Mon Apr 11, 2016 3:22 pm by me.punk.7

» ID creator with proxy changer and gmail dot generator
Sat Apr 09, 2016 7:47 pm by me.punk.7

» Unlimited Ids Login , Balance And Level Checker
Sat Apr 09, 2016 7:45 pm by me.punk.7

» Multy credit transfer project
Sun Feb 21, 2016 6:53 am by rezkiye

» Sockmix v2.6 Fresh Project
Fri Nov 20, 2015 12:08 pm by papeshh

» Offline Registration SYstem And Key Generator By DevelopMig33.Tk
Fri Nov 20, 2015 12:08 pm by papeshh

» All Ocx Box
Thu Oct 22, 2015 7:26 am by papeshh

» multy maker + auto activator ( updated )
Thu Oct 22, 2015 7:15 am by papeshh

» radixel kicking tool(crack) full fee
Thu Sep 03, 2015 7:26 am by rise-of-moon

free counters

get winamp update in vb form

View previous topic View next topic Go down

get winamp update in vb form

Post  sahriya-omu on Wed Mar 28, 2012 5:38 pm

1st Make a Module And Past These Functions:
Code:
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public lHandle As Long


Function getWinampWindow()
lHandle = FindWindow("Winamp v1.x", vbNullString)
If lHandle > 0 Then
Dim lRet As Long
Dim sTitle As String * 256
Dim sCaption As String
lRet = GetWindowText(lHandle, sTitle, Len(sTitle))
sCaption = Left(sTitle, InStr(1, sTitle, vbNullChar, vbTextCompare) - 10)
Do
If IsNumeric(Left(sCaption, 1)) = True Or Left(sCaption, 1) = "." Or Left(sCaption, 1) = " " Then
sCaption = Right(sCaption, Len(sCaption) - 1)
Else
Exit Do
End If
Loop
Do
If IsNumeric(Right(sCaption, 1)) = True Or Right(sCaption, 1) = ")" Or Right(sCaption, 1) = " " Or Right(sCaption, 1) = ":" Then
sCaption = Left(sCaption, Len(sCaption) - 1)
ElseIf Right(sCaption, 1) = "(" Then
sCaption = Left(sCaption, Len(sCaption) - 1)
Exit Do
Else
Exit Do
End If
Loop
getWinampWindow = sCaption
Else
getWinampWindow = "Winamp 6 Not Found"
End If
End Function


Now come to the form.Make a Timer (Timer1) (Interval :1000) and Label (Label1)
Now Past Following Codes Into The Timer:
Code:
Private Sub Timer1_Timer()
Timer1.Enabled = False
Label1.Caption = getWinampWindow
Timer1.Enabled = True
End Sub


Now run the project. Laughing You will see the current song title which is playing in Winamp. geek
avatar
sahriya-omu
Admin
Admin

Posts : 209
Points : 555
Reputation : 31
Join date : 2011-08-11
Age : 25
Location : Barisal

View user profile http://dark-kings.forumotions.net

Back to top Go down

Re: get winamp update in vb form

Post  ridu on Sun Mar 17, 2013 12:54 pm

yo bai tnx... aidai khuji Evil or Very Mad Evil or Very Mad
avatar
ridu
Co-Admin
Co-Admin

Posts : 96
Points : 228
Reputation : 6
Join date : 2012-08-08
Age : 22
Location : hell

View user profile http://jan2us.wapsite.me

Back to top Go down

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum