有源码事例,还有说明.一看就明白,

一,把"HGB.dll"和"hgbguanligongcheng.dll"复制到系统文件夹"\WINDOWS\system32"下.







二,新建一VB标准EXE,在"工程\引用"下点击浏览把"\WINDOWS\system32"下的"hgbguanligongcheng.dll"

引用进来.







三,在窗体里声明一个对象变量yy



Dim yy As New hgbguanlimokuai



再在任一事件下引用YY里的函数过程



i = yy.chongqi() 本过程执行重启动计算机,无返回值



ii=yy.guanji() 本过程执行关闭计算机,无返回值



iii=yyy.huoquan() 本过程执行获得计算机管理权,成功返回1,失败返回0







注意: 生成exe文件在别的机上运行时要把两个DLL文件复制到系统文件夹"\WINDOWS\system32"下,.因为exe

文件在运行时会用到那两个DLL.









解释:



"hgbguanligongcheng.dll"文件里面有"hgbguanlimokuai"模块





"hgbguanlimokuai"模块里面有三个函数过程chongqi(),guanji(),huoquan()





我们声明YY为"hgbguanlimokuai"模块就等于在工程里加入了一个模块当然就能





在任何其他事件引用模块里的函数过程.-a source examples, there are shows. See at a, a, "HGB.dll" and "hgbguanligongcheng.dll" copied to the System folder "\ WINDOWS \ system32". 2, a new standard EXE VB. "works \ quote" Click here "\ WINDOWS \ system32" under the "hgbg uanligongcheng.dll "quote come. 3. Form Lane in a statement object variables yy Dim yy As New hgbguanlimokuai again In any event occurred YY Lane function yy.chongqi process i = () implementation of the process of calculating restart machine, no return value yy.guanji ii = () implementation of the process of closing the computer, No value is returned yyy.huoquan iii = () is the process of the implementation of the Computer Management, successfully return to a failure to 0 Note : exe file generated in ot