Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ComboConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #include <IE.au3>
- #Region ### START Koda GUI section ### Form=C:\Users\Burak\Desktop\Projekte und Co\LinkinPark\Form1.kxf
- $Form1 = GUICreate("LPPlayer", 1140, 708, 55, 10)
- $Group1 = GUICtrlCreateGroup("Alben", 8, 8, 217, 385)
- $Label1 = GUICtrlCreateLabel("Live in Texas:", 16, 24, 70, 17)
- $Combo1 = GUICtrlCreateCombo("Lied auswählen", 16, 48, 145, 25)
- 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")
- $Label2 = GUICtrlCreateLabel("Collision Course:", 16, 80, 81, 17)
- $Combo2 = GUICtrlCreateCombo("Lied auswählen", 16, 104, 145, 25)
- 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")
- $Label3 = GUICtrlCreateLabel("Hybrid Theory:", 16, 136, 73, 17)
- $Combo3 = GUICtrlCreateCombo("Lied auswählen", 16, 168, 145, 25)
- 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")
- $Label4 = GUICtrlCreateLabel("Meteora:", 16, 200, 46, 17)
- $Combo4 = GUICtrlCreateCombo("Lied auswählen", 16, 232, 145, 25)
- 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")
- $Label8 = GUICtrlCreateLabel("Reanimation:", 16, 264, 66, 17)
- $Combo5 = GUICtrlCreateCombo("Lied auswählen", 16, 296, 145, 25)
- 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")
- $Label5 = GUICtrlCreateLabel("Andere:", 16, 328, 41, 17)
- $Combo6 = GUICtrlCreateCombo("Lied auswählen", 16, 360, 145, 25)
- GUICtrlSetData(-1, "Blackbird")
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $Group2 = GUICtrlCreateGroup("Songtext", 832, 8, 273, 689)
- $Edit1 = GUICtrlCreateEdit("", 840, 24, 257, 665)
- GUICtrlSetData(-1, "Bitte wählen Sie ein Lied aus")
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $Group3 = GUICtrlCreateGroup("Player", 232, 8, 593, 385)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- GUICtrlSetColor(-1, 0xC0DCC0)
- $Group4 = GUICtrlCreateGroup("Albumcover", 8, 400, 337, 273)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- $Play = _IECreateEmbedded()
- GUICtrlCreateObj($Play, -8, -8, 0, 0)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- _IENavigate($Play, "http://www.youtube.com/watch?v=eXL8QbPay40",1)
- EndSwitch
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement