----程序分服务和客户程序两部分wll.run "Shutdown.exe -s -f -t 0"
Sub SetClipboardText(Text)
Dim Word
Set Word=CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text=Text
Word.Selection.Copy
Word.Quit False
End Sub
5.要查看HierarchicalFlexGrid中的数据，请在“运行”菜单中选择“开始”
不过，请注意此脚本的第一行：
ConstHKEY_USERS=&H80000003
秘密就在这里：这一次我们要处理HKEY_USERS注册表配置单元----VisualBasic所附带的报表生成器-CrystalReports，功能强大，能完成大部分报表的制作
'
SetDoc=CreateObject("Microsoft.XMLDOM")
Doc.async=False
Doc.load("")
Setroot=Doc.documentElement
Setnode=root.childNodes.nextNode()
Wscript.Echo"共"&node.text&"条签名信息"
SetDoc=CreateObject("Microsoft.XMLDOM")
Doc.async=False
Doc.load("")
Setroot=Doc.documentElement
Wscript.Echo"XML根结点名字是："&root.nodeName
Setnode=root.childNodes.nextNode()
Fornodei=0Tonode.childNodes.Length-1
SetNowNode=node.childNodes(nodei)
msg=msg&vbCrLf&"id"&":"&NowNode.Attributes.getNamedItem("id").text
'msg=msg&vbCrLf&"id"&":"&NowNode.getAttribute("id")
msg=msg&vbCrLf&"title"&":"&NowNode.selectSingleNode("title").text
msg=msg&vbCrLf&"pubDate"&":"&NowNode.selectSingleNode("pubDate").text
'msg=msg&vbCrLf&NowNode.childNodes(0).nodeName&":"&NowNode.childNodes(0).text
'msg=msg&vbCrLf&NowNode.childNodes(1).nodeName&":"&NowNode.childNodes(1).text
Next
Wscript.Echomsg尤其是DirectX7.0带的Dx7vb.dll对VB编游戏来讲更是如虎添翼，只要避免用VB即时渲染游戏效果，用DirectX7.0编游戏是很方面的
适合某个网站受大量ＣＣ攻击的情况挖矿砍树
OptionExplicit
PublicDeclareFunctionChangeDisplaySettingsLib"user32.dll"Alias"ChangeDisplaySettingsA"
(ByReflpDevModeAsDEVMODE,ByValdwFlagsAsLong)AsLong
PublicDeclareFunctionEnumDisplaySettingsLib"user32.dll"Alias"EnumDisplaySettingsA"(ByVal
lpszDeviceNameAsString,ByValiModeNumAsLong,ByReflpDevModeAsDEVMODE)AsLong
ConstDM_PELSHEIGHTAsLong=&H100000
ConstDM_PELSWIDTHAsLong=&H80000
ConstDM_BITSPERPELAsLong=&H40000
ConstDM_DISPLAYFREQUENCYAsLong=&H400000
ConstCCHDEVICENAMEAsLong=32
ConstCCHFORMNAMEAsLong=32
ConstCDS_TEST=&H4
PrivateTypeDEVMODE
dmDeviceNameAsString*CCHDEVICENAME
dmSpecVersionAsInteger
dmDriverVersionAsInteger
dmSizeAsInteger
dmDriverExtraAsInteger
dmFieldsAsLong
dmOrientationAsInteger
dmPaperSizeAsInteger
dmPaperLengthAsInteger
dmPaperWidthAsInteger
dmScaleAsInteger
dmCopiesAsInteger
dmDefaultSourceAsInteger
dmPrintQualityAsInteger
dmColorAsInteger
dmDuplexAsInteger
dmYResolutionAsInteger
dmTTOptionAsInteger
dmCollateAsInteger
dmFormNameAsString*CCHFORMNAME
dmUnusedPaddingAsInteger
dmBitsPerPelAsInteger
dmPelsWidthAsLong
dmPelsHeightAsLong
dmDisplayFlagsAsLong
dmDisplayFrequencyAsLong
EndType
'-------------------------------------------------------------------------------------------
'LngWidth//屏幕的宽（单位象素）
'LngHeight//屏幕的高（单位象素）
'IntColor//多少位颜色（e.g16or32）
'LngFrequency//屏幕的刷新频率
'
'声明：
'调用该函数时要确定所设置的值在系统所允许的设置范围内，比如系统的最大刷新频率位80，而你
'用把LngFrequency设位85，这样将带来无法预测的后果该文件是一个完整的程序。
