怎么写一个循环语句

haidiyus · 发表于 2015-11-22 21:12:05

Opt ("MustDeclareVars",1)

_Main()
Exit

Func _Main()
        Local $i
                If $i=FileExists("C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat") Then 
                        FileSetAttrib ("C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat","-RASH")
                        FileInstall("C:\HomePageLib.dat","C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat")
                EndIf
EndFunc  ;==>_Main

如果C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat
此文件存在则替换结束
如果没有1秒后再次查看文件存在替换，一直循环到替换掉为止，求各位大神指教

Alam · 发表于 2015-11-22 21:22:23

回复 1# haidiyus

While 1
        If $FileExists("C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat") Then
                FileSetAttrib("C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat", "-RASH")
                FileInstall("C:\HomePageLib.dat", "C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat")
                Exit
        EndIf
        Sleep(1000)
WEnd
#cs
AdlibRegister('_main', 1000)
While 1
        Sleep(100)
WEnd

Func _Main()
        If $FileExists("C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat") Then
                FileSetAttrib("C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat", "-RASH")
                FileInstall("C:\HomePageLib.dat", "C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat")
                Exit
        EndIf
EndFunc
#ce

cfanpc · 发表于 2015-11-23 11:08:07

看看我这个可以么我用了DO做循环。。。
[img][/img]

fuldho · 发表于 2015-11-23 13:02:42

Func _Main()

            If  FileExists("C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat") <> Then
                        _dat()
            Else
                     FileSetAttrib ("C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat","-RASH")
                     FileInstall("C:\HomePageLib.dat","C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat")
            EndIf
EndFunc  ;==>_Main
Func _dat()
            Sleep(1000)
            If  FileExists("C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat") Then
                     FileSetAttrib ("C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat","-RASH")
                     FileInstall("C:\HomePageLib.dat","C:\Program Files (x86)\360\360safe\safemon\HomePageLib.dat")
            EndIf
EndFunc

ddrs · 发表于 2015-11-24 00:16:17

回复 4# fuldho

这个方法不错

		自动登录	找回密码
密码			加入

[系统综合] 怎么写一个循环语句

本帖子中包含更多资源