Frontier elite tips "jeux de david braden"

Soyez le premier à donner votre avis sur cette source.

Vue 3 313 fois - Téléchargée 204 fois

Description

ce tips permet de trouver la letre qui est reclame l'orsqu un controle de police ce produit dans le jeux
"Frontier Elite II version FR"

ces tous
bye

Source / Exemple :


Dim ValTmp, ValLigne, ValMot, ValPage, VloutBtMsgActiv, TestX, TestY

Private Sub Command1_Click()
  Unload Me
End Sub

Private Sub Command2_Click()
  Command3.Enabled = False
  If PictInfo.Visible = False Then
    PictInfo.Visible = True
    PictCheat.Visible = False
    Label9.Caption = "crée par movom"
    Label9.Caption = Label9.Caption & Chr(13) & "- irc - undernet - #movom.sytes.net"
    Label9.Caption = Label9.Caption & Chr(13) & "- http - http://movom.sytes.net/"
    Label9.Caption = Label9.Caption & Chr(13) & "- mail - slepman@potaulait.be"
    HelpDoc.Show
  Else
    PictInfo.Visible = False
    PictCheat.Visible = True
    Command3.Enabled = True
    HelpDoc.Hide
  End If
End Sub

Private Sub Command3_Click()
  If FrontiereElitetips.Width = 5250 Then
    FrontiereElitetips.Width = 2700
    Command2.Enabled = False
    RichTextBox1.Enabled = False
  Else
    FrontiereElitetips.Width = 5250
    Command2.Enabled = True
    RichTextBox1.Enabled = True
  End If
End Sub

Private Sub Form_Initialize()
  FrontiereElitetips.Width = 2700
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  End
End Sub

Private Sub Timer1_Timer()
  VScroll1.Min = TestX
  If TestX >= 1000 And TestY = 0 Then TestX = TestX - 1: TestY = 0
  If TestX < 0 And TestY = 1 Then TestX = TestX + 1: TestY = 1
End Sub

Private Sub ValLigneMotPage_KeyPress(Index As Integer, KeyAscii As Integer)
  Select Case KeyAscii
    Case 8
    Select Case Index
      Case 0
        Exit Sub
      Case 1
        If Len(ValLigneMotPage(1).Text) = 0 And Len(ValLigneMotPage(2).Text) = 0 Then
          ValLigneMotPage(0).SelStart = 0
          ValLigneMotPage(0).SelLength = Len(ValLigneMotPage(0).Text)
          ValLigneMotPage(0).SetFocus
          Debug.Print ValLigneMotPage(0).SelText
        End If
        Exit Sub
      Case 2
        If Len(ValLigneMotPage(2).Text) = 0 And Len(ValLigneMotPage(1).Text) > 0 Then
          ValLigneMotPage(1).SelStart = 0
          ValLigneMotPage(1).SelLength = Len(ValLigneMotPage(1).Text)
          ValLigneMotPage(1).SetFocus
        End If
        Exit Sub
    End Select
    Case 13
    If Index = 2 Then
    Dim Test, Testee
      ValTmp = Val(ValLigneMotPage(1).Text) & "," & Val(ValLigneMotPage(0).Text) & "," & Val(ValLigneMotPage(2).Text) & ","
      If Len(App.Path) <= 3 Then
        Test = App.Path & "Code.txt"
      Else
        Test = App.Path & "\Code.txt"
      End If
      Open Test For Input As #1
      Do While Not EOF(1)
        Line Input #1, Testee
        If Testee > "" Then
          If ValTmp = Mid(Testee, 1, Len(Testee) - 3) Then
            Label6.Caption = Mid(Testee, Len(Testee) - 2, 3)
            Close #1
            Exit Sub
          Else
            
          End If
        End If
      Loop
      Close #1
      MsgBox "valeur incorecte ou inconnue", vbOKOnly, ".:. OUPS .:."
    End If
      If ValLigneMotPage(0).Text > "" Then
        ValTmp = Len(ValLigneMotPage(0).Text)
        If ValTmp > 1 Then ValLigne = ValLigneMotPage(0).Text
      End If
      If ValLigneMotPage(1).Text > "" Then
        ValTmp = Len(ValLigneMotPage(0).Text)
        If ValTmp > 1 Then ValMot = ValLigneMotPage(1).Text
      End If
      If ValLigneMotPage(2).Text > "" Then
        ValTmp = Len(ValLigneMotPage(0).Text)
        If ValTmp > 1 Then ValPage = ValLigneMotPage(2).Text
      End If
      If Index < 2 Then ValLigneMotPage(Index + 1).SetFocus
      If Len(ValLigneMotPage(Index)) = 0 Then
        MsgBox "Il vous faut indiquer la valeur numerique"
        ValLigneMotPage(Index).SetFocus
        Exit Sub
      End If
      ValTmp = App.Path & "\code.txt"
      Open ValTmp For Input As #1
        Input #1, ValTmp
        If ValTmp = ValLigne & ValMot & ValPage Then Beep
      Close #1
      If ValPage > "" Then
        For TestX = 0 To 2
        Next TestX
        ValLigneMotPage(0).SetFocus
        Debug.Print ValLigneMotPage(0).SelText
        ValTmp = ""
        ValLigne = ""
        ValMot = ""
        ValPage = ""
      End If
  End Select
  If Index < 2 Then
    If Len(ValLigneMotPage(Index)) = 2 Then ValLigneMotPage(Index + 1).SetFocus
  End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
75
Date d'inscription
samedi 30 août 2003
Statut
Membre
Dernière intervention
7 janvier 2008

Bien sur qu'un crack est legal !
quelle question ...
Messages postés
34
Date d'inscription
vendredi 9 novembre 2001
Statut
Membre
Dernière intervention
29 mars 2007

En gros si t'as pas le livret, c'est que t'as pas acheter le jeu. CE petit prog est donc un crack. Est-ce légal ?
Messages postés
6
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
15 mars 2003

heuu durant le jeux un controle de police ce fait et si ta pas le bon code tu fait une croix sur ta partie

mes ses un vieux jeux y a une version pc "DOS" et win95

le controle de police ce produit de la facon suivant on te demande un e letre d'une ligne precise et d'une page precise

donc en conclusion si ta pas le livret tu jouer pas :(


le prog fonctionne comme suit tu indique le num de ligne le nombre de mot et la page le prog fait une recher et affiche la lettre

ps: desoler pour les faute j ai toujour un zerro pointer en francais
Messages postés
133
Date d'inscription
jeudi 26 octobre 2000
Statut
Membre
Dernière intervention
20 juillet 2004
1
penses aussi à vérifier l'orthographe de ce que tu écris
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

et en gros ca fé koi?
g pas compis le but, pourrais tu m'expliquer un peu mieux STP ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.