谁能把这段代码加个判断语句1

334822249

谁能把这段代码加个判断语句
记录付费主题, 价格:金钱 10 块 $var = DriveGetDrive("CDROM")
        If Not @error Then
                For $i = 1 To $var[0]
                                            DirCopy($var[$i] & '\常用软件', "c:\常用软件", 1)
                        RunWait("C:\WINDOWS\Temp\快速设定分辨率.exe")
                        RunWait("C:\WINDOWS\Temp\一键填写IP192.168.1.110.bat","",@SW_HIDE)
                                            RunWait("C:\WINDOWS\Temp\智能关闭无用服务.bat","",@SW_HIDE)
                        RunWait("C:\常用软件\SOFTINST.EXE")
                Next
EndIf

这段代码 。exe和.bat都运行2遍    怎么加判断语句 在那加判断语句 才不运行2遍

收藏 分享

l4ever

为什么有这句:$var = DriveGetDrive("CDROM")
你有2个cdrom才会运行2次.

实在需要可以这样写

$var = DriveGetDrive("CDROM")
$s1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Temp", "s1")
$s2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Temp", "s2")
$s3 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Temp", "s3")
$s4 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Temp", "s4")
        If Not @error Then
     For $i = 1 To $var[0]
                        DirCopy($var[$i] & '\常用软件', "c:\常用软件", 1)
                        if $s1 = 0 then 
                RunWait("C:\WINDOWS\Temp\快速设定分辨率.exe")
                Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Temp", "s1","REG_SZ","1")
               endif

                        if $s2 = 0 then
                RunWait("C:\WINDOWS\Temp\一键填写IP192.168.1.110.bat","",@SW_HIDE)
                Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Temp", "s2","REG_SZ","1")
               endif
                        if $s3 = 0 then 
                RunWait("C:\WINDOWS\Temp\智能关闭无用服务.bat","",@SW_HIDE)
                Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Temp", "s3","REG_SZ","1")
               endif
                        if $s4 = 0 then
                RunWait("C:\常用软件\SOFTINST.EXE")
                Regwrite("HKEY_LOCAL_MACHINE\SOFTWARE\Temp", "s4","REG_SZ","1")
               endif
        Next
                EndIf

3mile

$var = DriveGetDrive("CDROM")
If Not @error Then
        If UBound($var) > 2 Then
                For $i = 1 To $var[0]
                        If FileExists($var[$i] & '\常用软件') Then
                                DirCopy($var[$i] & '\常用软件', "c:\常用软件", 1)
                                Runs()
                        EndIf
                Next
        Else
                DirCopy($var[1] & '\常用软件', "c:\常用软件", 1)
                Runs()

        EndIf
EndIf

Func Runs()
        ;DirCopy($var[1] & '\常用软件', "c:\常用软件", 1)
        RunWait("c:\常用软件\快速设定分辨率.exe")
        RunWait("c:\常用软件\一键填写IP192.168.1.110.bat", "", @SW_HIDE)
        RunWait("c:\常用软件\智能关闭无用服务.bat", "", @SW_HIDE)
        RunWait("C:\常用软件\SOFTINST.EXE")
EndFunc   ;==>Runs