求vb代码转易语言代码-有代码

你好好哟

Private Sub Command3_Click() '410400
  loc_004104C3: call MSVBVM60.DLL.__vbaLateIdCallLd("", 41D010h, "", 41D010h, 41D010h, 000000CBh, ebx, "All", ebx)
  loc_004104D1: call MSVBVM60.DLL.__vbaVarLateMemCallLd("", MSVBVM60.DLL.__vbaLateIdCallLd("", 41D010h, "", 41D010h, 41D010h, 000000CBh, ebx, "All", ebx))
  loc_004104E2: call MSVBVM60.DLL.__vbaVarZero
  loc_0041050F: call For Each("", ""0, "", "", "", "")
                  If For Each("", ""0, "", "", "", "") <> ebx Then
  loc_00410545:     call MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", "", "tagName", ebx)
  loc_00410553:     var_4C = @Ucase(MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", "", "tagName", ebx))
  loc_00410561:     var_64 = "IMG"
  loc_00410568:     var_6C = &H8008
  loc_0041056F:     call MSVBVM60.DLL.__vbaVarTstEq(var_6C, var_4C)
                    If MSVBVM60.DLL.__vbaVarTstEq(var_6C, var_4C) <> ebx Then
  loc_0041059F:       var_64 = "/game/littlePage/downTownMsg/img/battleBtn.gif"
  loc_004105A6:       var_6C = 8
  loc_004105B0:       var_7C = &H8002
  loc_004105B7:       call MSVBVM60.DLL.__vbaVarLateMemCallLd("", "", "src", ebx, 00000001h)
  loc_004105CA:       call InStr(var_4C, ebx, var_6C, MSVBVM60.DLL.__vbaVarLateMemCallLd("", "", "src", ebx, 00000001h))
  loc_004105D5:       call MSVBVM60.DLL.__vbaVarTstNe(var_7C, InStr(var_4C, ebx, var_6C, MSVBVM60.DLL.__vbaVarLateMemCallLd("", "", "src", ebx, 00000001h)))
                      If MSVBVM60.DLL.__vbaVarTstNe(var_7C, InStr(var_4C, ebx, var_6C, MSVBVM60.DLL.__vbaVarLateMemCallLd("", "", "src", ebx, 00000001h))) <> ebx Then
  loc_00410601:         var_64 = "&曐k ?
  loc_00410608:         var_6C = 8
  loc_00410612:         var_7C = &H8002
  loc_00410619:         call MSVBVM60.DLL.__vbaVarLateMemCallLd("", "", "outerHTML", ebx, 00000001h)
  loc_0041062C:         call InStr(var_4C, ebx, var_6C, MSVBVM60.DLL.__vbaVarLateMemCallLd("", "", "outerHTML", ebx, 00000001h))
  loc_00410637:         call MSVBVM60.DLL.__vbaVarTstNe(var_7C, InStr(var_4C, ebx, var_6C, MSVBVM60.DLL.__vbaVarLateMemCallLd("", "", "outerHTML", ebx, 00000001h)))
                        If MSVBVM60.DLL.__vbaVarTstNe(var_7C, InStr(var_4C, ebx, var_6C, MSVBVM60.DLL.__vbaVarLateMemCallLd("", "", "outerHTML", ebx, 00000001h))) = ebx Then
                        End If
                      End If
                    Next (For Each)
  loc_0041067B:     GoTo loc_0041052F
                  End If
  loc_0041068A:   var_6C = 8
  loc_0041069A:   var_64 = "ajaxJS.connection('#39'role.do'#39', roleMsgJS.confirmUseYaoResult, "method=confirmUseYao&checkCode=-3069428493520870160&yaoId="4925784"&storeType="8"&count=1");"
  loc_004106EA:   call MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", "", "Document", ebx, "parentWindow", ebx, "execScript", 00000002h, ""0)
  loc_004106F4:   call MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", "", "Document", ebx, "parentWindow", ebx, "execScript", 00000002h, ""0))
  loc_004106FA:   call MSVBVM60.DLL.__vbaObjVar(MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", "", "Document", ebx, "parentWindow", ebx, "execScript", 00000002h, ""0)))
  loc_00410701:   call MSVBVM60.DLL.__vbaLateMemCall(MSVBVM60.DLL.__vbaObjVar(MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", "", "Document", ebx, "parentWindow", ebx, "execScript", 00000002h, ""0))))
                End If
  loc_0041071E: GoTo loc_00410741
  loc_00410740: Exit Sub
  loc_00410741: 'Referenced from 0041071E
  loc_00410748: call MSVBVM60.DLL.__vbaAryUnlock("", 00410777h)
  loc_00410776: Exit Sub
End Sub

这是我用反汇编软件 看程序得到的代码  这一段代码如果在易语言的代码中是怎样的呢

夏冰

抢了沙发在说

迷离

难度灰常大！

King°王

LZ。太多了吧。。这么多。。。全部转换过来狠费时间的。

你好好哟

︶ㄣ幻影ㄜ︵ 发表于 2011-10-15 01:31
LZ。太多了吧。。这么多。。。全部转换过来狠费时间的。

就这一段呢
Private Sub Command3_Click() '410400
  loc_004104C3: call MSVBVM60.DLL.__vbaLateIdCallLd("", 41D010h, "", 41D010h, 41D010h, 000000CBh, ebx, "All", ebx)
  loc_004104D1: call MSVBVM60.DLL.__vbaVarLateMemCallLd("", MSVBVM60.DLL.__vbaLateIdCallLd("", 41D010h, "", 41D010h, 41D010h, 000000CBh, ebx, "All", ebx))
  loc_004104E2: call MSVBVM60.DLL.__vbaVarZero
  loc_0041050F: call For Each("", ""0, "", "", "", "")
                  If For Each("", ""0, "", "", "", "") <> ebx Then
  loc_00410545:     call MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", "", "tagName", ebx)
  loc_00410553:     var_4C = @Ucase(MSVBVM60.DLL.__vbaVarLateMemCallLdRf("", "", "tagName", ebx))
  loc_00410561:     var_64 = "IMG"
  loc_00410568:     var_6C = &H8008
  loc_0041056F:     call MSVBVM60.DLL.__vbaVarTstEq(var_6C, var_4C)
                    If MSVBVM60.DLL.__vbaVarTstEq(var_6C, var_4C) <> ebx Then
  loc_0041059F:       var_64 = "/game/littlePage/downTownMsg/img/battleBtn.gif"