F.c Maccabi Haifa
הכנת KEYGEN מקצועי. (:
מצרכים:
Visual Basic 2008/6
ממש טיפה ידע לא חובה אבל זה יעזור.
הורדה של התוכנה (זה של מיקרוסופט אז לא לדאוג...)
לא חובה למי שיש כבר...:
http://www.f2h.co.il/4496792829596
http://www.megaupload.com/?d=1J39RJUZ
http://www.fileflyer.com/view/w0dn6A3
טוב בואו נתחיל!:
קודם כל פתחו את התוכנה היא תראה ככה:
[IMG]http://www.************/images/statusicon/wol_error.gif[/IMG]התמונה הזו הוקטנה בעקבות גודלה המירבי. לחץ עליה כדי לצפות בגודל המקורי.
טוב כמו שאנחנו רואים יש אפשרות לעשות עבודה חדשה או לפתוח עבודה...
תעשו עבודה חדשה ואז יופיע חלון כזה:
[IMG]http://www.************/images/statusicon/wol_error.gif[/IMG]התמונה הזו הוקטנה בעקבות גודלה המירבי. לחץ עליה כדי לצפות בגודל המקורי.
(שמאלי תמונה ראשונה ימיני תמונה שניה...)
טוב עכשיו לחצו Ok...
יפתח לכם עבודה חדשה עכשיו מה שאנחנו צריכים להוסיף זה:
Button
TextBox
עכשיו תשימו אותם איפה שאתם רוצים...
תמונות של הפריטים:
(הפריטים נמצאים בצד שמאל...)
עכשיו סדרו אותם לחצו פעם אחת על הכפתור (Button) ואז בצד שמאל ישתנה
לכם המאפיינים... (כלומר המאפיינים יהיו של הכפתור)
עכשיו חפשו במאפיינים את השורה הבאה:
Text:
ושנו שם למה שבא לכם.
תמונה איפה זה נמצא ואיך זה נראה:
כמובן שמומלץ לשנות את הטקסט ל-Generate מכיוון שזה KeyGen
והחלק של ה-Gen במילה מכוון למילה Generate שזה "צור"
כלומר יצירת מפתח.(כניסה)
עכשיו לחצו פעמיים על הכפתור ואז יפתח לכם חלון חדש ובוא יהיה הפקודות
פה אתם תצטרכו לשים אותם (אני יתן בהמשך):
[IMG]http://www.************/images/statusicon/wol_error.gif[/IMG]התמונה הזו הוקטנה בעקבות גודלה המירבי. לחץ עליה כדי לצפות בגודל המקורי.
עכשיו אתם מעתיקים את הקוד הזה:
ציטוט:
Dim key As Integer
key = Int(Rnd() * 10)
Select key
Case 1
TextBox1.Text = "1"
Case 2
TextBox1.Text = "2"
Case 3
TextBox1.Text = "3"
Case 4
TextBox1.Text = "4"
Case 5
TextBox1.Text = "5"
Case 6
TextBox1.Text = "6"
Case 7
TextBox1.Text = "7"
Case 8
TextBox1.Text = "8"
Case 9
TextBox1.Text = "9"
Case 10
TextBox1.Text = "10"
End Select
מה שעשינו כאן זה אמרנו לא שכל לחיצה על הכפתור
הוא ישנה את ה-Textbox לאחד המספרים המסומנים
במלחאות כמובן באופן רנדומאלי...(אקראי)
עכשיו אתם יכולים לשנות את המספרים לסיריאלים או למשתמשים
זה לא משנה ואתם יכולים גם להוריד ולהוסיף Case מקרים...
כלומר אם אני רוצה להוסיף את הCase ה 11 אני עושה ככה:
משנה את הקוד בהתחלה :
ציטוט:
Dim key As Integer
key = Int(Rnd() * 10)
במקם 10 אני עושה 11:
ציטוט:
Dim key As Integer
key = Int(Rnd() * 11)
עכשיו אני מוסיף את הקוד לפני ה-End Select כלומר:
ציטוט:
Case 10
TextBox1.Text = "10"
Case 11
Textbox1.Text = "11"
End Select
תהנו!!! רק תפעילו את הקובץ בסיום!!!
כדי להפעיל הנה מדריך מקוצר:
[IMG]http://www.************/images/statusicon/wol_error.gif[/IMG]התמונה הזו הוקטנה בעקבות גודלה המירבי. לחץ עליה כדי לצפות בגודל המקורי.
תהנו
ציטוט ההודעה
. *
נכתב במקור על ידי יארדן
