المشاركات : 60
المواضيع 14
الإنتساب : Sep 2018
السمعة :
0
الشكر: 30
تم شكره 25 مرات في 16 مشاركات
08-10-18, 07:08 PM
(آخر تعديل لهذه المشاركة : 08-10-18, 07:23 PM {2} بواسطة ScreamVoice.)
السلام عليكم ورحمة الله وبركاته
انا طلبي النهارده بالنسبه ليا هو صعب ودورت كتيره وموصلتش لنتيجة
علشان كده عملت الموضوع دا
لاني متاكد ان هلاقي هنا حد يساعدني كالعادة
دلوقتي عايز اعمل برمجة مثل دي
في حالة الضغط علي التفعيل بعد تحميل الكود والكود مظبوط
يطلع رساله يقولك الرجاء ا عادة تشغيل البرنامج
لما بتقفل البرنامج وتشغله تاني الكود بيتحفظ تلقائي ويظهر الفورم دا
بتضغط علي دخول بيفتح البرنامج
والزر التاني لو عايز تحدف التفعيل
يطلع رساله الرجاء اعادة تشغيل البرنامج
وتحط تفعيل جديد
انا عملت الواجهه الاولي دي
ودا الكود المستخدم فيه
كود :
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
اما الفورم التاني لسه معملتوش لاني مش عارف التعديل التاني هيظهر في نفس الفورم ولا فورم جديد
المطلوب التعديل في الكود بتاعي علشان يبقي نفس اللي في الصوره
ولو امكن ان لو انا غيرت كود التفعيل يلغي التفعيل تلقائي
بدل ما اعمل حذف تفعيل
ويدخل علي طول علي الواجهه الاولى بتاع ادخل كود التفعيل
هيكون عن طريقة التطابق مع موقع الدروب اللي عامل عليه الباسورد
بس للاسف مش عارف اعمل كل دا ازاي
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
في الحقيقة هي مجموعة طلبات وليس طلب واحد .
1- تحميل الكود .
2- التأكد من صحة الكود .
3- تفعيل التطبيق .
4- إظهار رسالة بإعادة تشغيل التطبيق .
5- التأكد ان التطبيق مفعل وظهور شاشة خاصة .
6- حذف تفعيل التطبيق .
المطلوب منك :
اولاً : توضيح "تحميل الكود يتم من وين" .
ثانياً : التأكد من صحة كود التفعيل بناء على ماذا ! هل هناك ليستة بأكواد التفعيل الصحيحة لمعرفة هل كود التفعيل صحيح أو خطأ ؟
ثالثاً : اين تريد حفظ التفعيل بعد عملية تفعيل التطبيق بالكود الصحيح ! هل في ملف txt أو ملفات التطبيق settings
رابعاً : اين مشروعك للتعديل عليه .
هذا للتسهيل عليك للحصول على إجابة بشكل سريع .
يا رحمن الدنيا والآخرة ورحيمهما
المشاركات : 60
المواضيع 14
الإنتساب : Sep 2018
السمعة :
0
الشكر: 30
تم شكره 25 مرات في 16 مشاركات
(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
المشاركات : 60
المواضيع 14
الإنتساب : Sep 2018
السمعة :
0
الشكر: 30
تم شكره 25 مرات في 16 مشاركات
الكود دا انا سحبه من البرنامج عن طريق برنامج اخر بيظهر الاكواد
بس بالشكل دا ومش قادر اطلع منه الاكواد المستخدمه
ممكن يفيد
كود :
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
المشاركات : 68
المواضيع 5
الإنتساب : Sep 2018
السمعة :
1
الشكر: 21
تم شكره 52 مرات في 34 مشاركات
المشاركات : 60
المواضيع 14
الإنتساب : Sep 2018
السمعة :
0
الشكر: 30
تم شكره 25 مرات في 16 مشاركات
(09-10-18, 04:53 AM)ay.alhaj كتب :
شوووووووووف هاد
هو الشرح جميل ومتميز لكن مش هيفيدني
انا بعمل كود بسيط من غير داتا بيز
شكرا يا اخي
المشاركات : 60
المواضيع 14
الإنتساب : Sep 2018
السمعة :
0
الشكر: 30
تم شكره 25 مرات في 16 مشاركات
مفيش حد يا شباب يفيدني
انا واقف اني اعرف اعمل سيف للباسورد داخل ال settings وازاي اعملها حذف
المشاركات : 40
المواضيع 2
الإنتساب : Jan 2016
السمعة :
0
الشكر: 2
تم شكره 10 مرات في 9 مشاركات
my.settings,name=""
my.settings. save
كود :
my.settings,name=""
my.settings.save
في الحذف والحفظ كمان نفس طريقة
my.settings.name=textbox1.text
my.settings,save
المشاركات : 60
المواضيع 14
الإنتساب : Sep 2018
السمعة :
0
الشكر: 30
تم شكره 25 مرات في 16 مشاركات
(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
ممكن توضيح لو سمحت
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
يا رحمن الدنيا والآخرة ورحيمهما
|