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 这样的方法了


分享题目:vb调用net指令 vbnet function
网站地址:http://scyanting.com/article/dospggg.html