如何用VB6程序打开网上邻居和使系统静音? 2:控件ActSkin4的界面文件那里可以下载到?

[catcw]

如何用VB6的程序打开网上邻居和使系统静音？

问题2：控件ActSkin4的界面文件那里可以下载到？
用什么软件可以自己制作？

[kmzs]

都不懂，郁闷

[hhjjhjhj]

静音
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()

mciAoff = mciSendString("set cdaudio audio all off", 0&, 0, 0)
End Sub

[hhjjhjhj]

打开网上邻居
Private Sub Command1_Click()
Set shl = CreateObject("Shell.application")
shl.Explore 18
End Sub