Advertisement
Guest User

lpplayer

a guest
May 23rd, 2010
235
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 2.93 KB | None | 0 0
  1. #include <ComboConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6. #include <IE.au3>
  7. #Region ### START Koda GUI section ### Form=C:\Users\Burak\Desktop\Projekte und Co\LinkinPark\Form1.kxf
  8. $Form1 = GUICreate("LPPlayer", 1140, 708, 55, 10)
  9. $Group1 = GUICtrlCreateGroup("Alben", 8, 8, 217, 385)
  10. $Label1 = GUICtrlCreateLabel("Live in Texas:", 16, 24, 70, 17)
  11. $Combo1 = GUICtrlCreateCombo("Lied auswählen", 16, 48, 145, 25)
  12. GUICtrlSetData(-1, "Somewhere I Belong|Lying From You|Papercut|Points Of Authority|Runaway|Faint|From The Inside|Pushing Me Away|Numb|Crawling|Don" & Chr(39) & "t Stay|Figure.09|With You")
  13. $Label2 = GUICtrlCreateLabel("Collision Course:", 16, 80, 81, 17)
  14. $Combo2 = GUICtrlCreateCombo("Lied auswählen", 16, 104, 145, 25)
  15. GUICtrlSetData(-1, "Dirt Off Your Shoulder/Lying From You|Big Pimpin" & Chr(39) & "/Papercut|Jigga What/Faint|Numb/Encore|Izzo/In The End|Points Of Authority/99 Problems/One Step Closer")
  16. $Label3 = GUICtrlCreateLabel("Hybrid Theory:", 16, 136, 73, 17)
  17. $Combo3 = GUICtrlCreateCombo("Lied auswählen", 16, 168, 145, 25)
  18. GUICtrlSetData(-1, "Papercut|One Step Closer|With You|Points Of Authority|Crawling|Runaway|By Myself|In The End|A Place For My Head|Forgotten|Cure For The Itch|Pushing Me Away")
  19. $Label4 = GUICtrlCreateLabel("Meteora:", 16, 200, 46, 17)
  20. $Combo4 = GUICtrlCreateCombo("Lied auswählen", 16, 232, 145, 25)
  21. GUICtrlSetData(-1, "Foreword|Don" & Chr(39) & "t Say|Somewhere I Belong|Lying From You|Hit The Floor|Easier To Run|Faint|Figure.09|Breaking The Habit|From The Inside|Nobody" & Chr(39) & "s Listening|Session|Numb")
  22. $Label8 = GUICtrlCreateLabel("Reanimation:", 16, 264, 66, 17)
  23. $Combo5 = GUICtrlCreateCombo("Lied auswählen", 16, 296, 145, 25)
  24. GUICtrlSetData(-1, "Opening|Points Of Authority|In The End|Chali|Forgotten|Pushing Me Away|A Place For My Head|X-Ecutioner Style|High Voltage|Riff Raff|With You|Ntr/Mssion|Papercut|Runaway|My December|Stef|By Myself|Cure For The Itch|One Step Closer|Crawling")
  25. $Label5 = GUICtrlCreateLabel("Andere:", 16, 328, 41, 17)
  26. $Combo6 = GUICtrlCreateCombo("Lied auswählen", 16, 360, 145, 25)
  27. GUICtrlSetData(-1, "Blackbird")
  28. GUICtrlCreateGroup("", -99, -99, 1, 1)
  29. $Group2 = GUICtrlCreateGroup("Songtext", 832, 8, 273, 689)
  30. $Edit1 = GUICtrlCreateEdit("", 840, 24, 257, 665)
  31. GUICtrlSetData(-1, "Bitte wählen Sie ein Lied aus")
  32. GUICtrlCreateGroup("", -99, -99, 1, 1)
  33. $Group3 = GUICtrlCreateGroup("Player", 232, 8, 593, 385)
  34. GUICtrlCreateGroup("", -99, -99, 1, 1)
  35. GUICtrlSetColor(-1, 0xC0DCC0)
  36. $Group4 = GUICtrlCreateGroup("Albumcover", 8, 400, 337, 273)
  37. GUICtrlCreateGroup("", -99, -99, 1, 1)
  38. GUISetState(@SW_SHOW)
  39. #EndRegion ### END Koda GUI section ###
  40.  
  41. $Play = _IECreateEmbedded()
  42. GUICtrlCreateObj($Play, -8, -8, 0, 0)
  43.  
  44. While 1
  45.     $nMsg = GUIGetMsg()
  46.     Switch $nMsg
  47.         Case $GUI_EVENT_CLOSE
  48.             _IENavigate($Play, "http://www.youtube.com/watch?v=eXL8QbPay40",1)
  49.  
  50.     EndSwitch
  51. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement