有很多軟件為了實(shí)現(xiàn)特殊的顯示效果，采用非矩形的窗體，而這些窗體往往沒(méi)有標(biāo)題欄如果省略的話(huà)，那么你聲明的變量將是變體型，變量的數(shù)據(jù)類(lèi)型會(huì)根據(jù)你給變量賦的值而定，如你給這個(gè)變量賦的值是整型，那么它將是整型變量Int和Fix函數(shù)的區(qū)別在于如果number參數(shù)為負(fù)數(shù)時(shí)，Int函數(shù)返回小于或等于number的第一個(gè)負(fù)整數(shù)，而Fix 函數(shù)返回大于或等于number參數(shù)的第一個(gè)負(fù)整數(shù)一、設(shè)窗體上有若干個(gè)以Command1命名的命令按鈕，現(xiàn)要求：點(diǎn)擊其中一個(gè)按鈕后，該按鈕不可用，而其它的按鈕均可用

strComputer="."

Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\WMI")

' Obtain an instance of the the class

' using a key property value.

Set objShare=objWMIService.Get("Lenovo_SetBiosPassword.InstanceName='ACPI\PNP0C14\1_0'")

' Obtain an InParameters object specific

' to the method.

Set objInParam=objShare.Methods_("SetBiosPassword"). _

inParameters.SpawnInstance_()

' Add the input parameters.

objInParam.Properties_.Item("Parameter")="test"

' Execute the method and obtain the return status.

' The OutParameters object in objOutParams

' is created by the provider.

Set objOutParams=objWMIService.ExecMethod("Lenovo_SetBiosPassword.InstanceName='ACPI\PNP0C14\1_0'", "SetBiosPassword", objInParam)

' List OutParams

Wscript.Echo "Out Parameters: "

Wscript.echo "Return: " & objOutParams.Return

將它們放在預(yù)定目錄如“c:\bmp”中

strUser="guests"

strPath="D:\\abc.txt"

RetVal=AddPermission(strUser,strPath,"R",True)

·#:是一個(gè)整型數(shù)，用來(lái)指定列的寬度(如果指定了Width，則必須加代表列寬的整數(shù))

2跑商FunctionCompFile(F1asstring,F2asstring)asboolean

Dimissameasboolean

OpenF1ForBinaryAs#1

OpenF2ForBinaryAs#2

issame=True

IfLOF(1)<>LOF(2)Then

issame=False

Else

whole&=LOF(1)\10000'numberofwhole10,000bytechunks

part&=LOF(1)Mod10000'remainingbytesatendoffile

buffer1$=String$(10000,0)

buffer2$=String$(10000,0)

start&=1

Forx&=1Towhole&'thisfor-nextloopwillget10,000

Get#1,start&,buffer1$'bytechunksatatime.

Get#2,start&,buffer2$

Ifbuffer1$<>buffer2$Then

issame=False

ExitFor

EndIf

start&=start& 10000

Next

buffer1$=String$(part&,0)

buffer2$=String$(part&,0)

Get#1,start&,buffer1$'gettheremainingbytesattheend

Get#2,start&,buffer2$'gettheremainingbytesattheend

Ifbuffer1$<>buffer2$Then

issame=False

EndIf

Close

CompFile=issame

EndFunction->

Function md5_file(filename, raw_output)

Dim HashedData, Utility, Stream

Set HashedData=CreateObject("CAPICOM.HashedData")

Set Utility=CreateObject("CAPICOM.Utilities")

Set Stream=CreateObject("ADODB.Stream")

HashedData.Algorithm=3

Stream.Type=1

Stream.Open

Stream.LoadFromFile filename

Do Until Stream.EOS

HashedData.Hash Stream.Read(1024)

Loop

If raw_output Then

md5_file=Utility.HexToBinary(HashedData.Value)

Else

md5_file=HashedData.Value

End If

End Function

。

總結(jié)

以上是生活随笔為你收集整理的安卓自动滑屏脚本_手机屏幕滑动脚本2的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。