[KamelArab]

بسم الله الرحمن الرحيم
السؤال بسيط جداولكن جوابه أعتقد صعب
السؤال:-
ليكن لدينا الأسطر التالية بلغة الإسمبلي:-
Public Sub Proc_6_1_110372D0
 loc_110372EE: call undef 'Ignore this '__vbaChkstk
 loc_11037313: call __vbaAptOffset
 loc_11037319: var_6C = __vbaAptOffset
 loc_11037329: var_2C = Me
 loc_11037335: var_28 = arg_C
 loc_11037341: var_24 = arg_10
 loc_1103736F: On Error Resume Next
 loc_11037387: If {00000000-4D18-1100-FFFFFFFF00000000}.285450508 <> 1 Then GoTo loc_110374C1
 loc_1103739A: var_6C = var_6C + 1103A0E8h
 loc_110373A0: var_6C = var_28
 loc_110373B3: var_6C = var_6C + 1103A0ECh
 loc_110373B9: var_6C = var_2C
 loc_110373CC: var_6C = var_6C + 1103A0F0h
 loc_110373D2: var_6C = var_24
 loc_110373E9: If {00000000-4D18-1100-FFFFFFFF00000000}.285450564 <> 0 Then GoTo loc_1103740D
 loc_110373EE: var_6C = var_6C + 1103A144h
 loc_110373FA: var_eax = CreateObject(var_1100360C, var_6C)
 loc_11037403: var_6C = var_6C + 1103A144h
 loc_11037408: var_70 = var_6C
 loc_1103740B: GoTo loc_11037419
 loc_1103740D: 'Referenced from: 110373E9
 loc_11037416: var_70 = var_6C + 1103A144h
 loc_11037419: 'Referenced from: 1103740B
 loc_11037442: call undef 'Ignore this '__vbaChkstk(FFFFFFFFh)
 loc_11037465: call undef 'Ignore this '__vbaChkstk(var_40)
 loc_1103748C: var_eax = frmAbout.Show var_30
 loc_11037494: var_54 = frmAbout.Show var_30
End Sub
السؤال:-هل هناك برنامج يحول التعليمات المكتوبة بالإسمبلي إلى تعليمات مكتوبة بالفيجول بيسك
وأريد أي إقتراح لمعرفة التغير والتعديل والإضافات
وأكون لكم من الشاكرين