Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να κάνει μια διεύθυνση URL Keygen σε VB6

A keygen δημιουργεί μια τυχαία τιμή συμβολοσειράς που εμφανίζεται στους αναγνώστες σας . Αν φιλοξενήσει μια υπηρεσία shortener URL θα πρέπει να δημιουργήσετε έναν τυχαία τιμή που περιέχει τον τομέα στον οποίο οι παραγόμενοι πόντοι URL . Μπορείτε να δημιουργήσετε τυχαία μια σειρά οποιουδήποτε μήκους σε Visual Basic 6 για να διευκολύνουν τη δημιουργία της υπηρεσίας keygen URL . Η υπηρεσία χρησιμοποιεί το VB6 λειτουργία " γύρος " για να δημιουργήσει έναν τυχαίο αριθμό που οδηγεί σε ένα γράμμα του αλφαβήτου . Οδηγίες
Η

1 Ανοίξτε το αρχείο του κώδικα VB6 που θέλετε να χρησιμοποιήσετε για να δημιουργήσετε την τιμή keygen . Μπορεί να είναι οποιοδήποτε αρχείο που φιλοξενεί URL shortener κωδικό υπηρεσία σας . Συνήθως, μπορείτε να τοποθετήσετε αυτόν τον κώδικα στην ενότητα υποβολή της φόρμας όταν το website σας αναγνώστη υποβάλλει τον τομέα για μείωση . 2

Ορίστε τα γράμματα του αλφαβήτου που θέλετε να χρησιμοποιήσετε για να δημιουργήσετε το string . Ο πίνακας που δημιουργείτε συνεργάτες κάθε γράμμα με έναν αριθμό και αυτοί οι αριθμοί ανακτήσει ένα τυχαίο γράμμα από τον πίνακα . Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε τη σειρά των γραμμάτων :

Δημ. LettersArray Όπως Char ( ) LettersArray = " abcdefghijklmnopqrstuvwxyz "
εικόνων 3

Δημιουργήστε μια μεταβλητή συμβολοσειράς να περιέχει την τυχαιοποιημένη γράμματα? αυτή η συμβολοσειρά γίνεται τελικά επέστρεψε αξία keygen σας , αλλά θα πρέπει να βρόχο μέσω κάθε γράμμα και να ανακτήσει ένα χαρακτήρα που είναι προσαρτημένη στην μεταβλητή συμβολοσειράς . Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε τη μεταβλητή :

Dim keygen Όπως String
4

Δημιουργήστε μια θηλιά που παράγει τυχαία έναν αριθμό και χρησιμοποιεί τον αριθμό αυτό για να ανακτήσετε ένα έγγραφο από το χαρακτήρα πίνακα. Μετά την επιστολή ξαναβρεθεί, να επισυναφθεί στο « keygen " μεταβλητή . Ο παρακάτω κώδικας δημιουργεί τη συμβολοσειρά URL :

Για i = 0 έως 10Randomize ( ) Random1 = Rnd ( ) keygent = keygen & LettersArray ( Random1 ) Loop
5

Εκτυπώστε το παράγεται κορδόνι στην ιστοσελίδα . Για παράδειγμα , εάν η υπηρεσία shortener σας έχει τον τομέα " domain.com , " οι παρακάτω κώδικα εκτυπώνει το keygen URL που δημιουργήθηκε για την συντομευμένη διεύθυνση URL :

Response.Write " http://domain.com /" & keygen
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα