说明：  有源码事例,还有说明.一看就明白, 一,把"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)