＋设为首页 ＋添加到收藏夹
在.net中得到计算机硬件信息的一些功能
得到特殊文件夹的路径 "desktop"桌面文件夹路径msgbox(environment.getfolderpath(environment.specialfolder.desktopdirectory))"favorites"收藏夹路径msgbox(environment.getfolderpath(environment.specialfolder.favorites))"application data"路径msgbox(environment.getfolderpath(environment.specialfolder.applicationdata)) 【程序编程相关:XMLDOM对象方法：对象事件 】
得到显示器分辨率 dim x as short = system.windows.forms.screen.primaryscreen.bounds.widthdim y as short = system.windows.forms.screen.primaryscreen.bounds.heightmsgbox("您的显示器分辨率是:" & x & " x " & y) 【推荐阅读:无外部控件制作多媒体播放器（三） 】
得到操作系统版本信息 msgbox(environment.osversion.tostring) 【扩展信息:XMLDOM对象方法：Document对】
通用写法dim spec as string = environment.getfolderpath(environment.specialfolder.xxxxxxx)xxxxxxx是特殊文件夹的名字
得到当前登录的用户名 msgbox(environment.username)
得到当前应用程序的路径 msgbox(environment.currentdirectory)
打开与关闭cd-rom 先新建模块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 integerend module
打开cd-rom dim lret as longlret = mcisendstring("set cdaudio door open", 0&, 0, 0)
关闭cd-rom dim lret as longlret = mcisendstring("set cdaudio door closed", 0&, 0, 0)
得到计算机ip与计算机全名 dim myip as system.net.iphostentry = system.net.dns.gethostbyname(system.net.dns.gethostname)msgbox("您的ip地址:" & (myip.addresslist.getvalue(0).tostring))msgbox("您的计算机全名:" & (myip.hostname.tostring))
使用win32_operatingsystem (wmi class)得到计算机信息 添加listbox在form1_load事件里,并引用system.managmentdim opsearch as new managementobjectsearcher("select * from win32_operatingsystem")dim opinfo as managementobjectfor each opinfo in opsearch.get() listbox1.items.add("name: " & opinfo("name").tostring()) listbox1.items.add("version: " & opinfo("version").tostring()) listbox1.items.add("manufacturer: " & opinfo("manufacturer").tostring()) listbox1.items.add("computer name: " & opinfo("csname").tostring()) listbox1.items.add("windows directory: " & opinfo("windowsdirectory").tostring())next
列出计算机安装的全部字体,并添加到listbox 新建form并添加listbox与buttonprivate sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.clickdim fntcollection as installedfontcollection = new installedfontcollection()dim fntfamily() as fontfamilyfntfamily = fntcollection.familieslistbox1.items.clear()dim i as integer = 0for i = 0 to fntfamily.length - 1 listbox1.items.add(fntfamily(i).name)nextend sub
... 下一页