vb调用net指令 vbnet function

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

Shell "cmd /c net view", vbNormalFocus 这样就可以了不过DOS窗口只是一闪而过。

腾冲ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18980820575（备注：SSL证书合作）期待与您的合作！

请教在VB下如何取得shell来执行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不能等到执行完成，所以可能得不到需要的数据， 里有资料

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 如何调用 NET写的DLL?

VB.net语言

1、创建组件定义

新建一个Probject，在代码中写入：

Public Interface IDemo

Function Test() As String

End Interface

2、实现组件定义

新建一个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 这样的方法了