15-08-13, 06:52 AM
ممكن اي واحد يعمل مثال يطلب سيريال بنفس التنسيق اي بين كل شرطة (-) اربع ارقام ولا تحتوي حروف لكي نجرب الفكرة ياترى كم ناخذ وقت لنصل للرقم الصحيح؟




(04-08-19, 03:11 AM)أمجد وضاح كتب : [ -> ]يا اخي كود توليد السريال مانفع معي جربته هذا حق اي اصدار من الفجوال بيسك حقي 2013
انا مبتدئ في اللغه ممكن توضحوا اكثر
وشكرا![]()
![]()
Public Class Form1
Public Pont As Point
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
Pont = e.Location
End If
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Location += e.Location - Pont
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TransparencyKey = BackColor
End SubClipboard.SetText(Text1.text)
Label1.text="تم النسخ بنجاح"(14-08-13, 06:39 PM)@@أبورائد@@ كتب : [ -> ]أخي هذه الفكرة للتطبيق ولن تستخدمها لإختراق البرامج لا
السلام عليكم ورحمة الله وبركاته
أخواني الأعزاء، الحلال بيّن والحرام بيّن
لا يبحث عن السيريال أو الكيجين إلا من لديه نسخة من برنامج ويريد أن يفعلها بدون مقابل أي بدون حق
نصيحة لله: أنصح الأخوة عدم التفاعل مع هذه المواضيع
نسأل الله أن نسلم من حقوق الآخرين
السلام عليكم ورحمة الله وبركاته