Comment faire un Adventure Quest Trainer dans Microsoft Visual Basic

January 2

Adventure Quest, aussi connu comme AQ, est en ligne un jeu de rôle populaire (RPG) qui a été développé par Artix Entertainment en 2002. Dans le jeu, vous jouez le rôle d'un héros qui bat des monstres et méchants pour gagner des points d'expérience et de l'or et pour remonter les niveaux. Vous pouvez tricher dans AQ en utilisant un entraîneur, ce qui vous donne la possibilité de changer les statistiques, niveau instantanément et choisir différentes armes et armures. Vous pouvez faire votre propre formateur dans Visual Basic.

Instructions

1 Ouvrez Microsoft Visual Basic en cliquant sur l'icône sur votre bureau. Ou cliquez sur "Démarrer", "Tous les programmes" et "Microsoft Visual Basic".

2 Cliquez sur "Fichier", "Nouveau projet" et "EXE standard" dans la barre de menu en haut, puis cliquez sur "OK". Un formulaire vierge 1 ouvre.

3 Faites un clic droit sur la boîte à outils sur la gauche, cliquez sur "Composants", cochez la case à cocher "Shockwave Flash" et cliquez sur "OK". Un formulaire vierge ouvre. Cliquez sur nulle part, et sélectionnez la région que vous voulez montrer.

4 Cliquez sur l'outil zone de texte sur la droite. Il est une boîte blanche avec une bordure noire. Une fois que vous sélectionnez l'outil zone de texte, dessiner la zone de texte sur le formulaire à l'aide de votre souris. Dessinez une deuxième zone de texte sous la première.

5 Cliquez dans la première zone de texte, et tapez "aq.battleon.com/build30/game.asp?launchtype=medium." Cliquez dans la deuxième zone de texte, et tapez "aq.battleon.com/build30/engine/lore3386.swf."

6 Double-cliquez sur "Formule 1," et tapez le code suivant:

ShockwaveFlash1.FlashVars = "strGUI = moyen et strServer = AQ10 & strLanguage = & strAutoAd = no"

entre:

Code:

Private Sub Form1_Load ()

End Sub

7 Sélectionnez "Form" dans le menu déroulant, et entrez le code suivant:

Private Sub Form_Load ()

ShockwaveFlash1.Movie = Form1.Text2.Text

ShockwaveFlash1.Base = Form1.Text1.Text

ShockwaveFlash1.FlashVars = "strGUI=medium&strServer=aq10&strLanguage=&strAutoAd=no"

End Sub

8 Appuyez sur la touche "F5" pour enregistrer et tester le formateur.