已完成-求教，如何将重复执行的代码，简单调用？

pzypdl2006

在写程序的时候有时，一段执行代码会被重复使用，那应该怎么精简呢？
能不能像变量一样，创建一个变量，使变量的值为重复的代码
然后再次使用重复的代码时候，就直接引用变量呢？？

例如：

shellExecute("1.reg")
sleep(1000)
If WinActive("注册表编辑器") Then
ControlClick("注册表编辑器","是(&Y)","Button1")
sleep(1000)
ControlClick("注册表编辑器","确定","Button1")
sleep(5000)
shellExecute("2.reg")
sleep(1000)
If WinActive("注册表编辑器") Then
ControlClick("注册表编辑器","是(&Y)","Button1")
sleep(1000)
ControlClick("注册表编辑器","确定","Button1")
sleep(5000)
shellExecute("3.reg")
sleep(1000)
If WinActive("注册表编辑器") Then
ControlClick("注册表编辑器","是(&Y)","Button1")
sleep(1000)
ControlClick("注册表编辑器","确定","Button1")
sleep(5000)

其中
sleep(1000)
If WinActive("注册表编辑器") Then
ControlClick("注册表编辑器","是(&Y)","Button1")
sleep(1000)
ControlClick("注册表编辑器","确定","Button1")
sleep(5000)
这段代码为重复使用的代码！

ap112

Local $file[3] = ["1.reg","2.reg","3.reg"]
For $i = 0 To 2
        _Hanshu($file[$i])
Next
Func _Hanshu($filename)
        shellExecute($filename)
        sleep(1000)
        If WinActive("注册表编辑器") Then
                ControlClick("注册表编辑器","是(&Y)","Button1")
                sleep(1000)
                ControlClick("注册表编辑器","确定","Button1")
                sleep(5000)
        EndIf
EndFunc

楼主的代码执行没错误吗？只有IF，你的endif呢？？？？

pzypdl2006

回复 2# ap112

在论坛里给你endif了

pzypdl2006

回复 2# ap112

在论坛里给你endif了

那如果重复的代码是出现在不连续的代码行列中，比如像遇到这样的重复代码就调用一下！

xlj310

For $i = 1 To 2
        ShellExecute($i & ".reg")
        Sleep(1000)
        If WinActive("注册表编辑器") Then
                ControlClick("注册表编辑器", "是(&Y)", "Button1")
                Sleep(1000)
                ControlClick("注册表编辑器", "确定", "Button1")
                Sleep(5000)
        EndIf
Next

xlj310

其实你这个还可以更简单，虽然你没有问。我懂这方面就可以告诉你。
如果你的1.reg和2.reg……里的内容较多，做成reg文件当然比较好。如果较简单，则可以直接用Au3写注册表代码。下面有示例的！
如果做成.reg文件后想要导入，可以先加入一句，将注册表修改一下，就不会弹出确认提示了。

RegWrite("HKEY_CLASSES_ROOT\regfile\shell\open\command", "", "REG_SZ", 'regedit.exe /s "%1"')

For $i = 1 To 2
        ShellExecute($i & ".reg")
Next

这样代码就很简洁了。

nqawen

谢谢，又学了一招

pzypdl2006

回复 6# xlj310

注册表文件不需要改动吧？直接把RegWrite()那句卸载au3文件里  是吗？

pzypdl2006

回复 6# xlj310

是在au3文件的开始写入RegWrite.
搞定了  谢谢哦！

？？？
Func 函数
设置后，在运行的过程中；
发现有的机器能很快调用，有的机器却调用很慢？不知道什么原因?

zhzhtx

我是来学习的