Sistem Özellikleri

[Dj Demir]

selam arkadaşlar öncelikle autoTI'i yeterince bilmediğimi söylemeliyim

ufak bir çalışma yaptım ama onun bir köşesine sistem özelliklerini gösteren bir yer yapmak istiyorum

denedim bir şeyler ama istediğim olmadı

istediğim hepimizin bildiği CCLeaner'dan bir görüntü

şöyle bir şey

http://www.hizliupload.com/viewer.php?id=386575Info.JPG

[Dj Demir]

?

[djonur007]

ilk önce flood yapma sabırlı ol.

autoit'in help dosyasını aç. "Macro Reference" diye bir başlık var onun altındaki "System info macros"'a tıkla ne aradığını bulursun.

[Dj Demir]

lütfen emir cümleleri kurma

ne kadar haklı konuşuyor olsan da

cocuk azarliyor gibi konusulmasını sevmem .

ilgin iiçin çok teşekkürler ama buna bakmıştım yapamamıştım

[_blackmamba_]

lütfen emir cümleleri kurma

ne kadar haklı konuşuyor olsan da

cocuk azarliyor gibi konusulmasını sevmem .

ilgin iiçin çok teşekkürler

Burada djonur007 haklı senin bu konuyu öğrenmen için sabırlı olman lazım hem emir cümlesi göremiyorum ben

[Dj Demir]

bende haklı diyorum haksız demedim ki

sadece hosuma gitmiyor tavırlı konusmalar o kadar

flood yapma sabırlı ol.

demek emir cumlesidir .

konuyu uzatmayalım arkadaslar

bir yerde takıldım soruyorum sadece

[laher]

bir şeyler öğrenmek istiyorsan;önce ustaya saygı.

[Dj Demir]

alsana biri daha

arkadşlar okuma yazmanız yok mu

insan gibi

Lüften böyle konuşma dedim

bu kotu bir cumle mi

o kadar ustasaniz gosterin ustaliginizi yapin haydi

cirak ne kadar saygisiz olsa usta ona ogretir .

ki saygisizlik da yapmam .

once okuyun sonra cevap yazın

konu nereden nereye geldi ya

[blue_life]

Relax...

Toplam ram ve işlemci için basit bilgilendirme... Sistem tipi için macrolara bakınız (@OSVersion,@OSServicePack) .....

#include <Array.au3>


Global $mem = MemGetStats()

Global $TotalRam = Round($mem[1] / 1024 )


MsgBox(0, "Toplam Ram", $TotalRam)


Global $CPUs = _ComputerGetCPUs()

_ArrayDisplay($CPUs,"Işlemci")


Func _ComputerGetCPUs()

    Local $HKLMCentralProc = "HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor"

    Local $CentralProcKey

    Dim $aCPUInfo[1][6], $i = 1


    While 1

        $CentralProcKey = RegEnumKey($HKLMCentralProc, $i)

        If @error <> 0 Then ExitLoop

        ReDim $aCPUInfo[UBound($aCPUInfo) + 1][6]

        $aCPUInfo[$i][1] = RegRead($HKLMCentralProc & "\" & $CentralProcKey, "~MHz") / 1000

        $aCPUInfo[$i][2] = StringStripWS(RegRead($HKLMCentralProc & "\" & $CentralProcKey, "ProcessorNameString"), 1)

        $aCPUInfo[$i][3] = RegRead($HKLMCentralProc & "\" & $CentralProcKey, "Identifier")

        $aCPUInfo[$i][4] = RegRead($HKLMCentralProc & "\" & $CentralProcKey, "VendorIdentifier")

;~         $aCPUInfo[$i][5] = @ProcessorArch

        $i += 1

    WEnd

    $aCPUInfo[0][0] = UBound($aCPUInfo, 1) - 1

    Return $aCPUInfo

EndFunc[/CODE]

[Dj Demir]

çok sağolun hocam

Allah razi olsun

[Dj Demir]

ama hocam bunu düzenleyemedim

remover uygulamasının bir köşesi için istemiştim

ama bir türlü düzeltemedim

ekranda çıkan GUI'ye benzer pencereden kurtulamadım

[blue_life]

@Dj Demir

; _BL_SYS_INFO() satırını bir labele direkt yazabilirsin...

Msgbox(0, "Sistem Bilgisi",_BL_SYS_INFO())


Func _BL_SYS_INFO()

    Local $Return_Info,$Ram = MemGetStats()

    Local $GET_OS = get_os_info()

    If not @error Then

        $Return_Info = $GET_OS[1] & " " & $GET_OS[7] & @crlf


    EndIf


    $Return_Info &= RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0","ProcessorNameString")

    $Ram = Round($Ram[1] / 1024 ) & "mb RAM"

    $Return_Info &= ", " & $Ram

    $Return_Info &= ", " & RegRead("HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0","Identifier")

    Return $Return_Info

EndFunc


Func get_os_info()

    Local $ar[8]

    Local $colItems = call_wmi("Win32_OperatingSystem")


    If IsObj($colItems) Then

        For $objItem In $colItems

            $ar[1] = $objItem.Caption

            $ar[2] = $objItem.Version

            $ar[3] = $objItem.Manufacturer

            $ar[4] = $objItem.SerialNumber

            $ar[5] = date_time_to_striing($objItem.InstallDate)

            $ar[6] = date_time_to_striing($objItem.LastBootUpTime)

            $ar[7] = StringReplace(@OSServicePack,"Service Pack","SP")

            $ar[7] = StringStripWS($ar[7],8)

        Next

    Else

        Return SetError(1,0,-1)

    EndIf

    Return $ar

Endfunc


Func call_wmi($class);Win32_USBController

    Local $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")

    Local $colItems = $objWMIService.ExecQuery("SELECT * FROM " & $class, "WQL",0x10+0x20)

    Return $colItems

Endfunc


Func date_time_to_striing($dtm_date)

    Return (StringMid($dtm_date, 5, 2) & "/" & StringMid($dtm_date, 7, 2) & "/" & StringLeft($dtm_date, 4) & " " & StringMid($dtm_date, 9, 2) & ":" & StringMid($dtm_date, 11, 2) & ":" & StringMid($dtm_date, 13, 2))

EndFunc[/CODE]

[Dj Demir]

çok çok teşekkür ederim hocam

Ellerine sağlık