Discussion: Code trop obscur

  1. #1
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    août 2017
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Transports

    Informations forums :
    Inscription : août 2017
    Messages : 5
    Points : 2
    Points
    2

    Par défaut Code trop obscur

    salut tOUt le monde

    svp POURRIEZ-VOUS M'expliquer moi ce code S'IL VOUS PLAIT ?

    merci
    -----------
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
    211
    212
    213
    214
    215
    216
    217
    218
    219
    220
    221
    222
    223
    224
    225
    226
    227
    228
    229
    230
    231
    232
    233
    234
    235
    236
    237
    238
    239
    240
    241
    242
    243
    244
    245
    246
    247
    248
    249
    250
    251
    252
    253
    254
    255
    256
    257
    258
    259
    260
    261
    262
    263
    264
    265
    266
    267
    268
    269
    270
    271
    272
    273
    Private Sub Command7_Click() '4D2310
      Dim var_5C As TextBox
      Dim var_C0 As TextBox
      Dim var_60 As TextBox
      Dim var_C8 As TextBox
      var_C = ""
      var_8 = &H402F58
      var_eax = arg_8.AddRef 'Ignore this
      ebx = ""
      var_24 = ""
      var_34 = ""
      var_44 = ""
      var_48 = ""
      var_4C = ""
      var_50 = ""
      var_54 = ""
      var_58 = ""
      var_5C = ""
      var_60 = ""
      var_64 = ""
      var_74 = ""
      var_84 = ""
      var_94 = ""
      var_A4 = ""
      var_B4 = ""
      var_eax = serie.Text4 'Ignore this
      Set var_5C = serie.Text4
      var_B8 = var_5C
      var_48 = Text4.Text
      If var_48 < 0 Then
        var_48 = CheckObj(var_B8, var_00417640, 160)
      End If
      var_eax = serie.Text5 'Ignore this
      Set var_60 = serie.Text5
      var_C0 = var_60
      var_6C = var_48
      var_7C = 1
      var_84 = 2
      var_48 = ""
      var_74 = 8
      var_94 = Mid(var_48, 1, 1)
      var_4C = CStr(var_94)
      var_50 = CStr(Asc(var_4C))
      Text5.Text = var_50
      If var_50 < 0 Then
        var_50 = CheckObj(var_C0, var_00417640, 164)
      End If
      call undef 'Ignore this '__vbaFreeVarList(00000003, var_74, var_84, var_94, arg_8, arg_8, Set %StkVar1 = %StkVar2, arg_8, var_C0)
      var_eax = serie.Text4 'Ignore this
      Set var_60 = serie.Text4
      var_4C = Text4.Text
      If var_4C < 0 Then
        var_4C = CheckObj(var_60, var_00417640, 160)
      End If
      var_eax = serie.Text5 'Ignore this
      Set var_64 = serie.Text5
      var_C8 = var_64
      var_eax = serie.Text5 'Ignore this
      Set var_5C = serie.Text5
      var_48 = Text5.Text
      If var_48 < 0 Then
        var_48 = CheckObj(var_5C, var_00417640, 160)
      End If
      var_6C = var_4C
      var_7C = 1
      var_84 = 2
      var_4C = 0
      var_74 = 8
      var_94 = Mid(var_4C, 2, 1)
      var_50 = CStr(var_94)
      var_54 = CStr(Asc(var_50))
      var_58 = var_48 & var_54
      Text5.Text = var_58
      If var_58 < 0 Then
        var_58 = CheckObj(var_C8, var_00417640, 164)
      End If
      var_58 = ""
      call undef 'Ignore this '__vbaFreeVarList(00000003, var_74, var_84, var_94, arg_8, arg_8, arg_8)
      var_eax = serie.Text4 'Ignore this
      Set var_60 = serie.Text4
      var_4C = Text4.Text
      If var_4C < 0 Then
        var_4C = CheckObj(var_60, var_00417640, 160)
      End If
      var_eax = serie.Text5 'Ignore this
      Set var_64 = serie.Text5
      var_C8 = var_64
      var_eax = serie.Text5 'Ignore this
      Set var_5C = serie.Text5
      var_48 = Text5.Text
      If var_48 < 0 Then
        var_48 = CheckObj(var_5C, var_00417640, 160)
      End If
      var_6C = var_4C
      var_7C = 1
      var_84 = 2
      var_4C = 0
      var_74 = 8
      var_94 = Mid(var_4C, 3, 1)
      var_50 = CStr(var_94)
      var_54 = CStr(Asc(var_50))
      var_58 = var_48 & var_54
      var_104 = var_48 & var_54
      Text5.Text = var_58
      If var_104 < 0 Then
        var_104 = CheckObj(var_C8, var_00417640, 164)
      End If
      var_58 = ""
      call undef 'Ignore this '__vbaFreeVarList(00000003, var_74, var_84, var_94, arg_8, arg_8, arg_8)
      var_eax = serie.Text4 'Ignore this
      Set var_60 = serie.Text4
      var_4C = Text4.Text
      If var_4C < 0 Then
        var_4C = CheckObj(var_60, var_00417640, 160)
      End If
      var_eax = serie.Text5 'Ignore this
      Set var_64 = serie.Text5
      var_C8 = var_64
      var_eax = serie.Text5 'Ignore this
      Set var_5C = serie.Text5
      var_48 = Text5.Text
      If var_48 < 0 Then
        var_48 = CheckObj(var_5C, var_00417640, 160)
      End If
      var_6C = var_4C
      var_7C = 1
      var_84 = 2
      var_4C = 0
      var_74 = 8
      var_94 = Mid(var_4C, 4, 1)
      var_50 = CStr(var_94)
      var_54 = CStr(Asc(var_50))
      var_58 = var_48 & var_54
      Text5.Text = var_58
      If var_58 < 0 Then
        var_58 = CheckObj(var_C8, var_00417640, 164)
      End If
      var_58 = ""
      call undef 'Ignore this '__vbaFreeVarList(00000003, var_74, var_84, var_94, arg_8, arg_8, arg_8)
      var_eax = serie.Text4 'Ignore this
      Set var_60 = serie.Text4
      var_4C = Text4.Text
      If var_4C < 0 Then
        var_4C = CheckObj(var_60, var_00417640, 160)
      End If
      var_eax = serie.Text5 'Ignore this
      Set var_64 = serie.Text5
      var_C8 = var_64
      var_eax = serie.Text5 'Ignore this
      Set var_5C = serie.Text5
      var_48 = Text5.Text
      If var_48 < 0 Then
        var_48 = CheckObj(var_5C, var_00417640, 160)
      End If
      var_6C = var_4C
      var_7C = 1
      var_84 = 2
      var_4C = 0
      var_74 = 8
      var_94 = Mid(var_4C, 5, 1)
      var_50 = CStr(var_94)
      var_54 = CStr(Asc(var_50))
      var_58 = var_48 & var_54
      Text5.Text = var_58
      If var_58 < 0 Then
        var_58 = CheckObj(var_C8, var_00417640, 164)
      End If
      var_58 = ""
      call undef 'Ignore this '__vbaFreeVarList(00000003, var_74, var_84, var_94, arg_8, arg_8, arg_8)
      var_eax = serie.Text4 'Ignore this
      Set var_60 = serie.Text4
      var_4C = Text4.Text
      If var_4C < 0 Then
        var_4C = CheckObj(var_60, var_00417640, 160)
      End If
      var_eax = serie.Text5 'Ignore this
      Set var_64 = serie.Text5
      var_C8 = var_64
      var_eax = serie.Text5 'Ignore this
      Set var_5C = serie.Text5
      var_48 = Text5.Text
      If var_48 < 0 Then
        var_48 = CheckObj(var_5C, var_00417640, 160)
      End If
      var_6C = var_4C
      var_7C = 1
      var_84 = 2
      var_4C = 0
      var_74 = 8
      var_94 = Mid(var_4C, 6, 1)
      var_50 = CStr(var_94)
      var_54 = CStr(Asc(var_50))
      var_58 = var_48 & var_54
      var_110 = var_48 & var_54
      Text5.Text = var_58
      If var_110 < 0 Then
        var_110 = CheckObj(var_C8, var_00417640, 164)
      End If
      var_58 = ""
      call undef 'Ignore this '__vbaFreeVarList(00000003h, var_74, var_84, var_94, arg_8, arg_8, arg_8)
      var_eax = serie.Text4 'Ignore this
      Set var_5C = serie.Text4
      var_B8 = var_5C
      var_48 = Text4.Text
      If var_48 < 0 Then
        var_48 = CheckObj(var_B8, var_00417640, 160)
      End If
      var_6C = var_48
      var_7C = 1
      var_84 = 2
      var_48 = 0
      var_74 = 8
      var_94 = Mid(var_48, 1, 1)
      var_4C = CStr(var_94)
      var_50 = CStr(Asc(var_4C))
      var_44 = Val(var_50)
      var_eax = %fobj
      call undef 'Ignore this '__vbaFreeVarList(00000003h, var_74, var_84, var_94)
      var_eax = serie.Text4 'Ignore this
      Set var_5C = serie.Text4
      var_B8 = var_5C
      var_48 = Text4.Text
      If var_48 < 0 Then
        var_48 = CheckObj(var_B8, var_00417640, 160)
      End If
      var_6C = var_48
      var_7C = 1
      var_84 = 2
      var_48 = 0
      var_74 = 8
      var_94 = Mid(var_48, 6, 1)
      var_4C = CStr(var_94)
      var_50 = CStr(Asc(var_4C))
      var_34 = Val(var_50)
      var_eax = %fobj
      call undef 'Ignore this '__vbaFreeVarList(00000003h, var_74, var_84, var_94)
      var_9C = &H418408
      var_A4 = 8
      var_74 = var_44 & &H418408
      var_84 = var_74 & var_34
      var_48 = CStr(var_84)
      var_24 = Val(var_48)
      call undef 'Ignore this '__vbaFreeVarList(00000002h, var_74, var_84)
      var_eax = serie.Text5 'Ignore this
      Set var_60 = serie.Text5
      var_eax = serie.Text5 'Ignore this
      Set var_5C = serie.Text5
      var_48 = Text5.Text
      edi = ""
      If var_48 < 0 Then
        var_48 = CheckObj(var_5C, var_00417640, 160)
      End If
      var_6C = var_48
      var_48 = ""
      var_74 = 8
      var_ret_1 = var_48 / var_24
      var_ret_2 = Int(var_ret_1)
      var_4C = CStr(var_ret_2)
      Text5.Text = var_4C
      If var_4C < 0 Then
        var_4C = CheckObj(var_60, var_00417640, 164)
      End If
      call undef 'Ignore this '__vbaFreeVar
      var_4 = ""
      GoTo loc_004D2FFC
      var_54 = "": var_58 = ""
      call undef 'Ignore this '__vbaFreeVarList(00000003, var_74, var_84, var_94, var_004D3012)
      Exit Sub
      loc_004D2FFC: 
      call undef 'Ignore this '__vbaFreeVar
      call undef 'Ignore this '__vbaFreeVar
      call undef 'Ignore this '__vbaFreeVar
    End Sub
    EN VOUS REMERCIANT,

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 265
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 265
    Points : 8 933
    Points
    8 933

    Par défaut

    Salut

    Le code n'est pas du VB6 et antérieur, du VB.net ou VBA .... ?
    Si tu peux me donner exactement le langage utilisé, je pourrai déplacer ta demande d'aide pour te permettre d'avoir une réponse adaptée.
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    août 2017
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Transports

    Informations forums :
    Inscription : août 2017
    Messages : 5
    Points : 2
    Points
    2

    Par défaut

    salut

    CE CODE EST DU visual basic.

    *MERCI*

  4. #4
    Membre éprouvé Avatar de mjpmjp
    Homme Profil pro
    Chôme Dur des Ambulances
    Inscrit en
    avril 2012
    Messages
    806
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hautes Alpes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chôme Dur des Ambulances
    Secteur : Santé

    Informations forums :
    Inscription : avril 2012
    Messages : 806
    Points : 1 283
    Points
    1 283

    Par défaut

    bonjour,
    à mon avis , c'est du vba ou vb qui est destiné à une routine du langage assembleur

    @+JP
    Caractéristiques (WEB) phpMyAdmin 4-74 , PHP 5-631 , Apache 2-427 , MySQL 5-719
    Présentation NAS DS-3615xs + 20Go , DSM 6.1.5-15254 12 * WD 4To WD4000F9YZ (10 raid 6+ )+(2 raid 1+) , LinkSys comutateur-switch lgs528p-eu , Onduleur UPS 720W Power Boxx Lcd (4*UPS + 4*MOD)
    Mes contributions (EXCEL) Form GRAPHIQUE: Gestion des boutons , Liste Onglet dynamique , Liste Multi-Colonne et ScrollBar Externe

  5. #5
    Expert éminent
    Homme Profil pro
    aucune
    Inscrit en
    avril 2016
    Messages
    5 688
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 76
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : avril 2016
    Messages : 5 688
    Points : 9 995
    Points
    9 995

    Par défaut

    Bonjour
    Ce code ne saurait être ni du VB5, ni du VB6, ni du VBA
    Aucun de ces trois langages n'accepterait (entre autres) ceci :
    puis cela :
    Voilà voilà

    Or, tu ne nous signales aucun message d'erreur (qu'enverrait forcément l'un de ces trois langages) !

    Et tu ne poses comme question que celle-ci : t'expliquer ce code ! Qui ne saurait fonctionner dans l'un quelconque de ces trois langages !
    Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
    Je n'ouvre AUCUN classeur tiers (avec ou sans macro). Ne m'en proposez donc pas.

    Celui qui prétend déterminer une cause fondamentale sur la base d'un effet n'a aucune chance d'avoir mon estime. S'il insiste, il a alors droit à mon total mépris.

  6. #6
    Expert confirmé
    Avatar de dysorthographie
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    septembre 2016
    Messages
    2 629
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : septembre 2016
    Messages : 2 629
    Points : 4 489
    Points
    4 489
    Billets dans le blog
    1

    Par défaut

    Bonjour,
    De prime abord, il serait préférable que ce soit toit qui explique ce que tu attends de ce code!

    On ne demande pas d'explication sur un code dont on ignore la finalité? Non?

    A vue de nez je dirais du Vb6! Toujours à vue de nez ce code n'a rien de compliqué il est juste lisible on pourrait en retirer de 80%!
    Il dit non avec la tête
    mais il dit oui avec le coeur
    il dit oui à ce qu’il aime
    il dit non au professeur {Jacques PRÉVERT}

Discussions similaires

  1. petite explication svp
    Par vmfa-2 sven dans le forum C++
    Réponses: 4
    Dernier message: 20/05/2008, 18h06
  2. [ASP:Login] Besoin d'explication SVP.
    Par ketthos dans le forum ASP.NET
    Réponses: 1
    Dernier message: 22/07/2007, 12h46
  3. gestion de double clic , des explications svp
    Par pas30 dans le forum JavaScript
    Réponses: 4
    Dernier message: 13/07/2007, 16h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo