按键精灵里三层以上框架动态分析源码

//============================

out_mess=""

//第0层
frame0 = Plugin.Web.RunJS(1, "var t=document.frames.length;return t")
mess0="本框架总共有"&CStr(frame0)&"个字框架" //总框架提示mess0
//out_mess = mess0 & vbcr & mess1
out_mess = mess0 & vbcr

//第1层
i = 0
s=""
For frame0 //第一层 i:第一层的循环变量；J:第一层里每个子框架数
  j = Plugin.Web.RunJS(1, "var t=document.frames[" & i & "].document.frames.length;return t")
  s = "第" & CStr(i) & "个框架总共" & CStr(j) & "个子框架" & vbcr
  out_mess=out_mess+s
  If j > 0 Then 
     s2=""	
     k = 0
     m = 0
     For j  //第二层  k:第二层的循环变量；m:第二层里每个子框架数
       m = Plugin.Web.RunJS(1, "var t=document.frames[" & i & "].document.frames[" & k & "].document.frames.length;return t")
       //s2 = CStr(k) & "  子框架还有" & CStr(m) & "个下级框架" & vbcr
       s2 ="   [" & CStr(i) & "][" & CStr(k) &"]子框架还有" & CStr(m) & "个下级框架" & vbcr
       out_mess=out_mess+s2
       If m > 0 Then 
          s3=""
          L = 0
          n=0
          For m //第三层  L:第三层的循环变量；n:第三层里的每个子框架数
       	  	n = Plugin.Web.RunJS(1, "var t=document.frames[" & i & "].document.frames[" & k & "].document.frames[" & L & "].document.frames.length;return t")
       	  	s3 ="       ["& CStr(i) & "][" & CStr(k) &"]["& CStr(L) & "]子框架还有" & CStr(n) & "个下级框架" & vbcr
       	  	out_mess = out_mess + s3
       	  	L=L+1
       	  Next  //第三层
       End If
       k = k + 1
     Next  //第二层
  End If
  i =i + 1
Next //第一层

MessageBox out_mess