mc脚本逆战猎场会封号吗

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

如果我们设定ScaleMode
成不为0的数值,如设定ScaleMode=3(VBPixels)那麽就代表这区域的度量是以Pixels
为单位,而ScaleTop=ScaleLeft=0,即原点在左上角'==============================================================================
'
'The.NETPetShopBlueprintApplicationWebSiteSetup
'
'File:CreateWeb.vbs
'Date:November10,2001
'
'Createsanewvdirforthisproject.SetvNametonameoffolderondisk
'thatholdsthefiles.
'
'==============================================================================
'
'Copyright(C)2001MicrosoftCorporation
'
'==============================================================================
OptionExplicit

dimvPath
dimscriptPath
dimvName

vName="PetShop"'nameofwebtocreate

'*****************************************************************************
'
'1.CreatetheIISVirtualDirectory
'
'*****************************************************************************
'getcurrentpathtofolderandaddwebnametoit
scriptPath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))
vPath=scriptPath&"Web"

'calltocreatevDir
CreateVDir(vPath)


'----------------------------------------------------------------------------
'
'HelperFunctions
'
'-----------------------------------------------------------------------------

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'CreatesasingleVirtualDirectory(codetakenfrommkwebdir.vbsand
'changedforsinglevDircreation).
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SubCreateVDir(vPath)

DimvRoot,vDir,webSite
OnErrorResumeNext

'getthelocalhostdefaultweb
setwebSite=findWeb("localhost","DefaultWebSite")
ifIsObject(webSite)=Falsethen
Display"UnabletolocatetheDefaultWebSite"
exitsub
else
'displaywebSite.name
endif

'gettheroot
setvRoot=webSite.GetObject("IIsWebVirtualDir","Root")
If(Err<>0)Then
Display"Unabletoaccessrootfor"&webSite.ADsPath
Exitsub
else
'displayvRoot.name
EndIF

'deleteexistingwebifneeded
vRoot.Delete"IIsWebVirtualDir",vName
vRoot.SetInfo
Err=0'reseterror

'createthenewweb
SetvDir=vRoot.Create("IIsWebVirtualDir",vName)
If(Err<>0)Then
Display"Unabletocreate"&vRoot.ADsPath&"/"&vName&"."
exitsub
else
'displayvdir.name
endif

'setpropertiesonthenewweb
vDir.AccessRead=true
vDir.Path=vPath
vDir.Accessflags=529
VDir.AppCreateFalse
If(Err<>0)Then
Display"Unabletobindpath"&vPath&"to"&vRoot.Name&"/"&vName&".Pathmaybeinvalid."
exitsub
endIf

'commitchanges
vDir.SetInfo
If(Err<>0)Then
Display"Unabletosavechangesfor"&vRoot.Name&"/"&vName&"."
exitsub
endif

'reportallok
WScript.EchoNow&""&vName&"virtualdirectory"&vRoot.Name&"/"&vname&"createdsuccessfully."
EndSub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Findsthespecifiedweb.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
FunctionfindWeb(computer,webname)
OnErrorResumeNext

Dimwebsvc,site
dimwebinfo
DimaBinding,binding

setwebsvc=GetObject(""&computer&"/W3svc")
if(Err<>0)then
exitfunction
endif
'Firsttrytoopenthewebname.
setsite=websvc.GetObject("IIsWebServer",webname)
if(Err=0)and(notisNull(site))then
if(site.class="IIsWebServer")then
'Herewefoundasitethatisawebserver.
setfindWeb=site
exitfunction
endif
endif
err.clear
foreachsiteinwebsvc
ifsite.class="IIsWebServer"then
'
'First,checktoseeiftheServerComment
'matches
'
Ifsite.ServerComment=webnameThen
setfindWeb=site
exitfunction
EndIf
aBinding=site.ServerBindings
if(IsArray(aBinding))then
ifaBinding(0)=""then
binding=Null
else
binding=getBinding(aBinding(0))
endif
else
ifaBinding=""then
binding=Null
else
binding=getBinding(aBinding)
endif
endif
ifIsArray(binding)then
if(binding(2)=webname)or(binding(0)=webname)then
setfindWeb=site
exitfunction
EndIf
endif
endif
next
EndFunction

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Getsbindinginfo.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
functiongetBinding(bindstr)

Dimone,two,ia,ip,hn

one=Instr(bindstr,":")
two=Instr((one+1),bindstr,":")

ia=Mid(bindstr,1,(one-1))
ip=Mid(bindstr,(one+1),((two-one)-1))
hn=Mid(bindstr,(two+1))

getBinding=Array(ia,ip,hn)
endfunction

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Displayserrormessage.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SubDisplay(Msg)
WScript.EchoNow&".ErrorCode:"&Hex(Err)&"-"&Msg
EndSub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Displayprogress/tracemessage.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SubTrace(Msg)
WScript.EchoNow&":"&Msg
EndSub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Removetheweb.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SubDeleteWeb(WebServer,WebName)
'deletetheexsitingweb(ignoreerrorifmissing)
OnErrorResumeNext
DimvDir
display"deleting"&WebName

WebServer.Delete"IISWebVirtualDir",WebName
WebServer.SetInfo
IfErr=0Then
DISPLAY"WEB"&WebName&"deleted."
else
display"can'tfind"&webname
EndIf

EndSub

教师事迹拍摄脚本

'打开IE
'WshShell.SendKeys Chr(&H88AC)
'系统静音
'WshShell.SendKeys Chr(&H88AD)
'WshShell.SendKeys Chr(&H88AE)
'WshShell.SendKeys Chr(&H88AF)
'WshShell.SendKeys Chr(&H88B4)
'WshShell.SendKeys Chr(&H88B5)
'WshShell.SendKeys Chr(&H88B6)
'WshShell.SendKeys Chr(&H88B7)
PublicSubFocusMe(ctlNameAsControl)
WithctlName
.SelStart=0
.SelLength=Len(ctlName)
EndWith
EndSub

NowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:

PrivateSubtxtFocusMe_GotFocus()
CallFocusMe(txtFocusMe)
EndSub->

有三种语句可以用于声明变量:、、

二、编程实现

If argCount=1 Then WshShell.Run "cmd.exe /c del " & inFile, 0


但有一点要注意的是,在UnloadForm1之前一定要先UnloadForm2

'************************************************
'File:Dialog.vbs(WSHsampleinVBScript)
'Author:(c)G.Born
'
'Usingtheshelldialogboxtoselectafolder
'************************************************
OptionExplicit
'Flagsfortheoptionsparameter
ConstBIF_returnonlyfsdirs=&H0001
ConstBIF_dontgobelowdomain=&H0002
ConstBIF_statustext=&H0004
ConstBIF_returnfsancestors=&H0008
ConstBIF_editbox=&H0010
ConstBIF_validate=&H0020
ConstBIF_browseforcomputer=&H1000
ConstBIF_browseforprinter=&H2000
ConstBIF_browseincludefiles=&H4000
Dimwsh,objDlg,objF
'GetApplicationobjectoftheWindowsshell.
SetobjDlg=WScript.CreateObject("Shell.Application")
'UsetheBrowseForFoldermethod.
'Forinstance:SetobjF=objDlg.BrowseForFolder_
'(&H0,"Selectthefoldertocopy",&H10,"C:\Born")
SetobjF=objDlg.BrowseForFolder(&H0,_
"Selectthefoldertocopy",_
BIF_editbox+BIF_returnonlyfsdirs)
'Hereweusethefirstmethodtodetecttheresult.
IfIsValue(objF)Then
MsgBox"Selectedfolder:"&objF.Title
Else
MsgBox"Canceled"
EndIf

'HereweuseTypeNametodetecttheresult.
IfInStr(1,TypeName(objF),"Folder")>0Then
MsgBox"Selectedfolder:"&objF.Title
Else
MsgBox"Canceled"
EndIf

FunctionIsValue(obj)
'Checkwhetherthevaluehasbeenreturned.
Dimtmp
OnErrorResumeNext
tmp=""&obj
IfErr<>0Then
IsValue=False
Else
IsValue=True
EndIf
OnErrorGoTo0
EndFunction

'***Endae无法使用最后,希望大家能够把数组运用的得心应手TDB


注:你把VB脚本文件和MDB文件放在一个目录里,执行VB脚本就行了。

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