أستخدام سطر الأوامر

لغة البرمجة المستخدمة للتوضيح وفى إعداد المثال التالى (Microsoft Visual Basic 6.0):

CLA.zip

فى هذا الموضوع سيتم شرح وتوضيح طريقة أستخدام سطر الأوامر (Command Line Arguments) لتمرير معلومات للبرنامج:

وذلك من خلال القيمة المخزنة فى المتغير Command مثال:

Private Sub Form_Load()
    Dim Args() As String
    Dim Argument As String
    Dim n As Integer

    Dim arg_action As String
    Dim arg_user As String
    Dim arg_pass As String

    ' Split CLA
    Args = Split(Command, " ")
    ' Check every Args
    For n = LBound(Args) To UBound(Args)
        Argument = Trim(LCase(Args(n)))
        If Left(Argument, 6) = "/user:" Then
            arg_user = Mid(Argument, 7)
        ElseIf Left(Argument, 10) = "/password:" Then
            arg_pass = Mid(Argument, 11)
        Else
            arg_action = Args(n)
       End If
    Next
End Sub

المثال المرفق يوضح إمكانية تشغيل البرنامج (يحتاج أسم مستخدم وكلمة مرور) من خلال سطر الاوامر

cla.exe /user:user /password:123

فإذا لم تكن صحيحة يقوم بعض قورم لطلب الاسم وكلمة المرور

الأسم فى المثال: user

كلمة المرور فى المثال: 123

شكراً