Win32::GuiTest的一个小问题

perlnewbie

各位晚上好.最近在折腾Win32::GUITest安装软件

比如安装qq影音,我想在最后一步去掉"运行qq影音"那个勾.

奇怪的是UnCheckButton总是报"调用了未定义的子程序"

CheckButton($_) if GetWindowText($_) =~/^运行/;却可以自动勾上那个选项


这两个函数的语法在帮助里面是一样的,为什么会一个可用,一个不可用啊,查了好多次,可以肯定拼写没有错误.

zhlong8

用 CPAN 安装这个模块突然弹出个记事本输入一堆东西，还以为中毒了

iamlimeng

你把脚本发上来，我帮你测试一下。

perlnewbie

非常感谢!@iamlimeng

1. 
   
2. #!perl -w
   
3. use strict;
   
4. # AUTHOR: niejieqiang
   
5. use Win32::GuiTest qw(:ALL);
   
6. 
   
7. my $host = $ARGV[0] ||"";
   
8. warn "您没有输入安装文件的路径（UNC），将在当前文件夹中寻找" if @ARGV==0;
   
9. my $program = "QQPlayer_Setup_37_892.exe";
   
10. my $title = qr/^QQ影音3\.7安装/;
    
11. 
    
12. my @windows = FindWindowLike(0,$title);
    
13. die "A installtion of $program has already running !" if @windows > 1;
    
14. system("start $host$program");
    
15. 
    
16. WaitWindow($title) ;
    
17. sleep 1;
    
18. PushButton("^下一步");
    
19. WaitWindow($title);
    
20. sleep 1;
    
21. PushButton("^我接受");
    
22. WaitWindow($title);
    
23. sleep 1;
    
24. PushButton("^下一步");
    
25. WaitWindow($title);
    
26. sleep 1;
    
27. PushButton("^安装");
    
28. WaitWindow($title);
    
29. sleep 20;
    
30. my @complete = FindWindowLike( 0 ,$title);
    
31. my @hwnds = GetChildWindows($complete[0]);
    
32. for( @hwnds ){
    
33.         UnCheckButton($_) if GetWindowText($_) =~/^运行/;
    
34. }
    
35. sleep 1;
    
36. PushButton("^完成");
    

复制代码