操作系统课程设计报告(完成版

1、XX大学课程设计报告课程设计题目： Windows系统资源管理器与任务管理器 学 院： 专业班级： 年 级： 2008级 姓 名： 学 号： 完成时间： 2012 年 7 月 3 日成 绩： 指导教师： 教务处课程设计指导教师评定成绩表项目分值优秀(100x90)良好(90x80)中等(80x70)及格(70x60)不及格(x60)评分参考标准参考标准参考标准参考标准参考标准学习态度15学习态度认真，科学作风严谨，严格保证设计时间并按任务书中规定的进度开展各项工作学习态度比较认真，科学作风良好，能按期圆满完成任务书规定的任务学习态度尚好，遵守组织纪律，基本保证设计时间，按期完成各项工作学习态度

2、尚可，能遵守组织纪律，能按期完成任务学习马虎，纪律涣散，工作作风不严谨,不能保证设计时间和进度技术水平与实际能力25设计合理、理论分析与计算正确，实验数据准确，有很强的实际动手能力、经济分析能力和计算机应用能力，文献查阅能力强、引用合理、调查调研非常合理、可信设计合理、理论分析与计算正确，实验数据比较准确，有较强的实际动手能力、经济分析能力和计算机应用能力，文献引用、调查调研比较合理、可信设计合理，理论分析与计算基本正确，实验数据比较准确，有一定的实际动手能力，主要文献引用、调查调研比较可信设计基本合理，理论分析与计算无大错，实验数据无大错设计不合理，理论分析与计算有原则错误，实验数据不可靠，

3、实际动手能力差，文献引用、调查调研有较大的问题创新10有重大改进或独特见解，有一定实用价值有较大改进或新颖的见解，实用性尚可有一定改进或新的见解有一定见解观念陈旧论文(计算书、图纸)撰写质量50结构严谨，逻辑性强，层次清晰，语言准确，文字流畅，完全符合规范化要求，书写工整或用计算机打印成文；图纸非常工整、清晰结构合理，符合逻辑，文章层次分明，语言准确，文字流畅，符合规范化要求，书写工整或用计算机打印成文；图纸工整、清晰结构合理，层次较为分明，文理通顺，基本达到规范化要求，书写比较工整；图纸比较工整、清晰结构基本合理，逻辑基本清楚，文字尚通顺，勉强达到规范化要求；图纸比较工整内容空泛，结构混乱，

4、文字表达不清，错别字较多，达不到规范化要求；图纸不工整或不清晰指导教师评定成绩：指导教师签名： 年 月 日重庆大学本科学生课程设计任务书课程设计题目Windows系统资源管理器与任务管理器学院计算机专业网络工程年级09已知参数和设计要求：（1） 熟悉操作系统资源管理原理，掌握编程接口，能够使用高级语言调用编程接口，设计并实现Windows操作系统资源管理器的全部功能(包括：菜单、图标、右键菜单)，实现软件资源和数据资源的管理。（2） 掌握操作系统任务与进程概念，熟悉任务与进程管理的方法，通过高级语言编程接口设计并实现Windows操作系统任务管理器的全部功能(包括：菜单、右键菜单、应用程序管理

5、、进程管理、性能显示、联网状态和用户信息)。学生应完成的工作：（1） 了解Windows操作系统的发展历史（2） 了解Windows XP的体系结构（3） 掌握Windows系统API的调用方法（4） 设计并实现Windows操作系统资源管理器的全部功能(包括：菜单、图标、右键菜单)，实现软件资源和数据资源的管理。（5） 设计并实现Windows操作系统任务管理器的全部功能(包括：菜单、右键菜单、应用程序管理、进程管理、性能显示、联网状态和用户信息)。目前资料收集情况（含指定参考资料）：（1） 在互联网上收集相关资料（2） William Stallings，Operating Systems

6、 Internals and Design Principles，6th Edition，电子工业出版社，2010年课程设计的工作计划：（1） 第1第3天：查询、收集资料，学习相关知识；（2） 第4天：熟悉掌握API函数使用；（3） 第5第9天：设计、实现程序；（4） 第10天：编写课程设计报告；（5） 第11天：检查程序；（6） 第12天：修改完善程序与课程设计报告。任务下达日期2012年6月18日完成日期2012年7月7日目录摘要1第一章课程设计要求2第二章设计概要32.1功能设计32.2程序系统功能模块32.2.1 Windows任务管理器功能模块32.2.2 Windows资源管理器功

7、能模块423功能分析42.3.1 Windows任务管理器功能流程图42.3.2 Windows资源管理器功能流程图52.3.3 Windows任务管理器界面截图62.3.4 Windows资源管理器界面截图82.3.5 程序主要功能说明11第三章调试分析与测试结果343.1 Windows任务管理器343.1.1基本界面343.1.2 进程状态查看353.1.3 CPU状态查看363.1.4 进程管理功能363.2 Windows资源管理器393.2.1 基本界面393.2.2 剪切功能的实现413.2.3 复制功能的实现423.2.4 删除功能的实现43第四章设计总结44第五章参考文献45

8、摘 要操作系统是一个介于软件和硬件之间的特殊硬件，一方面分配硬件资源另一方面支持软件在它上面的实现，如何实时地监控和掌握系统软硬件工作的状态、资源分配和使用的情况，对计算机用户而言十分重要，于是就有了任务管理器这样的实时监控窗口；同理，我们也需要掌握计算机硬件设备的工作状态，掌握其如何存储文件、分配硬盘资源等，这也是我们做资源管理器的初衷。我们的电脑需要我们去了解它的运行状况，掌握和管理它的进程，并对其异常情况给予操作和控制，任务管理器就像是我们了解和控制自己电脑运作的一个窗口，通过这个窗口我们可以了解到电脑所有进程运行状况，并对运行的进程加于管理和控制，正如在本实验中，启动进程管理器后，可以

9、通过”获取进程”功能来获得本计算机启动的进程，以及与该进程相关的信息，其中包括的信息有：进程映像名称，进程开启的线程数，进程的PID以及进程的优先数，我们可以通过这些信息来了解计算机中每个进程的使用状况。同时我们可以在进程管理器上选中一个要终止的的进程，点击“终止进程”功能按钮，该进程被终止执行并退出进程列表，其中还包括了自动刷新的功能，此按钮实现的功能正如我们电脑任务管理器的“进程”功能，当电脑执行程序不能通过关闭窗口进行正常的关闭时，可以借助此办法来关闭进程。我们还可以通过这个进程管理器来启动新的进程，当我们要在进程管理器里启动新的进程时，只要点击“启动新进程”按键，则会弹出“打开进程”对

10、话框，我们可以通过对话框里的“浏览”窗口选择要打开的新进程，这是任务管理器里没有实现的功能，通过这个功能我们在管理计算机时变得更加灵活方便，也使进程管理的功能更加完善。在退出此进程管理器时候，只要选择“退出”功能按钮则可关闭进程管理器，快速退出管理器的界面。本管理器设计比较简洁，操作灵活，使用简单，可以为我们管理和控制计算机的进程提供了一个简便的方法，是我们控制本计算机进程和了解计算机进程情况的良好助手。关键词：任务管理器 资源管理器 操作系统第一章 课程设计要求题目名称：Windows系统资源管理器与任务管理器题目类型：设计型课程设计目的：熟悉操作系统资源管理原理，掌握编程接口，能够使用高级

11、语言调用编程接口，设计并实现Windows操作系统资源管理器和任务管理器的全部功能。已知参数和设计要求：（3） 熟悉操作系统资源管理原理，掌握编程接口，能够使用高级语言调用编程接口，设计并实现Windows操作系统资源管理器的全部功能(包括：菜单、图标、右键菜单)，实现软件资源和数据资源的管理；（4） 掌握操作系统任务与进程概念，熟悉任务与进程管理的方法，通过高级语言编程接口设计并实现Windows操作系统任务管理器的全部功能(包括：菜单、右键菜单、应用程序管理、进程管理、性能显示、联网状态和用户信息)。实验内容：（6） 了解Windows操作系统的发展历史；（7） 了解Windows XP的

12、体系结构；（8） 掌握Windows系统API的调用方法；（9） 设计并实现Windows操作系统资源管理器的全部功能(包括：菜单、图标、右键菜单)，实现软件资源和数据资源的管理；（10） 设计并实现Windows操作系统任务管理器的全部功能(包括：菜单、右键菜单、应用程序管理、进程管理、性能显示、联网状态和用户信息)。第二章 设计概要2.1功能设计本项目是为了实现模拟Windows系统任务管理器和资源管理器。项目的分析及功能设计要求如下：（1） 编程模拟实现Windows系统任务管理器和资源管理器两个应用程序；（2） 服务器端可以对文件进行管理，包括上传，下载，删除文件，重命名等；（3） 客

13、服端可以实现文件的上传、下载以及查看服务器下默认目录的文件列表；（4） 在程序中应用多线程来实现多个客户端同时对一个服务器端进行请求操作。2.2程序系统功能模块关机查看选项文件功能设计当前用户状态内存使用状态CPU状态进程、应用程序状态进程数实时状态监控Windows任务管理器新建、切换进程、关闭进程关于关机、注销立即刷新、小图标、详细列表总在最前新建任务、退出管理器进程帮助2.2.1 Windows任务管理器功能模块图2.1文件功能设计文件类型文件大小目录树资源状态显示Windows资源管理器2.2.2 Windows资源管理器功能模块文件名修改时间新建、打开、保存、另存为、最近的文件、退出

14、关于帮助视图撤销、剪切、粘贴、复制编辑工具栏和停靠窗口应用程序外观状态栏图2.223功能分析2.3.1 Windows任务管理器功能流程图图 Windows资源管理器功能流程图显示数据控件消息鼠标事件消息资源数据资源文件用户操作鼠标显示操作效果资源管理器控制系统鼠标事件处理图 Windows任务管理器界面截图整体界面不同状态显示的截图2.3.4 Windows资源管理器界面截图1、 整体界面：2、功能界面展示：“文件”功能展示“编辑”功能展示“视图”功能展示“帮助”功能展示2.3.5 程序主要功能说明一、Windows任务管理器主要功能代码实现：获得进程代码实现

15、Public Sub ListProcess()On Error Resume Next Dim i As Long, j As Long, n As Long Dim proc As PROCESSENTRY32 Dim snap As Long Dim exename As String 应用程序名 Dim item As ListItem Dim lngHwndProcess As Long Dim lngModules(1 To 200) As Long Dim lngCBSize2 As Long Dim lngReturn As Long Dim strModuleName As

16、String Dim pmc As PROCESS_MEMORY_COUNTERS Dim WKSize As Long Dim strProcessName As String Dim strComment As String 装载进程注释的字符串 Dim ProClass As String 程序的类名 开始进程循环snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) proc.dwSize = Len(proc)theloop = ProcessFirst(snap, proc) i = 0 n = 0 While theloop 0 i =

17、i + 1 打开指定的进程序,并得到进程的句柄lngHwndProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, proc.th32ProcessID) If lngHwndProcess 0 Then 枚举系统中正在运行的进程模板lngReturn = EnumProcessModules(lngHwndProcess, lngModules(1), 200, lngCBSize2) If lngReturn 0 Then 返回特定数目空格的strModuleName = Space(MAX_PATH)

18、获取一个已装载模板的完整路径名称lngReturn = GetModuleFileNameExA(lngHwndProcess, lngModules(1), strModuleName, 500)strProcessName = Left(strModuleName, lngReturn)strProcessName = CheckPath(Trim$(strProcessName) If strProcessName Then 判断ITEM是否已经存在 j = HaveItem(proc.th32ProcessID) If j = 0 Then 如果没有该进程 获取短文件名exename

19、= Dir(strProcessName, vbNormal Or vbHidden Or vbReadOnly Or vbSystem) If exename = hh.exe Then MsgBox SetProClass(proc.th32ProcessID, IDLE_PRIORITY_CLASS) End If 添加进程item Set item = List1.ListItems.Add(, ID: & CStr(proc.th32ProcessID), exename) 进程IDitem.SubItems(1) = proc.th32ProcessID 内存使用 pmc.cb =

20、 LenB(pmc) 获得进程的内存信息,在这里就是计算该进程占用内存多少lret = GetProcessMemoryInfo(lngHwndProcess, pmc, pmc.cb) n = n + pmc.WorkingSetSize WKSize = pmc.WorkingSetSize / 1024item.SubItems(3) = WKSize & K 进程序IP号item.SubItems(2) = GetProClass(proc.th32ProcessID) 进程图标将获取的图标加到IMAGE控件中IM1.ListImages.Add , strProcessName, G

21、etIcon(strProcessName) item.SmallIcon = IM1.ListImages.item(strProcessName).Key Else 如果已经有该进程 pmc.cb = LenB(pmc) 获得进程的内存信息,在这里就是计算该进程占用内存多少lret = GetProcessMemoryInfo(lngHwndProcess, pmc, pmc.cb) n = n + pmc.WorkingSetSize WKSize = pmc.WorkingSetSize / 1024 计算占用内存 If CLng(List1.ListItems.item(j).Sub

22、Items(3) WKSize Then List1.ListItems.item(j).SubItems(3) = WKSize & K 获得进程的类名 ProClass = GetProClass(proc.th32ProcessID) If ProClass List1.ListItems.item(j).SubItems(5) Then List1.ListItems.item(j).SubItems(5) = ProClass End If End If End If End Iftheloop = ProcessNext(snap, proc) Wend CloseHandle s

23、nap 显示总进程数 Label3 If i ProCount Then Label3.Caption = 进程数： & i ProCount = i End If If n RamUse Then 这里的130是后来加上去的.是为了和系统自带的数值一样 Label5.Caption = Val(FormatLng(n) + 130 & MB RamUse = n For i = 950 To Val(FormatLng(n) + 400 Step -90 rampic.Line (0, i)-Step(1200, 20), &HFF00&, BF Next i End IfEnd Sub调用

24、系统的关于窗Private Sub about_Click()On Error Resume Next ShellAbout Me.hwnd, App.Title, 谭建&文程&张源, ByVal 0&End Sub退出本程序员Private Sub close_Click() tmrRefresh.Enabled = False Unload MeEnd SubPrivate Sub CloseSystem_Click() tmrRefresh.Enabled = False Unload MeEnd Sub应用程序切换程序Private Sub cmdSwitch_Click() Dim

25、hwnd As Long Dim X As Long Dim lngWW As Long If LstApp.ListIndex 0 Then Beep: Exit Subhwnd = LstApp.ItemData(LstApp.ListIndex) 取得窗口的结构信息lngWW = GetWindowLong(hwnd, GWL_STYLE) If lngWW And WS_MINIMIZE Then控制窗口的可见性 X = ShowWindow(hwnd, SW_RESTORE) End If 指定一个窗口新的位置 第2个参数:将窗口置于Z序列的顶部. X = SetWindowPos(

26、hwnd, HWND_TOP, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)End Sub 保持当前位置或保持当前大小或显示窗口弹出新建任务窗Private Sub Command1_Click()frmnew.Show vbModalEnd Sub结束应用程序还有就是在如果列表中没有活动程序,点击结束程序会退出本身Private Sub Command3_Click() On Error Resume Next If LstApp.ListCount = 0 Then 应用程序的类名,和程序的标题 Dim lpclassn

27、ame As String, lpcaption As String 程序的句柄号 Dim Handle As Long Dim Retval As Long 先是打开要关闭的程序,其它就是将该程序显示成当前程序 Shell LstApp.Text, 1lpclassname = LstApp.Textlpcaption = LstApp.Text 获得程序的句柄号 Handle = FindWindow(vbNullString, lpcaption) 用函数关闭应用程序 PostMessage Handle, WM_Close, 0&, 0& 所了和列表控件一至,在这里删除列表中的该进程名

28、 LstApp.RemoveItem LstApp.ListIndex LstApp.refresh 刷新 FindAllAppsEnd Sub结束指定进程功能代码实现Private Sub Command4_Click()On Error Resume Next Dim i As Long, hand As Long, id As Long If MsgBox(确定要结束进程 & List1.SelectedItem.Text & 吗？, vbExclamation + vbOKCancel) = vbCancel Then Exit Subid = CLng(List1.SelectedI

29、tem.SubItems(1) If id 0 Then EndPro id End If ListProcessEnd SubPrivate Sub Command5_Click() Dim AboutRet As Long AboutRet = ExitWindowsEx(EWX_LOGOFF, 0)End Sub注销用户功能实现Private Sub Command6_Click() Dim AboutRet As Long AboutRet = ExitWindowsEx(EWX_LOGOFF, 0)End Sub切换至功能实现Private Sub cutoverto_Click()

30、 cmdSwitch_Click Me.WindowState = 1End Sub 改变进程显示方式Private Sub Detailed_Click() List1.View = lvwReportEnd Sub结束应用程序功能实现Private Sub endprograme_Click() Command3_ClickEnd Sub 关机功能实现Private Sub Exit_Click()frmclose.Show vbModalEnd SubCPU效率监视CpuPicture(0).ScaleMode = vbPixelsCpuPicture(1).ScaleMode = vb

31、Pixels Set QueryObject = New CCpuwatch对象初始化 QueryObject.Initialize打开时间控件 tmrRefresh.Enabled = True调用刷新过程 tmrRefresh_Timer*获得所有系统进程 ListProcess 窗体总在前 SetTop Me, front.Checked*获得系统的当前用户cnt& = 199s$ = String$(200, 0)dl& = GetUserName(s$, cnt) Set item = ListView3.ListItems.Add(, , s$, , 2) item.SubItem

32、s(2) = 正在运行.item.SubItems(1) = WorkstationID 设置系统托盘 If WindowState = vbMinimized Then LastState = vbNormal Else LastState = WindowState End If AddToTray Me, TrayEnd SubPrivate Sub Form_Resize() Select Case WindowState Case vbMinimized Me.Visible = False Case vbMaximized Me.Visible = True End Select

33、If WindowState vbMinimized Then LastState = WindowState Me.Visible = True End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) RemoveFromTray 关闭托盘 tmrRefresh.Enabled = False Unload MeEnd SubPrivate Sub front_Click() front.Checked = Not front.Checked SetTop Me, front.CheckedEnd SubPrivate Sub jsjc

34、_Click() Command4_ClickEnd SubPrivate Sub List1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)On Error Resume Next With List1 设置 Sorted 为 True 以将列表排序。 If (ColumnHeader.Index - 1) = .SortKey Then .SortOrder = (.SortOrder + 1) Mod 2 .Sorted = True Else .Sorted = False .SortOrder = 0 .Sort

35、Key = ColumnHeader.Index - 1 .Sorted = True End If End WithEnd Sub右击菜单;,并初使化进程的优先级别Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)On Error Resume Next Dim j As Long, i As Long If Button = 2 Then If List1.HitTest(X, y) Is Nothing Then Exit Sub j = List1.HitT

36、est(X, y).IndexList1.ListItems(j).Selected = True For i = 0 To 5mnuSetProClassSub(i).Checked = False Next Select Case List1.SelectedItem.SubItems(2) Case 实时: mnuSetProClassSub(0).Checked = True Case 高: mnuSetProClassSub(1).Checked = True Case 较高: mnuSetProClassSub(2).Checked = True Case 标准: mnuSetPr

37、oClassSub(3).Checked = True Case 较低: mnuSetProClassSub(4).Checked = True Case 低: mnuSetProClassSub(5).Checked = True End Select PopupMenu you End IfEnd SubPrivate Sub log_Click()frmclose.Show vbModalEnd Sub双击切换到另一个程序Sub lstApp_DblClick() cmdSwitch.Value = TrueEnd Sub任务窗Function TaskWindow(hwCurr As

38、Long) As Long Dim lngStyle As Long 调用函数得到指定窗口的信息第一个参数是指定窗口的句柄,第二个是窗口的样式lngStyle = GetWindowLong(hwCurr, GWL_STYLE) If (lngStyle And IsTask) = IsTask Then TaskWindow = TrueEnd Function设置进程优先级Public Function SetProClass(ByVal PID As Long, ByVal ClassID As Long)On Error Resume Next Dim hwd As Long 在这里得

39、到一个句柄hwd = OpenProcess(PROCESS_SET_INFORMATION, 0, PID) 调用这个函数设置进程的优先级 SetProClass = SetPriorityClass(hwd, ClassID)End Function右键菜单Private Sub LstApp_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single) If Button = 2 Then PopupMenu Application End IfEnd Sub在这里设置进程优先级Private Sub m

40、nuSetProClassSub_Click(Index As Integer)On Error Resume Next Dim PID As Long, rtn As Long PID = CLng(List1.SelectedItem.SubItems(1) 得到进程PID If mnuSetProClassSub(Index).Checked = True Then Exit Sub Select Case Index Case 1: rtn = SetProClass(PID, HIGH_PRIORITY_CLASS) 高 Case 2: rtn = SetProClass(PID,

41、32768) 较高 Case 3: rtn = SetProClass(PID, NORMAL_PRIORITY_CLASS) 标准 Case 4: rtn = SetProClass(PID, 16384) 较低 Case 5: rtn = SetProClass(PID, IDLE_PRIORITY_CLASS) 低 End Select If rtn = 0 Then MsgBox 无法为进程 & List1.SelectedItem.Text & 设置优先级。, vbCriticalEnd Sub弹出新建任务窗Private Sub newfile_Click()frmnew.Show

42、 vbModalEnd SubPrivate Sub plaseago_Click() cmdSwitch_ClickEnd SubPrivate Sub refresh_Click()frmclose.Show vbModalEnd Sub刷新Private Sub refresh1_Click() FindAllAppsEnd SubPrivate Sub showago_Click() showago.Checked = Not showago.Checked SetTop Me, showago.CheckedEnd SubPrivate Sub small_Click() List1

43、.View = Index + 2 List1.Sorted = TrueEnd SubPrivate Sub SSTab1_DblClick()End SubPrivate Sub Timer3_Timer() Dim X As Long Call GlobalMemoryStatus(minfo) 总的内存量 X = -minfo.dwTotalPhys / 1024Label2(0).Caption = Str$(Int(X) 可用的内存量 X = minfo.dwAvailPhys / 1024Label2(1).Caption = Str$(Int(X) 系统缓存Label2(2).

44、Caption = -(Val(Label2(0) - Val(Label2(1) - 500) 虚拟内存总数 X = minfo.dwTotalVirtual / 1024Label7(0).Caption = Str$(Int(X / 1024) & M 可用虚拟内存 X = minfo.dwAvailVirtual / 1024Label7(1).Caption = Str$(Int(X / 1024) & MEnd SubPrivate Sub Timer4_Timer() Line14.X2 = Line14.X2 - 20 Line14.X1 = Line14.X1 - 20 If

45、 Line14.X1 = 0 Then Timer4.Enabled = False Else Timer4.Enabled = True End IfEnd SubPrivate Sub Timer6_Timer() FindAllAppsEnd SubCPU效率监视Private Sub tmrRefresh_Timer() Dim Ret As Integer Dim cnt As Integer Dim i As Integer 返回CPU状态 Ret = QueryObject.Querycnt = Int(Ret / 10 + 1) CpuPicture(0).Cls 清除窗口中的

46、内容 If Ret -1 Then For i = 0 To cnt - 1 用PIC控件的LINE方法在PIC上画图,用以显示CPU的占用率CpuPicture(0).Line (2, 70 - (5 + i * 6)-(79, 70 - (5 + i * 6 + 2), &HFF00&, BF Next i ShiftPointsGraphPoints(UBound(GraphPoints) = RetCpuPicture(1).Cls For cnt = LBound(GraphPoints) To UBound(GraphPoints) - 1CpuPicture(1).Line (c

47、nt, 80 - GraphPoints(cnt)-(cnt + 1, 80 - GraphPoints(cnt + 1), &HFF00& Next cnt CpuLabel.Caption = CStr(Ret) + % Label4.Caption = CPU 使用: &CStr(Ret) + % 托盘显示CPU使用率 SetTrayTip CPU 使用: &CStr(Ret) + %End IfEnd SubCPU效率监视Sub ShiftPoints() Dim cnt As Integer For cnt = LBound(GraphPoints) To UBound(GraphPoints) - 1GraphPoints(cnt) = GraphPoints(cnt + 1) Next cntEnd Sub判断item是否存在Public Function HaveItem(ByVal itemID As Long) As LongOn Error GoTo zbb HaveItem = List1.ListItems(ID: & CStr(itemID).IndexExit Functionzbb: HaveItem = 0End Function结束一个进程