09-08-13, 08:32 PM
(آخر تعديل لهذه المشاركة : 09-08-13, 08:48 PM {2} بواسطة moh_saed35.)
وهاذا المثال على رقم القرص الصلب
ويعمل على اداتين التكست
وان اردت تغييرهما الى متغيرات إمسح الكود الذي داخل حدث الفروم وضع هاذا
#############################################
Private Sub Form_Load()
Dim x As String
Dim xx As String
x = "5JVY0H98"
xx = New HDSLN
If xx = x Then
Else
MsgBox "انت غير مخول بستخدام هاذا البرنامج الرجاء مراسلة المصنع", , "نإسف"
End
End If
End Sub
تفضل
ويعمل على اداتين التكست
وان اردت تغييرهما الى متغيرات إمسح الكود الذي داخل حدث الفروم وضع هاذا
#############################################
Private Sub Form_Load()
Dim x As String
Dim xx As String
x = "5JVY0H98"
xx = New HDSLN
If xx = x Then
Else
MsgBox "انت غير مخول بستخدام هاذا البرنامج الرجاء مراسلة المصنع", , "نإسف"
End
End If
End Sub
تفضل
لا تأسفن على غدر الزمان لطالما...رقصت على جثث الأسود كلاب
لا تحسبن برقصها تعلو على أسيادها...تبقى الأسود أسودا والكلاب كلاب
تبقى الأسود مخيفة في أسرها...حتى وإن نبحت عليها كلاب
تموت الأسد في الغابات جوعا... ولحم الضأن تأكله الكــلاب
وعبد قد ينام على حريـــر...وذو نسب مفارشه التــراب