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
这是我用反汇编软件 看程序得到的代码 这一段代码如果在易语言的代码中是怎样的呢
|