[ScreamVoice]

الحمد لله وبعد طول انتظار عملت اللي في دماغي هههههه

احنا البرمجة فينا بس ربنا اللي هدينا

شكرا علي المساعدة وبالاخص اخى ابو روضة

كود :

Imports System.Net
Public Class Form1
   Dim P As New WebClient

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Process.Start("http://www.google.com")
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

       
       If Label1.Text = My.Settings.code Then
           Form2.Show()
           Me.Close()

       Else
           MsgBox("برجاء حذف التفعيل والتاكد من وجود كود جديد", MsgBoxStyle.Critical, Nothing)
           Me.Close()

       End If

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       If Label1.Text = TextBox1.Text Then
           Interaction.MsgBox("تم التفعيل الرجاء اعادة تشغيل البرنامج", MsgBoxStyle.Information, Nothing)
           Button3.Visible = Not Button3.Visible
           Button4.Visible = Not Button4.Visible
           Button1.Visible = Not Button1.Visible
           Button2.Visible = Not Button2.Visible
           TextBox1.Visible = Not TextBox1.Visible
           My.Settings.code = TextBox1.Text
           My.Settings.Save()
           Me.Close()
           
       Else
           Interaction.MsgBox("يرجي كتاية الكود صحيح", MsgBoxStyle.Critical, Nothing)
       End If
       
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Label1.Text = P.DownloadString("https://dl.dropboxusercontent.com/s/c5r8hjct5tm32km/Password.txt?dl=0")
       Label1.Hide()
       Button3.Visible = My.Settings.Button3
       Button4.Visible = My.Settings.Button4
       Button1.Visible = My.Settings.Button1
       Button2.Visible = My.Settings.Button2
       TextBox1.Visible = My.Settings.TextBox1

   End Sub

   Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
       If e.KeyCode = Keys.Enter Then
           Button1_Click(sender, e)
       End If
   End Sub

   Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
       My.Settings.Button3 = Button3.Visible
       My.Settings.Button4 = Button4.Visible
       My.Settings.Button1 = Button1.Visible
       My.Settings.Button2 = Button2.Visible
       My.Settings.TextBox1 = TextBox1.Visible
       My.Settings.Save()
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       My.Settings.Reset()
       TextBox1.Show()
       Button1.Show()
       Button2.Show()
       Button3.Hide()
       Button4.Hide()
       Interaction.MsgBox("تم حذف التفعيل الرجاء اعادة تشغيل البرنامج", MsgBoxStyle.Information, Nothing)
       My.Settings.code = TextBox1.Text
       My.Settings.Save()
       Me.Close()
   End Sub

End Class