下面的语句中哪个中循环语句,是多少时间循环一次
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/15 21:48:14
下面的语句中哪个中循环语句,是多少时间循环一次
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白痴
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白痴
![下面的语句中哪个中循环语句,是多少时间循环一次](/uploads/image/z/352017-9-7.jpg?t=%E4%B8%8B%E9%9D%A2%E7%9A%84%E8%AF%AD%E5%8F%A5%E4%B8%AD%E5%93%AA%E4%B8%AA%E4%B8%AD%E5%BE%AA%E7%8E%AF%E8%AF%AD%E5%8F%A5%2C%E6%98%AF%E5%A4%9A%E5%B0%91%E6%97%B6%E9%97%B4%E5%BE%AA%E7%8E%AF%E4%B8%80%E6%AC%A1)
上面的是10分钟,
WScript.Sleep(1000*10*6*10) 改成
WScript.Sleep(1000*10*6*2)
WScript.Sleep(1000*10*6*10) 改成
WScript.Sleep(1000*10*6*2)