02-10-12, 04:40 PM
كاتب الموضوع : 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]