Görev Yöneticisindeki Bir Programın Bellek Kullanımını Textbox Yazdırma

Görev Yöneticisindeki Bir Programın Bellek Kullanımını Textbox Yazdırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Görev Yöneticisindeki Bir Programın Bellek Kullanımını Textbox Yazdırma (/konu-gorev-yoneticisindeki-bir-programin-bellek-kullanimini-textbox-yazdirma.html)

Görev Yöneticisindeki Bir Programın Bellek Kullanımını Textbox Yazdırma - deeptech - 11/01/2020

Vb.net yazılımı üzerinde çalışıyorum. Örneğin opera.exe adlı bir programın Bellek kullanımını görmek istiyorum. Resimde kırmızı alanlarla çizerek belirttim. Bu programın bellek kullanımı 21,180 ise bunu textbox kutusuna aktarmak istiyorum. Textbox kutusunda 21180 yazmasını istiyorum.

Bu mümkün mü? Bir programın bellek kullanımını textbox kutusuna yazdırabilir miyim? Lütfen yardım edin. Teşekkürler.
[Resim: 7B0B1N.png]

Cvp: Görev Yöneticisindeki Bir Programın Bellek Kullanımını Textbox Yazdırma - accessman - 11/01/2020

bunu deneyebilirsiniz

Dim created As Boolean
Dim stopTimer As Boolean
Sub Start_Click()
    Dim row As Long, col As Long, i As Long
    Set cores = GetCores
    Optimize (False)

    For Each core In cores
        row = WorksheetFunction.RoundDown(i / 4, 0)
        col = (i - 4 * row) Mod 4
        If Not (created) Then
            If Not (row = 0 And col = 0) Then
                Range("CORE").Copy
                Range("CORE").Offset(2 * row, 2 * col).PasteSpecial
                Range("CORE").Offset(2 * row, 2 * col).Cells(1, 1).Value = "Core " & (i + 1)
            End If
        End If
        Range("CORE").Offset(2 * row, 2 * col).Cells(2, 1).Value = core.PercentProcessorTime & "%"
        i = i + 1
    Next
    Range("CPU").Value = Range("CORE").Offset(2 * row, 2 * col).Cells(2, 1).Value
    Range("CORE").Offset(2 * row, 2 * col).Cells(2, 1).Value = ""
    If Not (created) Then Range("CORE").Offset(2 * row, 2 * col).Delete xlShiftUp

    created = True
    Optimize (True)
    DoEvents
    If Not (stopTimer) Then Application.OnTime DateAdd("s", 2, DateTime.Now), "Start_Click"
    stopTimer = False
End Sub
Sub EndTimer()
    stopTimer = True
End Sub
Function GetCores()
    Dim objWMIService, cores, Proc, strQuery
    strQuery = "select * from Win32_PerfFormattedData_PerfOS_Processor"
    Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2")
    Set cores = objWMIService.ExecQuery(strQuery, , 48)
    Set GetCores = cores
End Function
Sub Optimize(opt As Boolean)
    Application.ScreenUpdating = opt
    Application.Calculation = IIf(opt, xlCalculationAutomatic, xlCalculationManual)
End Sub

Sub test()
Range("D5").Value = GetCores

End Sub

Cvp: Görev Yöneticisindeki Bir Programın Bellek Kullanımını Textbox Yazdırma - accessman - 11/01/2020

birde böyle bir kod var

Function ProcessorID() As String
On Error GoTo Error_Handler
    ' Using late binding to avoid a Reference problem
    Dim strComputer      As String
    Dim objWMIService    As Object
    Dim colItems         As Object
    Dim objItem          As Object

    strComputer = "." 'Get info for the current computer

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", , 48)

    For Each objItem In colItems
        ProcessorID = Nz(objItem.ProcessorID, 0)
    Next

Error_Handler_Exit:
    On Error Resume Next
    Set objItem = Nothing
    Set colItems = Nothing
    Set objWMIService = Nothing
    Exit Function

Error_Handler:
    MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf & "Error Number: " & _
    Err.Number & vbCrLf & "Error Source: ProcessorID" & vbCrLf & "Error Description: " & _
    Err.Description, vbCritical, "An Error has Occured!"
    Resume Error_Handler_Exit
End Function

Cvp: Görev Yöneticisindeki Bir Programın Bellek Kullanımını Textbox Yazdırma - dreamfanc - 11/01/2020

(11/01/2020, 09:04)accessman yazdı: birde böyle bir kod var

Function ProcessorID() As String
On Error GoTo Error_Handler
    ' Using late binding to avoid a Reference problem
    Dim strComputer      As String
    Dim objWMIService    As Object
    Dim colItems         As Object
    Dim objItem          As Object

    strComputer = "." 'Get info for the current computer

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", , 48)

    For Each objItem In colItems
        ProcessorID = Nz(objItem.ProcessorID, 0)
    Next

Error_Handler_Exit:
    On Error Resume Next
    Set objItem = Nothing
    Set colItems = Nothing
    Set objWMIService = Nothing
    Exit Function
Error_Handler:
    MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf & "Error Number: " & _
    Err.Number & vbCrLf & "Error Source: ProcessorID" & vbCrLf & "Error Description: " & _
    Err.Description, vbCritical, "An Error has Occured!"
    Resume Error_Handler_Exit
End Function

Üstad kodlar hata veriyor ikiside, acaba imports etmedim diyemi veriyor? Kütüphaneleri neler bunların?

[Resim: 7B0W2r.png]

Cvp: Görev Yöneticisindeki Bir Programın Bellek Kullanımını Textbox Yazdırma - berduş - 11/01/2020

dilerim aşağıdaki bağlantı işinize yarar.
http://www.vb-helper.com/howto_net_enumerate_processes.html
Not: .Netle ilgili herhangi bir bilgim yada çalışmam yok o nedenle en fazla bu kadarını yapabilirim