论坛 › 『 提问交流 』 › 谁能把这段代码加个判断语句1

334822249 发表于 2010-4-23 16:11:52

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

谁能把这段代码加个判断语句
记录付费主题, 价格:金钱 10 块 $var = DriveGetDrive("CDROM")
      If Not @error Then
                For $i = 1 To $var
                                          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 发表于 2010-4-23 16:55:40

为什么有这句:$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
                        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 发表于 2010-4-23 17:21:04

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

        EndIf
EndIf

Func Runs()
        ;DirCopy($var & '\常用软件', "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

查看完整版本: 谁能把这段代码加个判断语句1