نرم افزار windows Media Palyer

[as987498749874]

سلام دوستان
دوستان سورسی می خوام که با کلید های کنترل و چپ و راست برای بعدی و قبلی و بالا و پایین برای Pause و Play آهنگی که در حال پخش هست کار کنه

البته فکوس نرم افزاری که روش هست تغییر نکنه

مر 30

[SlowCode]

سلام
از کد زیر استفاده کن.
WindowsMediaPlayer1.Controls.pause
WindowsMediaPlayer1.Controls.play

گزینه های دیگش رو هم خودت میتونی نگاه کنی.

[as987498749874]

نه دوست عزیز

مدیا پلیر خود ویندوز فقط از طریق نرم افزاری که دیده نمیشه و با این چهار تا کلید کنترل بشه

[Hashemvp]

سلام
اینطوری خودت باید پلیر رو بسازی کارت خیلی زیاد میشه در مورد اینکه این کلید ها هم کار بدن با اینکه روی فرم نباشه

باید تمام کلید هایی ک کاربر می فشارد!!! ، زمانیکه برنامه ات فعال هست رو بررسی کنه
کد اسکی یا keycode اون دکمه ها رو گیر بیاری اگر مساوی بود فلان کارو بکنه
از ی تایمر هم میتونی استفاده کنی ک مرتب اینا رو چک کنه
سورس ی کی لوگر هم گیر بیاری از توش راحت میتونی این قسمت رو درست کنی

موفق باشی

[meys34]

1- کد زیر می تونه دستورات مختلف (توقف، پخش و ...) رو به پنجره مدیا پلیر بفرسته...

2- اینکه با زدن کلید های خاصی برنامه مون بفهمه که دستورات رو باید ارسال کنه و از طرفی برنامه مون هم دیده نشه و به اصطلاح فعال نباشه، هم میشه استفاده از hotKey...

ترکیب این دو میشه همون چیزی که میخواستید... ضمیمه شد...
کلیدهای میانبر (HotKey) = کلیدهای جهتی + ctr


منبع کد های زیر (البته به زبان .Net) (با کمی دخل و تصرف!):

http://social.msdn.microsoft.com/forums/en-US/Vsexpressvb/thread/95dda957-cb8c-4f9a-93a7-ad132b081c7a/

امتحان شد با مدیا پلیر 12 ...

Option Explicit

Private Const WM_COMMAND As Long = &H111

Private Const WMP_PLAY As Long = &H4978
Private Const WMP_STOP As Long = &H4979
Private Const WMP_PLAY_FAST As Long = &H4992
Private Const WMP_PLAY_NORMAL As Long = &H4993
Private Const WMP_PLAY_SLOW As Long = &H4994
Private Const WMP_PREV As Long = &H497A
Private Const WMP_NEXT As Long = &H497B
Private Const WMP_FAST_FORWARD As Long = &H497D
Private Const WMP_SHUFFLE As Long = &H499A
Private Const WMP_REPEAT As Long = &H499B
Private Const WMP_VOLUME_UP As Long = &H497F
Private Const WMP_VOLUME_DOWN As Long = &H4980
Private Const WMP_VOLUME_MUTE As Long = &H4981


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const HWND_BROADCAST = &HFFFF&

Private WMPhwnd As Long

Private Sub Command1_Click()
'================== Find WMP Window ======================
WMPhwnd = FindWindow("WMPlayerApp", "Windows Media Player") ' Find Main Window
If WMPhwnd = 0 Then WMPhwnd = HWND_BROADCAST ' If NOT, send as Broadcast

'============== Send Play/Pause Command ===================
SendMessage WMPhwnd, WM_COMMAND, WMP_PLAY, 0&
End Sub