vase 发表于 2009-12-30 00:10:09

一個mush 的小玩意兒...

sub hideMainWindow {
    my $positionString = GetMainWindowPosition();
    my ($left, $top, $width, $height) = split /,/, $positionString;

    if ($left + $width > 0 or $top + $height > 0) {

      #-------------------------
      # if visiable we will hide the main window
      #-------------------------
      MoveMainWindow(-1 * $width - $left, -1 * $height - $top, $width, $height);
    }
    else {

      #-------------------------
      # if invisiable we move the main window that can be visiable
      #-------------------------
      MoveMainWindow(-1 * ($left + $width), -1 * ($height + $top), $width, $height);
    }
}

ddid 发表于 2009-12-30 13:42:46

呵呵，终于有perl的脚本了。

MUSH支持的：VBScript, JScript, LUA, PerlScript, PHPScript, Python 这里全有了，就差 Tcl 和 Ruby 的了。

lzkd 发表于 2009-12-30 13:56:23

原帖由 ddid 于 2009-12-30 01:42 PM 发表 http://www.pkuxkx.com/forum/images/common/back.gif
呵呵，终于有perl的脚本了。

MUSH支持的：VBScript, JScript, LUA, PerlScript, PHPScript, Python 这里全有了，就差 Tcl 和 Ruby 的了。

我是PHP代表....嘿嘿..
页: [1]
查看完整版本: 一個mush 的小玩意兒...