有源码事例,还有说明.一看就明白, 一,把"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"模块就等于在工程里加入了一个模块当然就能 在任何其他事件引用模块里的函数过程.
标签： hgbguanligongcheng WINDOWSsystem dll HGB
上传时间： 2013-12-19
上传用户：cuibaigao
Visual Basic 6.0可以通过调用API函数格式化一个磁盘，无论是软盘还是硬盘。 打开一个新的项目(工程1) ，如果你没有更改过缺省模式，那么Visual Basic 6.0会自动添加一个form1文件，在form1上添加一个命令控件，将下面的代码拷入。 Option Explicit Private Declare Function SHFormatDrive Lib"shell32"( ByVal Hend AS Long,ByVal Drive AS Long,ByVal FormatID AS Long,ByVal Options AS Long) as Long Private Sub FormatDisk(intDrive as integer,blnQuickFormat as Boolean) Dim lngReturn As Long if (blnQuickFormat) then lngReturn= SHFormatDrive(0,intDrive,0&,1&) else lngReturn= SHFormatDrive(0,intDrive,0&,0&) end if end Sub Private Sub Command1_Click() call FormatDisk(0,True) End Sub 运行此程序。 注意FormatDisk函数的第一个变量很重要，他的值是0,1,2时代表格式化的分别是：A、B、C盘。
上传时间： 2015-10-05
上传用户：kytqcool
利用WM5 实现电话功能 在程序中进行电话拨号 “项目”—“添加引用”—“Microsoft.WindowsMobile.Telephony”—“确定” Imports Microsoft.WindowsMobile.Telephony Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim TestPhone As New Phone TestPhone.Talk("1001") End Sub
标签： Microsoft WindowsMobile Telephony Imports
上传时间： 2013-12-20
上传用户：hasan2015
其中：ClientInfor.inf 文件： 第一行的数据表示： 客户端游戏版本号 第一行的数据表示： 更新文件存放的网络路径 UpdateInfor.inf文件： 第一行的数据表示： 最新游戏版本号 第二行的数据表示： 有多少文件需要更新 后面每行的数据表示： 需要更新的文件的名称 frmUpdate.frm窗体： 负责下载 modZip.BAS模块： 只负责用来压缩文件和解压缩文件的 其中的 UnZipTo 函数用来解压缩的 zlib.dll： 为WinZip的dll文件 更新完毕后，ClientInfor.inf文件的第一行的数据会变为最新版本号 frmUpdate.frm窗体代码如下： Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdUpdate_Click() Dim strClientInfor() As String Dim strUpdateInfor() As String Dim nNum As Integer 存
标签： ClientInfor UpdateInfor inf 数据表示
上传时间： 2013-12-24
上传用户：hanli8870
MirUnleashed vb.net Module modMainServer Public WithEvents Socket As New WinsockServer Public WithEvents StatusSocket As New WinsockServer Dim MonsterThread As New System.Threading.Thread(AddressOf MonsterProcess) Dim LastPacket As String =
标签： modMainServer WinsockServer MirUnleashed WithEvents
上传时间： 2016-02-21
上传用户：日光微澜
{ OCSP REQUEST*req=NULL if ((req=OCSP一 REQUEST new())一NULL) goto err if (name) /* optional*/ f if (!(req->tbsRequest->requestorName=GENERAL-NAME_ new())) goto er req->tbsRequest->requestorName->type=GEN一 DIRNAME req->tbsRequest->requestorName->d.Dim=X509一 NAM几dup(name) } if(!(req->tbsRequest->requestList=sk-OCSP ONEREQ_new(N〔几L))) goto er if(extensions && (!(req->tbsRequest->requestExtensions = ext dup(extensions)))) goto er return req if (req) OCSP REQUEST free(req) return NULL ) 刀此函数用于一个新的合法的OCSP请求加入列表中
上传时间： 2014-01-17
上传用户：lanjisu111
this program has many parts and fully working, based on MCS51. Hand made PWM and wave forms for Dimmer like output. it also drives ISD audio chip.
上传时间： 2017-07-11
上传用户：xc216
asp实现限制一个ip只能访问一次的方法 <% '///////////////////////////////////////////////////// '// // '//作用：一个IP地址只允许访问本页一次 // '//引用：<!-- #include file="Check_Ip.asp" --> // '// // '///////////////////////////////////////////////////// 'Response.Charset = 936 '设置输出编码为简体中文 'Response.Buffer = false '关闭缓冲区 Dim Fso,ts,IpList,Cfs '设置Cookies函数 Function SetCookie() Response.Cookies("IsBrow") = "Brow" Response.Cookies("IsBrow").Expires = Date+365 End Function '记录IP地址函数 Function WriteIp(FileName, IpAddress) Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set ts = Fso.OpenTextFile(Server.MapPath(FileName),8,true) ts.WriteLine IpAddress ts.Close Set ts = Nothing Set Fso = Nothing End Function '读取IP地址函数 Function ReadIpList(FileName) Set Fso = Server.CreateObject("Scripting.FileSystemObject") If Not Fso.FileExists(Server.MapPath(FileName)) Then CreateFile("Iplist.txt") Exit Function End If Set ts = Fso.OpenTextFile(Server.MapPath(FileName)) Iplist = ts.ReadAll ts.Close Set ts = Nothing Set Fso = Nothing ReadIpList = Iplist End Function '创建文件函数 Function CreateFile(FileName) Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Cfs = Fso.CreateTextFile(Server.MapPath(FileName)) Cfs.Close Set Cfs = Nothing Set Fso = Nothing End Function '关闭当前IE窗口函数(注:IE6下通过,其他浏览器未测试) Function CloseWindow() 'Response.Write "<script>window.location='javascript:window.opener=null;window.close();'</script>" Response.Redirect "http://www.baidu.com" End Function Ip = Request.ServerVariables("REMOTE_ADDR") '获取浏览者IP地址 Cookie = Request.Cookies("IsBrow") '获取当前Cookies 'Response.Write Cookie If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then Response.Write "本站不允许使用代理访问" Response.End() Else If Cookie = "Brow" Then CloseWindow() Else If Instr(ReadIpList("Iplist.txt"),Ip) <>0 Then CloseWindow() Else WriteIp "Iplist.txt" , Ip End If SetCookie() End If End If %>
上传时间： 2016-07-14
上传用户：helei0915
PT4211-30V350mA高亮度LED恒流驱动器 ALTIUM AD设计硬件原理图+PCB 工程文件 概述 PT4211是一款连续电感电流导通模式的降压恒流源，专门针对用于驱动1-3颗串联LED而设计。PT4211可接受的输入电压范围从5伏到30伏，输出电流可调至最大350mA。 PT4211 内置功率开关，采用高端电流采样方式，通过一个外部电阻设定LED平均电流。专用调光Dim引脚可以接受宽范围的PWM调光信号。当Dim的电压低于0.4伏时，功率开关关断,PT4211进入极低工作电流的待机状态。 PT4211采用SOT23-5封装。 关键特性极少的外部元器件输入电压范围从5V到30V最大输出350mA电流专用调光管脚可接受PWM调光3%的输出电流精度LED开路自然保护高达93%的效率输出可调的恒流控制方法软过温保护尽大可能减少高温下LED闪烁
上传时间： 2022-03-17
上传用户：
75W 1.4A PFC+DC-DC电路 。包括PFC和DC-DC两部分。
上传时间： 2022-03-28
上传用户：
