تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب تعديل علي كود تفعيل وحفظ التفعيل
#1
السلام عليكم ورحمة الله وبركاته

انا طلبي النهارده بالنسبه ليا هو صعب ودورت كتيره وموصلتش لنتيجة

علشان كده عملت الموضوع دا 

لاني متاكد ان هلاقي هنا حد يساعدني كالعادة

دلوقتي عايز اعمل برمجة مثل دي 



في حالة الضغط علي التفعيل بعد تحميل الكود والكود مظبوط

يطلع رساله يقولك الرجاء ا عادة تشغيل البرنامج

لما بتقفل البرنامج وتشغله تاني الكود بيتحفظ تلقائي ويظهر الفورم دا



بتضغط علي دخول بيفتح البرنامج

والزر التاني لو عايز تحدف التفعيل

يطلع رساله الرجاء اعادة تشغيل البرنامج

 وتحط تفعيل جديد

انا عملت الواجهه الاولي دي 



ودا الكود المستخدم فيه

كود :
Imports System.Net

Public Class ScreamAct

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Label1.Text = TextBox1.Text Then
            ScreamHome.Show()
            Me.Hide()
        Else
            MsgBox("يرجي كتابة الكود الصحيح")
        End If
    End Sub

    Private Sub ScreamAct_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
        Label1.Hide()
        Dim P As New WebClient
        Label1.Text = P.DownloadString("https://dl.dropboxusercontent.com/s/c5r8hjct5tm32km/Password.txt?dl=0")
    End Sub

    'Private Function process() As Process
    '    Throw New NotImplementedException
    ' End Function

    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 Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Process.Start("https://www.google.com/?gws_rd=ssl")
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Label2.Left < Me.Width Then
            Label2.Left += 6
        Else
            Label2.Left = -Label2.Width
        End If
    End Sub
End ClassEnd Class

اما الفورم التاني لسه معملتوش لاني مش عارف التعديل التاني هيظهر في نفس الفورم ولا فورم جديد

المطلوب التعديل في الكود بتاعي علشان يبقي نفس اللي في الصوره

ولو امكن ان لو انا غيرت كود التفعيل يلغي التفعيل تلقائي

بدل ما اعمل حذف تفعيل 

ويدخل علي طول علي الواجهه الاولى بتاع ادخل كود التفعيل

هيكون عن طريقة التطابق مع موقع الدروب اللي عامل عليه الباسورد

بس للاسف مش عارف اعمل كل دا ازاي  Big Grin
الرد
تم الشكر بواسطة:
#2
في الحقيقة هي مجموعة طلبات وليس طلب واحد .
1- تحميل الكود .
2- التأكد من صحة الكود .
3- تفعيل التطبيق .
4- إظهار رسالة بإعادة تشغيل التطبيق .
5- التأكد ان التطبيق مفعل وظهور شاشة خاصة .
6- حذف تفعيل التطبيق .

المطلوب منك :
اولاً : توضيح "تحميل الكود يتم من وين" .
ثانياً : التأكد من صحة كود التفعيل بناء على ماذا ! هل هناك ليستة بأكواد التفعيل الصحيحة لمعرفة هل كود التفعيل صحيح أو خطأ ؟
ثالثاً : اين تريد حفظ التفعيل بعد عملية تفعيل التطبيق بالكود الصحيح ! هل في ملف txt أو ملفات التطبيق settings
رابعاً : اين مشروعك للتعديل عليه .

هذا للتسهيل عليك للحصول على إجابة بشكل سريع .
بسم الله الرحمن الرحيم > "اللَّهُ نُورُ السَّمَاوَاتِ وَالْأَرْضِ ۚ مَثَلُ نُورِهِ كَمِشْكَاةٍ فِيهَا مِصْبَاحٌ ۖ الْمِصْبَاحُ فِي زُجَاجَةٍ ۖ الزُّجَاجَةُ كَأَنَّهَا كَوْكَبٌ دُرِّيٌّ يُوقَدُ مِن شَجَرَةٍ مُّبَارَكَةٍ زَيْتُونَةٍ لَّا شَرْقِيَّةٍ وَلَا غَرْبِيَّةٍ يَكَادُ زَيْتُهَا يُضِيءُ وَلَوْ لَمْ تَمْسَسْهُ نَارٌ ۚ نُّورٌ عَلَىٰ نُورٍ ۗ يَهْدِي اللَّهُ لِنُورِهِ مَن يَشَاءُ ۚ وَيَضْرِبُ اللَّهُ الْأَمْثَالَ لِلنَّاسِ ۗ وَاللَّهُ بِكُلِّ شَيْءٍ عَلِيمٌ" < صدق الله العظيم
الرد
تم الشكر بواسطة: ScreamVoice
#3
(08-10-18, 09:18 PM)حريف برمجة كتب : في الحقيقة هي مجموعة طلبات وليس طلب واحد .
1- تحميل الكود .
2- التأكد من صحة الكود .
3- تفعيل التطبيق .
4- إظهار رسالة بإعادة تشغيل التطبيق .
5- التأكد ان التطبيق مفعل وظهور شاشة خاصة .
6- حذف تفعيل التطبيق .

المطلوب منك :
اولاً : توضيح "تحميل الكود يتم من وين" .
ثانياً : التأكد من صحة كود التفعيل بناء على ماذا ! هل هناك ليستة بأكواد التفعيل الصحيحة لمعرفة هل كود التفعيل صحيح أو خطأ ؟
ثالثاً : اين تريد حفظ التفعيل بعد عملية تفعيل التطبيق بالكود الصحيح ! هل في ملف txt أو ملفات التطبيق settings
رابعاً : اين مشروعك للتعديل عليه .

هذا للتسهيل عليك للحصول على إجابة بشكل سريع .


بالنسبه ل كود التحميل وصحته بيكون عن طريق الامر دا 
كود :
Dim P As New WebClient
       Label1.Text = P.DownloadString("https://dl.dropboxusercontent.com/s/c5r8hjct5tm32km/Password.txt?dl=0")
دا بيطابق الباسورد اللي اي شخص بيفتحه
انما حفظ التفعيل بيكون في ملفات التطبيق من settings تقريبا يبقي افضل
المشروع بتاعي هرفع معاه كام صوره علشان الواجهه التانيه من التفعيل لو هتكون في نفس الفورم او في فورم اخر 
ورجاء بسيط لو شرح سريع للاضافات وفائدتها لان هدفي الاول والاخير هو التعليم
http://gulfup.co/wz3ptmsyjb3r
الرد
تم الشكر بواسطة:
#4
الكود دا انا سحبه من البرنامج عن طريق برنامج اخر بيظهر الاكواد
بس بالشكل دا ومش قادر اطلع منه الاكواد المستخدمه
ممكن يفيد

كود :
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports Rocket_Tv.My
Imports Rocket_Tv.My.Resources
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Net
Imports System.Runtime.CompilerServices
Imports System.Threading
Imports System.Windows.Forms

Namespace Rocket_Tv
  <DesignerGenerated()>
  Public Class Form3
      Inherits Form

      Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)()

      Private components As IContainer

      <AccessedThroughProperty("TextBox1")>
      Private _TextBox1 As TextBox

      <AccessedThroughProperty("PictureBox1")>
      Private _PictureBox1 As PictureBox

      <AccessedThroughProperty("Label2")>
      Private _Label2 As Label

      <AccessedThroughProperty("Button2")>
      Private _Button2 As Button

      <AccessedThroughProperty("PictureBox62")>
      Private _PictureBox62 As PictureBox

      <AccessedThroughProperty("PictureBox64")>
      Private _PictureBox64 As PictureBox

      <AccessedThroughProperty("PictureBox63")>
      Private _PictureBox63 As PictureBox

      <AccessedThroughProperty("PictureBox4")>
      Private _PictureBox4 As PictureBox

      <AccessedThroughProperty("Label1")>
      Private _Label1 As Label

      <AccessedThroughProperty("Label3")>
      Private _Label3 As Label

      <AccessedThroughProperty("PictureBox90")>
      Private _PictureBox90 As PictureBox

      <AccessedThroughProperty("Label4")>
      Private _Label4 As Label

      <AccessedThroughProperty("Timer1")>
      Private _Timer1 As System.Windows.Forms.Timer

      <AccessedThroughProperty("Panel1")>
      Private _Panel1 As Panel

      <AccessedThroughProperty("Button3")>
      Private _Button3 As Button

      <AccessedThroughProperty("PictureBox2")>
      Private _PictureBox2 As PictureBox

      <AccessedThroughProperty("Button4")>
      Private _Button4 As Button

      <AccessedThroughProperty("Label5")>
      Private _Label5 As Label

      <AccessedThroughProperty("Button1")>
      Private _Button1 As Button

      Friend Overridable Property TextBox1() As TextBox
          <DebuggerNonUserCode()>
          Get
              Return Me._TextBox1
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As TextBox)
              Dim value2 As EventHandler = AddressOf Me.TextBox1_TextChanged
              Dim flag As Boolean = Me._TextBox1 IsNot Nothing
              If flag Then
                  RemoveHandler Me._TextBox1.TextChanged, value2
              End If
              Me._TextBox1 = value
              flag = (Me._TextBox1 IsNot Nothing)
              If flag Then
                  AddHandler Me._TextBox1.TextChanged, value2
              End If
          End Set
      End Property

      Friend Overridable Property PictureBox1() As PictureBox
          <DebuggerNonUserCode()>
          Get
              Return Me._PictureBox1
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As PictureBox)
              Dim value2 As EventHandler = AddressOf Me.PictureBox1_Click
              Dim flag As Boolean = Me._PictureBox1 IsNot Nothing
              If flag Then
                  RemoveHandler Me._PictureBox1.Click, value2
              End If
              Me._PictureBox1 = value
              flag = (Me._PictureBox1 IsNot Nothing)
              If flag Then
                  AddHandler Me._PictureBox1.Click, value2
              End If
          End Set
      End Property

      Friend Overridable Property Label2() As Label
          <DebuggerNonUserCode()>
          Get
              Return Me._Label2
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As Label)
              Me._Label2 = value
          End Set
      End Property

      Friend Overridable Property Button2() As Button
          <DebuggerNonUserCode()>
          Get
              Return Me._Button2
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As Button)
              Dim value2 As EventHandler = AddressOf Me.Button2_Click
              Dim flag As Boolean = Me._Button2 IsNot Nothing
              If flag Then
                  RemoveHandler Me._Button2.Click, value2
              End If
              Me._Button2 = value
              flag = (Me._Button2 IsNot Nothing)
              If flag Then
                  AddHandler Me._Button2.Click, value2
              End If
          End Set
      End Property

      Friend Overridable Property PictureBox62() As PictureBox
          <DebuggerNonUserCode()>
          Get
              Return Me._PictureBox62
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As PictureBox)
              Dim value2 As EventHandler = AddressOf Me.PictureBox62_Click
              Dim flag As Boolean = Me._PictureBox62 IsNot Nothing
              If flag Then
                  RemoveHandler Me._PictureBox62.Click, value2
              End If
              Me._PictureBox62 = value
              flag = (Me._PictureBox62 IsNot Nothing)
              If flag Then
                  AddHandler Me._PictureBox62.Click, value2
              End If
          End Set
      End Property

      Friend Overridable Property PictureBox64() As PictureBox
          <DebuggerNonUserCode()>
          Get
              Return Me._PictureBox64
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As PictureBox)
              Dim value2 As EventHandler = AddressOf Me.PictureBox64_Click
              Dim flag As Boolean = Me._PictureBox64 IsNot Nothing
              If flag Then
                  RemoveHandler Me._PictureBox64.Click, value2
              End If
              Me._PictureBox64 = value
              flag = (Me._PictureBox64 IsNot Nothing)
              If flag Then
                  AddHandler Me._PictureBox64.Click, value2
              End If
          End Set
      End Property

      Friend Overridable Property PictureBox63() As PictureBox
          <DebuggerNonUserCode()>
          Get
              Return Me._PictureBox63
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As PictureBox)
              Dim value2 As EventHandler = AddressOf Me.PictureBox63_Click
              Dim flag As Boolean = Me._PictureBox63 IsNot Nothing
              If flag Then
                  RemoveHandler Me._PictureBox63.Click, value2
              End If
              Me._PictureBox63 = value
              flag = (Me._PictureBox63 IsNot Nothing)
              If flag Then
                  AddHandler Me._PictureBox63.Click, value2
              End If
          End Set
      End Property

      Friend Overridable Property PictureBox4() As PictureBox
          <DebuggerNonUserCode()>
          Get
              Return Me._PictureBox4
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As PictureBox)
              Me._PictureBox4 = value
          End Set
      End Property

      Friend Overridable Property Label1() As Label
          <DebuggerNonUserCode()>
          Get
              Return Me._Label1
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As Label)
              Me._Label1 = value
          End Set
      End Property

      Friend Overridable Property Label3() As Label
          <DebuggerNonUserCode()>
          Get
              Return Me._Label3
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As Label)
              Dim value2 As EventHandler = AddressOf Me.Label3_Click
              Dim flag As Boolean = Me._Label3 IsNot Nothing
              If flag Then
                  RemoveHandler Me._Label3.Click, value2
              End If
              Me._Label3 = value
              flag = (Me._Label3 IsNot Nothing)
              If flag Then
                  AddHandler Me._Label3.Click, value2
              End If
          End Set
      End Property

      Friend Overridable Property PictureBox90() As PictureBox
          <DebuggerNonUserCode()>
          Get
              Return Me._PictureBox90
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As PictureBox)
              Me._PictureBox90 = value
          End Set
      End Property

      Friend Overridable Property Label4() As Label
          <DebuggerNonUserCode()>
          Get
              Return Me._Label4
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As Label)
              Me._Label4 = value
          End Set
      End Property

      Friend Overridable Property Timer1() As System.Windows.Forms.Timer
          <DebuggerNonUserCode()>
          Get
              Return Me._Timer1
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As System.Windows.Forms.Timer)
              Dim value2 As EventHandler = AddressOf Me.Timer1_Tick_1
              Dim flag As Boolean = Me._Timer1 IsNot Nothing
              If flag Then
                  RemoveHandler Me._Timer1.Tick, value2
              End If
              Me._Timer1 = value
              flag = (Me._Timer1 IsNot Nothing)
              If flag Then
                  AddHandler Me._Timer1.Tick, value2
              End If
          End Set
      End Property

      Friend Overridable Property Panel1() As Panel
          <DebuggerNonUserCode()>
          Get
              Return Me._Panel1
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As Panel)
              Me._Panel1 = value
          End Set
      End Property

      Friend Overridable Property Button3() As Button
          <DebuggerNonUserCode()>
          Get
              Return Me._Button3
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As Button)
              Dim value2 As EventHandler = AddressOf Me.Button3_Click_1
              Dim flag As Boolean = Me._Button3 IsNot Nothing
              If flag Then
                  RemoveHandler Me._Button3.Click, value2
              End If
              Me._Button3 = value
              flag = (Me._Button3 IsNot Nothing)
              If flag Then
                  AddHandler Me._Button3.Click, value2
              End If
          End Set
      End Property

      Friend Overridable Property PictureBox2() As PictureBox
          <DebuggerNonUserCode()>
          Get
              Return Me._PictureBox2
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As PictureBox)
              Me._PictureBox2 = value
          End Set
      End Property

      Friend Overridable Property Button4() As Button
          <DebuggerNonUserCode()>
          Get
              Return Me._Button4
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As Button)
              Dim value2 As EventHandler = AddressOf Me.Button4_Click
              Dim flag As Boolean = Me._Button4 IsNot Nothing
              If flag Then
                  RemoveHandler Me._Button4.Click, value2
              End If
              Me._Button4 = value
              flag = (Me._Button4 IsNot Nothing)
              If flag Then
                  AddHandler Me._Button4.Click, value2
              End If
          End Set
      End Property

      Friend Overridable Property Label5() As Label
          <DebuggerNonUserCode()>
          Get
              Return Me._Label5
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As Label)
              Me._Label5 = value
          End Set
      End Property

      Friend Overridable Property Button1() As Button
          <DebuggerNonUserCode()>
          Get
              Return Me._Button1
          End Get
          <DebuggerNonUserCode()>
          <MethodImpl(MethodImplOptions.Synchronized)>
          Set(value As Button)
              Dim value2 As EventHandler = AddressOf Me.Button1_Click_1
              Dim flag As Boolean = Me._Button1 IsNot Nothing
              If flag Then
                  RemoveHandler Me._Button1.Click, value2
              End If
              Me._Button1 = value
              flag = (Me._Button1 IsNot Nothing)
              If flag Then
                  AddHandler Me._Button1.Click, value2
              End If
          End Set
      End Property

      <DebuggerNonUserCode()>
      Public Sub New()
          AddHandler MyBase.Load, AddressOf Me.Form3_Load
          AddHandler MyBase.MouseDown, AddressOf Me.Form3_MouseDown
          Form3.__ENCAddToList(Me)
          Me.InitializeComponent()
      End Sub

      <DebuggerNonUserCode()>
      Private Shared Sub __ENCAddToList(value As Object)
          Dim _ENCList As List(Of WeakReference) = Form3.__ENCList
          Dim flag As Boolean = False
          ' The following expression was wrapped in a checked-statement
          Try
              Monitor.Enter(_ENCList, flag)
              Dim flag2 As Boolean = Form3.__ENCList.Count = Form3.__ENCList.Capacity
              If flag2 Then
                  Dim num As Integer = 0
                  Dim arg_44_0 As Integer = 0
                  Dim num2 As Integer = Form3.__ENCList.Count - 1
                  Dim num3 As Integer = arg_44_0
                  While True
                      Dim arg_95_0 As Integer = num3
                      Dim num4 As Integer = num2
                      If arg_95_0 > num4 Then
                          Exit While
                      End If
                      Dim weakReference As WeakReference = Form3.__ENCList(num3)
                      flag2 = weakReference.IsAlive
                      If flag2 Then
                          Dim flag3 As Boolean = num3 <> num
                          If flag3 Then
                              Form3.__ENCList(num) = Form3.__ENCList(num3)
                          End If
                          num += 1
                      End If
                      num3 += 1
                  End While
                  Form3.__ENCList.RemoveRange(num, Form3.__ENCList.Count - num)
                  Form3.__ENCList.Capacity = Form3.__ENCList.Count
              End If
              Form3.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
          Finally
              Dim flag3 As Boolean = flag
              If flag3 Then
                  Monitor.[Exit](_ENCList)
              End If
          End Try
      End Sub

      <DebuggerNonUserCode()>
      Protected Overrides Sub Dispose(disposing As Boolean)
          Try
              Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
              If flag Then
                  Me.components.Dispose()
              End If
          Finally
              MyBase.Dispose(disposing)
          End Try
      End Sub

      <DebuggerStepThrough()>
      Private Sub InitializeComponent()
          Me.components = New Container()
          Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form3))
          AddressOf Me.TextBox1 = New TextBox()
          AddressOf Me.PictureBox1 = New PictureBox()
          AddressOf Me.Label2 = New Label()
          AddressOf Me.Button2 = New Button()
          AddressOf Me.PictureBox62 = New PictureBox()
          AddressOf Me.PictureBox64 = New PictureBox()
          AddressOf Me.PictureBox63 = New PictureBox()
          AddressOf Me.PictureBox4 = New PictureBox()
          AddressOf Me.Label1 = New Label()
          AddressOf Me.Label3 = New Label()
          AddressOf Me.PictureBox90 = New PictureBox()
          AddressOf Me.Label4 = New Label()
          AddressOf Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
          AddressOf Me.Panel1 = New Panel()
          AddressOf Me.Button3 = New Button()
          AddressOf Me.PictureBox2 = New PictureBox()
          AddressOf Me.Button4 = New Button()
          AddressOf Me.Label5 = New Label()
          AddressOf Me.Button1 = New Button()
          (CType(AddressOf Me.PictureBox1, ISupportInitialize)).BeginInit()
          (CType(AddressOf Me.PictureBox62, ISupportInitialize)).BeginInit()
          (CType(AddressOf Me.PictureBox64, ISupportInitialize)).BeginInit()
          (CType(AddressOf Me.PictureBox63, ISupportInitialize)).BeginInit()
          (CType(AddressOf Me.PictureBox4, ISupportInitialize)).BeginInit()
          (CType(AddressOf Me.PictureBox90, ISupportInitialize)).BeginInit()
          AddressOf Me.Panel1.SuspendLayout()
          (CType(AddressOf Me.PictureBox2, ISupportInitialize)).BeginInit()
          Me.SuspendLayout()
          AddressOf Me.TextBox1.BackColor = Color.FromArgb(0, 192, 192)
          AddressOf Me.TextBox1.BorderStyle = BorderStyle.FixedSingle
          AddressOf Me.TextBox1.Font = New Font("Dusha V5", 11.25F, FontStyle.Regular, GraphicsUnit.Point, 0)
          AddressOf Me.TextBox1.ForeColor = Color.White
          AddressOf Me.TextBox1.HideSelection = False
          Dim arg_1E5_0 As Control = AddressOf Me.TextBox1
          Dim location As Point = New Point(72, 74)
          arg_1E5_0.Location = location
          AddressOf Me.TextBox1.Name = "TextBox1"
          Dim arg_213_0 As Control = AddressOf Me.TextBox1
          Dim size As Size = New Size(246, 24)
          arg_213_0.Size = size
          AddressOf Me.TextBox1.TabIndex = 0
          AddressOf Me.TextBox1.UseSystemPasswordChar = True
          AddressOf Me.PictureBox1.BackColor = Color.Transparent
          AddressOf Me.PictureBox1.BackgroundImage = AddressOf Resources.go
          AddressOf Me.PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
          Dim arg_278_0 As Control = AddressOf Me.PictureBox1
          location = New Point(314, 70)
          arg_278_0.Location = location
          AddressOf Me.PictureBox1.Name = "PictureBox1"
          Dim arg_2A3_0 As Control = AddressOf Me.PictureBox1
          size = New Size(31, 30)
          arg_2A3_0.Size = size
          AddressOf Me.PictureBox1.TabIndex = 2
          AddressOf Me.PictureBox1.TabStop = False
          AddressOf Me.Label2.AutoSize = True
          Dim arg_2E9_0 As Control = AddressOf Me.Label2
          location = New Point(261, 147)
          arg_2E9_0.Location = location
          AddressOf Me.Label2.Name = "Label2"
          Dim arg_314_0 As Control = AddressOf Me.Label2
          size = New Size(38, 13)
          arg_314_0.Size = size
          AddressOf Me.Label2.TabIndex = 4
          AddressOf Me.Label2.Text = "Label2"
          AddressOf Me.Label2.Visible = False
          AddressOf Me.Button2.BackColor = Color.FromArgb(0, 192, 192)
          AddressOf Me.Button2.Cursor = Cursors.Hand
          AddressOf Me.Button2.FlatStyle = FlatStyle.Popup
          AddressOf Me.Button2.Font = New Font("Arial", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
          AddressOf Me.Button2.ForeColor = Color.White
          Dim arg_3C4_0 As Control = AddressOf Me.Button2
          location = New Point(218, 116)
          arg_3C4_0.Location = location
          AddressOf Me.Button2.Name = "Button2"
          Dim arg_3EF_0 As Control = AddressOf Me.Button2
          size = New Size(100, 28)
          arg_3EF_0.Size = size
          AddressOf Me.Button2.TabIndex = 7
          AddressOf Me.Button2.Text = ChrW(1578) & ChrW(1581) & ChrW(1605) & ChrW(1610) & ChrW(1604) & " " & ChrW(1575) & ChrW(1604) & ChrW(1603) & ChrW(1608) & ChrW(1583)
          AddressOf Me.Button2.UseVisualStyleBackColor = False
          AddressOf Me.PictureBox62.BackColor = Color.Transparent
          AddressOf Me.PictureBox62.BackgroundImage = CType(componentResourceManager.GetObject("PictureBox62.BackgroundImage"), Image)
          AddressOf Me.PictureBox62.BackgroundImageLayout = ImageLayout.Stretch
          AddressOf Me.PictureBox62.Cursor = Cursors.Hand
          Dim arg_47C_0 As Control = AddressOf Me.PictureBox62
          location = New Point(-1, -1)
          arg_47C_0.Location = location
          AddressOf Me.PictureBox62.Name = "PictureBox62"
          Dim arg_4A7_0 As Control = AddressOf Me.PictureBox62
          size = New Size(32, 34)
          arg_4A7_0.Size = size
          AddressOf Me.PictureBox62.TabIndex = 81
          AddressOf Me.PictureBox62.TabStop = False
          AddressOf Me.PictureBox64.BackColor = Color.Transparent
          AddressOf Me.PictureBox64.BackgroundImage = CType(componentResourceManager.GetObject("PictureBox64.BackgroundImage"), Image)
          AddressOf Me.PictureBox64.BackgroundImageLayout = ImageLayout.Stretch
          AddressOf Me.PictureBox64.Cursor = Cursors.Hand
          Dim arg_528_0 As Control = AddressOf Me.PictureBox64
          location = New Point(373, 0)
          arg_528_0.Location = location
          AddressOf Me.PictureBox64.Name = "PictureBox64"
          Dim arg_553_0 As Control = AddressOf Me.PictureBox64
          size = New Size(22, 22)
          arg_553_0.Size = size
          AddressOf Me.PictureBox64.TabIndex = 101
          AddressOf Me.PictureBox64.TabStop = False
          AddressOf Me.PictureBox63.BackColor = Color.Transparent
          AddressOf Me.PictureBox63.BackgroundImage = AddressOf Resources.min
          AddressOf Me.PictureBox63.BackgroundImageLayout = ImageLayout.Stretch
          AddressOf Me.PictureBox63.Cursor = Cursors.Hand
          Dim arg_5C9_0 As Control = AddressOf Me.PictureBox63
          location = New Point(348, -1)
          arg_5C9_0.Location = location
          AddressOf Me.PictureBox63.Name = "PictureBox63"
          Dim arg_5F4_0 As Control = AddressOf Me.PictureBox63
          size = New Size(22, 25)
          arg_5F4_0.Size = size
          AddressOf Me.PictureBox63.TabIndex = 100
          AddressOf Me.PictureBox63.TabStop = False
          AddressOf Me.PictureBox4.BackColor = Color.Transparent
          AddressOf Me.PictureBox4.BackgroundImage = CType(componentResourceManager.GetObject("PictureBox4.BackgroundImage"), Image)
          AddressOf Me.PictureBox4.BackgroundImageLayout = ImageLayout.Stretch
          AddressOf Me.PictureBox4.Cursor = Cursors.Hand
          Dim arg_673_0 As Control = AddressOf Me.PictureBox4
          location = New Point(43, 76)
          arg_673_0.Location = location
          AddressOf Me.PictureBox4.Name = "PictureBox4"
          Dim arg_69E_0 As Control = AddressOf Me.PictureBox4
          size = New Size(18, 18)
          arg_69E_0.Size = size
          AddressOf Me.PictureBox4.TabIndex = 102
          AddressOf Me.PictureBox4.TabStop = False
          AddressOf Me.Label1.AutoSize = True
          AddressOf Me.Label1.BackColor = Color.Transparent
          AddressOf Me.Label1.Font = New Font("QuiverItal", 12F, FontStyle.Bold, GraphicsUnit.Point, 0)
          AddressOf Me.Label1.ForeColor = Color.Red
          Dim arg_71F_0 As Control = AddressOf Me.Label1
          location = New Point(9, 73)
          arg_71F_0.Location = location
          AddressOf Me.Label1.Name = "Label1"
          Dim arg_74A_0 As Control = AddressOf Me.Label1
          size = New Size(35, 22)
          arg_74A_0.Size = size
          AddressOf Me.Label1.TabIndex = 103
          AddressOf Me.Label1.Text = "OFF"
          AddressOf Me.Label3.AutoSize = True
          AddressOf Me.Label3.BackColor = Color.Transparent
          AddressOf Me.Label3.FlatStyle = FlatStyle.Popup
          AddressOf Me.Label3.Font = New Font("Arial", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 178)
          AddressOf Me.Label3.ForeColor = Color.White
          Dim arg_7E2_0 As Control = AddressOf Me.Label3
          location = New Point(-388, 0)
          arg_7E2_0.Location = location
          AddressOf Me.Label3.Name = "Label3"
          AddressOf Me.Label3.RightToLeft = RightToLeft.Yes
          Dim arg_81D_0 As Control = AddressOf Me.Label3
          size = New Size(595, 22)
          arg_81D_0.Size = size
          AddressOf Me.Label3.TabIndex = 104
          AddressOf Me.Label3.Text = " " & ChrW(1603) & ChrW(1608) & ChrW(1583) & " " & ChrW(1575) & ChrW(1604) & ChrW(1578) & ChrW(1601) & ChrW(1593) & ChrW(1610) & ChrW(1604) & " " & ChrW(1610) & ChrW(1578) & ChrW(1594) & ChrW(1610) & ChrW(1585) & " " & ChrW(1575) & ChrW(1587) & ChrW(1576) & ChrW(1608) & ChrW(1593) & ChrW(1610) & ChrW(1575) & " " & ChrW(1603) & ChrW(1604) & " " & ChrW(1579) & ChrW(1604) & ChrW(1575) & ChrW(1579) & ChrW(1575) & ChrW(1569) & " " & ChrW(1608) & ChrW(1593) & ChrW(1606) & ChrW(1583) & " " & ChrW(1578) & ChrW(1594) & ChrW(1610) & ChrW(1610) & ChrW(1585) & ChrW(1607) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1603) & " " & ChrW(1578) & ChrW(1581) & ChrW(1605) & ChrW(1610) & ChrW(1604) & " " & ChrW(1575) & ChrW(1604) & ChrW(1603) & ChrW(1608) & ChrW(1583) & " " & ChrW(1575) & ChrW(1604) & ChrW(1580) & ChrW(1583) & ChrW(1610) & ChrW(1583) & " " & ChrW(1605) & ChrW(1606) & " " & ChrW(1586) & ChrW(1585) & " " & ChrW(1578) & ChrW(1581) & ChrW(1605) & ChrW(1610) & ChrW(1604) & " " & ChrW(1575) & ChrW(1604) & ChrW(1603) & ChrW(1608) & ChrW(1583) & "  "
          AddressOf Me.Label3.TextAlign = ContentAlignment.MiddleCenter
          AddressOf Me.PictureBox90.BackColor = Color.Transparent
          AddressOf Me.PictureBox90.BackgroundImage = CType(componentResourceManager.GetObject("PictureBox90.BackgroundImage"), Image)
          AddressOf Me.PictureBox90.BackgroundImageLayout = ImageLayout.Stretch
          AddressOf Me.PictureBox90.Cursor = Cursors.[Default]
          Dim arg_8AE_0 As Control = AddressOf Me.PictureBox90
          location = New Point(45, 76)
          arg_8AE_0.Location = location
          AddressOf Me.PictureBox90.Name = "PictureBox90"
          Dim arg_8D9_0 As Control = AddressOf Me.PictureBox90
          size = New Size(18, 18)
          arg_8D9_0.Size = size
          AddressOf Me.PictureBox90.TabIndex = 140
          AddressOf Me.PictureBox90.TabStop = False
          AddressOf Me.PictureBox90.Visible = False
          AddressOf Me.Label4.AutoSize = True
          AddressOf Me.Label4.BackColor = Color.Transparent
          AddressOf Me.Label4.Font = New Font("QuiverItal", 12F, FontStyle.Bold, GraphicsUnit.Point, 0)
          AddressOf Me.Label4.ForeColor = Color.FromArgb(0, 192, 0)
          Dim arg_971_0 As Control = AddressOf Me.Label4
          location = New Point(18, 73)
          arg_971_0.Location = location
          AddressOf Me.Label4.Name = "Label4"
          Dim arg_99C_0 As Control = AddressOf Me.Label4
          size = New Size(28, 22)
          arg_99C_0.Size = size
          AddressOf Me.Label4.TabIndex = 141
          AddressOf Me.Label4.Text = "ON"
          AddressOf Me.Label4.Visible = False
          AddressOf Me.Timer1.Enabled = True
          AddressOf Me.Timer1.Interval = 120
          AddressOf Me.Panel1.BackColor = Color.FromArgb(0, 192, 192)
          AddressOf Me.Panel1.Controls.Add(AddressOf Me.Label3)
          Dim arg_A35_0 As Control = AddressOf Me.Panel1
          location = New Point(-7, 168)
          arg_A35_0.Location = location
          AddressOf Me.Panel1.Name = "Panel1"
          Dim arg_A63_0 As Control = AddressOf Me.Panel1
          size = New Size(421, 24)
          arg_A63_0.Size = size
          AddressOf Me.Panel1.TabIndex = 142
          AddressOf Me.Button3.BackColor = Color.FromArgb(0, 192, 192)
          AddressOf Me.Button3.Cursor = Cursors.Hand
          AddressOf Me.Button3.FlatStyle = FlatStyle.Popup
          AddressOf Me.Button3.Font = New Font("Arial", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 178)
          AddressOf Me.Button3.ForeColor = Color.White
          Dim arg_AFD_0 As Control = AddressOf Me.Button3
          location = New Point(216, 70)
          arg_AFD_0.Location = location
          AddressOf Me.Button3.Name = "Button3"
          Dim arg_B28_0 As Control = AddressOf Me.Button3
          size = New Size(94, 30)
          arg_B28_0.Size = size
          AddressOf Me.Button3.TabIndex = 143
          AddressOf Me.Button3.Text = ChrW(1583) & ChrW(1582) & ChrW(1608) & ChrW(1604)
          AddressOf Me.Button3.UseVisualStyleBackColor = False
          AddressOf Me.Button3.Visible = False
          AddressOf Me.PictureBox2.BackColor = Color.Transparent
          AddressOf Me.PictureBox2.BackgroundImage = CType(componentResourceManager.GetObject("PictureBox2.BackgroundImage"), Image)
          AddressOf Me.PictureBox2.BackgroundImageLayout = ImageLayout.Stretch
          Dim arg_BBA_0 As Control = AddressOf Me.PictureBox2
          location = New Point(176, 66)
          arg_BBA_0.Location = location
          AddressOf Me.PictureBox2.Name = "PictureBox2"
          Dim arg_BE5_0 As Control = AddressOf Me.PictureBox2
          size = New Size(33, 37)
          arg_BE5_0.Size = size
          AddressOf Me.PictureBox2.TabIndex = 144
          AddressOf Me.PictureBox2.TabStop = False
          AddressOf Me.PictureBox2.Visible = False
          AddressOf Me.Button4.BackColor = Color.FromArgb(0, 192, 192)
          AddressOf Me.Button4.Cursor = Cursors.Hand
          AddressOf Me.Button4.FlatStyle = FlatStyle.Popup
          AddressOf Me.Button4.Font = New Font("Arial", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 178)
          AddressOf Me.Button4.ForeColor = Color.White
          Dim arg_C96_0 As Control = AddressOf Me.Button4
          location = New Point(77, 70)
          arg_C96_0.Location = location
          AddressOf Me.Button4.Name = "Button4"
          Dim arg_CC1_0 As Control = AddressOf Me.Button4
          size = New Size(94, 30)
          arg_CC1_0.Size = size
          AddressOf Me.Button4.TabIndex = 145
          AddressOf Me.Button4.Text = ChrW(1581) & ChrW(1584) & ChrW(1601) & " " & ChrW(1575) & ChrW(1604) & ChrW(1578) & ChrW(1601) & ChrW(1593) & ChrW(1610) & ChrW(1604)
          AddressOf Me.Button4.UseVisualStyleBackColor = False
          AddressOf Me.Button4.Visible = False
          AddressOf Me.Label5.AutoSize = True
          AddressOf Me.Label5.BackColor = Color.Transparent
          AddressOf Me.Label5.Cursor = Cursors.PanWest
          AddressOf Me.Label5.Font = New Font("Arial", 12F, FontStyle.Bold, GraphicsUnit.Point, 178)
          AddressOf Me.Label5.ForeColor = Color.FromArgb(0, 192, 192)
          Dim arg_D82_0 As Control = AddressOf Me.Label5
          location = New Point(28, 8)
          arg_D82_0.Location = location
          AddressOf Me.Label5.Name = "Label5"
          Dim arg_DAD_0 As Control = AddressOf Me.Label5
          size = New Size(110, 19)
          arg_DAD_0.Size = size
          AddressOf Me.Label5.TabIndex = 146
          AddressOf Me.Label5.Text = ChrW(1575) & ChrW(1606) & ChrW(1590) & ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1609) & " " & ChrW(1605) & ChrW(1580) & ChrW(1605) & ChrW(1608) & ChrW(1593) & ChrW(1578) & ChrW(1606) & ChrW(1575)
          AddressOf Me.Button1.BackColor = Color.FromArgb(0, 192, 192)
          AddressOf Me.Button1.Cursor = Cursors.Hand
          AddressOf Me.Button1.FlatStyle = FlatStyle.Popup
          AddressOf Me.Button1.Font = New Font("Arial", 14.25F, FontStyle.Bold, GraphicsUnit.Point, 178)
          AddressOf Me.Button1.ForeColor = Color.White
          Dim arg_E55_0 As Control = AddressOf Me.Button1
          location = New Point(74, 116)
          arg_E55_0.Location = location
          AddressOf Me.Button1.Name = "Button1"
          Dim arg_E80_0 As Control = AddressOf Me.Button1
          size = New Size(97, 28)
          arg_E80_0.Size = size
          AddressOf Me.Button1.TabIndex = 147
          AddressOf Me.Button1.Text = ChrW(1578) & ChrW(1601) & ChrW(1593) & ChrW(1610) & ChrW(1604)
          AddressOf Me.Button1.UseVisualStyleBackColor = False
          Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
          Me.AutoScaleDimensions = autoScaleDimensions
          Me.AutoScaleMode = AutoScaleMode.Font
          Me.BackgroundImage = CType(componentResourceManager.GetObject("$this.BackgroundImage"), Image)
          Me.BackgroundImageLayout = ImageLayout.Stretch
          size = New Size(396, 192)
          Me.ClientSize = size
          Me.Controls.Add(AddressOf Me.Button1)
          Me.Controls.Add(AddressOf Me.Button4)
          Me.Controls.Add(AddressOf Me.PictureBox2)
          Me.Controls.Add(AddressOf Me.Button3)
          Me.Controls.Add(AddressOf Me.Panel1)
          Me.Controls.Add(AddressOf Me.PictureBox90)
          Me.Controls.Add(AddressOf Me.Label4)
          Me.Controls.Add(AddressOf Me.PictureBox4)
          Me.Controls.Add(AddressOf Me.Label1)
          Me.Controls.Add(AddressOf Me.PictureBox64)
          Me.Controls.Add(AddressOf Me.PictureBox63)
          Me.Controls.Add(AddressOf Me.Button2)
          Me.Controls.Add(AddressOf Me.PictureBox62)
          Me.Controls.Add(AddressOf Me.TextBox1)
          Me.Controls.Add(AddressOf Me.Label2)
          Me.Controls.Add(AddressOf Me.PictureBox1)
          Me.Controls.Add(AddressOf Me.Label5)
          Me.DoubleBuffered = True
          Me.FormBorderStyle = FormBorderStyle.None
          Me.Icon = CType(componentResourceManager.GetObject("$this.Icon"), Icon)
          Me.Name = "Form3"
          Me.StartPosition = FormStartPosition.CenterScreen
          Me.Text = "Rocket TV code"
          (CType(AddressOf Me.PictureBox1, ISupportInitialize)).EndInit()
          (CType(AddressOf Me.PictureBox62, ISupportInitialize)).EndInit()
          (CType(AddressOf Me.PictureBox64, ISupportInitialize)).EndInit()
          (CType(AddressOf Me.PictureBox63, ISupportInitialize)).EndInit()
          (CType(AddressOf Me.PictureBox4, ISupportInitialize)).EndInit()
          (CType(AddressOf Me.PictureBox90, ISupportInitialize)).EndInit()
          AddressOf Me.Panel1.ResumeLayout(False)
          AddressOf Me.Panel1.PerformLayout()
          (CType(AddressOf Me.PictureBox2, ISupportInitialize)).EndInit()
          Me.ResumeLayout(False)
          Me.PerformLayout()
      End Sub

      Private Sub Button1_Click(sender As Object, e As EventArgs)
          Dim flag As Boolean = Operators.CompareString(AddressOf Me.Label2.Text, AddressOf Me.TextBox1.Text, False) = 0
          If flag Then
              AddressOf AddressOf MyProject.Forms.Form1.Show()
              Me.Hide()
          Else
              Interaction.MsgBox(ChrW(1575) & ChrW(1604) & ChrW(1603) & ChrW(1608) & ChrW(1583) & " " & ChrW(1594) & ChrW(1610) & ChrW(1585) & " " & ChrW(1589) & ChrW(1581) & ChrW(1610) & ChrW(1581) & " " & ChrW(1575) & ChrW(1608) & " " & ChrW(1602) & ChrW(1583) & ChrW(1610) & ChrW(1605) & " " & ChrW(1575) & ChrW(1590) & ChrW(1594) & ChrW(1591) & " " & ChrW(1593) & ChrW(1604) & ChrW(1609) & " " & ChrW(1578) & ChrW(1581) & ChrW(1605) & ChrW(1610) & ChrW(1604) & " " & ChrW(1575) & ChrW(1604) & ChrW(1603) & ChrW(1608) & ChrW(1583) & " " & ChrW(1608) & ChrW(1602) & ChrW(1605) & " " & ChrW(1576) & ChrW(1578) & ChrW(1581) & ChrW(1605) & ChrW(1610) & ChrW(1604) & ChrW(1607) & " " & ChrW(1579) & ChrW(1605) & " " & ChrW(1602) & ChrW(1605) & " " & ChrW(1576) & ChrW(1608) & ChrW(1590) & ChrW(1593) & ChrW(1607) & " " & ChrW(1601) & ChrW(1609) & " " & ChrW(1575) & ChrW(1604) & ChrW(1582) & ChrW(1575) & ChrW(1606) & ChrW(1577), MsgBoxStyle.Critical, Nothing)
          End If
      End Sub

      Private Sub Form3_Load(sender As Object, e As EventArgs)
          Dim webClient As WebClient = New WebClient()
          AddressOf Me.Label2.Text = webClient.DownloadString("https://dl.dropbox.com/s/ou64zibbes0tvt5/Rocket%20TV%20code.txt?dl=0")
          AddressOf Me.TextBox1.Text = AddressOf AddressOf MySettingsProperty.Settings.code
          Dim flag As Boolean = Operators.CompareString(AddressOf AddressOf MySettingsProperty.Settings.code, AddressOf Me.Label2.Text, False) = 0
          If flag Then
              AddressOf Me.Label1.Hide()
              AddressOf Me.Label4.Show()
              AddressOf Me.PictureBox90.Show()
              AddressOf Me.TextBox1.Hide()
              AddressOf Me.PictureBox1.Hide()
              AddressOf Me.Button1.Hide()
              AddressOf Me.Button2.Hide()
              AddressOf Me.Button3.Show()
              AddressOf Me.PictureBox2.Show()
              AddressOf Me.Button4.Show()
          End If
      End Sub

      Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
      End Sub

      Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
      End Sub

      Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
      End Sub

      Private Sub PictureBox2_Click(sender As Object, e As EventArgs)
      End Sub

      Private Sub Button2_Click(sender As Object, e As EventArgs)
          Process.Start("http://gsul.me/cqAi")
      End Sub

      Private Sub Form3_MouseDown(sender As Object, e As MouseEventArgs)
          (CType(sender, Control)).Capture = False
          Dim message As Message = Message.Create((CType(sender, Control)).Handle, 161, CType(2, IntPtr), CType(2, IntPtr))
          Me.WndProc(message)
      End Sub

      <MethodImpl(MethodImplOptions.NoInlining Or MethodImplOptions.NoOptimization)>
      Private Sub PictureBox3_Click(sender As Object, e As EventArgs)
          ProjectData.EndApp()
      End Sub

      Private Sub PictureBox4_Click(sender As Object, e As EventArgs)
          Me.WindowState = FormWindowState.Minimized
      End Sub

      Private Sub LinkLabel1_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs)
          Process.Start("https://www.facebook.com/profile.php?id=100008979812269&ref=bookmarks")
      End Sub

      Private Sub Timer1_Tick(sender As Object, e As EventArgs)
      End Sub

      Private Sub PictureBox63_Click(sender As Object, e As EventArgs)
          Me.WindowState = FormWindowState.Minimized
      End Sub

      <MethodImpl(MethodImplOptions.NoInlining Or MethodImplOptions.NoOptimization)>
      Private Sub PictureBox64_Click(sender As Object, e As EventArgs)
          ProjectData.EndApp()
      End Sub

      Private Sub PictureBox5_Click(sender As Object, e As EventArgs)
          Process.Start("http://get.videolan.org/vlc/3.0.3/win32/vlc-3.0.3-win32.7z")
      End Sub

      Private Sub Button3_Click(sender As Object, e As EventArgs)
      End Sub

      Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
      End Sub

      Private Sub Label3_Click(sender As Object, e As EventArgs)
      End Sub

      Private Sub Timer1_Tick_1(sender As Object, e As EventArgs)
          Dim flag As Boolean = AddressOf Me.Label3.Left < Me.Width
          ' The following expression was wrapped in a checked-statement
          If flag Then
              Dim label As Label = AddressOf Me.Label3
              label.Left += 6
          Else
              AddressOf Me.Label3.Left = 0 - AddressOf Me.Label3.Width
          End If
      End Sub

      Private Sub Button3_Click_1(sender As Object, e As EventArgs)
          Dim flag As Boolean = Operators.CompareString(AddressOf AddressOf MySettingsProperty.Settings.code, AddressOf Me.Label2.Text, False) = 0
          If flag Then
              AddressOf AddressOf MyProject.Forms.Form1.Show()
              Me.Hide()
          Else
              Interaction.MsgBox(ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1603) & " " & ChrW(1578) & ChrW(1601) & ChrW(1593) & ChrW(1610) & ChrW(1604) & " " & ChrW(1575) & ChrW(1604) & ChrW(1576) & ChrW(1585) & ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(1580) & " " & ChrW(1575) & ChrW(1608) & ChrW(1604) & ChrW(1575), MsgBoxStyle.Critical, Nothing)
          End If
      End Sub

      Private Sub Button4_Click(sender As Object, e As EventArgs)
          AddressOf MySettingsProperty.Settings.Reset()
          AddressOf Me.Label1.Show()
          AddressOf Me.PictureBox4.Show()
          AddressOf Me.Label4.Hide()
          AddressOf Me.PictureBox90.Hide()
          Interaction.MsgBox(ChrW(1578) & ChrW(1605) & " " & ChrW(1581) & ChrW(1584) & ChrW(1601) & " " & ChrW(1575) & ChrW(1604) & ChrW(1578) & ChrW(1601) & ChrW(1593) & ChrW(1610) & ChrW(1604) & " " & ChrW(1575) & ChrW(1593) & ChrW(1583) & " " & ChrW(1578) & ChrW(1588) & ChrW(1594) & ChrW(1610) & ChrW(1604) & " " & ChrW(1575) & ChrW(1604) & ChrW(1576) & ChrW(1585) & ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(1580), MsgBoxStyle.Information, Nothing)
      End Sub

      Private Sub PictureBox62_Click(sender As Object, e As EventArgs)
          Process.Start("https://www.facebook.com/groups/1688143571294619/?ref=bookmarks")
      End Sub

      <MethodImpl(MethodImplOptions.NoInlining Or MethodImplOptions.NoOptimization)>
      Private Sub Button1_Click_1(sender As Object, e As EventArgs)
          Dim flag As Boolean = Operators.CompareString(AddressOf Me.TextBox1.Text, AddressOf Me.Label2.Text, False) = 0
          If flag Then
              AddressOf AddressOf MySettingsProperty.Settings.code = AddressOf Me.TextBox1.Text
              AddressOf MySettingsProperty.Settings.Save()
              AddressOf MySettingsProperty.Settings.Reload()
              AddressOf Me.Label1.Hide()
              AddressOf Me.PictureBox4.Hide()
              AddressOf Me.Label4.Show()
              AddressOf Me.PictureBox90.Show()
              Interaction.MsgBox(ChrW(1578) & ChrW(1605) & " " & ChrW(1578) & ChrW(1601) & ChrW(1593) & ChrW(1610) & ChrW(1604) & " " & ChrW(1575) & ChrW(1604) & ChrW(1576) & ChrW(1585) & ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(1580) & " " & ChrW(1576) & ChrW(1606) & ChrW(1580) & ChrW(1575) & ChrW(1581) & " " & ChrW(1575) & ChrW(1593) & ChrW(1583) & " " & ChrW(1578) & ChrW(1588) & ChrW(1594) & ChrW(1610) & ChrW(1604) & " " & ChrW(1575) & ChrW(1604) & ChrW(1576) & ChrW(1585) & ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(1580), MsgBoxStyle.Information, Nothing)
              AddressOf Me.TextBox1.Text = AddressOf AddressOf MySettingsProperty.Settings.code
              AddressOf MySettingsProperty.Settings.Save()
              AddressOf Me.TextBox1.Focus()
              ProjectData.EndApp()
          Else
              Interaction.MsgBox(ChrW(1603) & ChrW(1608) & ChrW(1583) & " " & ChrW(1575) & ChrW(1604) & ChrW(1578) & ChrW(1601) & ChrW(1593) & ChrW(1610) & ChrW(1604) & " " & ChrW(1594) & ChrW(1610) & ChrW(1585) & " " & ChrW(1589) & ChrW(1581) & ChrW(1610) & ChrW(1581) & " " & ChrW(1590) & ChrW(1593) & " " & ChrW(1575) & ChrW(1604) & ChrW(1603) & ChrW(1608) & ChrW(1583) & " " & ChrW(1575) & ChrW(1604) & ChrW(1589) & ChrW(1581) & ChrW(1610) & ChrW(1581) & " " & ChrW(1579) & ChrW(1605) & " " & ChrW(1575) & ChrW(1590) & ChrW(1594) & ChrW(1591) & " " & ChrW(1578) & ChrW(1601) & ChrW(1593) & ChrW(1610) & ChrW(1604), MsgBoxStyle.Critical, Nothing)
          End If
      End Sub
  End Class
End Namespace
الرد
تم الشكر بواسطة:
#5






شوووووووووف هاد
الرد
تم الشكر بواسطة: ScreamVoice , asemshahen5
#6
(09-10-18, 04:53 AM)ay.alhaj كتب :





شوووووووووف هاد


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

شكرا يا اخي
الرد
تم الشكر بواسطة:
#7
مفيش حد يا شباب يفيدني

انا واقف  اني اعرف اعمل سيف للباسورد داخل ال settings وازاي اعملها حذف
الرد
تم الشكر بواسطة:
#8
my.settings,name=""
my.settings. save 

كود :
my.settings,name=""
my.settings.save
في الحذف والحفظ كمان نفس طريقة
my.settings.name=textbox1.text
my.settings,save
الرد
تم الشكر بواسطة: ScreamVoice
#9
(11-10-18, 12:01 AM)spoony كتب : my.settings,name=""
my.settings. save 

كود :
my.settings,name=""
my.settings.save
في الحذف والحفظ كمان نفس طريقة
my.settings.name=textbox1.text
my.settings,save


ممكن توضيح لو سمحت
الرد
تم الشكر بواسطة:
#10
https://stackoverflow.com/questions/1735...made-in-vb
بسم الله الرحمن الرحيم > "اللَّهُ نُورُ السَّمَاوَاتِ وَالْأَرْضِ ۚ مَثَلُ نُورِهِ كَمِشْكَاةٍ فِيهَا مِصْبَاحٌ ۖ الْمِصْبَاحُ فِي زُجَاجَةٍ ۖ الزُّجَاجَةُ كَأَنَّهَا كَوْكَبٌ دُرِّيٌّ يُوقَدُ مِن شَجَرَةٍ مُّبَارَكَةٍ زَيْتُونَةٍ لَّا شَرْقِيَّةٍ وَلَا غَرْبِيَّةٍ يَكَادُ زَيْتُهَا يُضِيءُ وَلَوْ لَمْ تَمْسَسْهُ نَارٌ ۚ نُّورٌ عَلَىٰ نُورٍ ۗ يَهْدِي اللَّهُ لِنُورِهِ مَن يَشَاءُ ۚ وَيَضْرِبُ اللَّهُ الْأَمْثَالَ لِلنَّاسِ ۗ وَاللَّهُ بِكُلِّ شَيْءٍ عَلِيمٌ" < صدق الله العظيم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب تعديل كود ahmedmansour 1 44 منذ 9 ساعة مضت
آخر رد: ahmedmansour
  [VB.NET] كيفية عرض column الليست فيو عموديا و تفعيل خاصية الشيك بوكس larbihamri 0 21 22-10-18, 09:38 AM
آخر رد: larbihamri
  [VB.NET] مساعده :- في تعديل كود الطباعه dubai.eig 9 221 11-10-18, 02:34 PM
آخر رد: عبدالله الدوسري
  سؤال عن تفعيل البرنامج عن طريق الفلاش ميمورى asemshahen5 7 256 07-10-18, 09:48 PM
آخر رد: %Eman%
  تعديل كود بحث بسيط dasktop 5 146 05-10-18, 12:43 AM
آخر رد: elgokr
  [سؤال] محتاج تعديل بسيط في كود ScreamVoice 7 147 04-10-18, 06:41 AM
آخر رد: ScreamVoice
  سؤال فى تفعيل البرنامج salah mansour 1 85 02-10-18, 12:10 AM
آخر رد: Hazem1
  سؤال حول تعديل على نص trakktour 5 141 01-10-18, 02:57 AM
آخر رد: rnmr
  احد يساعدني في تعديل هذا الكود nagoma 0 64 29-09-18, 12:06 AM
آخر رد: nagoma
  تعديل بسيط dasktop 4 141 25-09-18, 10:50 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم