iiiypuk/eir
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

from backup

Browse Source
This commit is contained in:
Alexander Popov
2016-01-21 01:37:32 +03:00
commit 42843c7c6b
40 changed files with 1494 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Data/Radio list/BestDance FM (16Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://88.198.61.231:8200/

12
Data/Radio list/list.txt Normal file
View File

@ -0,0 +1,12 @@
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 22 <20><> - http://www.in-radio.ru/radio/avtoradio/listen.m3u
<EFBFBD><EFBFBD><EFBFBD> <20><> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 31 <20><>/<2F> - http://cluster.quantumart.ru/broadcast/?media=hitfm
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 32 <20><>/<2F> - http://audio.rambler.ru/play.html?id=843590
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 32 <20><>/<2F> - http://stream.n340.com:8000/radiodacha_low.mp3.m3u
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Premium - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 32<33><32>/<2F> - http://listen.rpfm.ru:9000/premium32
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 20 <20><>/<2F> - http://audio.rambler.ru/play.html?id=989
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 32 <20><>/<2F> - http://radio-shtorm.ru:8000/32.m3u
BestDance FM - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 16 <20><>/<2F> - http://88.198.61.231:8200/
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 32 <20><>/<2F> - mms://stream03.rambler.ru/radiomayak?WMContentBitrate=60000
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 32 <20><>/<2F> - http://audio.rambler.ru/play.html?id=1004
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 32 <20><>/<2F> - http://alpha.metroclub.ru/online/studio_32.asx
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 32 <20><>/<2F> - http://audio.rambler.ru/play.html?id=2865

12
Data/Radio list/radio_list.erl Normal file
View File

@ -0,0 +1,12 @@
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (22Kbps)
<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> (31Kbps)
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> (32Kbps)
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Premium (32Kbps)
BestDance FM (16Kbps)
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (32Kbps)
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (32Kbps)
<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (32Kbps)
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> (20Kbps)
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> (32Kbps)
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (32Kbps)
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> (32Kbps)

1
Data/Radio list/Авторадио (22Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://www.in-radio.ru/radio/avtoradio/listen.m3u

1
Data/Radio list/Бизнес ФМ (32Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://audio.rambler.ru/play.html?id=2865

1
Data/Radio list/Лаф Радио (32Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://audio.rambler.ru/play.html?id=843590

1
Data/Radio list/Маяк (32Kbps).eurl Normal file
View File

@ -0,0 +1 @@
mms://stream03.rambler.ru/radiomayak?WMContentBitrate=60000

1
Data/Radio list/Первое популярное (32Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://audio.rambler.ru/play.html?id=1004

1
Data/Radio list/Радио Premium (32Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://listen.rpfm.ru:9000/premium32

1
Data/Radio list/Радио Дача (32Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://stream.n340.com:8000/radiodacha_low.mp3.m3u

1
Data/Radio list/Радио Метро (32Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://alpha.metroclub.ru/online/studio_32.asx

1
Data/Radio list/Радио Шторм (32Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://radio-shtorm.ru:8000/32.m3u

1
Data/Radio list/Хит ФМ (31Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://cluster.quantumart.ru/broadcast/?media=hitfm

1
Data/Radio list/Юмор ФМ (20Kbps).eurl Normal file
View File

@ -0,0 +1 @@
http://audio.rambler.ru/play.html?id=989

BIN
EIR.exe Normal file
View File

Binary file not shown.

41
EIR.vbp Normal file
View 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="<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (IIIypuk) <20><><EFBFBD><EFBFBD><EFBFBD>"
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
View 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
View File

38
Keygen/keygen.vbp Normal file
View 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="<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (IIIypuk) <20><><EFBFBD><EFBFBD><EFBFBD>"
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
View 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
View 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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ScaleWidth = 280
Begin keygen.VistaButton button_gen
Height = 375
Left = 1440
TabIndex = 5
Top = 2520
Width = 1335
_ExtentX = 2355
_ExtentY = 661
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Caption = "<22><><EFBFBD>. <20><><EFBFBD><EFBFBD>:"
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>:"
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
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
View File

Binary file not shown.

367
Keygen/vistaBut.ctl Normal file
View 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
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Windows Vista
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
End Sub
Private Sub lbl_Click()
UserControl_Click '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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) '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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) '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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) '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
End Sub
Private Sub MoveIn_Timer()
Dim brx, bry, bw, bh As Integer
UserControl.ScaleMode = 3 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
brx = UserControl.ScaleWidth - 3 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> x
bry = UserControl.ScaleHeight - 3 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> y
bw = UserControl.ScaleWidth - 6 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
bh = UserControl.ScaleHeight - 6 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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
View File

Binary file not shown.

3
README.md Normal file
View File

@ -0,0 +1,3 @@
EIR
----
![EIR](https://raw.githubusercontent.com/IIIypuk/eir/master/eir_screen.png)

BIN
eir_screen.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 69 KiB

BIN
image/Thumbs.db Normal file
View File

Binary file not shown.

BIN
image/fon.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 46 KiB

BIN
image/fon_image.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 32 KiB

BIN
image/icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.2 KiB

BIN
image/logo.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.7 KiB

BIN
image/russia.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.5 KiB

151
info_form.frm Normal file
View File

@ -0,0 +1,151 @@
VERSION 5.00
Begin VB.Form info_form
BorderStyle = 1 'Fixed Single
Caption = "<22> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ScaleWidth = 280
Begin EIR.VistaButton Button_close
Height = 255
Left = 1440
TabIndex = 0
Top = 3360
Width = 1335
_ExtentX = 2355
_ExtentY = 450
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Caption = "Web-<2D><><EFBFBD><EFBFBD>: 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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 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
View File

Binary file not shown.

167
player.frm Normal file
View 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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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 = "<22><><EFBFBD><EFBFBD><EFBFBD>"
Begin VB.Menu up_player_update
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>"
End
Begin VB.Menu up_player_close
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
End
End
Begin VB.Menu up_help
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
Begin VB.Menu up_help_help
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
End
Begin VB.Menu up_help_site
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
End
Begin VB.Menu up_reg
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
End
Begin VB.Menu up_help_update2
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
End
Begin VB.Menu up_help_info
Caption = "<22> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
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 "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.", 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 "<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.", 64 + 0, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
End Sub
Private Sub up_help_info_Click()
info_form.Show
End Sub
Private Sub up_help_site_Click()
MsgBox "<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.", 64 + 0, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
End Sub
Private Sub up_help_update2_Click()
MsgBox "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.", 64 + 0, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
End Sub
Private Sub up_player_close_Click()
End
End Sub
Private Sub up_player_update_Click()
MsgBox "<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.", 64 + 0, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
End Sub
Private Sub up_reg_Click()
reg_form.Show
End Sub

BIN
player.frx Normal file
View File

Binary file not shown.

174
reg_form.frm Normal file
View File

@ -0,0 +1,174 @@
VERSION 5.00
Begin VB.Form reg_form
BorderStyle = 3 'Fixed Dialog
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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 = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
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 = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>:"
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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>:"
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 1
Top = 1440
Width = 1935
End
Begin VB.Label text_nameform
BackStyle = 0 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:"
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 "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.", 64 + 0, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
Open "C:\Windows\System32\drivers\radio.sys" For Random As #3
Put #3, 1, "yes"
Close #3
Else
MsgBox "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.", 64 + 0, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
End If
End Sub
Private Sub Form_Load()
pole_serial = Fix(Rnd * 12345678912345#)
End Sub

BIN
reg_form.frx Normal file
View File

Binary file not shown.

367
vistaBut.ctl Normal file
View 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
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Windows Vista
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 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 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
End Sub
Private Sub lbl_Click()
UserControl_Click '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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) '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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) '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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) '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
End Sub
Private Sub MoveIn_Timer()
Dim brx, bry, bw, bh As Integer
UserControl.ScaleMode = 3 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
brx = UserControl.ScaleWidth - 3 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> x
bry = UserControl.ScaleHeight - 3 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> y
bw = UserControl.ScaleWidth - 6 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
bh = UserControl.ScaleHeight - 6 '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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
View File

Binary file not shown.