from backup
This commit is contained in:
commit
42843c7c6b
1
Data/Radio list/BestDance FM (16Kbps).eurl
Normal file
1
Data/Radio list/BestDance FM (16Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://88.198.61.231:8200/
|
||||||
12
Data/Radio list/list.txt
Normal file
12
Data/Radio list/list.txt
Normal file
@ -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
|
||||||
12
Data/Radio list/radio_list.erl
Normal file
12
Data/Radio list/radio_list.erl
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
Авторадио (22Kbps)
|
||||||
|
Хит ФМ (31Kbps)
|
||||||
|
Радио Дача (32Kbps)
|
||||||
|
Радио Premium (32Kbps)
|
||||||
|
BestDance FM (16Kbps)
|
||||||
|
Первое популярное (32Kbps)
|
||||||
|
Радио Шторм (32Kbps)
|
||||||
|
Лаф Радио (32Kbps)
|
||||||
|
Юмор ФМ (20Kbps)
|
||||||
|
Маяк (32Kbps)
|
||||||
|
Радио Метро (32Kbps)
|
||||||
|
Бизнес ФМ (32Kbps)
|
||||||
1
Data/Radio list/Авторадио (22Kbps).eurl
Normal file
1
Data/Radio list/Авторадио (22Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://www.in-radio.ru/radio/avtoradio/listen.m3u
|
||||||
1
Data/Radio list/Бизнес ФМ (32Kbps).eurl
Normal file
1
Data/Radio list/Бизнес ФМ (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://audio.rambler.ru/play.html?id=2865
|
||||||
1
Data/Radio list/Лаф Радио (32Kbps).eurl
Normal file
1
Data/Radio list/Лаф Радио (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://audio.rambler.ru/play.html?id=843590
|
||||||
1
Data/Radio list/Маяк (32Kbps).eurl
Normal file
1
Data/Radio list/Маяк (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
mms://stream03.rambler.ru/radiomayak?WMContentBitrate=60000
|
||||||
1
Data/Radio list/Первое популярное (32Kbps).eurl
Normal file
1
Data/Radio list/Первое популярное (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://audio.rambler.ru/play.html?id=1004
|
||||||
1
Data/Radio list/Радио Premium (32Kbps).eurl
Normal file
1
Data/Radio list/Радио Premium (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://listen.rpfm.ru:9000/premium32
|
||||||
1
Data/Radio list/Радио Дача (32Kbps).eurl
Normal file
1
Data/Radio list/Радио Дача (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://stream.n340.com:8000/radiodacha_low.mp3.m3u
|
||||||
1
Data/Radio list/Радио Метро (32Kbps).eurl
Normal file
1
Data/Radio list/Радио Метро (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://alpha.metroclub.ru/online/studio_32.asx
|
||||||
1
Data/Radio list/Радио Шторм (32Kbps).eurl
Normal file
1
Data/Radio list/Радио Шторм (32Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://radio-shtorm.ru:8000/32.m3u
|
||||||
1
Data/Radio list/Хит ФМ (31Kbps).eurl
Normal file
1
Data/Radio list/Хит ФМ (31Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://cluster.quantumart.ru/broadcast/?media=hitfm
|
||||||
1
Data/Radio list/Юмор ФМ (20Kbps).eurl
Normal file
1
Data/Radio list/Юмор ФМ (20Kbps).eurl
Normal file
@ -0,0 +1 @@
|
|||||||
|
http://audio.rambler.ru/play.html?id=989
|
||||||
41
EIR.vbp
Normal file
41
EIR.vbp
Normal file
@ -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
|
||||||
4
EIR.vbw
Normal file
4
EIR.vbw
Normal file
@ -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
|
||||||
0
Keygen/17420926059571.txt
Normal file
0
Keygen/17420926059571.txt
Normal file
38
Keygen/keygen.vbp
Normal file
38
Keygen/keygen.vbp
Normal file
@ -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
|
||||||
2
Keygen/keygen.vbw
Normal file
2
Keygen/keygen.vbw
Normal file
@ -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
|
||||||
144
Keygen/main.frm
Normal file
144
Keygen/main.frm
Normal file
@ -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
|
||||||
BIN
Keygen/main.frx
Normal file
BIN
Keygen/main.frx
Normal file
Binary file not shown.
367
Keygen/vistaBut.ctl
Normal file
367
Keygen/vistaBut.ctl
Normal file
@ -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
|
||||||
BIN
Keygen/vistaBut.ctx
Normal file
BIN
Keygen/vistaBut.ctx
Normal file
Binary file not shown.
3
README.md
Normal file
3
README.md
Normal file
@ -0,0 +1,3 @@
|
|||||||
|
EIR
|
||||||
|
----
|
||||||
|
|
||||||
BIN
eir_screen.png
Normal file
BIN
eir_screen.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 69 KiB |
BIN
image/Thumbs.db
Normal file
BIN
image/Thumbs.db
Normal file
Binary file not shown.
BIN
image/fon.jpg
Normal file
BIN
image/fon.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 46 KiB |
BIN
image/fon_image.jpg
Normal file
BIN
image/fon_image.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 32 KiB |
BIN
image/icon.ico
Normal file
BIN
image/icon.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.2 KiB |
BIN
image/logo.png
Normal file
BIN
image/logo.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 9.7 KiB |
BIN
image/russia.jpg
Normal file
BIN
image/russia.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.5 KiB |
151
info_form.frm
Normal file
151
info_form.frm
Normal file
@ -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
|
||||||
BIN
info_form.frx
Normal file
BIN
info_form.frx
Normal file
Binary file not shown.
167
player.frm
Normal file
167
player.frm
Normal file
@ -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
|
||||||
BIN
player.frx
Normal file
BIN
player.frx
Normal file
Binary file not shown.
174
reg_form.frm
Normal file
174
reg_form.frm
Normal file
@ -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
|
||||||
BIN
reg_form.frx
Normal file
BIN
reg_form.frx
Normal file
Binary file not shown.
367
vistaBut.ctl
Normal file
367
vistaBut.ctl
Normal file
@ -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
|
||||||
BIN
vistaBut.ctx
Normal file
BIN
vistaBut.ctx
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user