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