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

寫一個函數(shù)

成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網綜合服務，包含不限于網站設計、網站制作、古冶網絡推廣、小程序定制開發(fā)、古冶網絡營銷、古冶企業(yè)策劃、古冶品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們最大的嘉獎；成都創(chuàng)新互聯(lián)公司為所有大學生創(chuàng)業(yè)者提供古冶建站搭建服務，24小時服務熱線：18980820575，官方網址：www.chinadenli.net

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

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

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

調用就可以了，得到什么我不知道，沒有可用的服務器

在vb中使用shell調用net命令的用法怎么用？

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

vb 如何調用 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 這樣的方法了

網站名稱：vb調用net指令 vb·net
當前路徑：http://www.chinadenli.net/article46/dooioeg.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供微信公眾號、網站收錄、網站改版、網頁設計公司、網站導航、自適應網站

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)