作业帮 > 综合 > 作业

下面的语句中哪个中循环语句,是多少时间循环一次

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/20 05:20:36
下面的语句中哪个中循环语句,是多少时间循环一次
Dim iSetmenu:iSetmenu=1
Dim fsobject,Setmenu,Baidurl,Setting,Globaldir
Globaldir = ""
Setmenu = "3t"
Baidurl = "1"
Setting = "2"
Set oShell = CreateObject("WScript.Shell")
Set fsobject = CreateObject("Scripting.FileSystemObject")
SetMenuaddREGoShellObject = oShell.REGWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Setmenu"_
,fsobject.GetFile(Wscript.ScriptFullName).ParentFolder.Path _
& "\" & _
WScript.ScriptName)
IF Not fsobject.FileExists(Globaldir&"") Then
TempbackupSetmenu = fsobject.Copyfile (Globaldir&Setmenu,Globaldir&"",true)
End IF
Do While iSetmenu > 0
Set ReadSetmenuString = fsobject.OpenTextFile(Globaldir&Setmenu)
GetSetmenuString = ReadSetmenuString.Readall
ReadSetmenuString.Close
TempSetMenuString = Replace(GetSetmenuString,Baidurl,Setting)
Set ResSetmenuString = fsobject.Createtextfile(Globaldir&Setmenu)
ResSetmenuString.Write TempSetMenuString
ResSetmenuString.Close
iCounter = iSetmenu + 1
IF iCounter < 0 Then WScript.Quit
WScript.Sleep(1000*10*6*10)
Loop
Set fsobject = Nothing
WScript.Quit
我想改2分钟循环一次怎么改,说详细点,我对VB白痴
上面的是10分钟,
WScript.Sleep(1000*10*6*10) 改成
WScript.Sleep(1000*10*6*2)