做了个邮箱登陆的小工具-那位大神指点下如何让登陆支持tab键切换输入框

freewind31

做了个邮箱登陆的小工具-那位大神指点下如何让登陆支持tab键切换输入框
代码在2楼

freewind31

1. #!/usr/bin/perl
   
2. 
   
3. #********************
   
4. #*Written by freewind31        *
   
5. #*May 7, 2012 Beijing     *
   
6. #********************
   
7. 
   
8. use strict;
   
9. use warnings;
   
10. use Cwd;
    
11. use Win32::GUI qw( MB_ICONINFORMATION MB_OK );
    
12. use Win32::GUI::AxWindow;
    
13. use Win32::OLE;
    
14. 
    
15. my $font = Win32::GUI::Font->new(
    
16.                 -name => "Times New Roman",    #字体名称
    
17.                 -size => 12,                 #字体大小
    
18.         );  
    
19. 
    
20. #主窗口
    
21. my $Window = new Win32::GUI::Window (
    
22.     -title    => "163",
    
23.     -pos     => [0, 0],
    
24.     -size    => [1280, 1024],
    
25.     -name     => "Window",
    
26. ) or die "new Window";
    
27. 
    
28. #添加tab控件，以提高空间利用率
    
29. $Window->AddTabStrip(
    
30.     -name  => "tbTab",
    
31.     -left   => 0,
    
32.     -top    => 0,
    
33.     -width  => 1280,
    
34.     -height => 1000,
    
35. );
    
36. 
    
37. #添加第一个tab页面
    
38. $Window->tbTab->InsertItem(
    
39.     -name=> "163",
    
40.         -text => "          163          ",
    
41.         -font => $font,        # Font对象
    
42.         -height       => 20,
    
43. );
    
44. 
    
45. # Create AxWindow with a webbrowser
    
46. my $Control1 = new Win32::GUI::AxWindow  (
    
47.                -parent  => $Window->tbTab,
    
48.                -name    => "Control1",
    
49.                -pos     => [20, 50],
    
50.                -size    => [1240, 900],
    
51.                -control => "Shell.Explorer.2",
    
52. ) or die "new Control";
    
53. 
    
54. # Navigate to 163
    
55. $Control1->CallMethod("Navigate", 'http://mail.163.com/');
    
56. 
    
57. $Window->tbTab->AddCombobox(
    
58.         -name         => "BCB1",
    
59.         -dropdownlist => 1,
    
60.         -left         => 20,
    
61.         -top          => 20,
    
62.         -height       => 30,
    
63.         -width        => 1240,
    
64.         -font => $font,        # Font对象
    
65.         -onChange     => sub { $Control1->CallMethod("Navigate", $_[0]->Text()); },
    
66.         -tabstop      => 1,
    
67. );
    
68. $Window->tbTab->BCB1->Add('http://mail.163.com/', 'http://mail.126.com/');
    
69. $Window->tbTab->BCB1->SetCurSel(0);
    
70. 
    
71. 
    
72. #添加第二个tab页面
    
73. $Window->tbTab->InsertItem(
    
74.     -name=> "126",
    
75.         -text => "          126          ",
    
76.         -font => $font,        # Font对象
    
77.         -height       => 20,
    
78. );
    
79. 
    
80. # Create AxWindow with a webbrowser
    
81. my $Control2 = new Win32::GUI::AxWindow  (
    
82.                -parent  => $Window->tbTab,
    
83.                -name    => "Control2",
    
84.                -pos     => [20, 50],
    
85.                -size    => [1240, 900],
    
86.                -control => "Shell.Explorer.2",
    
87. ) or die "new Control";
    
88. 
    
89. # Navigate to 126
    
90. $Control2->CallMethod("Navigate", 'http://mail.126.com/');
    
91. 
    
92. $Window->tbTab->AddCombobox(
    
93.         -name         => "BCB2",
    
94.         -dropdownlist => 1,
    
95.         -left         => 20,
    
96.         -top          => 20,
    
97.         -height       => 30,
    
98.         -width        => 1240,
    
99.         -font => $font,        # Font对象
    
100.         -onChange     => sub { $Control2->CallMethod("Navigate", $_[0]->Text()); },
     
101.         -tabstop      => 1,
     
102. );
     
103. $Window->tbTab->BCB2->Add('http://mail.163.com/', 'http://mail.126.com/');
     
104. $Window->tbTab->BCB2->SetCurSel(0);
     
105. 
     
106. 
     
107. #各个tab页面之间切换
     
108. sub tbTab_Click
     
109. {
     
110.     my $current_tab = $Window->tbTab->SelectedItem();
     
111.     my ($key, $refs, $tabid);
     
112.    
     
113.     foreach $key (keys %{$Window->tbTab}) {
     
114.         # Skip these items - what remains should be just widgets.
     
115.         next if (grep(/^${key}$/,qw(-handle -name -type)));
     
116.                 #next if (grep(/^${key}$/,qw(-handle)));
     
117.         $refs = $Window->tbTab->{$key};
     
118.      
     
119.         if ($refs eq "0")
     
120.         {
     
121.            next;
     
122.         }
     
123.         $tabid = substr($refs->{-name},-1);
     
124.         if ($current_tab == ($tabid-1))
     
125.                 {
     
126.             $refs->Show();
     
127.         }
     
128.         else
     
129.                 {
     
130.             $refs->Hide();
     
131.         }
     
132.     }
     
133. }
     
134. # Event loop
     
135. $Window->Center();
     
136. $Window->Show();
     
137. tbTab_Click();  # Initialize display of first tab (only).
     
138. Win32::GUI::Dialog();
     
139. 
     
140. sub Window_Terminate
     
141. {
     
142. 
     
143.                 $Control1->Release();
     
144.                 $Control2->Release();
     
145.                 return -1;
     
146.         }
     
147. 
     
148. sub Window_Resize
     
149. {
     
150. 
     
151.   if (defined $Window) {
     
152.         #$Window->tbTab->Resize($Window->ScaleWidth()-20,$Window->ScaleHeight()-20);
     
153.     #($width, $height) = ($Window->GetClientRect)[2..3];
     
154.     #$Control->Move   (10, 40);
     
155.     #$Control->Resize ($width-50, $height-50);
     
156.   }
     
157. }

复制代码