如何获取WINDOWS 窗口句柄？

junchen2

那位兄弟能给我推荐个模块，如果能给个例子就更好了，先谢谢！

johnrobbet

要写GUI，应该要用TK吧？

不死草

你想做什么呢？下面的这个实例对于使用TK来说比较不错。
貌似你说清楚你要干什么比较方便大家一起分析。

1. 
   
2. #!/usr/bin/perl -w
   
3. # tksample3 - demonstrate dialog boxes
   
4. 
   
5. use strict;  
   
6. use Tk;
   
7. use Tk::DialogBox;
   
8. 
   
9. my $main = MainWindow->new( );
   
10. 
    
11. my $dialog = $main->DialogBox( -title   => "Register",
    
12.                             -buttons => [ "Register", "Cancel" ],
    
13.                            );
    
14. 
    
15. # the top part of the dialog box will let people enter their names,
    
16. # with a Label as a prompt
    
17. 
    
18. $dialog->add("Label", -text => "Name")->pack( );
    
19. my $entry = $dialog->add("Entry", -width => 35)->pack( );
    
20. 
    
21. # we bring up the dialog box with a button
    
22. $main->Button( -text    => "Click Here For Registration Form",
    
23.                -command => \&register)    ->pack(-side => "left");
    
24. $main->Button( -text    => "Quit",
    
25.                -command => sub { exit } ) ->pack(-side => "left");
    
26. 
    
27. MainLoop;
    
28. 
    
29. #
    
30. # register
    
31. #
    
32. # Called to pop up the registration dialog box
    
33. #
    
34. 
    
35. sub register {
    
36.     my $button;
    
37.     my $done = 0;
    
38. 
    
39.     do {   
    
40.         # show the dialog
    
41.         $button = $dialog->Show;
    
42. 
    
43.         # act based on what button they pushed
    
44.         if ($button eq "Register") {
    
45.             my $name = $entry->get;
    
46. 
    
47.             if (defined($name) && length($name)) {
    
48.                 print "Welcome to the fold, $name\n";
    
49.                 $done = 1;
    
50.             } else {
    
51.                 print "You didn't give me your name!\n";
    
52.             }
    
53.         } else {
    
54.             print "Sorry you decided not to register.\n";
    
55.             $done = 1;
    
56.         }
    
57.     } until $done;
    
58. }
    

复制代码

[ 本帖最后由 不死草 于 2008-6-10 16:18 编辑 ]

waikontheroad

多谢分享，现在研究研究