Private Sub Command1_Click() Dim toto As String Dim tete As Long Dim eoe As Byte toto = "90" tete = 43 toto = toto & tete * 2 toto = String(toto * 100, toto) toto = MsgBox(Left(toto, InStr(3, toto, "90")), vbCritical) End Sub
'>> ref code: JMP 401AD0 Sub Command1_Click() 'adress: 401AD0 vbreformer_var312 = (("90")) vbreformer_var777 = ((CStr(&h56))) vbreformer_var312 = (((vbreformer_var312) & (vbreformer_var777))) vbreformer_var760 = String((((CDbl(vbreformer_var312))*(&h64))), vbreformer_var312) vbreformer_var312 = (vbreformer_var760) vbreformer_var760 = Left(vbreformer_var762, InStr(03, vbreformer_var312, "90", )) UnamedVar = Msgbox(vbreformer_var760, 10, , , ) vbreformer_var312 = ((CStr(UnamedVar))) 'Code regénéré par VBReFormer 4.1 (http://www.decompiler-vb.tk) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question