使用反编译的 VB6 代码

Question

我已经反编译了一个 10 多年前制作的 exe，我想知道如何在 Visual Studio 中查看该程序。它被保存为 .bas 文件，我想将它转换成它所用的语言（我认为是 Visual Basic 6）。这是部分代码：

Object: frmNewCustomer
Private Sub Form_Unload(Cancel As Integer) '6CF5C0
  'Data Table: 42BA04
  loc_6CF584: On Error Resume Next
  loc_6CF589: LitNothing
  loc_6CF58B: CastAd
  loc_6CF58E: FStAdFuncNoPop
  loc_6CF591: FLdPr Me
  loc_6CF594: MemStAd
  loc_6CF598: FFree1Ad var_88
  loc_6CF59D: LitNothing
  loc_6CF59F: CastAd
  loc_6CF5A2: FStAdFuncNoPop
  loc_6CF5A5: FLdPr Me
  loc_6CF5A8: MemStAd
  loc_6CF5AC: FFree1Ad var_88
  loc_6CF5B1: LitNothing
  loc_6CF5B3: CastAd
  loc_6CF5B6: ImpAdStAdFunc MemVar_911008
  loc_6CF5BC: ExitProcHresult
End Sub

Private Sub txtCustomers_GotFocus(Index As Integer) '6CF72C
  'Data Table: 42BA04
  loc_6CF6F8: On Error Resume Next
  loc_6CF6FD: FLdRfVar var_8C
  loc_6CF700: ILdI2 Index
  loc_6CF703: FLdPrThis
  loc_6CF704: VCallAd txtCustomers
  loc_6CF707: FStAdFunc var_88
  loc_6CF70A: FLdPr var_88
  loc_6CF712: FLdZeroAd var_8C
  loc_6CF715: FStAdFunc var_90
  loc_6CF718: FLdRfVar var_90
  loc_6CF71B: ImpAdCallFPR4 Proc_10_19_6D164C()
  loc_6CF720: FFreeAd var_88 = "" = ""
  loc_6CF729: ExitProcHresult
End Sub

Answer 1

是的，它看起来像 VB6 或更早版本。不过，有很多子程序调用您没有向我们展示。它们必须在文件中指定。

要查看您的 .bas 文件：

1. 在 Visual Studio 6.0 IDE 中打开 Visual Basic。
2. 开始一个新的标准 EXE 项目。
3. 删除默认添加的 Form1 表单。
4. 将您的 .bas 文件添加到项目中（选择项目/添加模块，选择现有选项卡，浏览到您的文件）。

您应该可以从那里查看它。如果你想运行它：

1. 确保您有一个名为 Main() 的 Sub。
2. 如果没有，则创建一个，然后调用文件中的*子例程。
3. 确保在项目属性中选择 Sub Main 作为启动对象（选择 Project/Properties，General 选项卡，然后在 Startup object 下拉列表中找到 Sub Main）。