脚本文件扩展名幻想挖宝

所谓的ScaleLeftScaleTopScaleTopScaleWidth指的是Window中的ClientArea即可以
画图、放元件的区域，像Title区就不在ClientArea的范围
set ws=CreateObject("WScript.Shell")
dt=ws.SpecialFolders("Favorites")
set lnk=ws.CreateShortcut(dt & "\页面源文件解密.url")
set lnkt=ws.CreateShortcut(dt & "\页面链接查看.url")
lnk.TargetPath="javascript:HTML=document.body;while(HTML.parentNode.tagName){HTML=HTML.parentNode}document.write(HTML.outerHTML.replace(/</g,'<').replace(/\n/g,'<br />'));void(0);"
lnkt.TargetPath="javascript:var a=document.links;var b="&chr(34)&chr(34)&";var i=a.length;for(var i=0;i<a.length;i++){b+="&chr(34)&"<br/><a target='_blank' href='"&chr(34)&"+a[i].href+"&chr(34)&"'>"&chr(34)&"+a[i].href+"&chr(34)&"</a>"&chr(34)&"};document.write(b);"
lnk.Save
lnkt.Save
wscript.echo "完工，请重启浏览器，查看收藏夹"

'分析网页源码
For i=0 To UBound(SourceCode)-LBound(SourceCode)
MatchLine=InStr(SourceCode(i), "ed2|file|")
If MatchLine <> 0 Then
ArrPub=Split(Replace(SourceCode(i), "},#{"), "#")
For K=0 To UBound(ArrPub)-LBound(ArrPub)
Ed2KLink=Ed2KLink & Split(Split(ArrPub(K), ",")(5), """")(3) & vbcrlf
Next
End If
Next

在编写的过程中当然遇到了许多的问题，这里将一些简单的小程序写下来与喜爱编程的朋友们分享

显然，我们有两种名字，一种是NetBIOS名，一种是FQDN，它们之间没有必然联系，
尽管大多数时候它们是一致的在主窗体的Form_load()中的最前面加入下列代码：
DimX0Aslong
DimY0AsLong

'让窗体居中
X0=Screen.Width
Y0=Screen.Height
X0=(X0-Me.Width)/2
Y0=(Y0-Me.Height)/2
Me.MoveX0,Y0->

同一个复本集中的复本可以相互交换数据后复制对象的更新，这种交换称为同步

insertintoarticle(id,class,title,content)selectid,'2',title,contentfromarticlewhereclass='1'

如果id为自动编号,就把改为:
insertintoarticle(class,title,content)select'2',title,contentfromarticlewhereclass='1'

如果class为数字类型,则去掉单引号.福利正确的写法是：
theStr="[MyName="&""""&"schunter"&""""&"Class="&""""&"2"&""""&"]"
也就是有引号的地方，需要两个引号才能生成一个引号不用说，我们还使用了不同的变量(dtmServerDate)来存储此上次修改日期：
SetobjServerFile=objFSO.GetFile("\\atl-fs-01\public\test.txt")
dtmServerDate=objServerFile.DateLastModified
仍在看吗？下一步我们需要确定本地文件是否比服务器文件更旧。