操作系统课程设计---windows系统资源管理器与任务管理器

操作系统课程设计---windows系统资源管理器与任务管理器内容摘要：

ProClass = GetProClass() If ProClass (j).SubItems(5) Then (j).SubItems(5) = ProClass End If End If End If End If theloop = ProcessNext(snap, proc) Wend XX 大学计算机学院操作系统课程设计报告 13 CloseHandle snap 39。 显示总进程数 Label3 If i ProCount Then = 进程数： amp。 i ProCount = i End If If n RamUse Then 39。 这里的 130是后来加上去的 .是为了和系统自带的数值一样 = Val(FormatLng(n)) + 130 amp。 MB RamUse = n For i = 950 To Val(FormatLng(n)) + 400 Step 90 (0, i)Step(1200, 20), amp。 HFF00amp。 , BF Next i End If End Sub 39。 调用系统的 关于 窗 Private Sub about_Click() On Error Resume Next ShellAbout , , 谭建 amp。 文程 amp。 张源 , ByVal 0amp。 End Sub 39。 退出本程序员 Private Sub close_Click() = False Unload Me End Sub Private Sub CloseSystem_Click() = False Unload Me End Sub 39。 应用程序切换程序 Private Sub cmdSwitch_Click() Dim hwnd As Long Dim X As Long Dim lngWW As Long If 0 Then Beep: Exit Sub hwnd = () 39。 取得窗口的结构信息 lngWW = GetWindowLong(hwnd, GWL_STYLE) If lngWW And WS_MINIMIZE Then 39。 控制窗口的可见性 X = ShowWindow(hwnd, SW_RESTORE) XX 大学计算机学院操作系统课程设计报告 14 End If 39。 指定一个窗口新的位置 39。 第 2 个参数 :将窗口置于 Z 序列的顶部 . X = SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW) End Sub 39。 保持当前位置或保持当前大小或显示窗口 39。 弹出 新建任务 窗 Private Sub Command1_Click() vbModal End Sub 39。 结束应用程序 39。 还有就是在如果列表中没有活动程序 ,点击 结束程序 会退出本身 Private Sub Command3_Click() On Error Resume Next 39。 If = 0 Then 39。 应用程序的类名 ,和程 序的标题 Dim lpclassname As String, lpcaption As String 39。 程序的句柄号 Dim Handle As Long Dim Retval As Long 39。 先是打开要关闭的程序 ,其它就是将该程序显示成当前程序 Shell , 1 lpclassname = lpcaption = 39。 获得程序的句柄号 Handle = FindWindow(vbNullString, lpcaption) 39。 用函数关闭应用程序 PostMessage Handle, WM_Close, 0amp。 , 0amp。 39。 所了和列表控件一至 ,在这里删除列表中的该进程名 39。 刷新 FindAllApps End Sub 39。 结束指定进程 功能代码实现 Private Sub Command4_Click() On Error Resume Next Dim i As Long, hand As Long, id As Long If MsgBox(确定要结束进程 amp。 amp。 吗。 , vbExclamation + vbOKCancel) = vbCancel Then Exit Sub id = CLng((1)) If id 0 Then XX 大学计算机学院操作系统课程设计报告 15 EndPro id End If ListProcess End Sub Private Sub Command5_Click() Dim AboutRet As Long AboutRet = ExitWindowsEx(EWX_LOGOFF, 0) End Sub 39。 注销用户 功能实现 Private Sub Command6_Click() Dim AboutRet As Long AboutRet = ExitWindowsEx(EWX_LOGOFF, 0) End Sub 39。 切换至 功能实现 Private Sub cutoverto_Click() cmdSwitch_Click = 1 End Sub 39。 改变进程显示方式 Private Sub Detailed_Click() = lvwReport End Sub 39。 结束应用程序 功能实现 Private Sub endprograme_Click() Command3_Click End Sub 39。 关机 功能实现 Private Sub Exit_Click() vbModal End Sub 39。 CPU 效率监视 CpuPicture(0).ScaleMode = vbPixels CpuPicture(1).ScaleMode = vbPixels Set QueryObject = New CCpuwatch 39。 对象初始化 39。 打开时间控件 = True 39。 调用刷新过程 tmrRefresh_Timer XX 大学计算机学院操作系统课程设计报告 16 39。 ***************************************** 39。 获得所有系统进程 ListProcess 39。 窗体总在前 SetTop Me, 39。 *************************************************** 39。 获得系统的当前用户 tamp。 = 199 s$ = String$(200, 0) dlamp。 = GetUserName(s$, t) Set item = (, , s$, , 2) (2) = 正在运行 ... (1) = WorkstationID 39。 设置系统托盘 If WindowState = vbMinimized Then LastState = vbNormal Else LastState = WindowState End If AddToTray Me, Tray End Sub Private Sub Form_Resize() Select Case WindowState Case vbMinimized = False Case vbMaximized = True End Select If WindowState vbMinimized Then LastState = WindowState = True End If End Sub Private Sub Form_Unload(Cancel As Integer) RemoveFromTray 39。 关闭托盘 = False Unload Me End Sub Private Sub front_Click() = Not SetTop Me, End Sub XX 大学计算机学院操作系统课程设计报告 17 Private Sub jsjc_Click() Command4_Click End Sub Private Sub List1_ColumnClick(ByVal ColumnHeader As ) On Error Resume Next With List1 39。 设置 Sorted 为 True 以将列表排序。 If ( 1) = .SortKey Then .SortOrder = (.SortOrder + 1) Mod 2 .Sorted = True Else .Sorted = False .SortOrder = 0 .SortKey = 1 .Sorted = True End If End With End Sub 39。 右击菜单。 ,并初使化进程的优先级别 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 (X, y) Is Nothing Then Exit Sub j = (X, y).Index (j).Selected = True For i = 0 To 5 mnuSetProClassSub(i).Checked = False Next Select Case (2) Case 实时 : mnuSetProClassSub(0).Checked = True Case 高 : mnuSetProClassSub(1).Checked = True Case 较高 : mnuSetProClassSub(2).Checked = True Case 标准 : mnuSetProClassSub(3).Checked = True Case 较低 : mnuSetProClassSub(4).Checked = True Case 低 : mnuSetProClassSub(5).Checked = True End Select PopupMenu you End If End Sub Private Sub log_Click() vbModal XX 大学计算机学院操作系统课程设计报告 18 End Sub 39。 双击切换到另一个程序 Sub lstApp_DblClick() = True End Sub 39。 任务窗 Function TaskWindow(hwCurr As Long) As Long Dim lngStyle As Long 39。 调用函数得到指定窗口的信息 39。 第一个参数是指定窗口的句柄 ,第二个是窗口的样式 lngStyle = GetWindowLong(hwCurr, GWL_STYLE) If (lngStyle And IsTask) = IsTask Then TaskWindow = True End Function 39。 设置进程优先级 Public Function SetProClass(ByVal PID As Lo。