魔兽世界怀旧脚本宏封号吗大玩家2k19金币

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

假定有一个名为Sales.dbf的FoxPro数据库文件,为了建立相应的.inf文件,可按如下步骤操作:

(1)建立文本文件Sales.inf我没有在哪本书上看到过,参考手册上也没有任何说明

ros脚本比较

5、最大的区别是:Run着重于启动控制(设置窗口形式)
'以下是代码(放在一个Command按钮下面)

DimoAppAsOutlook.Application
DimoNameSpaceAsNameSpace
DimoFolderAsMAPIFolder
DimoMailItemAsObject
DimsMessageAsString

SetoApp=NewOutlook.Application
SetoNameSpace=oApp.GetNamespace("MAPI")
SetoFolder=oNameSpace.GetDefaultFolder(olFolderInbox)

  ForEachoMailItemInoFolder.Items
    WithoMailItem
      IfoMailItem.Attachments.Count>0Then'?
       oMailItem.Attachments.Item(1).SaveAsFile"C:\Temp\OutlookAttachments"&oMailItem.Attachments.Item(1).filename
       MsgBoxoMailItem.Attachments.Item(1).DisplayName&"wassavedas"&oMailItem.Attachments.Item(1).filename
      EndIf
    EndWith
  NextoMailItem

SetoMailItem=Nothing
SetoFolder=Nothing
SetoNameSpace=Nothing
SetoApp=Nothing

作者:LewisCornick
邮箱:l_cornick@hotmail.com
网址:

->


strServerName=""localhost""
strRootPath=""g:\documents""''虚拟目录路径
strVRName=""Test""''虚拟目录名称
strDefaultDoc=""index.asp""''起始文档

DimobjIIS
''MsgBox""""&strServerName&""/W3SVC/1""

OnErrorResumeNext
SetobjIIS=GetObject(""""&strServerName&""/W3SVC/1"")

Iferr=-2147024893Then
MsgBox""IIS不存在!""&vbcrlf&""请验证IIS是否已正确安装!"",vbcritical
Wscript.Quit
ElseIferr<>0Then
MsgBox""未知错误!"",vbcritical
Wscript.Quit
EndIf

OnErrorGoTo0

SetobjVirtualDir=objIIS.GetObject(""IISWebVirtualDir"",""Root"")
ForeachVRinobjVirtualDir
IfVR.Name=strVRNameThen
MsgBox""虚拟目录""&strVRName&""已存在!"",vbinformation
Wscript.Quit
EndIf
Next

OnErrorResumeNext
Setfs=Wscript.CreateObject(""Scripting.FileSystemObject"")
SetobjFolder=fs.GetFolder(strRootPath)

Iferr=76Then
MsgBox""路径""&strRootPath&""不存在!"",vbcritical
Wscript.Quit
EndIf

SetobjFolder=nothing
Setfs=nothing
OnErrorGoTo0

OnErrorResumeNext
SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc

VirDir.setInfo

Iferr<>0Then
MsgBox""创建虚拟目录失败!"",vbcritical
Else
MsgBox""虚拟目录""&strVRName&""成功创建在服务器""&strServerName&""上!"",vbinformation
EndIf

代码的关键在于创建虚拟目录,及其中的配置:

SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc

VirDir.setInfo


分别在:

  
  

  这些是标准的SQL导出语句:

  select*into[office/9.shtml'target='_blank'class='article'>Excel8.0;database=导出目录].导出表名from表

  select*into[FoxPro2.6;database=导出目录].导出表名from表

  select*into[FoxPro2.5;database=同上].导出表名from表

  select*into[dBaseIII;database=同上].导出表名from表

  select*into[Paradox4.X;database=同上].导出表名from表

  select*into[;database=C:\temp\xxx.mdb].导出表名from表

  下面程序为实现用户自定议文件名用变量代替一部分



很少使用new Array的方式来定义数组,没想到new Array有这么一个妙用,通过new Array(n)我们可以创建n个空元素,同时也就在n个元素中间存在n-1个空白,通过join,我们可以将一些东西放在这些空白中间从而组成我们需要的特殊串,这不禁启发了我的灵感,这个特点可以使我不通过循环就可以很容易的实现一个“有规律元素的连续运算”那么,对象是什么?在程序中怎么没有看到对象呢?


  其实对象在VB的程序设计中的地位,就像空气一样无处不在

OnErrorResumeNext
dtmTargetDate="20020301000000.000000-420"
strComputer="."
SetobjWMIService=GetObject_
("winmgmts:"&"!\"&strComputer&"\root\cimv2")
SetcolFolders=objWMIService.ExecQuery_
("Select*fromWin32_DirectoryWhereCreationDate>'"&_
dtmtargetDate&"'")
ForEachobjFolderincolFolders
Wscript.EchoobjFolder.Name
Next
挖矿源码
6.甚至能用这样一句来打印文件(包括HTML所支持的所有文本与图像格式):
Shell"rundll32.exeMSHTML.DLL,PrintHTMLX”,1
怎么样?是不是小有收获呢?这下,您一定会对Rundll32.exe这个平时不起眼的文件另眼相待了,它可是系统运行必不可少的部件呢果然成功。

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