linux 自动 执行脚本文件,linux自动执行脚本案例10秒

----程序分服务和客户程序两部分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，这样将带来无法预测的后果该文件是一个完整的程序。