vx用一键截图（xp改造）

教程作者：柳之一 首发网址：点此进入本教学的原始帖 适宜用户：需要此效果 技术通用度：★★★★ 技术应用复杂度：40 （满分150分） 学习的理解难度：60 （满分150分）

 作者的话：

原问题：

http://bbs.66rpg.com/forumTopicRead.asp?id=96611

效果：按f5，可以截图，保存在Graphics/Pictures/下面

使用方法：将脚本插在Scene_Map之后，main之前，并把下面连接中的dll解压在你的游戏文件夹内即可。

 教学正文：

#===============================================================================
#
# Screenshot V2
#
# Screenshot Script v1 & screenshot.dll v1            created by: Andreas21
# Screenshot Script v2                                created/edit by: cybersam
# the autor is found on a german board...
# the comments are added by me...
# since the autor didnt want to add any comment...
# so thats it from here...
# have fund with it... ^-^
#
# oh yea.. the needed command line is found in "Scene_Map" in "def update"
#
#===============================================================================
module Screen
  ##
  ##
  @screen = Win32API.new 'screenshot', 'Screenshot', %w(l l l l p l l), ''
  @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
  @findwindow = Win32API.new 'user32', 'FindWindowA', %w(p p), 'l'
  module_function
  #-----------------------------------------------------------------------------
  # here comes the stuff...
  # i add here the stuff for automatic change of the number for the screenshot
  # so it wont overrite the old one...
  # if you want to change so stuff change them in this line below
  # or you can change them in your command line... like
  # Screen::shot("screenshot", 2)
  # this change the name and the type of the screenshot
  # (0 = bmp, 1 = jpg and 2 = png)
  # ----------------------------------------------------------------------------
  def shot(file = "screenshot", typ = 2)
    # to add the right extension...
    if typ == 0
      typname = ".bmp"
    elsif typ == 1
      typname = ".jpg"
    elsif typ == 2
      typname = ".png"
    end   
    file_index = 0   
    dir = "Graphics/Pictures/"    
    # make the filename....
    file_name = dir + file.to_s + typname.to_s
    # make the screenshot.... Attention dont change anything from here on....
    @screen.call(0,0,544,416,file_name,handel,typ)
  end
  # find the game window...
  def handel
    game_name = "\0" * 256
    @readini.call('Game','Title','',game_name,255,".\\Game.ini")
    game_name.delete!("\0")
    return @findwindow.call('RGSS Player',game_name)
  end
end

class Scene_Map < Scene_Base
  #--------------------------------------------------------------------------
  # ● 开始处理
  #--------------------------------------------------------------------------
  def update
    super
    $game_map.interpreter.update      # 更新解释器
    $game_map.update                  # 更新滴入
    $game_player.update               # 更新玩家
    $game_system.update               # 更新计时器
    @spriteset.update                 # 更新活动块元件
    @message_window.update
    # 更新消息窗口
    unless $game_message.visible      # 正在显示消息以外的情况
      update_transfer_player
      update_encounter
      update_call_menu
      update_call_debug
      update_scene_change
    end
    if Input.press?(Input::F5)
      Screen::shot
    end
  end
end 

http://bbs.66rpg.com/UP_PIC/200801/screenshot_98032718.rar