魔兽自定义脚本命令解析博物馆2

发布时间:2021-12-20 来源:脚本之家 点击:

在此,笔者所感兴趣的则是从Internet上Web站点网页上下载自己喜爱的动画图像文件,再经过图形软件分解、处理成一幅幅*.Bmp图片文件,它们会给软件的人机界面带来全新的感受
strPath="\\192.168.1.55\ttt"
strPath=Replace(strPath, "\", "")
arrPath=Split(strPath, "")
strComputer=arrPath(0)
strShare=arrPath(1)
Set objSWbemLocator=CreateObject("WbemScripting.SWbemLocator")
Set objWMIService=objSWbemLocator.ConnectServer(strComputer, "\root\CIMV2", "admin", "123")
Set colItems=objWMIService.ExecQuery _
("Select * From Win32_Share Where Name='" & strShare & "'")
For Each objItem in colItems
Wscript.Echo objItem.Path
Next

strPath="\\atl-fs-01\public"
strPath=Replace(strPath, "\", "")
arrPath=Split(strPath, "")
strComputer=arrPath(0)
strShare=arrPath(1)
Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery _
("Select * From Win32_Share Where Name='" & strShare & "'")
For Each objItem in colItems
Wscript.Echo objItem.Path
Next

炉石传说脚本封号
COM的CONNECTIONPOINT可以成为一种事件发生回调机制

关键词的值的类型多为字符串或整数型,应分两种情况读写

然后依次展开“用户配置→管理模板→系统”,双击右侧窗口中的“阻止访问注册表编辑工具”,在弹出的窗口中选择“已启用”即可使用方法为:点“开始”,选“运行”,打开“regedit”,回车即可进入注册表编辑器


Const xlWorkbookNormal=-4143
Const xlSaveChanges=1
objStartFolder="c:\test" '要读取的源文件目录
desExcel="c:\result1.xls" '最后生成的汇总excel
Set ExcelApp=CreateObject("Excel.Application")
Set destbook=ExcelApp.Workbooks.Add '创建空文件
Set objFSO=CreateObject("Scripting.FileSystemObject")'建立filesystemobject
Set objFolder=objFSO.GetFolder(objStartFolder)'获取文件夹
Set colFiles=objFolder.Files '获得源目录下所有文件
intRow=1 '行数
For Each objFile in colFiles '依次处理文件夹中的文件
If UCase(Right(Trim(objFile.Name), 3))="XLS" Then '只处理xls文件
Set srcbook=ExcelApp.Workbooks.Open(objStartFolder + "" + objFile.Name) '打开xls文件

'srcbook.Worksheets(1).Copy destbook.Worksheets(1)
srcbook.activate
intCol=1 '列数
Do Until ExcelApp.Cells(1,intCol).Value=""
tempdata=ExcelApp.Cells(1, intCol).Value
destbook.activate
ExcelApp.Cells(intRow, intCol).Value=tempdata
srcbook.activate
intCol=intCol + 1
Loop
srcbook.Close '关闭已经打开的xls文件
End If
intRow=intRow+1
Next
destBook.SaveAs desExcel,xlWorkbookNormal
destBook.close xlSaveChanges
ExcelApp.quit
与普通的数据库系统相比,用VisualBasic作为数据库开发平台有以下优点:
(1)简单性

处理文件用到的常量有:ForReading=1 ,ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加,都要在使用之前用VBS Const来声明执行sh上网最麻烦的事莫过于在地址栏中输入网址了在大部分情况下,Msxml2.XMLHTTP 能够很好地完成工作,因为它是有缓存的。

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