LOL脚本制作教程调

发布时间:2020-11-11 来源:脚本之家 点击:


一个通用程序能读取这些文件并根据它们建立起数据库
WshShell.SpecialFolders
SpecialFolders属性提供WshSpecialFolders对象以便访问Windows的shell文件夹,例如桌面文件夹、开始菜单文件夹和个人文档文件夹

一个脚本执行多个脚本

'*****************************************************************
'** Script: getxmlelement.vbs
'** Version: 1.0
'** Created: 1/8/2009 10:58PM
'** Author: Adriaan Westra
'** E-mail:
'** Purpose / Comments:
'** Get an element from a xml file
'**
'**
'** Changelog :
'** 1/8/2009 10:58PM : Initial version
'**
'*****************************************************************
Dim objXML ' object to hold the xml document
Dim objNnode ' xml node object

'*****************************************************************
'** create the xml object
Set objXML=CreateObject("Msxml2.DOMDocument.6.0")

'*****************************************************************
'** Load the xml from file
objXML.load("album.xml")
'*****************************************************************
'** Set language for finding information to XPath
objXML.setProperty "SelectionLanguage", "XPath"
'*****************************************************************
'** Get a reference to the node
Set objNode=objXML.selectSingleNode("/album/DSC_2710/title")
'*****************************************************************
'** Output the requested text
wscript.echo "Title : " & objNode.text

PublicSubTimerProc()
updateprogressbar
EndSub
PrivateSubCommand1_Click()
Ifid_timer>0Then
endtimer
Else
starttimer
EndIf
EndSub

----保存并测试该应用程序,Start钮激活定时器,系统开始周期性地调用回调函数,定时器被连续激活(进程条不断更新),到100或按Stop后定时器被清除,显示终止

不管了,伪造成功就行,结果难看点就难看点吧

防止运行多个实例
在程序开始部分添加如下代码:
IfApp.PreInstance=Truethen
  End
  EndIf


为应用程序创建快捷方式

一般来说,软件在安装时都会创建一个快捷方式来方便用户使用,我们也可为自己的应用程序在桌面上创建一个快捷方式

于是,似乎可以这样来判断到底是“确定”还是“取消”:

只可惜上面的代码是错的,无论按下“确定”还是“取消”,都会输出CancelBMP是常见的一种图像格式,也可以使用VB提供的丰富的不同状态的命令图标位图文件,它在VB的子目录\bitmaps\中

"
Err.Clear
endif

Next

课件如何

好了,您已经设定好整个Form上所有控制项的TabIndex顺序了

  3.及时升级系统和IE并打补丁。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号