得到显示器分辨率
System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
得到特殊文件夹的路径
1."Desktop"桌面文件夹路径
Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)
2."Favorites"收藏夹路径
Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
3."Application Data"路径
Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
4.通用写法
Environment.GetFolderPath(Environment.SpecialFolder.XXXXXXX)
//XXXXXXX是特殊文件夹的名字
得到操作系统版本信息
Environment.OSVersion.ToString()
得到当前登录的用户名
Environment.UserName
得到当前应用程序的路径
Environment.CurrentDirectory
得到计算机IP和计算机全名
System.Net.IPHostEntry MYIP = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName());
//或者System.Net.IPHostEntry MYIP = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName());
IP = MYIP.AddressList.GetValue(0).ToString();
计算机名 = MYIP.HostName.ToString();
//获取本地机的主机名
strHostName = Dns.GetHostName();
// 使用主机名,获取IP地址列表
// 一台主机可能不只一个IP
IPHostEntry ipEntry = Dns.GetHostEntry(strHostName);
IPAddress[] addr = ipEntry.AddressList;
打开和关闭CD -ROM (vb)
'先新建模块
Module mciAPIModule
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
End Module
'打开CD-ROM
Dim lRet As Long
lRet = mciSendString("set cdAudio door open", 0&, 0, 0)
'关闭CD-ROM
Dim lRet As Long
lRet = mciSendString("set cdAudio door Closed", 0&, 0, 0)