المشاركات : 4
المواضيع 2
الإنتساب : Mar 2020
السمعة :
0
الشكر: 1
تم شكره 0 مرات في 0 مشاركات
السلام عليكم انا مبتدئة في السي شارب ولدي مشروع فيه فورم يستطيع المستخدم ان يغير من كلمة المرور الخاصة بالمشروع ويعدل من صلاحيات المستخدم (تعديل البيانات واضافة ولون الفورم وغيرها )ولكن لم اعرف كيف اربط بينها وبين الفورم التي تحتوي على كلمة المرور او عمل الاكواد الازمة لتعديل الصلاحيه لانه عند التشغيل تغيرت بعض الاعدادات ولم اعد استطيع تعديلها او تغييرها
المشاركات : 144
المواضيع 59
الإنتساب : Feb 2020
السمعة :
17
الشكر: 144
تم شكره 209 مرات في 82 مشاركات
(20-03-20, 01:15 PM)sananyh كتب : السلام عليكم انا مبتدئة في السي شارب ولدي مشروع فيه فورم يستطيع المستخدم ان يغير من كلمة المرور الخاصة بالمشروع ويعدل من صلاحيات المستخدم (تعديل البيانات واضافة ولون الفورم وغيرها )ولكن لم اعرف كيف اربط بينها وبين الفورم التي تحتوي على كلمة المرور او عمل الاكواد الازمة لتعديل الصلاحيه لانه عند التشغيل تغيرت بعض الاعدادات ولم اعد استطيع تعديلها او تغييرها
كود + ادوات عمل بسورد لبرنمج
PHP كود :
الادوات
TextBox1
Button1
.........
الكود
حط في البوتون
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "55555" Then
Me.Hide()
Form1.Show()
Else
MsgBox("خطاء جرب مره اخره")
End If
End Sub
End Class
كود عمل سريل ل الفورم
PHP كود :
الدوات
textpox1
buton2
Label2
ProgressBar1
......
Public Class Form1
Dim Activation = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST", "Activation", "")
Dim Rest = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST", "Rest", "")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
check_Activation()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
button_check()
End Sub
'زر الانتقال لفورم التفعيل
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
Function check()
If Activation Is Nothing Then
Microsoft.Win32.Registry.CurrentUser.CreateSubKey("TEST")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Activation", "NotActivated")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", "30")
Else
If Rest = 0 Then
MsgBox("انتهت فترة استخدامك للبرنامج")
Me.Close()
Else
Rest = Rest - 1
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", Rest)
ProgressBar1.Maximum = 30
ProgressBar1.Value = Rest
Label2.Text = Rest
End If
End If
End Function
Function check_Activation()
Try
'اذا كان البرنامج تم تفعيله
'يقوم باخفاء جميع كائنات التي تخص التفعيل و حساب الوقت الباقي.
If Activation = "Activated" Then
Button2.Hide()
Label2.Hide()
Label1.Hide()
ProgressBar1.Hide()
Else
'اذا كان البرنامج لم يتم تفعيله
'يقوم باستعداء داله التحقق من الوقت الباقي و تقليله 1
check()
End If
Catch ex As Exception
MsgBox("خطا غير متوقع!.")
End Try
End Function
'التحقق من تفعيل البرنامج
Function button_check()
If Activation = "Activated" Then
MsgBox("البرنامج مفعل")
Else
MsgBox("البرنامج غير مفعل!")
End If
End Function
End Class
كود حفظ ما يتغير في التيكست بعد اغلاقه
PHP كود :
تادر تعدل علي الكود من السطر دهText1.Text = GetSetting(App.Title, "Settings", "SaveInText1")
كود PHP:
Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Settings", "SaveInText1")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Settings", "SaveInText1", Trim(Text1.Text)
End Sub
انشاء الله تستفاد من ال اكود ديت في مشروعك الي انت عيز تعملوه
المشاركات : 4
المواضيع 2
الإنتساب : Mar 2020
السمعة :
0
الشكر: 1
تم شكره 0 مرات في 0 مشاركات
(20-03-20, 04:08 PM)محمد ايمن كتب : (20-03-20, 01:15 PM)sananyh كتب : السلام عليكم انا مبتدئة في السي شارب ولدي مشروع فيه فورم يستطيع المستخدم ان يغير من كلمة المرور الخاصة بالمشروع ويعدل من صلاحيات المستخدم (تعديل البيانات واضافة ولون الفورم وغيرها )ولكن لم اعرف كيف اربط بينها وبين الفورم التي تحتوي على كلمة المرور او عمل الاكواد الازمة لتعديل الصلاحيه لانه عند التشغيل تغيرت بعض الاعدادات ولم اعد استطيع تعديلها او تغييرها
كود + ادوات عمل بسورد لبرنمج
PHP كود :
الادوات
TextBox1
Button1
.........
الكود
حط في البوتون
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "55555" Then
Me.Hide()
Form1.Show()
Else
MsgBox("خطاء جرب مره اخره")
End If
End Sub
End Class
PHP كود :
الدوات
textpox1
buton2
Label2
ProgressBar1
......
Public Class Form1
Dim Activation = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST", "Activation", "")
Dim Rest = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST", "Rest", "")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
check_Activation()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
button_check()
End Sub
'زر الانتقال لفورم التفعيل
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
Function check()
If Activation Is Nothing Then
Microsoft.Win32.Registry.CurrentUser.CreateSubKey("TEST")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Activation", "NotActivated")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", "30")
Else
If Rest = 0 Then
MsgBox("انتهت فترة استخدامك للبرنامج")
Me.Close()
Else
Rest = Rest - 1
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", Rest)
ProgressBar1.Maximum = 30
ProgressBar1.Value = Rest
Label2.Text = Rest
End If
End If
End Function
Function check_Activation()
Try
'اذا كان البرنامج تم تفعيله
'يقوم باخفاء جميع كائنات التي تخص التفعيل و حساب الوقت الباقي.
If Activation = "Activated" Then
Button2.Hide()
Label2.Hide()
Label1.Hide()
ProgressBar1.Hide()
Else
'اذا كان البرنامج لم يتم تفعيله
'يقوم باستعداء داله التحقق من الوقت الباقي و تقليله 1
check()
End If
Catch ex As Exception
MsgBox("خطا غير متوقع!.")
End Try
End Function
'التحقق من تفعيل البرنامج
Function button_check()
If Activation = "Activated" Then
MsgBox("البرنامج مفعل")
Else
MsgBox("البرنامج غير مفعل!")
End If
End Function
End Class
كود حفظ ما يتغير في التيكست بعد اغلاقه
PHP كود :
تادر تعدل علي الكود من السطر دهText1.Text = GetSetting(App.Title, "Settings", "SaveInText1")
كود PHP:
Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Settings", "SaveInText1")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Settings", "SaveInText1", Trim(Text1.Text)
End Sub
انشاء الله تستفاد من ال اكود ديت في مشروعك الي انت عيز تعملوه
شكراً اخي لكن انا استعمل الفيجوال استديو هل تسطيع تعديل الاكواد بعد اذنك
المشاركات : 144
المواضيع 59
الإنتساب : Feb 2020
السمعة :
17
الشكر: 144
تم شكره 209 مرات في 82 مشاركات
(20-03-20, 08:21 PM)sananyh كتب : (20-03-20, 04:08 PM)محمد ايمن كتب : (20-03-20, 01:15 PM)sananyh كتب : السلام عليكم انا مبتدئة في السي شارب ولدي مشروع فيه فورم يستطيع المستخدم ان يغير من كلمة المرور الخاصة بالمشروع ويعدل من صلاحيات المستخدم (تعديل البيانات واضافة ولون الفورم وغيرها )ولكن لم اعرف كيف اربط بينها وبين الفورم التي تحتوي على كلمة المرور او عمل الاكواد الازمة لتعديل الصلاحيه لانه عند التشغيل تغيرت بعض الاعدادات ولم اعد استطيع تعديلها او تغييرها
كود + ادوات عمل بسورد لبرنمج
PHP كود :
الادوات
TextBox1
Button1
.........
الكود
حط في البوتون
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "55555" Then
Me.Hide()
Form1.Show()
Else
MsgBox("خطاء جرب مره اخره")
End If
End Sub
End Class
PHP كود :
الدوات
textpox1
buton2
Label2
ProgressBar1
......
Public Class Form1
Dim Activation = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST", "Activation", "")
Dim Rest = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST", "Rest", "")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
check_Activation()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
button_check()
End Sub
'زر الانتقال لفورم التفعيل
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
Function check()
If Activation Is Nothing Then
Microsoft.Win32.Registry.CurrentUser.CreateSubKey("TEST")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Activation", "NotActivated")
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", "30")
Else
If Rest = 0 Then
MsgBox("انتهت فترة استخدامك للبرنامج")
Me.Close()
Else
Rest = Rest - 1
Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", Rest)
ProgressBar1.Maximum = 30
ProgressBar1.Value = Rest
Label2.Text = Rest
End If
End If
End Function
Function check_Activation()
Try
'اذا كان البرنامج تم تفعيله
'يقوم باخفاء جميع كائنات التي تخص التفعيل و حساب الوقت الباقي.
If Activation = "Activated" Then
Button2.Hide()
Label2.Hide()
Label1.Hide()
ProgressBar1.Hide()
Else
'اذا كان البرنامج لم يتم تفعيله
'يقوم باستعداء داله التحقق من الوقت الباقي و تقليله 1
check()
End If
Catch ex As Exception
MsgBox("خطا غير متوقع!.")
End Try
End Function
'التحقق من تفعيل البرنامج
Function button_check()
If Activation = "Activated" Then
MsgBox("البرنامج مفعل")
Else
MsgBox("البرنامج غير مفعل!")
End If
End Function
End Class
كود حفظ ما يتغير في التيكست بعد اغلاقه
PHP كود :
تادر تعدل علي الكود من السطر دهText1.Text = GetSetting(App.Title, "Settings", "SaveInText1")
كود PHP:
Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Settings", "SaveInText1")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Settings", "SaveInText1", Trim(Text1.Text)
End Sub
انشاء الله تستفاد من ال اكود ديت في مشروعك الي انت عيز تعملوه
شكراً اخي لكن انا استعمل الفيجوال استديو هل تسطيع تعديل الاكواد بعد اذنك
كله اكودvbn.net
|
