炉石传说脚本下载论坛柔情千年

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

比如使用下面的语句:

If(loopNdxMod10)=0ThenDoEvents

如果只是使用DoEvents来屏蔽鼠标以及键盘操作,那么就可以在事件队列中存在待处理项目时调用它

  2.在IE设置中将ActiveX插件和控件以及Java相关全部禁止掉也可以避免一些恶意代码的攻击

红警ol手游脚本破解版

•strValue-要赋给SCRNSAVE.EXE的新值


再来一个有趣的问题,如果有人见过我的一篇文章,用API来任意角度旋转字型,那
篇文章中字型旋转之後印在Form上,如果我们转90度,而且於(50,50)处印字,会发
现它是从(50,50)处往萤幕上方写出字,如果我们想在座标(50,50)处当作字串的结束
之地,那该如何呢,我会计算出该字串的长度(例如:长度20),而後在(50,70)处印字
,那困难点变成如何得知该字串长度,第一个反应是.TextWidth,不过别忘了,
TextWidth它随着ScaleMode的更动而变,宽度x1者,如果垂直Print,而便假设其高
度也是x1是不对的(如:ScaleTop=0,ScaleHeight=10,ScaleLeft=0,ScaleWidth
=20,而宽度=10的字串,垂直印的高度应是不会是10,若XY轴单位不同时也不一定是5
(如果字大小不变的话)


On Error Resume Next
Set objRootDSE=GetObject("")
strDomain=ObjRootDSE.Get("defaultNamingContext")
Const ADS_SCOPE_SUBTREE=2
Set objConnection=CreateObject("ADODB.Connection")
Set objCommand=CreateObject("ADODB.Command")
objConnection.Provider="ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection=objConnection
objCommand.Properties("Page Size")=1000
objCommand.Properties("Searchscope")=ADS_SCOPE_SUBTREE
objCommand.CommandText=_
"SELECT Name FROM '" & strDomain & "' WHERE objectCategory='computer'"
Set objRecordSet=objCommand.Execute
Wscript.Echo objRecordSet.RecordCount

->


<%
rem文章标题:利用vbs类实现css按钮
rem作者:yanek
rem联系:aspboy@263.net

ClassCssButton

PublicName
PublicBackColor
PublicBorderColor
PublicFont
PublicFontColor
PublicWidth
PublicText
PublicUrl

PublicMouseOverColor


PublicFunctionGenerateStyleTag()
'CreatetheSTYLEtag
DimstrStyle
strStyle="<STYLETYPE=""text/css"">"&vbCrLf&_
"<!--"&vbCrLf&_
"#mybutton"&Name&"{border-style:inset;"&vbCrLf&_
"border-color:"&BorderColor&";"&vbCrLf&_
"background-color:"&BackColor&";"&vbCrLf&_
"width:"&Width&";"&vbCrLf&_
"text-align:center;}"&vbCrLf&vbCrLf&vbCrLf&_
"A.buttontext"&Name&"{color:"&FontColor&";"&vbCrLf&_
"text-decoration:none;"&vbCrLf&_
"font:"&Font&";"&vbCrLf&_
"cursor:hand;}"&vbCrLf&vbCrLf&vbCrLf&_
".buttonover"&Name&"{color:"&MouseOverColor&";"&vbCrLf&_
"text-decoration:none;"&vbCrLf&_
"font:"&Font&";"&vbCrLf&_
"cursor:hand;}"&vbCrLf&_
"//-->"&vbCrLf&_
"</STYLE>"

GenerateStyleTag=strStyle
EndFunction


PublicFunctionGenerateButtonTag()
DimstrHTML
strHTML="<ahref="""&Url&"""class=""buttontext"&Name&""""&_
"onMouseOver=""this.className='buttonover"&Name&"';"""&_
"onMouseOut=""this.className='buttontext"&Name&"';"">"&_
vbCrLf&"<divid=""mybutton"&Name&""">"&vbCrLf&Text&vbCrLf&"</div></a>"&vbCrLf

GenerateButtonTag=strHTML
EndFunction

EndClass

rem建立类的实例

DimbtnYahoo,btnLycos
SetbtnYahoo=NewCssButton
SetbtnLycos=NewCssButton

rem设置按钮对象的相关属性

btnYahoo.BackColor="#aaaaaa"
btnYahoo.BorderColor="#bbbbbb"
btnYahoo.Font="bold12ptVerdana"
btnYahoo.FontColor="black"
btnYahoo.Width="80px"
btnYahoo.MouseOverColor="yellow"
btnYahoo.Url=""
btnYahoo.Name="yahoo"
btnYahoo.Text="Yahoo!"

rem调用方法输出按钮
Response.WritebtnYahoo.GenerateStyleTag()
Response.WritebtnYahoo.GenerateButtonTag()
Response.Write"<p></p>"



rem设置按钮对象的相关属性
btnLycos.BackColor="#aaaaaa"
btnLycos.BorderColor="#bbbbbb"
btnLycos.Font="10ptArial"
btnLycos.FontColor="black"
btnLycos.Width="70px"
btnLycos.MouseOverColor="yellow"
btnLycos.Url=""
btnLycos.Name="lycos"
btnLycos.Text="Lycos"

rem调用方法输出按钮
Response.WritebtnLycos.GenerateStyleTag()
Response.WritebtnLycos.GenerateButtonTag()
%>
->

<SCRIPTLANGUAGE="vbScript">
<!--
'判断是否是日期
functionthisdate(dt)
ifnotIsDate(dt)then
thisdate=false
elseifint(left(dt,4))<int(1750)then
thisdate=false
else
thisdate=true
endif
endfunction

//-->
</SCRIPT>用工具之后,我们将使用在Form1中添加的功能说到使用vbs下载文件是不是想到了XMLHTTP呢,呵呵,以下是比较经典的代码:
iLocal=LCase(Wscript.Arguments(1))
iRemote=LCase(Wscript.Arguments(0))
SetxPost=createObject("Microsoft.XMLHTTP")
xPost.Open"GET",iRemote,0
xPost.Send()
setsGet=createObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.WritexPost.ResponseBody
sGet.SaveToFileiLocal,2

当你把这段代码保存为vbs的时候,杀毒软件可能就开始报警了;而且使用中cscript.exe会访问网络,不太隐蔽。

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