لطفا کمک!در ساختن کد ورودی(sn)برای برنامه

من می خواهم در اول برنامه ام یک فرم بذارم که از کاربر Neme وCode Or Serial درخواست کنه مثلا Name:GGK و کد 107701 بعد کاربر اگر واردکرد و بر روی دکمهGo زد بره صفحه بعد و اگر دوباره برنامه را بازکرد دیگر از آن شماره وNameنخواهد.از لطف شما برای صرف وقتتان برای من متشکرم


هر وفت مشکل بزرگی داری نگو خدا من مشکل بزرگی دارم *** بگو من خدای بزرگی

این کار باعث میشه کاربر بتواند چندین بار برنامه را باز کند و سرعت برنامه شما کند گردد

دوست من اگر سریال و اسم درست بود می تونی توی یه فایل چیزی ذخیره کنی که همیشه قبل از نمایش دادن اون صفحه چک بشه اگر بود که می ری صفحه ی اصلی و اگر نبود اون Dialog رو نشون می دی.

این اطلاعات مربوط به Registration معمولا توی Registry ذخیره می شه. من کدش رو قبلا همین ورا گذاشتم.

لطفا یکی درست بگه چیکارکنم!:2:

ببین دوست عزیز برای اینکار چندین راه است من چون تازه ویندوزمو پاک کردم هنوز ویبی نریختم تا شب براتون یه جواب کامل می زارم

این کدها رو ببین:

فرم اصلی:

کد:

---

Private Sub Form_Load()
Set form2 = New frmLogin
form2.Show vbModal
If form2.LoginSucceeded = False Then End
Unload form2

End Sub

---

فرم فرعی برای سریال و نام:

کد:

---

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
    'set the global var to false
    'to denote a failed login
    LoginSucceeded = False
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    'check for correct password
    If (txtPassword = "1234" And txtUserName = "user") Then
       
      Open App.Path & "\licence.dat" For Output As #1
      Print #1, "Registered"
        Close #1
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

Private Sub Form_Activate()
On Error Resume Next
Dim a As String
Open App.Path & "\licence.dat" For Input As #1
Input #1, a
If a = "Registered" Then
LoginSucceeded = True
Me.Hide
End If

Close #1
End Sub

---

بهتره Closeفرم رو برداری در ضمن قبل از اجرا توی یه پوشه ی مشخص پروژه تو Save کن.

Mitibob دوست عزیز زود تر از من سورس گزاشتن از همینا استفاده کن

با تشکر از [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] عزیز من هم مدت زیادی بود به این کد نیاز داشتم.