1樓：網友
private sub form_load()dim i as integer
doi = i + 1
if left(environ(i), instr(1, environ(i), 1) =userdomain" then
msgbox right(environ(i), len(environ(i)) instr(1, environ(i), 蠢差=")
end if
loop until environ(i + 1) =end sub
我是帶拿皮win7的，不知道xp行不行。敏緩。
vb6.0怎麼獲取電腦的名字？
2樓：匿名使用者
把計算機名稱顯示在文字框中的**如下："computername")
3樓：匿名使用者
按鈕點選事件中寫上。
computername")
vb如果獲取電腦的名稱
4樓：匿名使用者
= 中可以使用environment類實現很多計算機資訊的操作。
vb中如何使用environ
5樓：硪丨曖戀
先說用法。private sub form_load()
先用乙個迴圈把所有的環境變數讀出來。
dim envstring, indx
indx = 1
doenvstring = environ(indx) '取得環境變數。
envstring
indx = indx + 1
loop until envstring =
用msgbox看看allusersprofile的值是多少。
msgbox environ("allusersprofile")
end sub
明白了吧。基本上呢，這個函式就相當於乙個讀取ini的函式，ini的內容就是環境變數的內容，你想要讀什麼，就給他個什麼引數。
msdn中是這樣寫的。
environ 函式。
返回 string，它關連於乙個作業系統環境變數。 在 macintosh 中不可用。
語法 environ()
environ 函式的語法含有以下這些命名引數：
部分 描述。
envstring 可選引數。包含一伏喚好個環境變數名的字元缺鉛串表示式。
number 可選引數。數值表示式，用來表示環境字串在環境字串**中的數值順序。number 引數可以是任意的數值表示式，不過在計算前，它會先轉換為乙個整數。
說明。如果在環境字串**中找不到 envstring，則會返回乙個零長度字串 ("如果找到，則 environ 會返回一段文字，文字是賦值給指定的 envstring 的，也就是說，在環境字串**中對應那個環境變鏈輪量的等號 (=後面的那段文字。
如果指定了 number，則在環境字串**中相應位置上的字串會返回。在這種情況下，environ 會返回整個文字，包括 envstring。如果在指定位置上沒有環境字串，那麼 environ 會返回乙個零長度字串。
vb**用機器名獲取ip位址
6樓：匿名使用者
private sub command1_click()dim aa as string
dim strlocalip as stringdim winip as object
aa = aa & 本機電腦名稱：" environ("computername") vbcrlf
aa = aa & 本機使用者名稱稱：" environ("username") vbcrlf
set winip = createobject("頌悉"野殲乎)strlocalip =
msgbox aa & 本改高機ip:" strlocalipend sub
求vb**：要求獲取本機的所有網路連線名稱
7樓：網友
呼叫cmd命令，重定向輸出到檔案，讀取檔案，擷取需要的資訊。
如何獲的積分
新手教程 關於對第三方無意義的問題檢舉規則 新手教程 如何處理轉移分類 如果你對於工作仍有疑惑，請在hi群或者知道管理吧發帖求助，會有資深管理第一時間為你解答疑惑。三 和團隊成員溝通 我們分類管理團隊是一個和諧友愛的大家庭，每一個管理員都在這裡認識了知道平臺上的很多朋友，我希望每一個管理員都可以積極...
陰陽師姑獲鳥說的是什麼陰陽師姑獲鳥臺詞翻譯
姑獲鳥 cv 行成桃姬 1 坊 一體 行 啊 孩子，你究竟跑到 了 a bouya ittai dokoni ittano 2 傘 刃 這把傘就是我的利刃 konokasaga atashino yaibananosa 3 傘 剣 銳 我的傘可是比別人的劍要銳利得多 atashino kasawa ...
英語derive和get做為獲得區別是什麼？
derive 和origin的區別主要有兩點 詞性和意思不同。一 derive 是動詞 v..其意思有 得到 起源於。當表示 得到 的語義時，它是及物動詞，後面可以直接新增名詞作賓語。例 helping others can help you derive happiness.幫助他人可以讓你獲得快...