التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
طلب تعديل علي كود تفعيل وحفظ التفعيل - بواسطة ScreamVoice - 08-10-18, 07:08 PM


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


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