perl中的win32gui界面问题： win32gui界面中，有2个文本框，我再第一个文本框中输入了数字后，我想敲一个回车键后，光标到了下一个文本框了！就类似于焦点！ 请教大神！

用win32gui写了一个主界面，在主界面调用外部EXE文件，EXE也是一个win32gui界面，主界面怎么会卡死，有什么解决办法？？？？求助

# -*- coding: cp936 -*- import os import ctypes from PIL import ImageGrab class RECT(ctypes.Structure): _fields_ = [('left', ctypes.c_long), ('top', ctypes.c_long), ('right', ctypes.c_long), ('bottom', ctypes.c_long)] def __str__(self): return str((self.left, self.top, self.right, self.bottom)) def capture(hwnd,tempdir): """ 对...

[ 本帖最后由 hmlijg 于 2014-06-14 02:00 编辑 ] 从一个网友的帖子里复制的perl代码，他提供的exe文件中文显示正常，我用他的代码重新生成exe文件后中文显示为乱码（图片在帖子末尾），请问各位高手，这是什么原因？ 源代码： #!/usr/bin/perl # Written by Limeng # April 1, 2012 Changsha # 仅扫描大小相同的文件，大量节省扫描时间 # 改进耗时显示格式 # 改写gui use strict; #use warnings; use win32::gui qw( MB_IC...

通过SetForegroundwindow等函数可以将已经打开的窗口置前并对其操作, 但是如果这个窗口之前被最小化了就无法置前操作了，有没有什么函数可以将它最大化？

本帖最后由 小perl 于 2012-04-15 19:35 编辑 有用过win32gui::Test的吗？SendKeys怎么发送汉字到活动窗口？[code] use win32::guiTest qw(:ALL); $win32::guiTest::debug = 1; # Set to "1" to enable verbose mode my $windows = FindwindowLike(0, "^perl-ChinaUnix.net"); SetForegroundwindow($windows); SendKeys("hi,perl"); SendKeys("你好"); SendKeys("%(36985)"); [/code]发现没有输出"你好"...

为何当点击了 [新线程] 按钮后，标题TOP上的ICON图标就会消失，或变成骆驼的图标~ #!/usr/bin/perl use strict; use threads; use win32::gui qw(); use win32::gui::BitmapInline(); my $main = win32::gui::window->new( -name => 'Main', -width => 510, -height => 150, -text => "窗口", -maxsize => [ 510, 150 ], -minsize => [ 510, 150 ], -maximizebox ...

大概是这样的，我运行的perl程序建立了两个子线程（也就是现在有三个线程了）， 其中一个子线程创建了gui图形界面，此为线程1 另一个线程进行大量的数值计算，占用60%~90%的cpu，此为线程2 现在的需求是，线程2中隔若干秒会产生出一个计算结果，而这个计算结果需要在线程1中的gui界面里显示出来 小弟原来的的解决方案，是调用如下所示的函数： my $main=win32::gui::window->new( #创建G...

GUIperlwin32消息驱动机制

rt，3x

本帖最后由 dsadjkasd 于 2012-04-20 21:54 编辑