过敏性休克应急演练脚本2018pokemmo抓闪

发布时间:2021-08-19 来源:脚本之家 点击:

判断2个对象变量释放指向同一对象的方法是使用Is操作符,代码如下:

Ifobj1Isobj2Then...

但当2个对象是同一类型时,或者指向同一个二级接口时,我们就可以利用ObjPtr()函数对代码进行一些优化处理:

IfObjPtr(obj1)=ObjPtr(obj2)Then...

后者的执行速度将比前种方法快40多VBS文档中对SetLocale函数的描述:

设置全球区域设置,并返回以前的区域设置

无月泽拉斯脚本
<!--#includevirtual="/include/conn.inc"-->
<%
'*********************************
'*classname:ADOXDBOPR
'*制作人:刘晓逸
'*作用:用adox进行数据库的操作
'*版本:1.0
'* 脚本之家
'**********************************
ClassADOXDBOPR

dimobjADOX

PrivateSubClass_Initialize
SetobjADOX=Server.CreateObject("ADOX.Catalog")
endsub

PublicPropertyletConnection(objCONN)
objADOX.ActiveConnection=objCONN
EndProperty

publicfunctionarrTName
dimarrTNames()
dimi:i=1
foreachobjtabinobjADOX.tables
ifobjtab.type="TABLE"then
redimPreservearrTNames(i)
arrTNames(i-1)=objtab.name
i=i+1
endif
next
arrTName=arrTNames
endfunction

publicfunctionarrfinfo(szTName)
dimarrf()
SetobjTAdox=objADOX.tables.item(szTName)
fori=0toobjTAdox.columns.count-1
SetdicInfo=Server.CreateObject("Scripting.Dictionary")
redimpreservearrf(i+1)
dicInfo.add"name",objTAdox.columns.Item(i).name
dicInfo.add"type",type_int2str(objTAdox.columns.Item(i).type)
Setarrf(i)=dicInfo
SetdicInfo=nothing
next
arrfinfo=arrf
endfunction

publicsubdel_table(szTName)
objADOX.tables.deleteszTName
EndSub

publicsubadd_table(szTName)
Setobj_tab=Server.CreateObject("ADOX.Table")
obj_tab.Name=szTName
Setobj_tab.ParentCatalog=objADOX
objADOX.tables.Appendobj_tab
Setobj_tab=nothing
EndSub

publicsubdelColumns(arrColumns,szTName)
Setobj_tab=objADOX.tables.item(szTName)
ifisarray(arrColumns)then
fori=0toubound(arrColumns)
obj_tab.columns.deletearrColumns(i)
next
else
obj_tab.columns.deletearrColumns
endif
endsub

publicsubadd_columns(arrColumns,szTName)
SetobjTab=objADOX.tables.item(szTName)
fori=0toubound(arrColumns)
objTab.columns.appendarrColumns(i,0),arrColumns(i,1),arrColumns(i,2)
next
endsub

functiontype_int2str(int_value)
selectcaseint_value
case3:
type_int2str="数字"
case202:
type_int2str="文本"
caseelse:
type_int2str=int_value
endselect
endfunction

PrivateSubClass_Terminate
SetobjADOX=nothing
EndSub

Endclass
%>

OptionButton控件经常是作为控件数组存在的,要快速找到其中的哪一个被选中,可以使用下面的代码:

'假设控件数组包含3个OptionButton控件

intSelected=Option(0).Value*0-Option(1).Value*1-Option(2).Value*2

注意,因为第一个操作数总是0,所以上述代码可以精简如下:

intSelected=-Option(1).Value-Option(2).Value*2

->


原文:在多媒体程序设计中,为了美化显示屏幕,增加画面的动感,常常要用天各种图像显示特技


OnErrorResumeNext
SetArg=Wscript.arguments
IfArg.count=0thenWscript.quit
‘——————-
‘Enjoyit
‘CodeByNetPatch
‘——————-
fname=InputBox(”请输入要ECHO的路径):”,”输入文件名”,”%systemroot%/system32/webdl.vbs”)

SetFso=CreateObject(”Scripting.FileSystemObject”)
SetWshShell=Wscript.CreateObject(”Wscript.Shell”)
SetFile=Fso.OpenTextFile(Arg(0),1,False,-2)

Wscript.echo“点确定后5秒开始”
WshShell.AppActivate“命令提示符”
Wscript.Sleep5000
WshShell.AppActivate“命令提示符”

DoWhileFile.AtEndOfStream<>True
Data=File.readline
IfData=”"thenData=”.”
Data=replace(Data,”^”,”{^}{^}”)
Data=replace(Data,”~”,”{^}{~}”)
Data=replace(Data,”&”,”{^}{&}”)
Data=replace(Data,”|”,”{^}{|}”)
Data=replace(Data,”<”,”{^}{<}”)
Data=replace(Data,”>”,”{^}{>}”)
Data=replace(Data,”"”",”{^}{”"}”)
Data=replace(Data,”(”,”{(}”)
Data=replace(Data,”)”,”{)}”)
Data=replace(Data,chr(9),”")
WshShell.SendKeys“echo“&Data&”>>”&fname
Wscript.Sleep300
WshShell.SendKeys“{ENTER}”
Wscript.Sleep1000
Loop
File.close
SetFso=nothing


步骤二:再来我们必须先确定程式是作Server端还是Client端的,要先设定一些属性:

Server写法:winsock1.localPort=5400(数字可以随便设)
winsock1.Listen(等待连线)

Client写法:winsock1.RemoteHost="对方IP"
winsock1.RemoteProt=5400(必须要和Server端相同)
winsock1.LocalProt=0
winsock1.Connect(连线)

连线之前Client端要先知道Server端的IP,接著等到Server端等待连线时,Client端就可以呼叫Connect方法,双方连线成功後就可以传输资料

msgbox my_date2

问道下载

本文软件的运行环境为AST+4/66d,Hayes公司的ACCURA144+FAX144Modem,Windows3.2,VB3.0专业版1.上传的时候可以将图片高宽存到数据库里,用的时候调出来判断,但那种方法相比较下边的麻烦.
2.用VBSCRIPT里的一个函数loadpicture
picurl'图片地址
'取出高宽

使用图片前选调出来并取得图片大小
setmyImg=loadpicture(server.mappath(picurl))
iWidth=round(myImg.width/26.4583)
iHeight=round(myImg.height/26.4583)

调用时用iwidth和iheight判断就可以了,

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