[ScreamVoice]

(11-10-18, 03:31 AM)حريف برمجة كتب : https://stackoverflow.com/questions/1735...made-in-vb

متقدرش بعد اذنك تعدله ليا لان كل ما اجرب مش بيحفظ

[ابو روضة]

https://www.youtube.com/watch?v=coaOpmooBfc

https://www.youtube.com/watch?v=Ozaa4-Q20_s

تابع أخى هذه الفيديوهات فبها ما تطلبه وشرح عربى

[ScreamVoice]

(11-10-18, 04:59 AM)ابو روضة كتب : https://www.youtube.com/watch?v=coaOpmooBfc

https://www.youtube.com/watch?v=Ozaa4-Q20_s

تابع أخى هذه الفيديوهات فبها ما تطلبه وشرع عربى

تسلم يا صحبي 
هو انا عارف ان العيب فيا انا طبعا ههههه
بس انا هلغي كل اللي عملته وهحاول مع نفسي لحد ما يجي ابن حلال يعدلي علي البروجيكت بتاعي كامل ههههه

[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