from backup

2016-01-21 01:37:32 +03:00 · 2016-01-21 01:37:32 +03:00 · 42843c7c6b
commit 42843c7c6b
40 changed files with 1494 additions and 0 deletions
--- a/list/BestDance
+++ b/list/BestDance
@ -0,0 +1 @@
+http://88.198.61.231:8200/
--- a/list/list.txt
+++ b/list/list.txt
@ -0,0 +1,12 @@
+Àâòîðàäèî - Ìîñêâà - Ìóçûêà - 22 êá - http://www.in-radio.ru/radio/avtoradio/listen.m3u
+Õèò ÔÌ - Ìîñêâà - Ìóçûêà - 31 êá/ñ - http://cluster.quantumart.ru/broadcast/?media=hitfm
+Ëâà Ðàäèî - Ìîñêâà - Ìóçûêà - 32 êá/ñ - http://audio.rambler.ru/play.html?id=843590
+Ðàäèî Äà÷à - Ìîñêâà - Ìóçûêà - 32 êá/ñ - http://stream.n340.com:8000/radiodacha_low.mp3.m3u
+Ðàäèî Premium - Ìîñêâà - Ìóçûêà - 32êá/ñ - http://listen.rpfm.ru:9000/premium32
+Þìîð ÔÌ - Ìîñêâà - Ðàçãîâîðíûé - 20 êá/ñ - http://audio.rambler.ru/play.html?id=989
+Ðàäèî Øòîðì - Ìîñêâà - Ìóçûêà - 32 êá/ñ - http://radio-shtorm.ru:8000/32.m3u
+BestDance FM - Ìîñêâà - Ìóçûêà - 16 êá/ñ - http://88.198.61.231:8200/
+Ìàÿê - Ìîñêâà - Ðàçãîâîðíûé - 32 êá/ñ - mms://stream03.rambler.ru/radiomayak?WMContentBitrate=60000
+Ïåðâîå ïîïóëÿðíîå - Ìîñêâà - Ìóçûêà - 32 êá/ñ - http://audio.rambler.ru/play.html?id=1004
+Ðàäèî Ìåòðî - Ñàíêò-Ïåòåðáóðã - Ìóçûêà - 32 êá/ñ - http://alpha.metroclub.ru/online/studio_32.asx
+Áèçíåñ ÔÌ - Ìîñêâà - Ðàçãîâîðíûé - 32 êá/ñ - http://audio.rambler.ru/play.html?id=2865
--- a/list/radio_list.erl
+++ b/list/radio_list.erl
@ -0,0 +1,12 @@
+Авторадио (22Kbps)
+Хит ФМ (31Kbps)
+Радио Дача (32Kbps)
+Радио Premium (32Kbps)
+BestDance FM (16Kbps)
+Первое популярное (32Kbps)
+Радио Шторм (32Kbps)
+Лаф Радио (32Kbps)
+Юмор ФМ (20Kbps)
+Маяк (32Kbps)
+Радио Метро (32Kbps)
+Бизнес ФМ (32Kbps)
--- a/list/Авторадио
+++ b/list/Авторадио
@ -0,0 +1 @@
+http://www.in-radio.ru/radio/avtoradio/listen.m3u
--- a/list/Бизнес
+++ b/list/Бизнес
@ -0,0 +1 @@
+http://audio.rambler.ru/play.html?id=2865
--- a/(32Kbps).eurl
+++ b/(32Kbps).eurl
@ -0,0 +1 @@
+http://audio.rambler.ru/play.html?id=843590
--- a/(32Kbps).eurl
+++ b/(32Kbps).eurl
@ -0,0 +1 @@
+mms://stream03.rambler.ru/radiomayak?WMContentBitrate=60000
--- a/list/Первое
+++ b/list/Первое
@ -0,0 +1 @@
+http://audio.rambler.ru/play.html?id=1004
--- a/list/Радио
+++ b/list/Радио
@ -0,0 +1 @@
+http://listen.rpfm.ru:9000/premium32
--- a/list/Радио
+++ b/list/Радио
@ -0,0 +1 @@
+http://stream.n340.com:8000/radiodacha_low.mp3.m3u
--- a/list/Радио
+++ b/list/Радио
@ -0,0 +1 @@
+http://alpha.metroclub.ru/online/studio_32.asx
--- a/list/Радио
+++ b/list/Радио
@ -0,0 +1 @@
+http://radio-shtorm.ru:8000/32.m3u
--- a/(31Kbps).eurl
+++ b/(31Kbps).eurl
@ -0,0 +1 @@
+http://cluster.quantumart.ru/broadcast/?media=hitfm
--- a/(20Kbps).eurl
+++ b/(20Kbps).eurl
@ -0,0 +1 @@
+http://audio.rambler.ru/play.html?id=989
--- a/EIR.exe
+++ b/EIR.exe
--- a/EIR.vbp
+++ b/EIR.vbp
@ -0,0 +1,41 @@
+Type=Exe
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
+Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; picclp32.ocx
+UserControl=vistaBut.ctl
+Form=player.frm
+Object={6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0; wmp.dll
+Form=info_form.frm
+Form=reg_form.frm
+Startup="player"
+HelpFile=""
+Title="Easy Internet Radio"
+ExeName32="EIR.exe"
+Command32=""
+Name="EIR"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName="Àëåêñàíäð (IIIypuk) Ïîïîâ"
+VersionProductName="Easy Internet Radio"
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+
+[MS Transaction Server]
+AutoRefresh=1
--- a/EIR.vbw
+++ b/EIR.vbw
@ -0,0 +1,4 @@
+VistaButton = 0, 0, 0, 0, C, 150, 150, 682, 601, C
+player = 50, 50, 582, 501, C, 212, 65, 564, 484, C
+info_form = 200, 200, 732, 651, C, 66, 86, 598, 537, C
+reg_form = 34, 71, 721, 482, C, 96, 94, 628, 545, C
--- a/Keygen/17420926059571.txt
+++ b/Keygen/17420926059571.txt
--- a/Keygen/keygen.vbp
+++ b/Keygen/keygen.vbp
@ -0,0 +1,38 @@
+Type=Exe
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
+Object={27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0; picclp32.ocx
+UserControl=vistaBut.ctl
+Form=main.frm
+Startup="main_form"
+HelpFile=""
+Title="EIR Register"
+Command32=""
+Name="keygen"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName="Àëåêñàíäð (IIIypuk) Ïîïîâ"
+VersionProductName="EIR Register"
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1
+DebugStartupOption=0
+
+[MS Transaction Server]
+AutoRefresh=1
--- a/Keygen/keygen.vbw
+++ b/Keygen/keygen.vbw
@ -0,0 +1,2 @@
+VistaButton = 0, 0, 0, 0, C, 0, 0, 0, 0, C
+main_form = 54, 255, 586, 706, , 25, 25, 557, 476, C
--- a/Keygen/main.frm
+++ b/Keygen/main.frm
@ -0,0 +1,144 @@
+VERSION 5.00
+Begin VB.Form main_form 
+   Caption         =   "EIR Register"
+   ClientHeight    =   3030
+   ClientLeft      =   4845
+   ClientTop       =   4350
+   ClientWidth     =   4200
+   LinkTopic       =   "Form1"
+   ScaleHeight     =   202
+   ScaleMode       =   3  'Ïèêñåëü
+   ScaleWidth      =   280
+   Begin keygen.VistaButton button_gen 
+      Height          =   375
+      Left            =   1440
+      TabIndex        =   5
+      Top             =   2520
+      Width           =   1335
+      _ExtentX        =   2355
+      _ExtentY        =   661
+      Caption         =   "Ïîêàçàòü"
+      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
+         Name            =   "Times New Roman"
+         Size            =   9.75
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+   End
+   Begin VB.TextBox pole_key 
+      Alignment       =   1  'Ïðàâàÿ ïðèâÿçêà
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   9.75
+         Charset         =   204
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   330
+      Left            =   2160
+      TabIndex        =   3
+      Top             =   1800
+      Width           =   1935
+   End
+   Begin VB.TextBox pole_serial 
+      Alignment       =   1  'Ïðàâàÿ ïðèâÿçêà
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   9.75
+         Charset         =   204
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   285
+      Left            =   2160
+      TabIndex        =   1
+      Top             =   1440
+      Width           =   1935
+   End
+   Begin VB.Label text_key 
+      BackStyle       =   0  'Ïðîçðà÷íî
+      Caption         =   "Ðåã. êëþ÷:"
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   11.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FFFFFF&
+      Height          =   255
+      Left            =   120
+      TabIndex        =   4
+      Top             =   1800
+      Width           =   1215
+   End
+   Begin VB.Label Label1 
+      BackStyle       =   0  'Ïðîçðà÷íî
+      Caption         =   "Ñåðèéíûé íîìåð:"
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   11.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FFFFFF&
+      Height          =   255
+      Left            =   120
+      TabIndex        =   2
+      Top             =   1440
+      Width           =   1935
+   End
+   Begin VB.Line Line1 
+      BorderColor     =   &H00FFFFFF&
+      X1              =   8
+      X2              =   272
+      Y1              =   88
+      Y2              =   88
+   End
+   Begin VB.Label text_nameprog 
+      BackStyle       =   0  'Ïðîçðà÷íî
+      Caption         =   "Ðåãèñòðàòîð"
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   14.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FFFFFF&
+      Height          =   375
+      Left            =   1200
+      TabIndex        =   0
+      Top             =   840
+      Width           =   1695
+   End
+   Begin VB.Image Image1 
+      Height          =   5250
+      Left            =   0
+      Picture         =   "main.frx":0000
+      Top             =   0
+      Width           =   4200
+   End
+End
+Attribute VB_Name = "main_form"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub button_gen_Click()
+pole_key.Text = Fix(Val(pole_serial.Text) * 2 - 11111)
+End Sub
--- a/Keygen/main.frx
+++ b/Keygen/main.frx
--- a/Keygen/vistaBut.ctl
+++ b/Keygen/vistaBut.ctl
@ -0,0 +1,367 @@
+VERSION 5.00
+Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
+Begin VB.UserControl VistaButton 
+   Appearance      =   0  'Flat
+   AutoRedraw      =   -1  'True
+   BackColor       =   &H80000005&
+   ClientHeight    =   1560
+   ClientLeft      =   0
+   ClientTop       =   0
+   ClientWidth     =   1740
+   DefaultCancel   =   -1  'True
+   FillStyle       =   0  'Solid
+   ScaleHeight     =   104
+   ScaleMode       =   3  'Pixel
+   ScaleWidth      =   116
+   ToolboxBitmap   =   "vistaBut.ctx":0000
+   Begin PicClip.PictureClip downs 
+      Left            =   240
+      Top             =   1080
+      _ExtentX        =   2381
+      _ExtentY        =   556
+      _Version        =   393216
+      Cols            =   5
+      Picture         =   "vistaBut.ctx":0312
+   End
+   Begin VB.Timer MoveIn 
+      Enabled         =   0   'False
+      Interval        =   100
+      Left            =   0
+      Top             =   0
+   End
+   Begin PicClip.PictureClip moves 
+      Left            =   240
+      Top             =   720
+      _ExtentX        =   2381
+      _ExtentY        =   556
+      _Version        =   393216
+      Cols            =   5
+      Picture         =   "vistaBut.ctx":19B4
+   End
+   Begin VB.Timer Timer1 
+      Enabled         =   0   'False
+      Interval        =   10
+      Left            =   1320
+      Top             =   0
+   End
+   Begin PicClip.PictureClip pc 
+      Left            =   240
+      Top             =   360
+      _ExtentX        =   2381
+      _ExtentY        =   556
+      _Version        =   393216
+      Cols            =   5
+      Picture         =   "vistaBut.ctx":3056
+   End
+   Begin VB.Label lbl 
+      Alignment       =   2  'Center
+      Appearance      =   0  'Flat
+      AutoSize        =   -1  'True
+      BackColor       =   &H80000005&
+      BackStyle       =   0  'Transparent
+      Caption         =   "Vista Button"
+      ForeColor       =   &H80000008&
+      Height          =   195
+      Left            =   270
+      TabIndex        =   0
+      Top             =   120
+      Width           =   885
+   End
+End
+Attribute VB_Name = "VistaButton"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+'Êíîïêà èç íàáîðà êîíòðîëîâ Windows Vista
+'Ñäåëàë Ellic (persound@mail.ru, www.persound.vip.su)
+
+Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT_API) As Long
+Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINT_API) As Long
+Dim MoveInState As Integer, MoveState As Boolean, DownState As Boolean
+Dim Isddd As Boolean
+Dim s As Integer
+Event Click()
+Event KeyDown(KeyCode As Integer, Shift As Integer)
+Event KeyPress(KeyAscii As Integer)
+Event KeyUp(KeyCode As Integer, Shift As Integer)
+Event MouseOut()
+Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
+Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
+Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
+Public Enum State_b
+Normal_ = 0
+Default_ = 1
+End Enum
+Dim m_State As State_b
+Dim m_Font As Font
+Const m_Def_State = State_b.Normal_
+Private Type POINT_API
+X As Long
+Y As Long
+End Type
+
+Private Sub lbl_Change()
+UserControl_Resize 'ìåíÿåì ðàçìåðû
+End Sub
+
+Private Sub lbl_Click()
+    UserControl_Click 'äàáëêëèê
+End Sub
+
+Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    Call UserControl_MouseDown(Button, Shift, X, Y) 'äîâàíóëè ìûøêîé
+End Sub
+
+Private Sub lbl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    Call UserControl_MouseMove(Button, Shift, X, Y) 'íàâåëè ìûøêîé
+End Sub
+
+Private Sub lbl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    Call UserControl_MouseUp(Button, Shift, X, Y) 'óáðàëè ìûøêó
+End Sub
+
+Private Sub MoveIn_Timer()
+Dim brx, bry, bw, bh As Integer
+UserControl.ScaleMode = 3 'Ñòàâèì ïèêñåëè
+'Ãðàíèöû
+brx = UserControl.ScaleWidth - 3 'ïðàâûé x
+bry = UserControl.ScaleHeight - 3 'ïðàâûé y
+bw = UserControl.ScaleWidth - 6 'øèðèíà
+bh = UserControl.ScaleHeight - 6 'âûñîòà
+'Ðèñóåì
+If DownState = False Then
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, 0, 3, 3, 0, 0, 3, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, 0, 3, 3, 15, 0, 3, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, bry, 3, 3, 15, 18, 3, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, bry, 3, 3, 0, 18, 3, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, 0, bw, 3, 3, 0, 12, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, 3, 3, bh, 15, 3, 3, 15
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, 3, 3, bh, 0, 3, 3, 15
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, bry, bw, 3, 3, 18, 12, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, 3, bw, bh, 3, 3, 12, 15
+Else
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, 0, 3, 3, 0, 0, 3, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, 0, 3, 3, 15, 0, 3, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, bry, 3, 3, 15, 18, 3, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, bry, 3, 3, 0, 18, 3, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, 0, bw, 3, 3, 0, 12, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, 3, 3, bh, 15, 3, 3, 15
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, 3, 3, bh, 0, 3, 3, 15
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, bry, bw, 3, 3, 18, 12, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, 3, bw, bh, 3, 3, 12, 15
+End If
+If MoveState = True Then MoveInState = MoveInState + 1 Else MoveInState = MoveInState - 1
+If MoveInState = 5 Or MoveInState = -1 Then
+If DownState = True Then DownState = False
+MoveIn = False
+End If
+End Sub
+
+Private Sub Timer1_Timer()
+    Dim pnt As POINT_API
+    GetCursorPos pnt
+    ScreenToClient UserControl.hWnd, pnt
+
+    If pnt.X < UserControl.ScaleLeft Or _
+       pnt.Y < UserControl.ScaleTop Or _
+       pnt.X > (UserControl.ScaleLeft + UserControl.ScaleWidth) Or _
+       pnt.Y > (UserControl.ScaleTop + UserControl.ScaleHeight) Then
+       
+        Timer1.Enabled = False
+        RaiseEvent MouseOut
+        Isddd = False
+        DownState = False
+        MoveInState = 4
+        MoveState = False
+        MoveIn = True
+       ' statevalue_pic
+    End If
+End Sub
+
+Private Sub UserControl_AccessKeyPress(KeyAscii As Integer)
+    RaiseEvent Click
+End Sub
+
+Private Sub UserControl_Click()
+    RaiseEvent Click
+End Sub
+
+Private Sub UserControl_Initialize()
+    statevalue_pic
+End Sub
+
+Private Sub UserControl_InitProperties()
+    state_value = m_Def_State
+    Enabled = True
+    Caption = Ambient.DisplayName
+    Set Font = UserControl.Ambient.Font
+End Sub
+
+Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
+    RaiseEvent KeyDown(KeyCode, Shift)
+End Sub
+
+Private Sub UserControl_KeyPress(KeyAscii As Integer)
+    RaiseEvent KeyPress(KeyAscii)
+End Sub
+
+Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
+    RaiseEvent KeyUp(KeyCode, Shift)
+End Sub
+
+Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    RaiseEvent MouseDown(Button, Shift, X, Y)
+    If MoveIn = False Then
+    DownState = True
+    MoveState = False
+    MoveInState = 1
+    make_xpbutton 1
+    Else
+    MoveIn = False
+    make_xpbutton 1
+    End If
+    End Sub
+
+Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    Timer1.Enabled = True
+    If X >= 0 And Y >= 0 And _
+       X <= UserControl.ScaleWidth And Y <= UserControl.ScaleHeight Then
+        RaiseEvent MouseMove(Button, Shift, X, Y)
+        If Button = vbLeftButton Then
+            make_xpbutton 1
+        Else
+            If Isddd = False Then
+            Isddd = True
+        MoveInState = 0: DownState = False: MoveState = True: MoveIn.Enabled = True
+        End If
+        End If
+    End If
+End Sub
+
+Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    RaiseEvent MouseUp(Button, Shift, X, Y)
+    If MoveIn = False Then
+    DownState = True
+    MoveState = True
+    MoveInState = 0
+    MoveIn.Enabled = True
+    Else
+    DownState = False
+    MoveIn = False
+    make_xpbutton 3
+    End If
+End Sub
+
+Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
+    state_value = PropBag.ReadProperty("State", m_Def_State)
+    Enabled = PropBag.ReadProperty("Enabled", True)
+    Caption = PropBag.ReadProperty("Caption", Ambient.DisplayName)
+    Set Font = PropBag.ReadProperty("Font", UserControl.Ambient.Font)
+End Sub
+
+Public Property Get Enabled() As Boolean
+Attribute Enabled.VB_ProcData.VB_Invoke_Property = ";Behavior"
+Attribute Enabled.VB_UserMemId = -514
+    Enabled = UserControl.Enabled
+End Property
+
+Public Property Let Enabled(ByVal New_Enabled As Boolean)
+    UserControl.Enabled() = New_Enabled
+    PropertyChanged "Enabled"
+    statevalue_pic
+    If Enabled = True Then lbl.ForeColor = vbBlack Else lbl.ForeColor = RGB(161, 161, 146)
+End Property
+
+Private Sub UserControl_Resize()
+    statevalue_pic
+    lbl.Top = (UserControl.ScaleHeight - lbl.Height) / 2
+    lbl.Left = (UserControl.ScaleWidth - lbl.Width) / 2
+End Sub
+
+Private Sub UserControl_Show()
+    statevalue_pic
+End Sub
+
+Private Sub UserControl_Terminate()
+    statevalue_pic
+End Sub
+
+Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
+    Call PropBag.WriteProperty("State", m_State, m_Def_State)
+    Call PropBag.WriteProperty("Enabled", UserControl.Enabled, True)
+    Call PropBag.WriteProperty("Caption", lbl.Caption, Ambient.DisplayName)
+    Call PropBag.WriteProperty("Font", m_Font, UserControl.Ambient.Font)
+End Sub
+
+Public Property Get State() As State_b
+Attribute State.VB_Description = "Returns/sets the state of the command button when mouse_out."
+Attribute State.VB_ProcData.VB_Invoke_Property = ";Misc"
+    State = m_State
+End Property
+
+Public Property Let State(ByVal vNewValue As State_b)
+    m_State = vNewValue
+    PropertyChanged "State"
+    statevalue_pic
+End Property
+
+Private Sub statevalue_pic()
+    If State = Default_ Then
+        s = 4
+    ElseIf State = Normal_ Then
+        s = 0
+    End If
+    
+    If UserControl.Enabled = True Then
+        make_xpbutton s
+    Else: make_xpbutton 2
+    End If
+End Sub
+
+Private Sub make_xpbutton(z As Integer)
+    UserControl.ScaleMode = 3 'Draw in pixels
+    Dim brx, bry, bw, bh As Integer
+    'Short cuts
+    brx = UserControl.ScaleWidth - 3 'right x
+    bry = UserControl.ScaleHeight - 3 'right y
+    bw = UserControl.ScaleWidth - 6 'border width - corners width
+    bh = UserControl.ScaleHeight - 6 'border height - corners height
+    'Draws button
+    'Goes clockwise first for corners(first four)
+    'followed by borders(next four) and center(last step).
+    UserControl.PaintPicture pc.GraphicCell(z), 0, 0, 3, 3, 0, 0, 3, 3
+    UserControl.PaintPicture pc.GraphicCell(z), brx, 0, 3, 3, 15, 0, 3, 3
+    UserControl.PaintPicture pc.GraphicCell(z), brx, bry, 3, 3, 15, 18, 3, 3
+    UserControl.PaintPicture pc.GraphicCell(z), 0, bry, 3, 3, 0, 18, 3, 3
+    UserControl.PaintPicture pc.GraphicCell(z), 3, 0, bw, 3, 3, 0, 12, 3
+    UserControl.PaintPicture pc.GraphicCell(z), brx, 3, 3, bh, 15, 3, 3, 15
+    UserControl.PaintPicture pc.GraphicCell(z), 0, 3, 3, bh, 0, 3, 3, 15
+    UserControl.PaintPicture pc.GraphicCell(z), 3, bry, bw, 3, 3, 18, 12, 3
+    UserControl.PaintPicture pc.GraphicCell(z), 3, 3, bw, bh, 3, 3, 12, 15
+
+End Sub
+
+Public Property Get Caption() As String
+Attribute Caption.VB_ProcData.VB_Invoke_Property = ";Appearance"
+Attribute Caption.VB_UserMemId = -518
+    Caption = lbl.Caption
+End Property
+
+Public Property Let Caption(ByVal vNewCaption As String)
+    lbl.Caption() = vNewCaption
+    PropertyChanged "Caption"
+End Property
+
+Public Property Get Font() As Font
+Attribute Font.VB_UserMemId = -512
+    Set Font = m_Font
+End Property
+
+Public Property Set Font(ByVal vNewFont As Font)
+    Set m_Font = vNewFont
+    Set UserControl.Font = vNewFont
+    Set lbl.Font = m_Font
+    Call UserControl_Resize
+    PropertyChanged "Font"
+End Property
--- a/Keygen/vistaBut.ctx
+++ b/Keygen/vistaBut.ctx
--- a/README.md
+++ b/README.md
@ -0,0 +1,3 @@
+EIR
+----
+![EIR](https://raw.githubusercontent.com/IIIypuk/eir/master/eir_screen.png)
--- a/eir_screen.png
+++ b/eir_screen.png
--- a/image/Thumbs.db
+++ b/image/Thumbs.db
--- a/image/fon.jpg
+++ b/image/fon.jpg
--- a/image/fon_image.jpg
+++ b/image/fon_image.jpg
--- a/image/icon.ico
+++ b/image/icon.ico
--- a/image/logo.png
+++ b/image/logo.png
--- a/image/russia.jpg
+++ b/image/russia.jpg
--- a/info_form.frm
+++ b/info_form.frm
@ -0,0 +1,151 @@
+VERSION 5.00
+Begin VB.Form info_form 
+   BorderStyle     =   1  'Fixed Single
+   Caption         =   "Î ïðîãðàììå"
+   ClientHeight    =   3795
+   ClientLeft      =   4965
+   ClientTop       =   3495
+   ClientWidth     =   4200
+   ControlBox      =   0   'False
+   BeginProperty Font 
+      Name            =   "Times New Roman"
+      Size            =   11.25
+      Charset         =   204
+      Weight          =   400
+      Underline       =   0   'False
+      Italic          =   0   'False
+      Strikethrough   =   0   'False
+   EndProperty
+   Icon            =   "info_form.frx":0000
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   253
+   ScaleMode       =   3  'Ïèêñåëü
+   ScaleWidth      =   280
+   Begin EIR.VistaButton Button_close 
+      Height          =   255
+      Left            =   1440
+      TabIndex        =   0
+      Top             =   3360
+      Width           =   1335
+      _ExtentX        =   2355
+      _ExtentY        =   450
+      Caption         =   "Çàêðûòü"
+      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
+         Name            =   "Times New Roman"
+         Size            =   11.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+   End
+   Begin VB.Label text_site 
+      BackStyle       =   0  'Ïðîçðà÷íî
+      Caption         =   "Web-ñàéò: http://net-popov.ucoz.ru"
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   11.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FFFFFF&
+      Height          =   375
+      Left            =   600
+      TabIndex        =   4
+      Top             =   2760
+      Width           =   3495
+   End
+   Begin VB.Label text_email 
+      BackStyle       =   0  'Ïðîçðà÷íî
+      Caption         =   "email: man_x@mail.ru"
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   11.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FFFFFF&
+      Height          =   255
+      Left            =   600
+      TabIndex        =   3
+      Top             =   2280
+      Width           =   3375
+   End
+   Begin VB.Label text_develop 
+      BackColor       =   &H00FFFFFF&
+      BackStyle       =   0  'Ïðîçðà÷íî
+      Caption         =   "Ðàçðàáîò÷èê: Àëåêñàíäð Ïîïîâ          aka IIIypuk"
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   11.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FFFFFF&
+      Height          =   615
+      Left            =   600
+      TabIndex        =   2
+      Top             =   1560
+      Width           =   3375
+   End
+   Begin VB.Label text_version 
+      BackStyle       =   0  'Ïðîçðà÷íî
+      Caption         =   "Âåðñèÿ: v1.0 Alpha Build 2"
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   11.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FFFFFF&
+      Height          =   255
+      Left            =   600
+      TabIndex        =   1
+      Top             =   1080
+      Width           =   3375
+   End
+   Begin VB.Line line_02 
+      BorderColor     =   &H00FFFFFF&
+      X1              =   32
+      X2              =   32
+      Y1              =   56
+      Y2              =   216
+   End
+   Begin VB.Line line_01 
+      BorderColor     =   &H00FFFFFF&
+      X1              =   16
+      X2              =   264
+      Y1              =   64
+      Y2              =   64
+   End
+   Begin VB.Image fon_image 
+      Height          =   5250
+      Left            =   0
+      Picture         =   "info_form.frx":0CCA
+      Top             =   0
+      Width           =   4200
+   End
+End
+Attribute VB_Name = "info_form"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub Button_close_Click()
+info_form.Hide
+End Sub
--- a/info_form.frx
+++ b/info_form.frx
--- a/player.frm
+++ b/player.frm
@ -0,0 +1,167 @@
+VERSION 5.00
+Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
+Begin VB.Form player 
+   BackColor       =   &H00000000&
+   BorderStyle     =   3  'Fixed Dialog
+   Caption         =   "Easy Internet Radio v1.0 Alpha Build 2"
+   ClientHeight    =   4320
+   ClientLeft      =   4965
+   ClientTop       =   3795
+   ClientWidth     =   4200
+   BeginProperty Font 
+      Name            =   "Times New Roman"
+      Size            =   11.25
+      Charset         =   204
+      Weight          =   400
+      Underline       =   0   'False
+      Italic          =   0   'False
+      Strikethrough   =   0   'False
+   EndProperty
+   Icon            =   "player.frx":0000
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   288
+   ScaleMode       =   3  'Ïèêñåëü
+   ScaleWidth      =   280
+   ShowInTaskbar   =   0   'False
+   Begin VB.ListBox list_radio 
+      BeginProperty Font 
+         Name            =   "MS Sans Serif"
+         Size            =   8.25
+         Charset         =   204
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   2010
+      ItemData        =   "player.frx":0CCA
+      Left            =   120
+      List            =   "player.frx":0CCC
+      TabIndex        =   0
+      Top             =   960
+      Width           =   3975
+   End
+   Begin WMPLibCtl.WindowsMediaPlayer player_radio 
+      Height          =   975
+      Left            =   120
+      TabIndex        =   1
+      Top             =   3240
+      Width           =   3975
+      URL             =   ""
+      rate            =   1
+      balance         =   0
+      currentPosition =   0
+      defaultFrame    =   ""
+      playCount       =   1
+      autoStart       =   -1  'True
+      currentMarker   =   0
+      invokeURLs      =   -1  'True
+      baseURL         =   ""
+      volume          =   50
+      mute            =   0   'False
+      uiMode          =   "full"
+      stretchToFit    =   0   'False
+      windowlessVideo =   0   'False
+      enabled         =   -1  'True
+      enableContextMenu=   -1  'True
+      fullScreen      =   0   'False
+      SAMIStyle       =   ""
+      SAMILang        =   ""
+      SAMIFilename    =   ""
+      captioningID    =   ""
+      enableErrorDialogs=   0   'False
+      _cx             =   7011
+      _cy             =   1720
+   End
+   Begin VB.Image fon_image 
+      Height          =   5250
+      Left            =   0
+      Picture         =   "player.frx":0CCE
+      Top             =   0
+      Width           =   4200
+   End
+   Begin VB.Menu up_player 
+      Caption         =   "Ïëååð"
+      Begin VB.Menu up_player_update 
+         Caption         =   "Îáíîâèòü ñïèñîê ðàäèî"
+      End
+      Begin VB.Menu up_player_close 
+         Caption         =   "Çàêðûòü"
+      End
+   End
+   Begin VB.Menu up_help 
+      Caption         =   "Ïîìîùü"
+      Begin VB.Menu up_help_help 
+         Caption         =   "Ñïðàâêà"
+      End
+      Begin VB.Menu up_help_site 
+         Caption         =   "Ïîñåòèòü ñàéò"
+      End
+      Begin VB.Menu up_reg 
+         Caption         =   "Ðåãèñòðàöèÿ"
+      End
+      Begin VB.Menu up_help_update2 
+         Caption         =   "Îáíîâèòü ïðîãðàììó"
+      End
+      Begin VB.Menu up_help_info 
+         Caption         =   "Î ïðîãðàììå"
+      End
+   End
+End
+Attribute VB_Name = "player"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Private Sub Form_Load()
+If App.PrevInstance = True Then
+MsgBox "Çàïóñê äâóõ êîïèé ïðîãðàìì íåâîçìîæåí.", 64 + 0, "Easy Internet Radio"
+End
+End If
+Dim RList As String
+Open App.Path & "\Data\Radio list\radio_list.erl" For Input As #2
+Do Until EOF(2)
+    Line Input #2, RList
+    list_radio.AddItem RList
+Loop
+Close #2
+End Sub
+
+Private Sub list_radio_Click()
+Open App.Path & "\Data\Radio list\" & list_radio.Text & ".eurl" For Input As #1
+    Do Until EOF(1)
+    Line Input #1, URL
+    player_radio.URL = URL
+    Loop
+Close #1
+End Sub
+
+Private Sub up_help_help_Click()
+MsgBox "Ïîêà íåäîäåëàë.", 64 + 0, "Îøèáêà"
+End Sub
+
+Private Sub up_help_info_Click()
+info_form.Show
+End Sub
+
+Private Sub up_help_site_Click()
+MsgBox "Ïîêà íåäîäåëàë.", 64 + 0, "Îøèáêà"
+End Sub
+
+Private Sub up_help_update2_Click()
+MsgBox "Èíôîðìàöèÿ: Ïåðåä âûïîëíåíèåì îáíîâëåíèÿ, ïðîãðàììà ïðîâåðèò âåðñèþ íà ñåðâåðå è åñëè âàøà âåðñèÿ ïðîãðàììû ñòàðåå òî ÷òî íà ñåðâåðå, òîãäà ïðîèçîéäåò îáíîâëåíèå. Ïîñëå óñïåøíîãî îáíîâëåíèÿ çàïóñòèòñÿ íîâàÿ âåðñèÿ.", 64 + 0, "Îáíîâëåíèå ïðîãðàììû"
+End Sub
+
+Private Sub up_player_close_Click()
+End
+End Sub
+
+Private Sub up_player_update_Click()
+MsgBox "Ïîêà íåäîäåëàë.", 64 + 0, "Îøèáêà"
+End Sub
+
+Private Sub up_reg_Click()
+reg_form.Show
+End Sub
--- a/player.frx
+++ b/player.frx
--- a/reg_form.frm
+++ b/reg_form.frm
@ -0,0 +1,174 @@
+VERSION 5.00
+Begin VB.Form reg_form 
+   BorderStyle     =   3  'Fixed Dialog
+   Caption         =   "Ðåãèñòðàöèÿ ïðîãðàììû"
+   ClientHeight    =   4335
+   ClientLeft      =   4965
+   ClientTop       =   3690
+   ClientWidth     =   4200
+   BeginProperty Font 
+      Name            =   "Times New Roman"
+      Size            =   11.25
+      Charset         =   204
+      Weight          =   700
+      Underline       =   0   'False
+      Italic          =   0   'False
+      Strikethrough   =   0   'False
+   EndProperty
+   Icon            =   "reg_form.frx":0000
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   289
+   ScaleMode       =   3  'Ïèêñåëü
+   ScaleWidth      =   280
+   ShowInTaskbar   =   0   'False
+   Begin EIR.VistaButton button_reg 
+      Height          =   495
+      Left            =   1320
+      TabIndex        =   6
+      Top             =   3720
+      Width           =   1575
+      _ExtentX        =   2778
+      _ExtentY        =   873
+      Caption         =   "Ðåãèñòðàöèÿ"
+      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
+         Name            =   "Times New Roman"
+         Size            =   11.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+   End
+   Begin EIR.VistaButton button_buy 
+      Height          =   495
+      Left            =   1320
+      TabIndex        =   5
+      Top             =   3240
+      Width           =   1575
+      _ExtentX        =   2778
+      _ExtentY        =   873
+      Caption         =   "Êóïèòü êëþ÷"
+      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
+         Name            =   "Times New Roman"
+         Size            =   11.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+   End
+   Begin VB.TextBox pole_key 
+      Alignment       =   1  'Ïðàâàÿ ïðèâÿçêà
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   9.75
+         Charset         =   204
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   285
+      Left            =   960
+      TabIndex        =   4
+      Top             =   2640
+      Width           =   3015
+   End
+   Begin VB.TextBox pole_serial 
+      Alignment       =   1  'Ïðàâàÿ ïðèâÿçêà
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   9.75
+         Charset         =   204
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   285
+      Left            =   960
+      TabIndex        =   2
+      Top             =   1800
+      Width           =   3015
+   End
+   Begin VB.Label text_regley 
+      BackStyle       =   0  'Ïðîçðà÷íî
+      Caption         =   "Ðåãèñòðàöèîííûé êëþ÷:"
+      ForeColor       =   &H00FFFFFF&
+      Height          =   255
+      Left            =   240
+      TabIndex        =   3
+      Top             =   2280
+      Width           =   2655
+   End
+   Begin VB.Line line_01 
+      BorderColor     =   &H00FFFFFF&
+      X1              =   8
+      X2              =   272
+      Y1              =   80
+      Y2              =   80
+   End
+   Begin VB.Label text_serial 
+      BackStyle       =   0  'Ïðîçðà÷íî
+      Caption         =   "Ñåðèéíûé íîìåð:"
+      ForeColor       =   &H00FFFFFF&
+      Height          =   255
+      Left            =   240
+      TabIndex        =   1
+      Top             =   1440
+      Width           =   1935
+   End
+   Begin VB.Label text_nameform 
+      BackStyle       =   0  'Ïðîçðà÷íî
+      Caption         =   "Ðåãèñòðàöèÿ:"
+      BeginProperty Font 
+         Name            =   "Times New Roman"
+         Size            =   14.25
+         Charset         =   204
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FFFFFF&
+      Height          =   375
+      Left            =   1200
+      TabIndex        =   0
+      Top             =   840
+      Width           =   1815
+   End
+   Begin VB.Image ifon_image 
+      Height          =   5250
+      Left            =   0
+      Picture         =   "reg_form.frx":0CCA
+      Top             =   0
+      Width           =   4200
+   End
+End
+Attribute VB_Name = "reg_form"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Dim Serial As String
+Dim Serial_2 As String
+Private Sub button_reg_Click()
+Serial = Val(pole_serial.Text) * 2 - 11111
+Serial_2 = pole_key
+If Serial = Serial_2 Then
+MsgBox "Ïðîãðàììà óñïåøíî çàðåãèñòðèðîâàíà.", 64 + 0, "Ðåãèñòðàöèÿ"
+Open "C:\Windows\System32\drivers\radio.sys" For Random As #3
+Put #3, 1, "yes"
+Close #3
+Else
+MsgBox "Ðåãèñòðàöèîííûé êëþ÷ ââåäåí íåâåðíî.", 64 + 0, "Ðåãèñòðàöèÿ"
+End If
+End Sub
+
+Private Sub Form_Load()
+pole_serial = Fix(Rnd * 12345678912345#)
+End Sub
--- a/reg_form.frx
+++ b/reg_form.frx
--- a/vistaBut.ctl
+++ b/vistaBut.ctl
@ -0,0 +1,367 @@
+VERSION 5.00
+Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
+Begin VB.UserControl VistaButton 
+   Appearance      =   0  'Flat
+   AutoRedraw      =   -1  'True
+   BackColor       =   &H80000005&
+   ClientHeight    =   1560
+   ClientLeft      =   0
+   ClientTop       =   0
+   ClientWidth     =   1740
+   DefaultCancel   =   -1  'True
+   FillStyle       =   0  'Solid
+   ScaleHeight     =   104
+   ScaleMode       =   3  'Pixel
+   ScaleWidth      =   116
+   ToolboxBitmap   =   "vistaBut.ctx":0000
+   Begin PicClip.PictureClip downs 
+      Left            =   240
+      Top             =   1080
+      _ExtentX        =   2381
+      _ExtentY        =   556
+      _Version        =   393216
+      Cols            =   5
+      Picture         =   "vistaBut.ctx":0312
+   End
+   Begin VB.Timer MoveIn 
+      Enabled         =   0   'False
+      Interval        =   100
+      Left            =   0
+      Top             =   0
+   End
+   Begin PicClip.PictureClip moves 
+      Left            =   240
+      Top             =   720
+      _ExtentX        =   2381
+      _ExtentY        =   556
+      _Version        =   393216
+      Cols            =   5
+      Picture         =   "vistaBut.ctx":19B4
+   End
+   Begin VB.Timer Timer1 
+      Enabled         =   0   'False
+      Interval        =   10
+      Left            =   1320
+      Top             =   0
+   End
+   Begin PicClip.PictureClip pc 
+      Left            =   240
+      Top             =   360
+      _ExtentX        =   2381
+      _ExtentY        =   556
+      _Version        =   393216
+      Cols            =   5
+      Picture         =   "vistaBut.ctx":3056
+   End
+   Begin VB.Label lbl 
+      Alignment       =   2  'Center
+      Appearance      =   0  'Flat
+      AutoSize        =   -1  'True
+      BackColor       =   &H80000005&
+      BackStyle       =   0  'Transparent
+      Caption         =   "Vista Button"
+      ForeColor       =   &H80000008&
+      Height          =   195
+      Left            =   270
+      TabIndex        =   0
+      Top             =   120
+      Width           =   885
+   End
+End
+Attribute VB_Name = "VistaButton"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+'Êíîïêà èç íàáîðà êîíòðîëîâ Windows Vista
+'Ñäåëàë Ellic (persound@mail.ru, www.persound.vip.su)
+
+Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT_API) As Long
+Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINT_API) As Long
+Dim MoveInState As Integer, MoveState As Boolean, DownState As Boolean
+Dim Isddd As Boolean
+Dim s As Integer
+Event Click()
+Event KeyDown(KeyCode As Integer, Shift As Integer)
+Event KeyPress(KeyAscii As Integer)
+Event KeyUp(KeyCode As Integer, Shift As Integer)
+Event MouseOut()
+Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
+Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
+Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
+Public Enum State_b
+Normal_ = 0
+Default_ = 1
+End Enum
+Dim m_State As State_b
+Dim m_Font As Font
+Const m_Def_State = State_b.Normal_
+Private Type POINT_API
+X As Long
+Y As Long
+End Type
+
+Private Sub lbl_Change()
+UserControl_Resize 'ìåíÿåì ðàçìåðû
+End Sub
+
+Private Sub lbl_Click()
+    UserControl_Click 'äàáëêëèê
+End Sub
+
+Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    Call UserControl_MouseDown(Button, Shift, X, Y) 'äîâàíóëè ìûøêîé
+End Sub
+
+Private Sub lbl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    Call UserControl_MouseMove(Button, Shift, X, Y) 'íàâåëè ìûøêîé
+End Sub
+
+Private Sub lbl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    Call UserControl_MouseUp(Button, Shift, X, Y) 'óáðàëè ìûøêó
+End Sub
+
+Private Sub MoveIn_Timer()
+Dim brx, bry, bw, bh As Integer
+UserControl.ScaleMode = 3 'Ñòàâèì ïèêñåëè
+'Ãðàíèöû
+brx = UserControl.ScaleWidth - 3 'ïðàâûé x
+bry = UserControl.ScaleHeight - 3 'ïðàâûé y
+bw = UserControl.ScaleWidth - 6 'øèðèíà
+bh = UserControl.ScaleHeight - 6 'âûñîòà
+'Ðèñóåì
+If DownState = False Then
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, 0, 3, 3, 0, 0, 3, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, 0, 3, 3, 15, 0, 3, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, bry, 3, 3, 15, 18, 3, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, bry, 3, 3, 0, 18, 3, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, 0, bw, 3, 3, 0, 12, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), brx, 3, 3, bh, 15, 3, 3, 15
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 0, 3, 3, bh, 0, 3, 3, 15
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, bry, bw, 3, 3, 18, 12, 3
+UserControl.PaintPicture moves.GraphicCell(MoveInState), 3, 3, bw, bh, 3, 3, 12, 15
+Else
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, 0, 3, 3, 0, 0, 3, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, 0, 3, 3, 15, 0, 3, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, bry, 3, 3, 15, 18, 3, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, bry, 3, 3, 0, 18, 3, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, 0, bw, 3, 3, 0, 12, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), brx, 3, 3, bh, 15, 3, 3, 15
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 0, 3, 3, bh, 0, 3, 3, 15
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, bry, bw, 3, 3, 18, 12, 3
+UserControl.PaintPicture downs.GraphicCell(MoveInState), 3, 3, bw, bh, 3, 3, 12, 15
+End If
+If MoveState = True Then MoveInState = MoveInState + 1 Else MoveInState = MoveInState - 1
+If MoveInState = 5 Or MoveInState = -1 Then
+If DownState = True Then DownState = False
+MoveIn = False
+End If
+End Sub
+
+Private Sub Timer1_Timer()
+    Dim pnt As POINT_API
+    GetCursorPos pnt
+    ScreenToClient UserControl.hWnd, pnt
+
+    If pnt.X < UserControl.ScaleLeft Or _
+       pnt.Y < UserControl.ScaleTop Or _
+       pnt.X > (UserControl.ScaleLeft + UserControl.ScaleWidth) Or _
+       pnt.Y > (UserControl.ScaleTop + UserControl.ScaleHeight) Then
+       
+        Timer1.Enabled = False
+        RaiseEvent MouseOut
+        Isddd = False
+        DownState = False
+        MoveInState = 4
+        MoveState = False
+        MoveIn = True
+       ' statevalue_pic
+    End If
+End Sub
+
+Private Sub UserControl_AccessKeyPress(KeyAscii As Integer)
+    RaiseEvent Click
+End Sub
+
+Private Sub UserControl_Click()
+    RaiseEvent Click
+End Sub
+
+Private Sub UserControl_Initialize()
+    statevalue_pic
+End Sub
+
+Private Sub UserControl_InitProperties()
+    state_value = m_Def_State
+    Enabled = True
+    Caption = Ambient.DisplayName
+    Set Font = UserControl.Ambient.Font
+End Sub
+
+Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
+    RaiseEvent KeyDown(KeyCode, Shift)
+End Sub
+
+Private Sub UserControl_KeyPress(KeyAscii As Integer)
+    RaiseEvent KeyPress(KeyAscii)
+End Sub
+
+Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
+    RaiseEvent KeyUp(KeyCode, Shift)
+End Sub
+
+Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    RaiseEvent MouseDown(Button, Shift, X, Y)
+    If MoveIn = False Then
+    DownState = True
+    MoveState = False
+    MoveInState = 1
+    make_xpbutton 1
+    Else
+    MoveIn = False
+    make_xpbutton 1
+    End If
+    End Sub
+
+Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    Timer1.Enabled = True
+    If X >= 0 And Y >= 0 And _
+       X <= UserControl.ScaleWidth And Y <= UserControl.ScaleHeight Then
+        RaiseEvent MouseMove(Button, Shift, X, Y)
+        If Button = vbLeftButton Then
+            make_xpbutton 1
+        Else
+            If Isddd = False Then
+            Isddd = True
+        MoveInState = 0: DownState = False: MoveState = True: MoveIn.Enabled = True
+        End If
+        End If
+    End If
+End Sub
+
+Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    RaiseEvent MouseUp(Button, Shift, X, Y)
+    If MoveIn = False Then
+    DownState = True
+    MoveState = True
+    MoveInState = 0
+    MoveIn.Enabled = True
+    Else
+    DownState = False
+    MoveIn = False
+    make_xpbutton 3
+    End If
+End Sub
+
+Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
+    state_value = PropBag.ReadProperty("State", m_Def_State)
+    Enabled = PropBag.ReadProperty("Enabled", True)
+    Caption = PropBag.ReadProperty("Caption", Ambient.DisplayName)
+    Set Font = PropBag.ReadProperty("Font", UserControl.Ambient.Font)
+End Sub
+
+Public Property Get Enabled() As Boolean
+Attribute Enabled.VB_ProcData.VB_Invoke_Property = ";Behavior"
+Attribute Enabled.VB_UserMemId = -514
+    Enabled = UserControl.Enabled
+End Property
+
+Public Property Let Enabled(ByVal New_Enabled As Boolean)
+    UserControl.Enabled() = New_Enabled
+    PropertyChanged "Enabled"
+    statevalue_pic
+    If Enabled = True Then lbl.ForeColor = vbBlack Else lbl.ForeColor = RGB(161, 161, 146)
+End Property
+
+Private Sub UserControl_Resize()
+    statevalue_pic
+    lbl.Top = (UserControl.ScaleHeight - lbl.Height) / 2
+    lbl.Left = (UserControl.ScaleWidth - lbl.Width) / 2
+End Sub
+
+Private Sub UserControl_Show()
+    statevalue_pic
+End Sub
+
+Private Sub UserControl_Terminate()
+    statevalue_pic
+End Sub
+
+Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
+    Call PropBag.WriteProperty("State", m_State, m_Def_State)
+    Call PropBag.WriteProperty("Enabled", UserControl.Enabled, True)
+    Call PropBag.WriteProperty("Caption", lbl.Caption, Ambient.DisplayName)
+    Call PropBag.WriteProperty("Font", m_Font, UserControl.Ambient.Font)
+End Sub
+
+Public Property Get State() As State_b
+Attribute State.VB_Description = "Returns/sets the state of the command button when mouse_out."
+Attribute State.VB_ProcData.VB_Invoke_Property = ";Misc"
+    State = m_State
+End Property
+
+Public Property Let State(ByVal vNewValue As State_b)
+    m_State = vNewValue
+    PropertyChanged "State"
+    statevalue_pic
+End Property
+
+Private Sub statevalue_pic()
+    If State = Default_ Then
+        s = 4
+    ElseIf State = Normal_ Then
+        s = 0
+    End If
+    
+    If UserControl.Enabled = True Then
+        make_xpbutton s
+    Else: make_xpbutton 2
+    End If
+End Sub
+
+Private Sub make_xpbutton(z As Integer)
+    UserControl.ScaleMode = 3 'Draw in pixels
+    Dim brx, bry, bw, bh As Integer
+    'Short cuts
+    brx = UserControl.ScaleWidth - 3 'right x
+    bry = UserControl.ScaleHeight - 3 'right y
+    bw = UserControl.ScaleWidth - 6 'border width - corners width
+    bh = UserControl.ScaleHeight - 6 'border height - corners height
+    'Draws button
+    'Goes clockwise first for corners(first four)
+    'followed by borders(next four) and center(last step).
+    UserControl.PaintPicture pc.GraphicCell(z), 0, 0, 3, 3, 0, 0, 3, 3
+    UserControl.PaintPicture pc.GraphicCell(z), brx, 0, 3, 3, 15, 0, 3, 3
+    UserControl.PaintPicture pc.GraphicCell(z), brx, bry, 3, 3, 15, 18, 3, 3
+    UserControl.PaintPicture pc.GraphicCell(z), 0, bry, 3, 3, 0, 18, 3, 3
+    UserControl.PaintPicture pc.GraphicCell(z), 3, 0, bw, 3, 3, 0, 12, 3
+    UserControl.PaintPicture pc.GraphicCell(z), brx, 3, 3, bh, 15, 3, 3, 15
+    UserControl.PaintPicture pc.GraphicCell(z), 0, 3, 3, bh, 0, 3, 3, 15
+    UserControl.PaintPicture pc.GraphicCell(z), 3, bry, bw, 3, 3, 18, 12, 3
+    UserControl.PaintPicture pc.GraphicCell(z), 3, 3, bw, bh, 3, 3, 12, 15
+
+End Sub
+
+Public Property Get Caption() As String
+Attribute Caption.VB_ProcData.VB_Invoke_Property = ";Appearance"
+Attribute Caption.VB_UserMemId = -518
+    Caption = lbl.Caption
+End Property
+
+Public Property Let Caption(ByVal vNewCaption As String)
+    lbl.Caption() = vNewCaption
+    PropertyChanged "Caption"
+End Property
+
+Public Property Get Font() As Font
+Attribute Font.VB_UserMemId = -512
+    Set Font = m_Font
+End Property
+
+Public Property Set Font(ByVal vNewFont As Font)
+    Set m_Font = vNewFont
+    Set UserControl.Font = vNewFont
+    Set lbl.Font = m_Font
+    Call UserControl_Resize
+    PropertyChanged "Font"
+End Property
--- a/vistaBut.ctx
+++ b/vistaBut.ctx
				`@ -0,0 +1 @@`
				`http://www.in-radio.ru/radio/avtoradio/listen.m3u`
				`@ -0,0 +1 @@`
				`mms://stream03.rambler.ru/radiomayak?WMContentBitrate=60000`
				`@ -0,0 +1 @@`
				`http://stream.n340.com:8000/radiodacha_low.mp3.m3u`
				`@ -0,0 +1 @@`
				`http://alpha.metroclub.ru/online/studio_32.asx`
				`@ -0,0 +1 @@`
				`http://cluster.quantumart.ru/broadcast/?media=hitfm`