[RaggiTech]

كاتب الموضوع : egyption-coder

انا اعلم انها دالة قديمه و لكنها قيمة جدا

فبأمكانك ان تحصل على جميع بيانات الحاسب الذى يستخدم برنامجك بدون الحاجة الى الـ api

اعنى بيانات كنوع المعالج واسم النظام ومنصته و الى 32 نوع من البيانات

اسم الدالة environ

النوع دالة نظام

اما عن الكود

كود :

environ(رقم)

الرقم من 1 الى 32

و كل رقم يعطى بيان مختلف

و يمكنك الحصول على جميع بيانات الحاسب بالكود الأتى

اولا اضف ليست بوكس 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]