(02-10-16, 06:32 PM)أبو عمر كتب : اعجبني هذا التعليق على مثل هذا الطلب
The Microsoft function for finding CPU temperature does not work. Don't use it. If you search the Microsoft forums, you will find the Microsoft people blaming the motherboard manufacturers for not implementing their standards.
I don't think this excuses them for a bad API that gives us garbage data with no warning that the data is garbage.
https://social.msdn.microsoft.com/Forums...vblanguage
وانا اتفق معه
هلا اخوي اولا شكرا للرد
ثانيا اخوي انا اريد اسوي برنامج بلفيجوال بيسك بيه مجموعه من اوامر لتحسين النظام كا تنضيف ملفات ال Temp مثلا و كا ميزه حبيت اضيف للبرنامج انو يعرض للمستخدم حرارت المعالج انا مو ناوي اسوي برنامج يضر هوهب رنامج فقط لعرض الدرجه لا اكثر ولا اقل و شكرا.
(02-10-16, 01:56 PM)ممدوح كتب : هذا الكود ولكن تحتاج صلاحية لتشغيله بالاضافة لإضاغة المرجع System.Management
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Dim searcher As New Management.ManagementObjectSearcher _
("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each queryObj As Management.ManagementObject In searcher.Get()
Dim kelvin As Double = CDbl(queryObj("CurrentTemperature"))
Dim celsius As Double = kelvin / 10 - 273.15
Dim fahrenheit As Double = (kelvin / 10 - 273.15) * 9 / 5 + 32
MessageBox.Show(kelvin & " K")
MessageBox.Show(celsius & " °C")
MessageBox.Show(fahrenheit & " °F")
Next
Catch ex As Management.ManagementException
MessageBox.Show(ex.Message)
End Try
End Sub
شكرا الردك يا غالي لاكن لو سمحت حسب مقريت الكود انو حيعرضه ب مسج بوكس انا اريده يعرض ب ال الليبل او تيكس بوكس مثلا