[ طلب ] من محترفي الفيجوال باسيك vb6

ReCos · 27 ديسمبر 2010

السلام عليكم
ارجو المساعدة من خبراء ومحترفي الفجوال باسيك
اخواني الاعزاء محتاج برنامج مولد سريالات Keygenerator والمشروع يكون معه
لكي اعدل عليه واضيف له سريلات اخرى ايضافية
البرنامج يكون فيه اليوزر نيم ثابت مثلا devpoint اي اسم تريده
وهذه هي السريالات
DRTI7-7DB27-A5271-8C4A7-FB57D
7DB27-A5271-8C4A7-FB57A-DRTIO

والمشروع يكون مع البرنامج لكي اعدل عليه
ولكم مني احلى تقييم
وافضل الدعوات

ReCos · 27 ديسمبر 2010

رد: من محترفي الفيجوال باسيك vb6

ليس هناك اي احد محترف في الفيجوال بسيك يساعدني؟؟؟؟؟ :31:

H!T MaN · 27 ديسمبر 2010

رد: من محترفي الفيجوال باسيك vb6

^^
العضوية مهكرهـ لا تردوا عليه

ReCos · 27 ديسمبر 2010

رد: من محترفي الفيجوال باسيك vb6

إقتباس من : jijjj

هل اعرفك !!!!!!
هل تعرفني !!!!!
عملتك شي انا !!!!
يا اخي اتقي الله

3lawlaw · 27 ديسمبر 2010

رد: من محترفي الفيجوال باسيك vb6

ثواني واجيب لك موضوع الشرح ..,
!! :32:

3lawlaw · 27 ديسمبر 2010

رد: من محترفي الفيجوال باسيك vb6

هذا رابط الموضوع ... هنـــــــــــــــــــــآآ ,
وهذا الكوود

كود:

Text1.Text = Int(Rnd() * 6)
Select Case Text1.Text
Case 0
Text1.Text = "welcome"
Case 1
Text1.Text = "dev-point"
Case 2
Text1.Text = "karim_topten"
Case 3
Text1.Text = "stop hacker"
Case 4
Text1.Text = " gracais "
Case 5
Text1.Text = "ok"
End Select

3lawlaw · 27 ديسمبر 2010

رد: من محترفي الفيجوال باسيك vb6

جرب هذا يمكن يضبط ,,

كود:

Text1.Text = Int(Rnd() * 6)
Select Case Text1.Text
Case 0
Text1.Text = "DRTI7-7DB27-A5271-8C4A7-FB57D"
Case 1
Text1.Text = "7DB27-A5271-8C4A7-FB57A-DRTIO"
End Select

ReCos · 27 ديسمبر 2010

رد: من محترفي الفيجوال باسيك vb6

إقتباس من : 3lawlaw

شكرا اخي الكريم بارك الله فيك لكن المشكلة انني لا اعرف كيف ادخل الاكواد
ولو تكرمت تصنعلي انت المشروع

3lawlaw · 27 ديسمبر 2010

رد: من محترفي الفيجوال باسيك vb6

إقتباس من : 3lawlaw

شرح الكوود / فقط ضيف اداة text1 وضع هذا الكود في زر كوماند عادي ..
---------------------------------------------------------------------------------
لتزيين البرنامج ,, :
لوضع دائرة حمراء حول الماوس : ضع هالكوود في الفورم ,,

كود:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _

[/CENTER]

كود:

[CENTER][SIZE=3][COLOR=darkred]X As Single, Y As Single)[/COLOR][/SIZE]
[CENTER][SIZE=3][COLOR=darkred]Me.Cls[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred]Circle (X, Y), 100, vbRed[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred]End Sub [/COLOR][/SIZE][/CENTER]
[/CENTER]

لنسخ ما في text1 : ضع هذا الكود في زر كوماند عادي

كود:

With Text1

كود:

[CENTER][SIZE=3][COLOR=darkred].SelStart = 0[/COLOR][/SIZE]
[CENTER][SIZE=3][COLOR=darkred].SelLength = Len(.Text)[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred]Clipboard.Clear[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred].SetFocus[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred]Clipboard.SetText .Text[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred]End With[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred]MsgBox "تم النسخ بنجاح", , "عملية النسخ" [/COLOR][/SIZE][/CENTER]

كوود إفراغ جميع حقوول الـ text : ضع هذا الكوود في زر كوماند عادي ,,

كود:

Dim i As Integer

[/CENTER]

كود:

[CENTER][SIZE=3][COLOR=darkred]For i = 0 To Me.Controls.Count - 1[/COLOR][/SIZE]
[CENTER][SIZE=3][COLOR=darkred]If TypeOf Me.Controls(i) Is TextBox Then[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred]Me.Controls(i).Text = ""[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred]End If[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred]Next [/COLOR][/SIZE][/CENTER]

للخرووج من البرنامج .. ضع هذا الكود في زر كوماند عادي :

كود:

d = msgbox("آنت الان تحاول الخروج من البرنامج هل انت متاكد من هذا الرغبـه", vbyesno + vbinformation, "تنبيــه ,,")

[/CENTER]

كود:

[CENTER][SIZE=3][COLOR=darkred]select case d[/COLOR][/SIZE]
[CENTER][SIZE=3][COLOR=darkred]case vbyes[/COLOR][/SIZE]
[SIZE=3][COLOR=darkred]end[/COLOR][/SIZE]

[SIZE=3][COLOR=darkred]end select[/COLOR][/SIZE][/CENTER]

[/CENTER]