+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : الدالة Environ العظيمه جميع بيانات الحاسب فى يدك بسطر واحد من الكود (/showthread.php?tid=4870)
الدالة Environ العظيمه جميع بيانات الحاسب فى يدك بسطر واحد من الكود - RaggiTech - 02-10-12
كاتب الموضوع : egyption-coder
انا اعلم انها دالة قديمه و لكنها قيمة جدافبأمكانك ان تحصل على جميع بيانات الحاسب الذى يستخدم برنامجك بدون الحاجة الى الـ api
اعنى بيانات كنوع المعالج واسم النظام ومنصته و الى 32 نوع من البيانات
اسم الدالة environ
النوع دالة نظام
اما عن الكود
كود :
environ(رقم)و كل رقم يعطى بيان مختلف
و يمكنك الحصول على جميع بيانات الحاسب بالكود الأتى
اولا اضف ليست بوكس 1
و زر
و فى الكود الخاص بالزر اجعله كالأتى
كود :
[COLOR=navy]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim H As Byte
For H = 1 To 32
ListBox1.Items.Add(Environ(H))
Next
End Sub[/COLOR]