الحمد لله وبعد طول انتظار عملت اللي في دماغي هههههه
احنا البرمجة فينا بس ربنا اللي هدينا
شكرا علي المساعدة وبالاخص اخى ابو روضة
كود :
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
