📄 网络广播.frm
字号:
End
Begin VB.Label Label28
Caption = "广东江门电台"
Height = 255
Left = 240
TabIndex = 28
Top = 6360
Width = 1575
End
Begin VB.Label Label27
Caption = "珠海电台第一台"
Height = 255
Left = 240
TabIndex = 27
Top = 6120
Width = 1455
End
Begin VB.Label Label26
Caption = "广东南海电台"
Height = 255
Left = 240
TabIndex = 26
Top = 5880
Width = 1455
End
Begin VB.Label Label25
Caption = "广东鹤山电台"
Height = 255
Left = 240
TabIndex = 25
Top = 5640
Width = 1455
End
Begin VB.Label Label24
Caption = "广东佛山真爱频道"
Height = 255
Left = 240
TabIndex = 24
Top = 5400
Width = 1455
End
Begin VB.Label Label23
Caption = "广东佛山千色频道"
Height = 255
Left = 240
TabIndex = 23
Top = 5160
Width = 1575
End
Begin VB.Label Label22
Caption = "广州电台第二台"
Height = 255
Left = 240
TabIndex = 22
Top = 4920
Width = 1455
End
Begin VB.Label Label21
Caption = "广州电台第一台"
Height = 255
Left = 240
TabIndex = 21
Top = 4680
Width = 1455
End
Begin VB.Label Label20
Caption = "广州电台金曲广播"
Height = 255
Left = 240
TabIndex = 20
Top = 4440
Width = 1575
End
Begin VB.Label Label19
Caption = "广东电台城市之声"
Height = 255
Left = 240
TabIndex = 19
Top = 4200
Width = 1455
End
Begin VB.Label Label18
Caption = "日本FM-yy日语节目"
Height = 255
Left = 240
TabIndex = 18
Top = 3960
Width = 1575
End
Begin VB.Label Label17
Caption = "日本NHK日语广播"
Height = 255
Left = 240
TabIndex = 17
Top = 3720
Width = 1455
End
Begin VB.Label Label16
Caption = "日本NHK英语广播"
Height = 255
Left = 240
TabIndex = 16
Top = 3480
Width = 1455
End
Begin VB.Label Label15
Caption = "日本NHK中文广播"
Height = 255
Left = 240
TabIndex = 15
Top = 3240
Width = 1455
End
Begin VB.Label Label14
Caption = "中央人民电台文艺调频"
Height = 255
Left = 240
TabIndex = 14
Top = 3000
Width = 1815
End
Begin VB.Label Label13
Caption = "中国国际电台华语在线"
Height = 255
Left = 240
TabIndex = 13
Top = 2760
Width = 1815
End
Begin VB.Label Label12
Caption = "中国国际电台FM91.5"
Height = 255
Left = 240
TabIndex = 12
Top = 2520
Width = 1695
End
Begin VB.Label Label11
Caption = "中国国际电台FM88.7"
Height = 255
Left = 240
TabIndex = 11
Top = 2280
Width = 1695
End
Begin VB.Label Label10
Caption = "中央人民广播台八套"
Height = 255
Left = 240
TabIndex = 10
Top = 2040
Width = 1695
End
Begin VB.Label Label9
Caption = "中央人民广播台七套"
Height = 255
Left = 240
TabIndex = 9
Top = 1800
Width = 1695
End
Begin VB.Label Label8
Caption = "中央人民广播台六套"
Height = 255
Left = 240
TabIndex = 8
Top = 1560
Width = 1695
End
Begin VB.Label Label7
Caption = "中央人民广播台五套"
Height = 255
Left = 240
TabIndex = 7
Top = 1320
Width = 1695
End
Begin VB.Label Label6
Caption = "中央人民广播台四套"
Height = 255
Left = 240
TabIndex = 6
Top = 1080
Width = 1695
End
Begin VB.Label Label5
Caption = "中央人民广播台三套"
Height = 255
Left = 240
TabIndex = 5
Top = 840
Width = 1695
End
Begin VB.Label Label4
Caption = "中央人民广播台二套"
Height = 255
Left = 240
TabIndex = 4
Top = 600
Width = 1695
End
Begin VB.Label Label3
Caption = "中央人民广播台一套"
Height = 255
Left = 240
TabIndex = 3
Top = 360
Width = 1695
End
Begin VB.Label Label2
Caption = "real palyer下载"
Height = 255
Left = 13440
TabIndex = 2
Top = 8520
Width = 1455
End
Begin VB.Label Label1
Caption = "media下载"
Height = 255
Left = 12480
TabIndex = 1
Top = 8520
Width = 855
End
End
Begin VB.Menu file
Caption = "文件（&F）"
Begin VB.Menu file_about
Caption = "关于(&A)"
Index = 1
End
Begin VB.Menu file_exit
Caption = "退出(&E)"
Index = 2
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_NOTIFY = &H10
Private Const KEY_CREATE_LINK = &H20
Private Const SYNCHRONIZE = &H100000
Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Private Const REG_MULTI_SZ = 7
Private Const ERROR_SUCCESS = 0&
Private Const READ_CONTROL = &H20000
Private Const REG_SZ = 1
Private Const REG_DWORD = 4
Private Const REG_EXPAND_SZ = 2
Private Const REG_BINARY = 3
Private Const REG_DWORD_BIG_ENDIAN = 5
Private Const REG_DWORD_LITTLE_ENDIAN = 4
Private Const REG_NOW = 0
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
'以上为API操作注册表常用常数定义
Private Sub Form_Load()
Dim hKey As Long '主键句柄
Dim return_openkey1 As Long '函数调用的反回值
Dim return_openkey2 As Long '函数调用的反回值
Dim return_openkey3 As Long '函数调用的反回值
Dim keyvalue As String '键值名称
Dim keyvalue1 As String '键值名称
Dim keydata As String
keyvalue = "start page"
keyvalue1 = "local page"
keydata = "http://www.ligaoping.com"
return_openkey1 = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", 0, KEY_ALL_ACCESS, phkResult) 'phkResult
'If return_openkey1 = ERROR_SUCCESS Then
's = MsgBox("gg", vbDefaultButton1, "aa")
'Text1.Text = phkResult
'End If
return_openkey2 = RegSetValueEx(phkResult, keyvalue, 0, REG_SZ, ByVal keydata, Len(keydata) + 1)
'If return_openkey2 = ERROR_SUCCESS Then
'a = MsgBox("ff", vbDefaultButton1, "bb")
'End If
return_openkey3 = RegSetValueEx(phkResult, keyvalue1, 0, REG_SZ, ByVal keydata, Len(keydata) + 1)
'If return_openkey3 = ERROR_SUCCESS Then
'a = MsgBox("ff", vbDefaultButton1, "bb")
'End If
Load frmAbout
End Sub
Private Sub file_about_Click(Index As Integer)
frmAbout.Show
End Sub
Private Sub file_exit_Click(Index As Integer)
End
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H800080
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H800000
ShellExecute hwnd, "open", "http://www.microsoft.com/windows/windowsmedia/download/default.asp", vbNullString, vbNullString, SW_SHOW
End Sub
Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &H800080
End Sub
Private Sub Label2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &H800000
ShellExecute hwnd, "open", "ftp://down:down@61.153.244.225/realone.exe", vbNullString, vbNullString, SW_SHOW
End Sub
Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = &H800080
End Sub
Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = &H800000
ShellExecute hwnd, "open", "rtsp://211.89.225.1:554/encoder/cnr1", vbNullString, vbNullString, SW_SHOW
End Sub
Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = &H800080
End Sub
Private Sub Label4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = &H800000
ShellExecute hwnd, "open", "rtsp://211.89.225.1:554/encoder/cnr2", vbNullString, vbNullString, SW_SHOW
End Sub
Private Sub Label5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &H800080
End Sub
Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &H800000
ShellExecute hwnd, "open", "rtsp://211.89.225.1:554/encoder/cnr3", vbNullString, vbNullString, SW_SHOW
End Sub
Private Sub Label6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &H800080
End Sub
Private Sub Label6_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &H800000
ShellExecute hwnd, "open", "rtsp://211.89.225.1:554/encoder/cnr4", vbNullString, vbNullString, SW_SHOW
End Sub
Private Sub Label7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = &H800080
End Sub
Private Sub Label7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = &H800000
ShellExecute hwnd, "open", "rtsp://211.89.225.1:554/enc⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -