Open VB6 . Ανοίγει το αναδυόμενο παράθυρο " New Project" . Κάντε κλικ στο εικονίδιο "Standard EXE " στο "New Project Window " για να το επιλέξετε και κάντε κλικ στο "Άνοιγμα ". Ένα μικρό παράθυρο που ονομάζεται " Φόρμα1 " ανοίγει . 2
Κάντε κλικ στο κουμπί "A" κειμένου από τη γραμμή εργαλείων στην αριστερή πλευρά . Πληκτρολογήστε τον τίτλο για την keygen ή απλά " keygen . " Κάντε κλικ στο " Format " στο μενού στην κορυφή . Μετακινήστε το ποντίκι πάνω βέλος " Κέντρο Form" και κάντε κλικ στο " οριζόντια ".
Εικόνων 3
Κάντε κλικ στο " κουμπί Κείμενο " εργαλείο . Κάντε κλικ στην αριστερή πλευρά του " Form1 " και σύρετε το ποντίκι κατά μήκος για να δημιουργήσετε ένα πεδίο κειμένου . Κάντε κλικ στο κουμπί "Command Button " . Κάντε κλικ στο " Φόρμα1 " κάτω από το πεδίο κειμένου και σύρετε για να κάνει ένα κουμπί . Πληκτρολογήστε "Δημιουργία" για να αναφέρουμε το κουμπί . Σύρετε για να το τοποθετήσετε στην επιθυμητή θέση .
Η
4 Κάντε διπλό κλικ στο κουμπί "Δημιουργία " για να ανοίξετε το παράθυρο κώδικα . Κάντε κλικ στο κουμπί κάτω από την πρώτη γραμμή , " Private Sub Command1_Click ( ) " , και το είδος ή αντιγραφή και επικόλληση :
Dim Key As Integer
Key = Int ( Rnd ( ) * 3 )
Select Case Key
υπόθεση 0
Text1.text = " κλειδί "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα