[TuT] GPU/CPU/General Info/Clock

[ЯevoX]

Clock

Zacznijmy od najprostszych dwóch rzeczy : Clock + My.

 

Wiele osób nie wie jak zdefiniować zegar idący zgodnie z zegarem komputer,a chyba nie przewinęła się ta kwestia w tutorialach na forum.

 

Sprawa jest banalnie prosta.

My.Computer.Clock.LocalTime

Istotne aby zdefiniować to w timerze (Timer1_Tick) co da nam pełną zgodność zegarów

 

 

My

 

Dalej weźmy instancję My.

 

Żeby uzyskać z niej (General info,capslock,numlock,sieć,ustawienia,). Po wpisaniu My.Computer. pojawia się sporo opcji

 

My.Computer.Name da nam nazwę komputera. My.Computer.Filesystem. da nam dostęp do niektórych informacji o systemie,w tym jaki OS jest zainstalowany

 

My.User da informację o użytkowniku(np. Nazwę aktualnego konta)

 

Dużą część informacji o naszej aplikacji uzyskamy dzięki My.Forms,która odwołuje się do Twojej aktualnie tworzonej apki !(nie systemowej)

 

My.Computer.Keyboard. i dalej da nam informację np. o tym czy capslock jest aktualnie włączony (można z timer1_tick też zrobić)

 

I wiele innych informacji. Pamiętajmy o generowaniu różnych odpowiedzi przez instację. My.Computer.Name daje nam wartość aktualnie stałą,a już My.Computer.Keyboard.Capslock

generuje wartość Boolean (Prawda i Fałsz).My.Computer.Clock generuje wartość godziny.

 

GPU INFO

Zacznijmy więc od wpisania Imports System.Management oraz dodania referencji system.management(project -> add reference)

 

Dzięki temu nasz program będzie mógł wyszukać informacje.

 

To umieścić najlepiej w Form_Load (NIGDY FOR EACH W TIMERZE)

Imports System.Management
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim objQuerry As New ObjectQuery("SELECT * FROM Win32_VideoController") 
        Dim objSzukacz As New ManagementObjectSearcher(objQuerry)
 
        For Each memobj As ManagementObject In objSzukacz.Get
            TextBoxX.Text = memobj("VideoProcessor")     ' Nazwa karty graficznej
            TextBoxXX.text = Convert.ToUInt64(memobj("MaxRefreshRate")).ToString         'Maxrefreshrate ;d
            TextBoxXXX.text = Conver.ToUInt64((memobj("AdapterRam") /1024 ) /1024).ToString()     ' Adapter Ram. Istotną sprawą jest /1024  /1024 który poda nam ram w gb
            TextBoxXXXX.text = memobj("DeviceID")     'ID
            Textbox1.text = memobj("DriverVersion")       ' Versja sterów
            Textbox2.text = memobj("Description")           '  Opis 
        Next






                                                                ---------- cpu ----------------
Sytuacja analogiczna jak w poprzedni wypadku. Zmieniamy tylko VideoController na Processor

    [code]()
    Dim objQuerry As New ObjectQuery("SELECT * FROM Win32_Procesor")
    Dim objSzukacz As New ManagementObjectSearcher(objQuerry)

    For Each memobj As ManagementObject In objSzukacz.Get
        TextBoxXX.text = Convert.ToUInt64(memobj("CurrentClockSpeed")).ToString()
        TextBoxXX.text = Convert.ToUInt64(memobj("MaxClockSpeed")).ToString()
        Textbox2.text = memobj("Manufacturer").ToString()
        Textbox3.text = memobj("Name")
        Textbox4.text = memobj("Description").ToString()

    Next
[/code]