Dj Demir Posted May 22, 2010 Share Posted May 22, 2010 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 Link to comment Share on other sites More sharing options...
Dj Demir Posted May 22, 2010 Author Share Posted May 22, 2010 ? Link to comment Share on other sites More sharing options...
djonur007 Posted May 22, 2010 Share Posted May 22, 2010 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. Link to comment Share on other sites More sharing options...
Dj Demir Posted May 22, 2010 Author Share Posted May 22, 2010 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 Link to comment Share on other sites More sharing options...
_blackmamba_ Posted May 22, 2010 Share Posted May 22, 2010 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 Link to comment Share on other sites More sharing options...
Dj Demir Posted May 22, 2010 Author Share Posted May 22, 2010 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 Link to comment Share on other sites More sharing options...
laher Posted May 22, 2010 Share Posted May 22, 2010 bir şeyler öğrenmek istiyorsan;önce ustaya saygı. Link to comment Share on other sites More sharing options...
Dj Demir Posted May 22, 2010 Author Share Posted May 22, 2010 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 Link to comment Share on other sites More sharing options...
blue_life Posted May 22, 2010 Share Posted May 22, 2010 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] Link to comment Share on other sites More sharing options...
Dj Demir Posted May 23, 2010 Author Share Posted May 23, 2010 çok sağolun hocam Allah razi olsun Link to comment Share on other sites More sharing options...
Dj Demir Posted May 23, 2010 Author Share Posted May 23, 2010 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 Link to comment Share on other sites More sharing options...
blue_life Posted May 23, 2010 Share Posted May 23, 2010 @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] Link to comment Share on other sites More sharing options...
Dj Demir Posted May 23, 2010 Author Share Posted May 23, 2010 çok çok teşekkür ederim hocam Ellerine sağlık Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.