在vb中使用shell調(diào)用net命令的用法怎么用？

Shell "cmd /c net view", vbNormalFocus 這樣就可以了不過DOS窗口只是一閃而過。

騰沖ssl適用于網(wǎng)站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應(yīng)用場景，ssl證書未來市場廣闊！成為創(chuàng)新互聯(lián)公司的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18980820575（備注：SSL證書合作）期待與您的合作！

請教在VB下如何取得shell來執(zhí)行net命令

寫一個函數(shù)

function nettime(ip)

open app.path "\nt.bat" for output as #1

print #1,"@net time \\" ip " nt.dat"

close #1

shell app.path "\nt.bat",vbhide

doevents

'這里你查查相關(guān)資料，關(guān)于shell的WAIT，可能用doevents不能等到執(zhí)行完成，所以可能得不到需要的數(shù)據(jù)， 里有資料

open app.path "\nt.dat" for intput as #1

dim x as sting

do until eof(1)

input #1,x

nettime=nettime x

loop

nettime=replace(nettime,vbcrlf,"")

nettime=replace(nettime," ","")

end function

調(diào)用就可以了，得到什么我不知道，沒有可用的服務(wù)器

vb 如何調(diào)用 NET寫的DLL?

VB.net語言

1、創(chuàng)建組件定義

新建一個Probject，在代碼中寫入：

Public Interface IDemo

Function Test() As String

End Interface

2、實現(xiàn)組件定義

新建一個Probject，添加對上述Probject的引用后，在代碼中寫入

Public Class Demo

Implements IDemo.IDemo

Public Function Test() As String Implements IDemo.IDemo.Test

Test = "Hello World!"

End Function

End Class

3、編譯出Demo.dll組件

4、使用.net的工具 Visual Studio .Net 2003 Command Prompt，輸入以下命令

Regasm Demo.dll /tlb:Demo.tlb

把Demo.dll注冊為一個com對象（這個com對象不等同于普通的用VB編寫的Com對象），并導出類型庫Demo.tlb

5、新建一個VB工程，添加對Demo.tlb和IDemo.tlb的引用

6、定義兩個全局變量

Dim vbDemo As Demo.Demo

Dim vbIDemo as IDemo.IDemo

7、在Form_Load事件中初始化

'初始化實體類

Set vbDemo = New Demo.Demo

'將實體類引用到抽象類

Set vbIDemo = vbDemo

8、然后，我們就可以用 vbIDemo.Test 這樣的方法了