Private Sub Form_Load()
為宣恩等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù),及宣恩網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、宣恩網(wǎng)站設(shè)計(jì),以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求,就會得到認(rèn)可,從而選擇與我們長期合作。這樣,我們也可以走得更遠(yuǎn)!
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim I As Integer
strComputer = "."
Set objWMI = GetObject("winmgmts://" strComputer "/root/cimv2")
Set colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IP In colIP
If Not IsNull(IP.IPAddress) Then
For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
MsgBox "IP地址:" IP.IPAddress(I) Chr(10) _
"網(wǎng)卡類型:" IP.Description(I) Chr(10) _
"網(wǎng)卡地址:" IP.Macaddress(I)
Next
End If
Next
End Sub
你除非寫插件,用戶訪問你的BS頁面的時(shí)候要安裝這個(gè)插件,然后由這個(gè)插件去讀取客戶端本地程序。不過這個(gè)插件目測很多瀏覽器是不支持的。一般只有IE可以用。
VB可以用任何格式保存文件數(shù)據(jù)不僅僅是注冊表\XML\INI
甚至于未知的格式。我教你命令:
open "C:\setup.safe" for output as #1
print #1,"object"
close #1
其中setup.safe就是一個(gè)文件,后綴為.safe,當(dāng)然可以改成.dat包括其他任何后綴.
object就是你要寫入setup.safe的內(nèi)容.
DatagramSocket用于接收和發(fā)送UDP的Socket實(shí)例。該類有3個(gè)構(gòu)造函數(shù):DatagramSocket():通常用于客戶端編程,它并沒有特定監(jiān)聽的端口,僅僅使用一個(gè)臨時(shí)的。程序會讓操作系統(tǒng)分配一個(gè)可用的端口。DatagramSocket(int port):創(chuàng)建實(shí)例,并固定監(jiān)聽Port端口的報(bào)文。通常用于服務(wù)端。
你可以用一個(gè)英文的句點(diǎn)(.)來表示本機(jī),它和(local)是一樣的。
注意只用一個(gè)點(diǎn),不要帶括號。