【delphi开源代码栏目提醒】：以下是网学会员为您推荐的delphi开源代码-在线日常英语翻译软件源代码 - 软件工程，希望本篇文章对您学习有所帮助。

    

2005VBScript 1“english” “”“english”“” 2“” “ ”“”“” 3 “” index.htmnbspnbspnbspnbsp FY.vbs REM REM FY REM 20 REM REM REM REM VBScript REM Windows2000 Professional REM 200511 public publicnum publicnum13512 dim c13512e13512 c0a variety of e0 c1accounting e1 c2actor e2 c3actress e3 c4acrobatic e4 c5add e5vt. Rem c13508cartridge e13508n. c13509SDK e13509abbr.Software Development Kit c13510federal e13510adj. c13511partnership e13511n. sub endshowr1r2r3 if tiao2.checkedtrue then rr.innerHTMLrr.innerHTML:nbspr3 else rr.innerHTMLrr.innerHTMLnbspr2nbspnbspnbspr1r3 end if end sub sub fyect st.innerText…… st.titlePlease wait…… title s s1 for i0 to publicnum if tec then sci if tiao3.checkedtrue then s1lcases s2lcaseec end if if tiao1.checkedfalse then if s1s2 then endshow s1s2ei end if else if instrs1s20 then endshow s1s2ei end if end if end if if tce then sei if tiao3.checkedtrue then s1lcases s2lcaseec end if if tiao1.checkedfalse then if s1s2 then endshow s1s2ci end if else if instrs1s20 then endshow s1s2ci end if end if end if next st.innerTEXT st.titleFinished Please Look at the result end sub sub window_onload self.moveto 00 self.resizeto window.screen.widthwindow.screen.height-30 end sub sub document_onclick if document.activeElement.idt11 then fy t1.valueec end if if document.activeElement.idt22 then fy t2.valuece end if if document.activeElement.idclearrr then rr.innerHTML st.innerText st.title end if end sub setinterval mymessage30000 sub mymessage MSGBOX window.open help.htmc end sub 博客：http://bigengineer.blog.163.com 技术博客：http://www.docstoc.com/profile/delphi6 论坛：http://bigengineer.blog.ccidnet.com Google搜索：金海龙 天主教 电子邮件：bigengineer163.com 共享文档： 相关内容： HTML5函数的delphi绝密化 开发手机英语词典软件 看看人家是怎么赚钱的 2010年 提高访问量 HTML5 Canvas 绘图 第一讲 入门与提高 开发手机应用的核心技术 快到30岁了，个人开发者怎么赚钱？ Google Chrome Web Store带给个人开发者的商机 更多内容... ... § Google