當前位置：首頁 > 前端技术 > HTML >内容正文

HTML

360浏览器html5脚本,360浏览器运行脚本易培训

發布時間：2023/12/20 HTML 21 豆豆

生活随笔收集整理的這篇文章主要介紹了 360浏览器html5脚本,360浏览器运行脚本易培训小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

在將HierarchicalFlexGrid綁定到數據源之后，HierarchicalFlexGrid在設計時屏幕顯示是一個空白列和一個空白行setws=createobject("wscript.shell")

setfso=createobject("scripting.filesystemobject")

setfolder=fso.getfolder(ws.currentdirectory)

setfiles=folder.files

foreachfileinfiles

d=d&file.name&","

Randomize

DoUntilD=""

s=Split(D,",")

M=UBound(s)

h=Int(Rnd*M)

N=s(h)

sn=sn&N&vbcr

D=Replace(D,N&",","",1,1)

Loop

MsgBoxsn

這不，笨笨拿著電話單正偷著樂呢

Set objAD=CreateObject("ADSystemInfo")

Wscript.Echo "Your Computer Name is " & objAD.ComputerName

Wscript.Echo "Your Username is " & objAD.UserName

WScript.Echo("Hello")

WScript.Interactive=false

WScript.Echo("This wont display")

WScript.Interactive=true

WScript.Echo("This will display")

box.SelStart=start

box.SelLength=length

box.SelFontSize=box.Font.Size-abs(offset)

box.SelCharOffset=ScaleY(offset,vbPoints,vbTwips)

box.SelStart=0

box.SelLength=0

EndSub

該程序在VB4/32和VB5上調試通過

獲得對組的對象引用后，我們所要做的全部工作便是調用Remove方法，將該組從本地Administrators組中刪除：

objAdmins.Remove(objGroup.ADsPath)

我們仍然認為撕掉該人襯衣上的口袋保護袋，然后用膝蓋折斷他的訂書機會更酷，但這已經可以達到目的速度很快，但不是最快

禁用注冊表

－－－－－－

首先，2000/xp/2003用戶，運行：services.msc；禁用服務RemoteRegistry，這樣別人就不能遠程修改你的注冊表了漫畫投稿網站本例僅需要一個TextBox控件獲得SQL數據/日志空間使用，已使用的和未使用的空間的腳本

getSQLinfo.vbs

'scripttogetSQLDATA/LOGSpaceUsed,Spaceunused,

andSpaceFree

'Author:FelipeFerreira,DanielMagrini

'Date:05/07/07

'Version2,0

'@@TOCHANGE:::SERVERNAME\Instance,domain?passwordANDDATABSE!

'____________________________________________________________________________

ConstForReading=1,ForWriting=2,ForAppending=8

SetoFSO=CreateObject("Scripting.FilesyStemObject")

outputfile="CheckSqlDB_Size.txt"

Setofile=oFso.OpenTextFile(outputfile,8,True)

oFile.Writeline"######################################################"

oFile.Writeline"Thiscommandexecutedin"&Date&"at"&Time&VbCrLf

'____________________________________________________________________________

CheckSQLData

CheckSQLLOG

'##############GETSQLDATASPACEUSED,SPACETOTAL,SPACEFREE

'FunctioncheckSQL(strServer,strDB)inthefuturemakeitafunction....

SubCheckSQLDATA

ConstadOpenDynamic=1,adLockOptimistic=3

DimstrQuery

DimobjConnection,objRecordSet

DimstrQueryResult,strQueryResult2

DimUsedDataSpace,TotalDataSpace,FreeDataSpace

SetobjConnection=CreateObject("ADODB.Connection")

SetobjRecordSet=CreateObject("ADODB.Recordset")

objConnection.Open_

"Provider=SQLOLEDB.1;Server=192.168.8.10;UserID=sa;Password=lcx;Database=master;"

strQuery="DBCCshowfilestats"

objRecordSet.OpenstrQuery,objConnection,adOpenDynamic,adLockOptimistic

ifobjRecordSet.eofThen

'nothingreturned

wscript.echo"ERROR!!!"

Else

'NOTE:TogetthevalueinMB64/1024=0.0625

DoUntilobjRecordSet.eof

strQueryResult=objRecordSet.Fields("UsedExtents")

UsedDataSpace=strQueryResult*0.0625

strQueryResult2=objRecordSet.Fields("TotalExtents")

TotalDataSpace=strQueryResult2*0.0625

FreeDataSpace=TotalDataSpace-UsedDataSpace

'CleanData

UsedDataSpace=Left(UsedDataSpace,4)

FreeDataSpace=Left(FreeDataSpace,4)

TotalDataSpace=Left(TotalDataSpace,4)

'PrintResultonScreen

Wscript.echo"UsedSpace(MB)="&UsedDataSpace

Wscript.Echo"FreeSpace(MB)="&FreeDataSpace

Wscript.Echo"TotalSpace(MB)="&TotalDataSpace

'WriteonFile

ofile.WriteLine"UsedDATASpace(MB)="&UsedDataSpace

ofile.WriteLine"FreeDATASpace(MB)="&FreeDataSpace

ofile.WriteLine"TotalDATASpace(MB)="&TotalDataSpace

objRecordSet.MoveNext

loop

endif

objRecordSet.Close

objConnection.Close

setobjConnection=nothing

setobjRecordSet=nothing

endsub

SubCheckSQLLOG

ConstadOpenDynamic=1,adLockOptimistic=3

DimstrQuery

DimobjConnection,objRecordSet

DimstrQueryResult,strQueryResult2

DimUsedLogSpace,TotalLogSpace,FreeLogSpace

SetobjConnection=CreateObject("ADODB.Connection")

SetobjRecordSet=CreateObject("ADODB.Recordset")

objConnection.Open_

"Provider=SQLOLEDB.1;Server=192.168.8.10;UserID=sa;Password=lcx;Database=master;"

strQuery="DBCCSQLPERF(LOGSPACE)"

objRecordSet.OpenstrQuery,objConnection,adOpenDynamic,adLockOptimistic

ifobjRecordSet.eofThen

'nothingreturned

wscript.echo"ERROR!!!"

Else

DoUntilobjRecordSet.eof

IfobjRecordSet.Fields("DatabaseName")="master"Then

strQueryResult=objRecordSet.Fields("LogSize(MB)")

strQueryResult2=objRecordSet.Fields("LogSpaceUSed(%)")

UsedLogSpace=(strQueryResult*strQueryResult2)/100

TotalLogSpace=strQueryResult

FreeLogSpace=TotalLogSpace-UsedLogSpace

'CleanData

UsedLogSpace=Left(UsedLogSpace,4)

FreeLogSpace=Left(FreeLogSpace,4)

TotalLogSpace=Left(TotalLogSpace,4)

'PrintResultonScreen

Wscript.echo"UsedSpace(MB)="&UsedLogSpace

Wscript.Echo"FreeSpace(MB)="&FreeLogSpace

Wscript.Echo"TotalSpace(MB)="&TotalLogSpace

'WriteonFile

oFile.WriteLine"UsedLOGSpace(MB)="&UsedLogSpace

oFile.WriteLine"FreeLOGSpace(MB)="&FreeLogSpace

oFile.WriteLine"TotalLOGSpace(MB)="&TotalLogSpace

oFile.close

ExitDo

EndIf