vruby

lib\vr\vrcomctl.rb(1094): class VRTrackbar < VRNotifyControl

###################################
#
# vrcomctl.rb
# Programmed by nyasu <nyasu@osk.3web.ne.jp>
# Copyright 1999-2005  Nishikawa,Yasuhiro
#
# More information at http://vruby.sourceforge.net/index.html
#
###################################

VR_DIR="vr/" unless defined?(::VR_DIR)
require VR_DIR+'vruby'

=begin
= VisualuRuby(tmp) Common Controls.
This file prepares classes of common controls, panels and menu modules.

<<< handlers.rd

=end

require 'Win32API'

begin
  Win32API.new("comctl32","InitCommonControlsEx","P","").call [8,0x400].pack("LL")
  VR_OLDCOMCTL=false
rescue
#  puts "comctl too old to use rebar and so on"
  VR_OLDCOMCTL=true
end

module WMsg
  NFR_ANSI=1
  NFR_UNICODE=2
  NF_QUERY=3
  NF_REQUERY=4
  WM_NOTIFYFORMAT=85
end

module WStyle
  CCS_TOP              =  0x00000001
  CCS_NOMOVEY          =  0x00000002
  CCS_BOTTOM           =  0x00000003
  CCS_NORESIZE         =  0x00000004
end

module WStruct
  NMHDR="UUU"
end

##################
#
#  The following control windows send WM_NOTIFY message to their parent
#  This definition is for handling them.
#

module VRComCtlContainer
=begin
== VRComCtlContainer
This module provides a message handler for WM_NOTIFY, which calls
defined method in a parent window.
VRForm includes this module automatically loading "vrcomctl.rb".
=end

include VRMessageHandler

def comctlcontainerinit
    addHandler(WMsg::WM_NOTIFY,"wmnotify", MSGTYPE::ARGPASS, nil)
    addHandler(WMsg::WM_NOTIFYFORMAT,"wmnotifyformat",MSGTYPE::ARGINTINT,nil)
    addEvent WMsg::WM_NOTIFY
    addEvent WMsg::WM_NOTIFYFORMAT

addNoRelayMessages [WMsg::WM_NOTIFY,WMsg::WM_NOTIFYFORMAT]
  end

def vrinit
    super
    comctlcontainerinit
  end

def self_wmnotifyformat(parent,command)
    SKIP_DEFAULTHANDLER[1]
  end

def self_wmnotify(msg)

orig_arg= @screen.application.cstruct2array(msg.lParam,WStruct::NMHDR)

id=msg.wParam
    ct=@controls[id]       # Activated Control
    if !ct then return end # Ignore message passed through childwin 
    r=nil
    return unless ct.is_a?(VRNotifyControl) and # Added by yukimi_sake
                  ct._vr_ntfyhandlers and ct._vr_ntfyhandlers[orig_arg[2]]
    ct._vr_ntfyhandlers[orig_arg[2]].each do |shandler|
      args=msgarg2handlerarg(shandler[1],msg,shandler[2])
      if shandler[1] == MSGTYPE::ARGSTRUCT and args.size>0 and
          ct.respond_to?("_vr_notifyarg") then

necessary_arg=ct._vr_notifyarg[orig_arg[2]]
        if necessary_arg then
          n=necessary_arg.size-1
          0.upto(n) do |idx|
            args[idx+3]=nil if necessary_arg[idx,1]=='F'
          end
        end
        args=args[3..-1].compact if args.size > 3
      end

r = ct.__send__(shandler[0],*args) if ct.respond_to?(shandler[0])
      rr = controlmsg_dispatching(ct,shandler[0],*args)
      r = rr if ( rr.kind_of?( SKIP_DEFAULTHANDLER ) )
    end
    r
  end
end

module VRContainersSet
  include VRComCtlContainer
  INITIALIZERS.push :comctlcontainerinit
end

####################################
#
# Argument Utilities for Common Controls
#

class VRNotifyControl < VRControl
=begin
== VRNotifyControl
All common controls have these event handlers.
=== Event handlers
--- ????_clicked
    fired when the control is clicked with left button.
--- ????_hitreturn
    fired when the control has the input focus and the user press ((*ENTER*)) key.
--- ????_dblclicked
    fired when the control is double-clicked with left button.
--- ????_rclicked
    fired when the control is clicked with right button.
--- ????_rdblclicked
    fired when the control is double-clicked with rightbutton.
--- ????_gotfocus
    fired when the control has got the input focus
--- ????_lostfocus
    fired when the control has lost the input focus
=end

attr_reader :_vr_notifyarg

def _vr_ntfyhandlers
    unless defined?(@_vr_ntfyhandlers)
      @_vr_ntfyhandlers={} 
    else
      @_vr_ntfyhandlers
    end
  end

def notifycontrolinit
    @_vr_notifyarg={}
    addNotifyHandler(0xfffffffe,"clicked",MSGTYPE::ARGNONE,nil)
    addNotifyHandler(0xfffffffd,"dblclicked",MSGTYPE::ARGNONE,nil)
    addNotifyHandler(0xfffffffc,"hitreturn",MSGTYPE::ARGNONE,nil)
    addNotifyHandler(0xfffffffb,"rclicked",MSGTYPE::ARGNONE,nil)
    addNotifyHandler(0xfffffffa,"rdblclicked",MSGTYPE::ARGNONE,nil)
    addNotifyHandler(0xfffffff9,"gotfocus",MSGTYPE::ARGNONE,nil)
    addNotifyHandler(0xfffffff8,"lostfocus",MSGTYPE::ARGNONE,nil)
  end
  def vrinit
    super
    notifycontrolinit
  end
  
  def addFilterArg(msg,filter)   # filter as str : 'T'=true, 'F'=false
    @_vr_notifyarg[msg]=filter
  end
  def deleteFilterArg(msg)
    @_vr_notifyarg[msg]=nil
  end
  
  def addNotifyHandler(msg,handlername,handlertype,argparsestr)
    @_vr_ntfyhandlers={} unless defined?(@_vr_ntfyhandlers)
    @_vr_ntfyhandlers[msg]=[] unless @_vr_ntfyhandlers[msg]
    @_vr_ntfyhandlers[msg].push [handlername,handlertype,argparsestr]
  end

def deleteNotifyHandler(msg,handlername)
    return false unless @_vr_ntfyhandlers and @_vr_ntfyhandlers[msg]
    @_vr_ntfyhandlers.delete_if do |shandler|
      shandler[0] != (PREHANDLERSTR+handlername).intern
    end
  end
end

###################################
# Common Controls
#

# Listview

module WMsg
  LVM_GETBKCOLOR    = 0x1000      #GETBKCOLOR, LVM_FIRST
  LVM_SETBKCOLOR    = 0x1001

LVM_SETIMAGELIST  = 0x1003
  LVM_GETITEMCOUNT  = 0x1004
  LVM_GETITEM       = 0x1005       #GETITEMA
  LVM_SETITEM       = 0x1006       #SETITEMA
  LVM_INSERTITEM    = 0x1007       #INSERTITEMA
  LVM_DELETEITEM    = 0x1008
  LVM_DELETEALLITEM = 0x1009

LVM_GETNEXTITEM   = 0x1000 + 12
  LVM_GETITEMRECT   = 0x1000 + 14
  LVM_HITTEST       = 0x1000 + 18
  LVM_ENSUREVISIBLE = 0x1000 + 19

LVM_GETCOLUMN     = 0x1000+25    #GETCOLUMNA
  LVM_SETCOLUMN     = 0x1000+26    #SETCOLUMNA
  LVM_INSERTCOLUMN  = 0x1000+27    #INSERTCOLUMNA
  LVM_DELETECOLUMN  = 0x1000+28    #DELETECOLUMNA
  LVM_GETCOLUMNWIDTH= 0x1000+29
  LVM_SETCOLUMNWIDTH= 0x1000+30

LVM_SETITEMSTATE  = 0x1000+43
  LVM_GETITEMSTATE  = 0x1000+44
  LVM_GETITEMTEXT   = 0x1000+45    #GETITEMTEXTA
  LVM_SETITEMTEXT   = 0x1000+46    #SETITEMTEXTA
  LVM_SORTITEMS     = 0x1000+48
  LVM_GETSELECTED   = 0x1000+50    #LVM_GETSELECTEDCOUNT
  LVM_SETEXTENDEDLISTVIEWSTYLE = 0x1000 + 54
  LVM_GETEXTENDEDLISTVIEWSTYLE = 0x1000 + 55
  LVM_SUBITEMHITTEST= 0x1000+57

LVN_ITEMCHANGING  = 0xffffffff-99
  LVN_ITEMCHANGED   = LVN_ITEMCHANGING-1
  LVN_INSERTITEM    = LVN_ITEMCHANGING-2
  LVN_DELETEITEM    = LVN_ITEMCHANGING-3
  LVN_COLUMNCLICK   = LVN_ITEMCHANGING-8
  LVN_BEGINDRAG     = LVN_ITEMCHANGING-9
  LVN_BEGINRDRAG    = LVN_ITEMCHANGING-11
end
module WStyle
  LVS_ICON          =   0x0000
  LVS_REPORT        =   0x0001
  LVS_SMALLICON     =   0x0002
  LVS_LIST          =   0x0003
  LVS_SINGLESEL     =   4
  LVS_SHOWSELALWAYS =   8
end
module WExStyle
  LVS_EX_FULLROWSELECT=32
  LVS_EX_GRIDLINES=1
end

module WConst
  LVIS_FOCUSED      =  0x0001
  LVIS_SELECTED     =  0x0002
  LVIS_CUT          =  0x0004
  LVIS_DROPHILITED  =  0x0008
end
module WStruct
  LVITEM      = "UIIUUPIIL"
  LVCOLUMN    = "UIIPIIII"
  LVFIND      = "UPLPU"
  LVHITTEST   = "IIUI"
  NM_LISTVIEW= NMHDR+"IIUUULLL" #INT item,subitem,UINT nst,ost,chg,POINT,LParam
end

class VRListview < VRNotifyControl
=begin
== VRListview
Listview.
Some features has not implemented yet.
=== Method
--- setViewMode(mode)
    ((|mode|)) as viewmode. 0 for ICON, 1 for REPORT, 2 for SMALLICON and 
    3 for LIST
--- getViewMode
    Returns the view mode.
--- iconview
    Sets the view mode for Icon view.
--- reportview
    Sets the view mode for Report view.
--- smalliconview
    Sets the view mode for Small icon view.
--- listview
    Sets the view mode for listing view.
--- setBkColor(color)
--- bkcolor=(color)
    Sets the background color.
--- lvexstyle
--- lvexstyle=(style)
    Gets/Sets Listview extended style. 
    If you need style mask, use setListviewExStyle()
--- setListviewExStyle(style,mask=0xffffffff)
    Sets Listview extended style using style mask.

--- insertColumn(column,text,width=50,format=0,textsize=title.size)
    Inserts a new column specified by ((|text|)), ((|width|)) and ((|format|))
    into the index of ((|column|)), which is started from 0.
    ((|format|)) means 0 for left-padded, 1 for right-padded, 2 for centred.
--- deleteColumn(column)
    Deletes the column at the index of ((|column|))
--- clearColumns
    Deletes all columns.
--- countColumns
    Counts the number of columns.
--- addColumn(text,width=50,format=0,textsize=title.size)
    Adds a new column after the last column.
--- setImagelist(imagelist,itype=0)
    Set ((|imagelist|)) for displaying icons of items. ((|imagelist|)) must be
    a kind of SWin::Imagelist. ((|itype|)) specifies the type of Imagelist.
    itype : 0 for normal icon, 1 for small icon  (,2 for state icon).
--- setItemIconOf(hitem,img)
    Sets image ids in a imagelist of the item. 
    The imagelist is set by ((<setImagelist>)) method.
--- getItemIconOf(hitem)
    Returns images id of the item. 
--- getColumnWidthOf(column)
    Returns the width of the column whose index is ((|column|)).
--- setColumnWidthOf(column,width)
    Sets the width of the column.
--- getColumnTextOf(column)
    Returns the text of the column whose index is ((|column|)).
--- setColumnTextOf(column,text)
    Sets the text of the column.
--- getColumnFormatOf(column)
    Returns the format of the column whose index is ((|column|)).
    (see ((<insertColumn>)) about format)
--- setColumnFormatOf(column,format)
    Sets the format of the column.
--- insertItem(index,texts,lparam=0,textsize=128)
    Inserts a new item into the index of ((|index|)).((|texts|)) is an array of
    String which means [item_text, subitem_text, subitem2_text,...].
    ((|lparam|)) is a 32bit value concerned with the item.
    ((|textsize|)) is the limit length of the item texts.
--- addItem(texts,lparam=0,textsize=128)
    Adds a new item after the last item.
--- insertMultiItems(index,multitexts)
    Inserts new items into the index of ((|index|)).
    ((|multitexts|)) is an array which is the arguments of ((<insertItem>))
    excluding ((|index|))
--- deleteItem(idx)
    Deletes an item at the index of ((|idx|)).
--- clearItems
    Deletes all items.
--- countItems
    Counts the items.
--- hittest(x,y)
    Inspect the item index which is at the co-ordinate(((|x|)),((|y|)))
--- hittest2(x,y)
    Returns the item information which is at the co-ordinate(((|x|)),((|y|))).
    The information is the array [x,y,part,index,subitem]
--- getItemRect(idx)
    Returns an co-ordinates array of integers [left,top,right,bottom]
--- getItemStateOf(idx)
    Returns the item state at the index of ((|idx|)).
    The state is 1 for forcused, 2 for selected, 3 for cut and 4 fordrophilited.
--- setItemStateOf(idx,state)
    Sets the item state.
--- selectItem(idx,flag)
    Change selected state of the item at the index of ((|idx|)). 
    If ((|flag|)) is true, the item is selected and if it's false the item is 
    un-selected.
--- getNextItem(start,flags)
    Searches for an item described by ((|start|)) and ((|flags|)).
    ((|flags|)) is 
    * 1 : focused item after ((|start|))
    * 2 : selected item after ((|start|))
    * 4 : cut item after ((|start|))
    * 8 : drophilited item after ((|start|))
    * 0x100 : item above ((|start|))
    * 0x200 : item below ((|start|))
    * 0x400 : left item from ((|start|))
    * 0x800 : right item from ((|start|))
--- focusedItem
    Returns index of the focused item.
--- getItemTextOf(idx,subitem=0,textsize=128)
    Retrieves the sub-text of the item (index ((|idx|)) ).
    ((|subitem|)) specifies the subitem number.
--- setItemTextOf(idx,subitem,text,textsize=text.size)
    Sets the sub-text of the item.
--- getItemLParamOf(idx)
    Gets the lParam of the item.
--- setItemLParamOf(idx,lparam)
    Sets the lParam of the item.
--- selected?(idx)
    Returns true if the item is selected.
--- focused?(idx)
    Returns true if the item is focused.
--- eachSelectedItems
    Yields each selected item index.
--- countSelectedItems()
    Counts the selected items.
--- ensureVisible(i,partial=true)
    Ensures the item(idx) is visible by scrolling.

=== Event handlers
--- ????_itemchanged(idx,state)
    fired when the item state is changed. This also means that this is fired after changing selected items.
    ((|idx|)) is the index of the item and ((|state|)) is the new state.
--- ????_itemchanging(idx,state)
    fired when the item state is changing.
--- ????_columnclick(subitem)
    fired when the column is clicked. ((|subitem|)) is the column index.
--- ????_begindrag
--- ????_beginrdrag
=end

public
  WINCLASSINFO = ["SysListView32",WStyle::LVS_REPORT,0x200]

def listviewinit
    addNotifyHandler(WMsg::LVN_ITEMCHANGED,"itemchanged",
                    MSGTYPE::ARGSTRUCT,WStruct::NM_LISTVIEW)
    addFilterArg WMsg::LVN_ITEMCHANGED,"TFFTFFFF"

addNotifyHandler(WMsg::LVN_ITEMCHANGING,"itemchanging",
                    MSGTYPE::ARGSTRUCT,WStruct::NM_LISTVIEW)
    addFilterArg WMsg::LVN_ITEMCHANGING,"TFFTFFFF"

addNotifyHandler(WMsg::LVN_COLUMNCLICK,"columnclick",
                    MSGTYPE::ARGSTRUCT,WStruct::NM_LISTVIEW)
    addFilterArg WMsg::LVN_COLUMNCLICK,"FTFFFFFF"

addNotifyHandler(WMsg::LVN_BEGINDRAG,"begindrag",
                    MSGTYPE::ARGNONE,nil)

addNotifyHandler(WMsg::LVN_BEGINRDRAG,"beginrdrag",
                    MSGTYPE::ARGNONE,nil)
  end
  def vrinit
    super
    listviewinit
  end

def setViewMode(mode)
    self.style = (self.style & 0xfffffff8) + (mode&3)
  end
  def getViewMode
    self.style & 0xfffffff8
  end
  def iconview() setViewMode(0) end
  def reportview() setViewMode(1) end
  def smalliconview() setViewMode(2) end
  def listview() setViewMode(3) end

def setBkColor(color)
    sendMessage WMsg::LVM_SETBKCOLOR,0,color.to_i
  end

def bkcolor=(color)
    setBkColor(color)
  end

def setListviewExStyle(sty,mask=0xffffffff)
    sendMessage WMsg::LVM_SETEXTENDEDLISTVIEWSTYLE,mask,sty
  end
  def lvexstyle=(sty)
    setListviewExStyle(sty)
  end
  def lvexstyle
    sendMessage WMsg::LVM_GETEXTENDEDLISTVIEWSTYLE,0,0
  end

def insertColumn(column,title,width=50,style=0,textsize=title.size)
    lv=@screen.application.arg2cstructStr(WStruct::LVCOLUMN,
                   0xf,style.to_i,width.to_i,title.to_s,textsize,column,0,0)
    sendMessage WMsg::LVM_INSERTCOLUMN,column.to_i,lv
  end

def deleteColumn(column)
    sendMessage(WMsg::LVM_DELETECOLUMN,column.to_i,0)
  end
  def clearColumns
    while sendMessage(WMsg::LVM_DELETECOLUMN,0,0)!=0 do; end
  end

def countColumns
    r=0
    while getColumnTextOf(r) do r+=1;  end
    r
  end

def addColumn(*args)
    insertColumn(30000,*args)   #30000 as a big number. I believe this is enough.
  end

def getColumnWidthOf(column)
    sendMessage(WMsg::LVM_GETCOLUMNWIDTH,column.to_i,0)
  end

def setColumnWidthOf(column,width)
    sendMessage(WMsg::LVM_SETCOLUMNWIDTH,column.to_i,width.to_i)
  end

def setColumnTextOf(column,text)
    p=@screen.application.arg2cstructStr(WStruct::LVCOLUMN,
                     4,0,0,text,text.size,0)
    sendMessage WMsg::LVM_SETCOLUMN,column.to_i,p
  end
  def setColumnFormatOf(column,format)
    p=@screen.application.arg2cstructStr(WStruct::LVCOLUMN,
                     1,format,0,"",0,0)
    sendMessage WMsg::LVM_SETCOLUMN,column.to_i,p
  end
  def getColumnTextOf(column)
    p=@screen.application.arg2cstructStr(WStruct::LVCOLUMN,
                     4,0,0,"\0"*128,128,0)
    rv=sendMessage WMsg::LVM_GETCOLUMN,column.to_i,p
    r=@screen.application.unpack(p,WStruct::LVCOLUMN)[3]
    if rv!=0 then
      @screen.application.pointer2string(r)
    else
      nil
    end
  end
  def getColumnFormatOf(column)
    p=@screen.application.arg2cstructStr(WStruct::LVCOLUMN,
                     1,0,0,"",0,0)
    rv=sendMessage WMsg::LVM_GETCOLUMN,column.to_i,p
    if rv!=0 then
      @screen.application.unpack(p,WStruct::LVCOLUMN)[1]
    else
      nil
    end
  end

def insertItem(index,texts,lparam=0,textsize=128)
    lvitem=@screen.application.arg2cstructStr(WStruct::LVITEM,
                          0xf,index,0,0,0,texts[0].to_s,textsize,0,lparam)
    item=sendMessage(WMsg::LVM_INSERTITEM,0,lvitem)

1.upto(texts.size-1) do |subitem|
      setItemTextOf(item,subitem,texts[subitem],textsize)
    end
    item
  end

def addItem(*args)
    insertItem(30000,*args)
  end

def insertMultiItems(index,multitexts,textsize=128)
    n=multitexts.size
    0.upto(n-1) do |i|
      insertItem(index+i,*multitexts[i])
    end
  end

def deleteItem(idx)
    sendMessage WMsg::LVM_DELETEITEM,idx.to_i,0
  end
  def clearItems
    sendMessage WMsg::LVM_DELETEALLITEM,0,0
  end
  def countItems
    sendMessage WMsg::LVM_GETITEMCOUNT,0,0
  end
  def hittest(x,y)
    lvhit=@screen.application.arg2cstructStr(WStruct::LVHITTEST,
                          x.to_i,y.to_i,0,0)
    sendMessage WMsg::LVM_HITTEST,0,lvhit
    @screen.application.unpack(lvhit,WStruct::LVHITTEST)[3]
  end
  def hittest2(x,y)
    lvhit=@screen.application.arg2cstructStr(WStruct::LVHITTEST,
                          x.to_i,y.to_i,0,0)
    sendMessage WMsg::LVM_SUBITEMHITTEST,0,lvhit
    @screen.application.unpack(lvhit,WStruct::LVHITTEST)
  end

def getNextItem(start,flag)
    r=sendMessage WMsg::LVM_GETNEXTITEM,start,MAKELPARAM(flag,0)
    case(r)
    when -1
      0
    when 0
      nil
    else
      r
    end
  end

def focusedItem
    getNextItem(0,1)
  end

def setImagelist(imagelist,itype=0)
    raise "not Imagelist" unless imagelist.is_a?(SWin::Imagelist)
    self.properties["imagelist"]=imagelist
    sendMessage WMsg::LVM_SETIMAGELIST,itype,imagelist.himagelist
  end

def setItemIconOf(idx,imageid)
    lvitem=@screen.application.arg2cstructStr(WStruct::LVITEM,
                          2,idx,0,0,0xffff,"",0,imageid.to_i,0) # 2=LVIF_IMAGE
    sendMessage WMsg::LVM_SETITEM,idx.to_i,lvitem
  end
  def getItemIconOf(idx)
    lvitem=@screen.application.arg2cstructStr(WStruct::LVITEM,
                          0x2,idx,0,0,0,"",0,0,0)
    sendMessage( WMsg::LVM_GETITEM,0,lvitem )
    @screen.application.unpack(lvitem,WStruct::LVITEM)[7]
  end

def setItemStateOf(idx,state)
    lvitem=@screen.application.arg2cstructStr(WStruct::LVITEM,
                          0,0,0,state,0xffff,"",0,0,0)
    sendMessage WMsg::LVM_SETITEMSTATE,idx.to_i,lvitem
  end
  def getItemStateOf(idx)
    sendMessage WMsg::LVM_GETITEMSTATE,idx.to_i,0xffff
  end
  def selectItem(idx,flag)
    if flag then
      s = getItemStateOf(idx) | WConst::LVIS_SELECTED
    else
      s = getItemStateOf(idx) & (~ WConst::LVIS_SELECTED)
    end
    setItemStateOf(idx,s)
  end

def setItemTextOf(idx,subitem,text,textsize=text.size)
    lvitem=@screen.application.arg2cstructStr(WStruct::LVITEM,
                          0,0,subitem,0,0,text.to_s,textsize,0,0)
    sendMessage WMsg::LVM_SETITEMTEXT,idx.to_i,lvitem
  end
  def getItemTextOf(idx,subitem=0,textsize=128)
    app=@screen.application
    lvitem=app.arg2cstructStr(WStruct::LVITEM,
                     0,0,subitem,0,0,"\0"*textsize,textsize,0,0)
    sendMessage( WMsg::LVM_GETITEMTEXT,idx,lvitem )
    app.pointer2string(app.unpack(lvitem,WStruct::LVITEM)[5])
  end

def setItemLParamOf(idx,lparam)
    lvitem=@screen.application.arg2cstructStr(WStruct::LVITEM,
                          0x4,idx,0,0,0,"",0,0,lparam.to_i)
    sendMessage WMsg::LVM_SETITEM,0,lvitem
  end
  def getItemLParamOf(idx)
    lvitem=@screen.application.arg2cstructStr(WStruct::LVITEM,
                          0x4,idx,0,0,0,"",0,0,0)
    sendMessage( WMsg::LVM_GETITEM,0,lvitem )
    @screen.application.unpack(lvitem,WStruct::LVITEM)[8]
  end

def selected?(idx) (getItemStateOf(idx)&1)>0 end
  def focused?(idx) (getItemStateOf(idx)&2)>0 end

def eachSelectedItems
    n=countItems
    0.upto(n-1) do |i|
      if (getItemStateOf(i)&WConst::LVIS_SELECTED)>0 then
        yield i
      end
    end
  end

def countSelectedItems()
    sendMessage WMsg::LVM_GETSELECTED,0,0
  end

def getItemRect(item,code=0)
    prc = [code,0,0,0].pack("iiii")
    sendMessage WMsg::LVM_GETITEMRECT,item,prc
    prc.unpack("iiii")
  end

def ensureVisible(i,partial=true)
    flag = if partial then 1 else 0 end
    sendMessage WMsg::LVM_ENSUREVISIBLE,i.to_i,flag
  end

end

#Treeview
module WMsg
  TVM_INSERTITEM    = 0x1100       #INSERTITEMA
  TVM_DELETEITEM    = 0x1100+1
  TVM_EXPAND	    = 0x1100+2
  TVM_GETCOUNT      = 0x1100+5
  TVM_SETIMAGELIST  = 0x1100+9
  TVM_GETNEXTITEM   = 0x1100+10
  TVM_SELECTITEM    = 0x1100+11
  TVM_GETINDENT     = 0x1100+6
  TVM_SETINDENT     = 0x1100+7
  TVM_GETITEM       = 0x1100+12    #GETITEMA
  TVM_SETITEM       = 0x1100+13    #SETITEMA
  TVM_HITTEST       = 0x1100+17
  TVM_SORTCHILDREN  = 0x1100+19

TVN_START = 0xffffffff-399
  TVN_SELCHANGED    = TVN_START-2        #SELCHANGEDA
  TVN_ITEMEXPANDED  = TVN_START-6        #ITEMEXPANDEDA
  TVN_BEGINDRAG     = TVN_START-7        #BEGINDRAGA
  TVN_BEGINRDRAG    = TVN_START-8        #BEGINRDRAGA
  TVN_DELETEITEM    = TVN_START-9        #DELETEITEMA
  TVN_KEYDOWN       = TVN_START-12
end
module WStyle
  TVS_DEFAULT       =   0xf
end

module WConst
  TVI_ROOT          = 0xffff0000
  TVI_FIRST         = 0xffff0001
  TVI_LAST          = 0xffff0002
  TVI_SORT          = 0xffff0003
  
  TVGN_ROOT         = 0x0000
  TVGN_NEXT         = 0x0001
  TVGN_PARENT       = 0x0003
  TVGN_CHILD        = 0x0004
  TVGN_CARET        = 0x0009
end
module WStruct
  TVITEM="UUUUPIIIIL"
  TREEINSERTITEM="UU"+TVITEM
  TVHITTEST = LVHITTEST
  NM_TREEVIEW= NMHDR+"U"+TVITEM+TVITEM+"LL" #UINT action,TV_ITEM old, new,POINT
end

class VRTreeview < VRNotifyControl
=begin
== VRTreeview
Treeview.

=== Methods
((|hitem|)) is an Integer value identifying treeview item.

--- insertItem(hparent,hafter,text,lparam=0,textsize=text.size)
    Inserts a new item below ((|hparent|)) and after ((|hafter|)), the text is 
    ((|text|)) and lparam=((|lparam|)).
--- insertMultiItems(hparent,hafter,items)
    Inserts new items below ((|hparent|)) and after ((|hafter|)).
    ((|items|)) is a structured array of item array.
    [text,lparam, child item array as optional].
--- addItem(hparent,text,lparam=0,textsize=text.size)
    Adds a new item below ((|hparent|)) at the last.
--- addMultiItems(hparent,items)
    Same as insertMultiItems( ((|hparent|)),last,((|items|)) )
--- deleteItem(hitem)
    Deletes the item.
--- clearItems
    Deletes all items.
--- countItems
    Counts items.
--- selectItem(hitem)
    Selects the item.
--- expandItem(hitem,mode)
    Expand or Collapse item.
    ((|mode|)) means; 1: collapse, 2: expand, 3:toggle
--- indent
    Returns the indent width.
--- indent=
    Sets the indent width.
--- hittest(x,y)
    Inspect the item index which is at the co-ordinate(((|x|)),((|y|)))
--- hittest2(x,y)
    Returns the item information which is at the co-ordinate(((|x|)),((|y|))).
    The information is the array [x,y,part,index,subitem]
--- getNextItem(hitem,code)
    Searches for an item described by ((|start|)) and ((|code|)).
    ((|code|)) is the series of TVGN_???? in commctrl.h
--- topItem
    The top item in the listview. (not the visible top item)
--- root
    The virtual root item which is not visible and touched.
--- last
    The last item in the listview (not the visible last item)
--- selectedItem()
    Returns the selected item. aliased as selected
--- getParentOf(hitem)
    Returns the parent item of ((|hitem|)).
--- getChildOf(hitem)
    Returns the first child item of ((|hitem|)).
--- getNextSiblingOf(hitem)
    Returns the next sibling item of ((|hitem|)).
--- setImagelist(imagelist)
    Set ((|imagelist|)) for displaying icons of items. ((|imagelist|)) must be
    a kind of SWin::Imagelist.
--- setItemIconOf(hitem,img,simg)
    Sets image ids of the item. ((|img|)) for normal state image and ((|simg|))
    for selected state image. Both of them are Integers of id in ImageList and
    ((|img|)) and ((|simg|)) can be ignored by setting nil instead of integer.
    The imagelist is set by ((<setImagelist>)) method.
--- getItemIconOf(hitem)
    Returns images id of the item. 
--- setItemLParamOf(hitem,lparam)
    Sets lparam of the item.
--- getItemLParamOf(hitem)
    Returns lparam of the item.
--- setItemTextOf(hitem,text)
    Sets text of the item.
--- getItemTextOf(hitem,textsize=128)
    Returns text of the item.
--- setItemStateOf(hitem,state)
    Sets state of the item.
    * 1 : focused
    * 2 : selected
    * 4 : cut
    * 8 : drophilited
    *16 : bold
    *32 : expanded
--- getItemStateOf(hitem)
    Returns state of the item.

=== Event handlers
--- ????_selchanged(hitem,lparam)
    fired when selected item is changed to ((|hitem|)) 
    whose lparam is ((|lparam|)).
--- ????_itemexpanded(hitem,state,lparam)
    fired when the ((|hitem|)) item is expanded or closed.
--- ????_deleteitem(hitem,lparam)
    fired when the item is deleted.
--- ????_begindrag(hitem,state,lparam)
--- ????_beginrdrag(hitem,state,lparam)
=end

private
  def nilnull(r) if r==0 then nil else r end end

public
  WINCLASSINFO = ["SysTreeView32",WStyle::TVS_DEFAULT,0x200]

def treeviewinit
# "F FFFFFFFFFF FTFFFFFFFT FF"
    addNotifyHandler(WMsg::TVN_SELCHANGED,"selchanged",
                    MSGTYPE::ARGSTRUCT,WStruct::NM_TREEVIEW)
    addFilterArg WMsg::TVN_SELCHANGED,"FFFFFFFFFFFFTFFFFFFFTFF" #hitem,lparam
    addNotifyHandler(WMsg::TVN_ITEMEXPANDED,"itemexpanded",
                    MSGTYPE::ARGSTRUCT,WStruct::NM_TREEVIEW)
    addFilterArg WMsg::TVN_ITEMEXPANDED,"FFFFFFFFFFFFTTFFFFFFTFF" #hitem,state,lparam
    addNotifyHandler(WMsg::TVN_DELETEITEM,"deleteitem",
                    MSGTYPE::ARGSTRUCT,WStruct::NM_TREEVIEW)
    addFilterArg WMsg::TVN_DELETEITEM,"FFTFFFFFFFTFFFFFFFFFFFF"   #hitem,lparam
    addNotifyHandler(WMsg::TVN_BEGINDRAG,"begindrag",
                    MSGTYPE::ARGSTRUCT,WStruct::NM_TREEVIEW)
    addFilterArg WMsg::TVN_BEGINDRAG,"FFFFFFFFFFFFTTFFFFFFTFF"    #hitem,state,lparam
    addNotifyHandler(WMsg::TVN_BEGINRDRAG,"beginrdrag",
                    MSGTYPE::ARGSTRUCT,WStruct::NM_TREEVIEW)
    addFilterArg WMsg::TVN_BEGINRDRAG,"FFFFFFFFFFFFTTFFFFFFTFF"   #hitem,state,lparam
  end
  
  def vrinit
    super
    treeviewinit
  end

def insertItem(hparent,hafter,text,lparam=0,textsize=text.size)
    ti=@screen.application.arg2cstructStr(WStruct::TREEINSERTITEM,hparent,hafter,
                        0x0f,0,0,0,text.to_s,textsize,0,0,0,lparam)
    sendMessage WMsg::TVM_INSERTITEM,0,ti
  end
  
  def addItem(hparent,*args)
    insertItem(hparent, WConst::TVI_LAST,*args)
  end
  
  def insertMultiItems(hparent,hafter,multitext)
    ha = if hafter then hafter else WConst::TVI_LAST end

multitext.each do |item|
      if item.is_a?(Array)
        item[1] = 0 unless item[1] 
        h=insertItem(hparent,ha,item[0],item[1])
        if item.size>2 and item[2].is_a?(Array) then
          insertMultiItems(h,WConst::TVI_LAST,item[2])
        end
        ha=h
      else
        raise ArgumentError,"Arg2 illegal"
      end
    end
  end
  def addMultiItems(hparent,*args)
    insertMultiItems(hparent, WConst::TVI_LAST,*args)
  end

def deleteItem(htreei)
    sendMessage WMsg::TVM_DELETEITEM,0,htreei
  end
  def clearItems
    deleteItem(WConst::TVGN_ROOT)
  end
  def countItems
    sendMessage WMsg::TVM_GETCOUNT,0,0
  end
  def selectItem(hitem)
    sendMessage WMsg::TVM_SELECTITEM,9,hitem
  end
  def expandItem(hitem,mode)
    sendMessage WMsg::TVM_EXPAND,mode.to_i,hitem
  end
  def indent
    sendMessage WMsg::TVM_GETINDENT,0,0
  end
  def indent=(idt)
    sendMessage WMsg::TVM_SETINDENT,idt.to_i,0
  end
  
  def hittest(x,y)
    tvhit=@screen.application.arg2cstructStr(WStruct::TVHITTEST,
                          x.to_i,y.to_i,0,0)
    sendMessage WMsg::TVM_HITTEST,0,tvhit
    @screen.application.unpack(tvhit,WStruct::TVHITTEST)[3]
  end
  def hittest2(x,y)
    tvhit=@screen.application.arg2cstructStr(WStruct::TVHITTEST,
                          x.to_i,y.to_i,0,0)
    sendMessage WMsg::TVM_HITTEST,0,tvhit
    @screen.application.unpack(tvhit,WStruct::TVHITTEST)
  end

def getNextItem(hitem,code)
    sendMessage WMsg::TVM_GETNEXTITEM,code,hitem
  end
  def topItem() getNextItem(0,WConst::TVGN_ROOT)  end
  def root() WConst::TVI_ROOT end
  def last() WCONST::TVI_LAST end

def selectedItem()      nilnull(getNextItem(0,WConst::TVGN_CARET)) end
  alias selected :selectedItem
  def getParentOf(hitem)      nilnull(getNextItem(hitem,WConst::TVGN_PARENT))end
  def getChildOf(hitem)       nilnull(getNextItem(hitem,WConst::TVGN_CHILD)) end
  def getNextSiblingOf(hitem) nilnull(getNextItem(hitem,WConst::TVGN_NEXT))  end

def setImagelist(imagelist,itype=0)
    raise "not Imagelist" unless imagelist.is_a?(SWin::Imagelist)
    self.properties["imagelist"]=imagelist
    sendMessage WMsg::TVM_SETIMAGELIST,itype,imagelist.himagelist
  end

def setItemIconOf(hitem,img,simg=nil)
    # TVIF_IMAGE=2, TVIF_SELECTEDIMAGE=0x20
    mask=0; image=0; simage=0
    if img  then mask |= 2;    image = img   end
    if simg then mask |= 0x20; simage = simg end

tvitem=@screen.application.arg2cstructStr(WStruct::TVITEM,
             mask,hitem.to_i,0,0,"",0,image,simage,0,0)
    sendMessage WMsg::TVM_SETITEM,0,tvitem
  end
  def getItemIconOf(hitem)
    tvitem=@screen.application.arg2cstructStr(WStruct::TVITEM,
         0x22,hitem.to_i,0,0,"",0,0,0,0,0)  
    sendMessage WMsg::TVM_GETITEM,0,tvitem
    @screen.application.unpack(tvitem,WStruct::TVITEM)[6..7]
  end

def setItemLParamOf(hitem,lparam)
    tvitem=@screen.application.arg2cstructStr(WStruct::TVITEM,
             4,hitem.to_i,0,0,"",0,0,0,0,lparam.to_i)       # 4=TVIF_PARAM
    sendMessage WMsg::TVM_SETITEM,0,tvitem
  end
  def getItemLParamOf(hitem)
    tvitem=@screen.application.arg2cstructStr(WStruct::TVITEM,
         4,hitem.to_i,0,0,"",0,0,0,0,0)       # 4=TVIF_PARAM
    sendMessage WMsg::TVM_GETITEM,0,tvitem
    @screen.application.unpack(tvitem,WStruct::TVITEM)[9]
  end
  def setItemTextOf(hitem,text)
    tvitem=@screen.application.arg2cstructStr(WStruct::TVITEM,
         1,hitem.to_i,0,0,text.to_s,text.size,0,0,0,0) # 1=TVIF_TEXT
    sendMessage WMsg::TVM_SETITEM,0,tvitem
  end
  def getItemTextOf(hitem,textsize=128)
    app=@screen.application
    tvitem=app.arg2cstructStr(WStruct::TVITEM,
         1,hitem.to_i,0,0,"\0"*textsize,textsize,0,0,0,0)   # 1=TVIF_TEXT
    sendMessage WMsg::TVM_GETITEM,0,tvitem
    app.pointer2string(app.unpack(tvitem,WStruct::TVITEM)[4])
  end
  def setItemStateOf(hitem,state)
    tvitem=@screen.application.arg2cstructStr(WStruct::TVITEM,
         8,hitem.to_i,state.to_i,0x00ff,"",0,0,0,0,0) # 8=TVIF_STATE
    sendMessage WMsg::TVM_SETITEM,0,tvitem
  end
  def getItemStateOf(hitem)
    tvitem=@screen.application.arg2cstructStr(WStruct::TVITEM,
         8,hitem.to_i,0,0x00ff,"",0,0,0,0,0)   # 8=TVIF_STATE
    sendMessage WMsg::TVM_GETITEM,0,tvitem
    @screen.application.unpack(tvitem,WStruct::TVITEM)[2]
  end
end

# Progressbar
module WMsg
  PBM_SETRANGE      = WM_USER+1
  PBM_SETPOS        = WM_USER+2
  PBM_DELTAPOS      = WM_USER+3
  PBM_SETSTEP       = WM_USER+4
  PBM_STEPIT        = WM_USER+5
end
module WStyle
  PBS_SMOOTH        = 1   # ?
end

class VRProgressbar < VRNotifyControl
=begin
== VRProgressbar
Progressbar.
=== Methods
--- setRange(minr,maxr)
    Sets the range from ((|minr|)) to ((|maxr|)).
--- position
    Returns the current position.
--- position=(pos)
    Sets the current position.
--- stepwidth=(st)
    Sets the step width for ((<step>)).
--- step
    Steps one step in position.
--- advance(n=1)
    Steps multi steps in position.
=end

WINCLASSINFO = ["msctls_progress32",0]

attr_reader :stepwidth, :minrange, :maxrange     # ooooo.....

def progressbarinit
    @stepwidth=10
    @minrange=0
    @maxrange=100
  end
  def vrinit
    super
    progressbarinit
  end

def setRange(minr,maxr)
    @minrange=minr
    @maxrange=maxr
    sendMessage WMsg::PBM_SETRANGE,0,MAKELPARAM(minr,maxr)
  end
  def position=(pos)
    sendMessage WMsg::PBM_SETPOS,pos.to_i,0
  end
  def position
    raise StandardError,"not implemented"
  end
  def advance(n=1)
    sendMessage WMsg::PBM_DELTAPOS,n.to_i,0
  end
  def stepwidth=(st)
    @stepwidth=st
    sendMessage WMsg::PBM_SETSTEP,st.to_i,0
  end
  def step
    sendMessage WMsg::PBM_STEPIT,0,0
  end
end

# Trackbar
module WMsg
  TBM_GETPOS        =  WM_USER + 0
  TBM_GETRANGEMIN   =  WM_USER + 1
  TBM_GETRANGEMAX   =  WM_USER + 2
  TBM_SETPOS        =  WM_USER + 5
  TBM_SETRANGEMIN   =  WM_USER + 7
  TBM_SETRANGEMAX   =  WM_USER + 8
  TBM_SETSEL        =  WM_USER + 10
  TBM_SETSELSTART   =  WM_USER + 11
  TBM_SETSELEND     =  WM_USER + 12
  TBM_GETSELSTART   =  WM_USER + 17
  TBM_GETSELEND     =  WM_USER + 18
  TBM_CLEARSEL      =  WM_USER + 19
  TBM_SETPAGESIZE   =  WM_USER + 21
  TBM_GETPAGESIZE   =  WM_USER + 22
  TBM_SETLINESIZE   =  WM_USER + 23
  TBM_GETLINESIZE   =  WM_USER + 24
end
module WStyle
  TBS_AUTOTICS = 0x001
  TBS_VERT     = 0x002
  TBS_HORZ     = 0x000
  TBS_LEFT     = 0x004
  TBS_BOTH     = 0x008
  TBS_ENABLESEL= 0x020  #ENABELSELRANGE
end

class VRTrackbar < VRNotifyControl
=begin
== VRTrackbar
Trackbar.
=== Methods
--- position
    Returns the position.
--- position=(pos)
    Sets the position.
--- linesize
    Returns the number of positions moved on by arrow keys.
--- linesize=(s)
    Sets the number of positions mvoed on by arrow keys.
--- pagesize
    Returns the number of positions moved on by [page up]/[pagedown] keys.
--- pagesize=(p)
    Sets the number of positions moved on by [page up]/[pagedown] keys.
--- rangeMin
    Returns minimum value of the trackbar.
--- rangeMin=(m)
    Sets minimum value of the trackbar.
--- rangeMax
    Returns maximum value of the trackbar.
--- rangeMax=(m)
    Sets maximum value of the trackbar.
--- selStart
    Returns the selection start of the trackbar.
--- selStart=(m)
    Sets the selection start of the trackbar.
--- selEnd
    Returns the selection end of the trackbar.
--- selEnd=(m)
    Sets the selection end of the trackbar.
--- clearSel
    Clears the selection.
=end

WINCLASSINFO = ["msctls_trackbar32",0]

def vrinit
    super
  end

def position
    sendMessage WMsg::TBM_GETPOS,0,0
  end
  def position=(pos)
    sendMessage WMsg::TBM_SETPOS,1,pos.to_i
  end

def linesize
    sendMessage WMsg::TBM_GETLINESIZE,0,0
  end
  def linesize=(s)
    sendMessage WMsg::TBM_SETLINESIZE,0,s.to_i
  end
  def pagesize
    sendMessage WMsg::TBM_GETPAGESIZE,0,0
  end
  def pagesize=(s)
    sendMessage WMsg::TBM_SETPAGESIZE,0,s.to_i
  end

def rangeMin
    sendMessage WMsg::TBM_GETRANGEMIN,0,0
  end
  def rangeMin=(m)
    sendMessage WMsg::TBM_SETRANGEMIN,1,m.to_i
  end
  def rangeMax
    sendMessage WMsg::TBM_GETRANGEMAX,0,0
  end
  def rangeMax=(m)
    sendMessage WMsg::TBM_SETRANGEMAX,1,m.to_i
  end
  def selStart
    sendMessage WMsg::TBM_GETSELSTART,0,0
  end
  def selStart=(m)
    sendMessage WMsg::TBM_SETSELSTART,1,m.to_i
  end
  def selEnd
    sendMessage WMsg::TBM_GETSELEND,0,0
  end
  def selEnd=(m)
    sendMessage WMsg::TBM_SETSELEND,1,m.to_i
  end
  def clearSel
    sendMessage WMsg::TBM_CLEARSEL,1,0
  end
end

# updown control
module WMsg
  UDM_SETRANGE            = WM_USER+101
  UDM_GETRANGE            = WM_USER+102
  UDM_SETPOS              = WM_USER+103
  UDM_GETPOS              = WM_USER+104
  UDM_SETBUDDY            = WM_USER+105
  UDM_GETBUDDY            = WM_USER+106
  UDM_SETACCEL            = WM_USER+107
  UDM_GETACCEL            = WM_USER+108
  UDM_SETBASE             = WM_USER+109
  UDM_GETBASE             = WM_USER+110

UDN_DELTAPOS            = 0x100000000-722
end
module WStyle
  UDS_ALIGNRIGHT  = 0x04
  UDS_ALIGNLEFT   = 0x08
  UDS_HORZ        = 0x40

# Thanks to Katonbo-san
  UDS_SETBUDDYINT  = 0x0002
  UDS_AUTOBUDDY    = 0x0010
  UDS_ARROWKEYS    = 0x0020
  UDS_NOTHOUSANDS  = 0x0080

UDS_INTBUDDYRIGHT = UDS_SETBUDDYINT | UDS_AUTOBUDDY | UDS_ALIGNRIGHT
end

module WStruct
  NM_UPDOWN = NMHDR+"UU"
end
class VRUpdown < VRNotifyControl
=begin
== VRUpdown
Updown control.
===Methods
--- setRange(minr,maxr)
    Sets the range from ((|minr|)) to ((|maxr|)).
--- getRange
    Returns the range as an array [minr,maxr]
--- position
    Returns current position.
--- position=
    Sets current position.
--- base
    Radix.
--- base=(b)
    Sets the radix that is 10 or 16.
=== Event handlers
--- ????_deltapos(pos)
    Fired when the position is changing from ((|pos|)).
    Note that ((|pos|)) is a previous value. To obtain the current value,
    use buddy control which is a (edit) control made directry before 
    the updown control(using VREdit#changed or its parent handler).
=end
  WINCLASSINFO = ["msctls_updown32",0]

def updowninit
    addNotifyHandler(WMsg::UDN_DELTAPOS,"deltapos",
                    MSGTYPE::ARGSTRUCT,WStruct::NM_UPDOWN)
    addFilterArg WMsg::UDN_DELTAPOS,"TF"
  end
  def vrinit
    super
    updowninit
  end

def setRange(minr,maxr)
    sendMessage WMsg::UDM_SETRANGE,0,MAKELPARAM(maxr,minr)
  end
  def getRange
    r=sendMessage WMsg::UDM_GETRANGE,0,0
    return HIWORD(r),LOWORD(r)
  end

def position=(p)
    sendMessage WMsg::UDM_SETPOS,0,MAKELPARAM(p.to_i,0)
  end
  def position
    sendMessage WMsg::UDM_GETPOS,0,0
  end
  
  def base=(b)
    sendMessage WMsg::UDM_SETBASE,b.to_i,0
  end
  def base
    sendMessage WMsg::UDM_GETBASE,0,0
  end
end

# Statusbar

module WMsg
  SB_SETTEXT       = WM_USER+1  #SETTEXT
  SB_GETTEXT       = WM_USER+2  #GETTEXT
  SB_GETTEXTLENGTH = WM_USER+3  #GETTEXTLENGTH
  SB_SETPARTS      = WM_USER+4
  SB_GETPARTS      = WM_USER+6
  SB_SETMINHEIGHT  = WM_USER+8
  SB_GETRECT       = WM_USER+10
end
module WConst
   SBT_OWNERDRAW          =0x1000
   SBT_NOBORDERS          =0x0100
   SBT_POPOUT             =0x0200
   SBT_RTLREADING         =0x0400
end

class VRStatusbar < VRNotifyControl
=begin
== VRStatusbar
Statusbar.
=== Methods
--- setparts(p,width=[-1])
    Devides the statusbar into ((|p|)) parts with the widths specified by 
    ((|width|)) which is an Integer array. If the width is -1, the right edge
    of the part is to be at the right edge of the statusbar.
--- parts
    Returns the number of parts.
--- getTextOf(idx)
    Returns the text of the parts.
--- setTextOf(idx,text,style=0)
    Sets the text of the parts whose index is ((|idx|)) to ((|text|))
--- getRectOf(idx)
    Returns the position and size of the parts as an array [x,y,w,h].
--- minheight=(minh)
    Sets the minimum height of the statusbar.
=end

WINCLASSINFO = ["msctls_statusbar32",0]

def getTextOf(idx)
    len = 1+LOWORD(sendMessage(WMsg::SB_GETTEXTLENGTH,idx,0))
    r="\0"*len
    sendMessage WMsg::SB_GETTEXT,idx,r
    r
  end
  def setTextOf(idx,text,style=0)
    sendMessage WMsg::SB_SETTEXT,(idx|(style&0xff00)),text.to_s
  end
  def parts
    sendMessage WMsg::SB_GETPARTS,0,0
  end
  def setparts(p,widths=[-1])
    if widths then
         raise(ArgumentError,"width illegal") unless widths.is_a?(Array)
    end
    r=@screen.application.arg2cstructStr("I"*p,*widths) 
    sendMessage WMsg::SB_SETPARTS,p.to_i,r
  end
  def getRectOf(idx)
    r = [0,0,0,0].pack("iiii")
    sendMessage WMsg::SB_GETRECT,idx.to_i,r
    r.unpack("iiii")
  end
  def minheight=(h)
    sendMessage WMsg::SB_SETMINHEIGHT,h.to_i,0
  end
end

module VRStatusbarDockable
=begin
== VRStatusbarDockable
This is a module to be added into VRForm for a statusbar that follows form resizing.

=== Method
--- addStatusbar(caption='',height=10,control=VRStatusbar)
    Adds a statusbar on a form. If you have another statusbar control, you may
    set it for ((|control|)).
=end

def statusbardockableinit
    addHandler WMsg::WM_SIZE, "vr_statusbardock", MSGTYPE::ARGLINTINT,nil
    acceptEvents [WMsg::WM_SIZE]
  end

def vrinit
    super
    statusbardockableinit
  end

def addStatusbar(caption="",height=10,control=VRStatusbar)
    @_vr_statusbar=addControl control,"statusbar",caption,10,10,10,height
    if self.visible? then
      a=self.clientrect
      sendMessage WMsg::WM_SIZE,0,MAKELPARAM(a[2]-a[0],a[3]-a[1])
    end
    @statusbar = @_vr_statusbar 
  end

def self_vr_statusbardock(w,h)
    if defined?(@_vr_statusbar) then
      s=@_vr_statusbar
      s.move 0, self.h - s.h, self.w, self.h - s.h
    end
  end

end

#Tabcontrol

module WMsg
  TCM_FIRST=0x1300
  TCM_GETIMAGELIST   =   (TCM_FIRST + 2)
  TCM_SETIMAGELIST   =   (TCM_FIRST + 3)
  TCM_GETITEMCOUNT   =   (TCM_FIRST + 4)
  TCM_GETITEM        =   (TCM_FIRST + 5)
  TCM_SETITEM        =   (TCM_FIRST + 6)
  TCM_INSERTITEM     =   (TCM_FIRST + 7)
  TCM_DELETEITEM     =   (TCM_FIRST + 8)
  TCM_DELETEALLITEMS =   (TCM_FIRST + 9)
  TCM_GETITEMRECT    =   (TCM_FIRST + 10)
  TCM_GETCURSEL      =   (TCM_FIRST + 11)
  TCM_SETCURSEL      =   (TCM_FIRST + 12)
  TCM_ADJUSTRECT     =   (TCM_FIRST + 40)
  TCM_SETITEMSIZE    =   (TCM_FIRST + 41)
  TCM_GETCURFOCUS    =   (TCM_FIRST + 47)
  TCM_SETCURFOCUS    =   (TCM_FIRST + 48)

TCN_FIRST          =   0xffffffff-549  
  TCN_SELCHANGE      =   (TCN_FIRST - 1)
end
  
module WStyle
  TCS_BOTTOM           =  0x0002
  TCS_RIGHT            =  0x0002
  TCS_MULTISELECT      =  0x0004
  TCS_FLATBUTTONS      =  0x0008

TCS_FORCEICONLEFT    =  0x0010
  TCS_FORCELABELLEFT   =  0x0020
  TCS_HOTTRACK         =  0x0040
  TCS_VERTICAL         =  0x0080
  TCS_TABS             =  0x0000
  TCS_BUTTONS          =  0x0100
  TCS_SINGLELINE       =  0x0000
  TCS_MULTILINE        =  0x0200
  TCS_RIGHTJUSTIFY     =  0x0000
  TCS_FIXEDWIDTH       =  0x0400
  TCS_RAGGEDRIGHT      =  0x0800
  TCS_FOCUSONBUTTONDOWN=  0x1000
  TCS_OWNERDRAWFIXED   =  0x2000
  TCS_TOOLTIPS         =  0x4000
  TCS_FOCUSNEVER       =  0x8000
end

module WStruct
  TC_ITEM = "UUUPUUU"       # Mask,rsrv1,rsrv2,Text,TextMax,iImage,lParam
end

class VRTabControl < VRNotifyControl
=begin
== VRTabControl
Tabs.
This class doesn't have a function to show/hide controls according to
the selected tab. For that function ((<VRTabbedPanel>)) class is provided below.
=== Methods
--- insertTab(index,text,textmax=text.size,lparam=0)
    Inserts a new tab named ((|text|)) with ((|lparam|)) at ((|index|))-th.
    ((|index|)) is ordinal number for tabs.
--- clearTabs
    Deletes all tabs.
--- deleteTab(idx)
    Deletes a tab at ((|index|))
--- countTabs
    Counts tabs in the control.
--- selectedTab
    Returns the selected tab's index.
--- selectTab(idx)
    Selects the tab at ((|idx|))
--- setImagelist(imagelist)
    Sets an imagelist for the tabs.
--- setTabSize(width,height)
    Sets each tab size.
--- getTabRect(i)
    Returns the client area of the tab at ((|idx|)) as  an array of [x,y,w,h].
--- adjustRect(x,y,w,h,flag=false)
    Adjusts a rectangle coodinates for tabcontrol's clientarea which is 
    excluded tab buttons area. ((|flag|)) means the direction of adjusting.
    adjustRect(0,0,10,10,false) returns a leftsided rectangle below the 
    tab buttons.
--- getTabTextOf(idx)
    Gets a title text of tab at ((|idx|)).
--- setTabTextOf(idx,text)
    Sets a title text of tab at ((|idx|)) as ((|text|)).
--- getTabImageOf(idx)
    Gets a image id in the imagelist for tab at((|idx|)).
--- setTabImageOf(idx,image)
    Sets a image id into ((|image|)) in the imagelist for tab at((|idx|)).
--- getTabLParamOf(idx)
    Gets lparam value of tab at((|idx|)).
--- setTabLParamOf(idx,lparam)
    Sets lparam value of tab at((|idx|)) as ((|lparam|)).

=== Event Handlers
--- ????_selchanged
    Fired when the selected tab changed. To get current tab id, use selectedTab
    method.
=end

include VRParent

WINCLASSINFO = ["SysTabControl32",0]  #TCS_TAB
  
  def tabcontrolinit
    addNotifyHandler WMsg::TCN_SELCHANGE,"selchanged",MSGTYPE::ARGNONE,nil
  end
  
  def vrinit
    super
    tabcontrolinit
  end
  
  def clearTabs
    sendMessage WMsg::TCM_DELETEALLITEMS,0,0
  end
  
  def deleteTab(i)
    sendMessage WMsg::TCM_DELETEITEM,i,0
  end
  
  def selectedTab
    sendMessage WMsg::TCM_GETCURSEL,0,0
  end
  
  def countTabs
    sendMessage WMsg::TCM_GETITEMCOUNT,0,0
  end
  
  def insertTab(idx,text,textmax=text.size,lparam=0)
    tb=@screen.application.arg2cstructStr(WStruct::TC_ITEM,
            0x9,0,0,text,textmax,0,lparam)
          # Mask,rsrv1,rsrv2,Text,TextMax,iImage,lParam
    sendMessage WMsg::TCM_INSERTITEM,idx.to_i,tb
  end

def selectTab(i)
    sendMessage WMsg::TCM_SETCURSEL,i,0
  end

def setImagelist(imagelist)
    raise "not Imagelist" unless imagelist.is_a?(SWin::Imagelist)
    sendMessage WMsg::TCM_SETIMAGELIST,0,imagelist.himagelist
  end

def setTabSize(width,height)
    sendMessage WMsg::TCM_SETITEMSIZE,0,MAKELPARAM(width,height)
  end

def getTabRect(i)
    rect="\0"*16
    sendMessage WMsg::TCM_GETITEMRECT,i.to_i,rect
    return @screen.application.unpack(rect,"UUUU")
  end

def adjustRect(x,y,w,h,flag=false)
    f = if flag then  1 else 0 end
    rect=@screen.application.arg2cstructStr("UUUU",x,y,w,h)
    sendMessage WMsg::TCM_ADJUSTRECT,f,rect
    return @screen.application.unpack(rect,"UUUU")
  end

# tab's properties = text,image,lparam

def getTabTextOf(idx)
    tb=@screen.application.arg2cstructStr(WStruct::TC_ITEM,
            0x1,0,0,"\0"*128,128,0,0)
    rv=sendMessage WMsg::TCM_GETITEM,idx.to_i,tb
    if rv!=0 then
      r=@screen.application.unpack(tb,WStruct::TC_ITEM)[3]
      @screen.application.pointer2string(r)
    else
      nil
    end
  end
  def getTabImageOf(idx)
    tb=@screen.application.arg2cstructStr(WStruct::TC_ITEM,
            0x2,0,0," \0",1,0,0)
    rv=sendMessage WMsg::TCM_GETITEM,idx.to_i,tb
    r=@screen.application.unpack(tb,WStruct::TC_ITEM)[5]
  end
  def getTabLParamOf(idx)
    tb=@screen.application.arg2cstructStr(WStruct::TC_ITEM,
            0x8,0,0," \0",1,0,0)
    rv=sendMessage WMsg::TCM_GETITEM,idx.to_i,tb
    r=@screen.application.unpack(tb,WStruct::TC_ITEM)[6]
  end

def setTabTextOf(idx,text)
    tb=@screen.application.arg2cstructStr(WStruct::TC_ITEM,
            0x1,0,0,text,text.length,0,0)
    sendMessage WMsg::TCM_SETITEM,idx.to_i,tb
    self.refresh
  end
  def setTabImageOf(idx,iImage)
    tb=@screen.application.arg2cstructStr(WStruct::TC_ITEM,
            0x2,0,0," \0",1,iImage,0)
    sendMessage WMsg::TCM_SETITEM,idx.to_i,tb
    self.refresh
  end
  def setTabLParamOf(idx,lparam)
    tb=@screen.application.arg2cstructStr(WStruct::TC_ITEM,
            0x8,0,0," \0",1,0,lparam)
    sendMessage WMsg::TCM_SETITEM,idx.to_i,tb
  end
end

class VRTabbedPanel < VRTabControl
=begin
== VRTabbedPanel
This is a class utilizing VRTabControl.
On this control, each tab has a VRPanel and be shown/hidden automatically
according to the selected tab.

=== Class method
--- auto_panelresize(flag)
    Resize panels on the tabs automatically when this control resized.
=== Methods
--- setupPanels(arg-1,arg-2,arg-3,....)
    Creates tabs each titled ((|arg-n|)) if args are String.
    When ((|arg-n|)) is array of ((|[title, contorl-class, control-name]|)),
    Creates control and relates with the tab.
    Use like follows.
      class Panel1 < VRPanel
        include VRContainersSet
        ...
      end
      class Panel2 < VRPanel
        ...
      end
      ...
      setupPanels(["tab-1",Panel1,"panel1"],["tab-2",Panel2,"panel2"])
--- send_parent2(idx,controlname,eventname)
    Sets to send to its parent an event of control named ((|controlname|)) 
    on the panel at ((|idx|)).
=== Attribute(s)
--- panels
    An array that contains panels for each tab.
    panels[i] means a panel concerned with the tab at ((|i|)).
=== Event Handlers
Same as ((<VRTabControl>)).
VRTabbedPanel#selchanged is already defined, so you need to call super when you
override this method.
=end
  attr_reader :panels
  include VRMessageHandler
  include VRParent
  
  @@_auto_tabpanelresize = nil
  
  def self.auto_panelresize(flag)
    @@_auto_tabpanelresize = flag
  end
  
  def vrinit
    super
    if @@_auto_tabpanelresize
      addHandler(WMsg::WM_SIZE,  "_vr_tabpanelresize",  MSGTYPE::ARGLINTINT,nil)
      acceptEvents [WMsg::WM_SIZE]
    end
  end
  
  def setupPanels(*args)
    @panels=Array.new(args.size)
    0.upto(args.size-1) do |i|
      if args[i].is_a? Array
        insertTab i,args[i][0]
        c = args[i][1] ? args[i][1] : VRPanel
        s = args[i][2] ? args[i][2] : "panel#{i}"
        x,y,w,h = adjustRect(0,0,self.w,self.h,false)
        @panels[i] = addControl(c,s,s,x,y,w-x,h-y)
      else
        insertTab i,args[i]
        x,y,w,h = adjustRect(0,0,self.w,self.h,false)
        @panels[i] = addControl(VRPanel,"panel#{i}","panel#{i}",x,y,w-x,h-y)
        @panels[i].extend VRContainersSet
        @panels[i].containers_init
      end
      @panels[i].show 0
    end

@_vr_prevpanel=0
    selectTab 0
  end

def send_parent2(i,name,method)
    @panels[i].send_parent(name,method)
    send_parent "panel#{i}","#{name}_#{method}"
  end

def selectTab(i)
    super
    selchanged
  end

def selchanged
    raise "assigned no panels" if @panels.size<1
    @panels[@_vr_prevpanel].show(0)
    t=selectedTab
    @panels[t].show
    @_vr_prevpanel=t
    @panels[t].refresh
  end
  
  def self__vr_tabpanelresize(w,h)
    x,y,w,h = adjustRect(0,0,self.w,self.h,false).map {|x| x & 0x7fffffff}
    return if @panels.nil?
    @panels.each{|i| i.move(x,y,w-x,h-y)}
  end
end

unless VR_OLDCOMCTL then

module WMsg
  RB_INSERTBAND   = WM_USER +  1
  RB_DELETEBAND   = WM_USER +  2
  RB_GETBARINFO   = WM_USER +  3
  RB_SETBARINFO   = WM_USER +  4
  RB_GETBANDCOUNT = WM_USER + 12
  RB_GETROWCOUNT  = WM_USER + 13
  RB_GETROWHEIGHT = WM_USER + 14
  RB_SETBKCOLOR   = WM_USER + 19
  RB_GETBKCOLOR   = WM_USER + 20
  RB_SETTEXTCOLOR = WM_USER + 21
  RB_GETTEXTCOLOR = WM_USER + 22
  RB_SIZETORECT   = WM_USER + 23
  RB_GETBARHEIGHT = WM_USER + 27
  RB_GETBANDINFO  = WM_USER + 29
  RB_SHOWBAND     = WM_USER + 35
  RB_SETPALETTE   = WM_USER + 37
  RB_GETPALETTE   = WM_USER + 38
  RB_MOVEBAND     = WM_USER + 39

RBN_LAYOUTCHANGED = 0x100000000-831-2
end

module WConst
  RBBIM_STYLE         = 0x00000001
  RBBIM_COLORS        = 0x00000002
  RBBIM_TEXT          = 0x00000004
  RBBIM_IMAGE         = 0x00000008
  RBBIM_CHILD         = 0x00000010
  RBBIM_CHILDSIZE     = 0x00000020
  RBBIM_SIZE          = 0x00000040
  RBBIM_BACKGROUND    = 0x00000080
end

class VRRebar < VRNotifyControl
=begin
== VRRebar
  Rebar control.
  If comctl32.dll on your system is too old, this is not available.
=== Methods
--- insertband(cntl,txt,minx=30,miny=cnt.h+2,band=-1)
    Creates a new band and set the control on it.
    ((|txt|)) is the caption of the band and minx/miny is the minimum size of
    the band.
    The control is created by rebar's addControl() but its event handling is on
    the parent window.
--- bkColor=(c)
--- bkColor
    Sets/Gets background color of rebar.
--- textColor=(c)
--- textColor
    Sets/Gets band caption color.
--- relayout(x=self.x, y=self.y, w=self.w, h=self.h)
    rearranges rebar's bands in the specified rectangle.
=end

WINCLASSINFO = ["ReBarWindow32",0]

def rebarinit
    sendMessage WMsg::RB_SETBARINFO,0,[12,0,0].pack("LLL")
    addNotifyHandler WMsg::RBN_LAYOUTCHANGED,"layoutchanged",MSGTYPE::ARGNONE,nil
  end

def vrinit
    super
    rebarinit
  end

def insertband(cnt,txt,minx=30,miny=cnt.h+2,band=-1)
    size = 4*14
    mask= WConst::RBBIM_TEXT | WConst::RBBIM_STYLE | WConst::RBBIM_CHILD | WConst::RBBIM_CHILDSIZE | WConst::RBBIM_SIZE
    style= 4 #RBBS_CHILDEDGE
    frcolor= 0
    bkcolor= 0
    text= txt
    cch= 0
    image= 0
    hwndChild= cnt.hWnd
    cxmin= minx
    cymin= miny
    cx= 100
    bkBmp= 0
    wid= 0
    tis = [size,mask,style,frcolor,bkcolor,text,cch,image,hwndChild,cxmin,cymin,cx,bkBmp,wid].pack("LLLLLP#{text.length}LLLLLLLL")
    sendMessage WMsg::RB_INSERTBAND,band,tis
  end

def h
    sendMessage WMsg::RB_GETBARHEIGHT,0,0
  end

def bkColor
    sendMessage WMsg::RB_GETBKCOLOR,0,0
  end
  def bkColor=(c)
    sendMessage WMsg::RB_SETBKCOLOR,0,c
  end

def textColor
    sendMessage WMsg::RB_GETTEXTCOLOR,0,0
  end
  def textColor=(c)
    sendMessage WMsg::RB_SETTEXTCOLOR,0,c
  end

def relayout(x=self.x,y=self.y,w=self.w,h=self.h)
    sendMessage WMsg::RB_SIZETORECT,0,[x,y,w,h].pack("LLLL")
  end

include VRParent
  def newControlID
    @parent.newControlID
  end
  def registerControl(*arg)
    @parent.registerControl(*arg)
  end
end

end  # unlessVR_OLDCOMCTL

# contribute files
require VR_DIR+'contrib/toolbar'
require VR_DIR+'contrib/vrlistviewex'

if VR_COMPATIBILITY_LEVEL then
  require VR_DIR + 'compat/vrcomctl.rb'
end

lib\vr\vrcontrol.rb(1248):

###################################
#
# vrcontrol.rb
# Programmed by nyasu <nyasu@osk.3web.ne.jp>
# Copyright 1999-2005  Nishikawa,Yasuhiro
#
# More information at http://vruby.sourceforge.net/index.html
#
###################################

VR_DIR="vr/" unless defined?(::VR_DIR)
require VR_DIR+'vruby'
require VR_DIR+'sysmod'
=begin
= VisualuRuby(tmp) Standard Controls
This file prepares classes of standard controls, panels and menu modules.

<<< handlers.rd

=== Control Container
* ((<VRStdControlContainer>))

=== Standard Controls
* ((<VRButton>))
* ((<VRGroupbox>))
* ((<VRCheckbox>))
* ((<VRRadiobutton>))
* ((<VRStatic>))
* ((<VREdit>))
* ((<VRText>))
* ((<VRListbox>))
* ((<VRCombobox>))

=== Menu
* ((<VRMenu>))
* ((<VRMenuItem>))
* ((<VRMenuUseable>))

=== Panels
* ((<VRPanel>))
* ((<VRBitmapPanel>))
* ((<VRCanvasPanel>))
=end

###########################################
#  Messages and Styles
#

module WMsg
  BN_CLICKED  =       0
  BN_DBLCLICKED  =    5
  BM_GETCHECK =    0xf0
  BM_SETCHECK =    0xf1

STN_CLICKED =       0
  STN_DBLCLICKED =    1

LB_ADDSTRING =    0x0180
  LB_INSERTSTRING = 0x0181
  LB_DELETESTRING = 0x0182
  LB_SETSEL =       0x0185
  LB_SETCURSEL =    0x0186
  LB_GETSEL =       0x0187
  LB_GETCURSEL =    0x188
  LB_GETTEXT =      0x189
  LB_GETTEXTLEN =   0x18a
  LB_GETCOUNT   =   0x18b
  LB_SELECTSTRING = 0x18c
  LB_DIR        =   0x18d
  LB_FINDSTRING =   0x18f
  LB_GETSELCOUNT =  0x190
  LB_GETSELITEMS =  0x191
  LB_GETITEMDATA =  0x199
  LB_SETITEMDATA =  0x19a
  LBN_SELCHANGE=1
  LBN_DBLCLK=2
  
  CB_ADDSTRING    = 0x143
  CB_DELETESTRING = 0x144
  CB_DIR          = 0x145
  CB_GETCOUNT     = 0x146
  CB_GETCURSEL =    0x147
  CB_GETLBTEXT =    0x148
  CB_GETLBTEXTLEN = 0x149
  CB_INSERTSTRING = 0x14a
  CB_FINDSTRING   = 0x14c
  CB_SELECTSTRING = 0x14d
  CB_SETCURSEL    = 0x14e
  CB_GETITEMDATA  = 0x150
  CB_SETITEMDATA  = 0x151
  CB_SETEXTENDEDUI =0x155
  CBN_SELCHANGE    = 1
end

module WStyle
  SS_LEFT =           0
  SS_CENTER =         1
  SS_RIGHT =          2

BS_PUSHBUTTON =     0
  BS_CHECKBOX =       2
  BS_AUTOCHECKBOX =   3
  BS_RADIOBUTTON =    4
  BS_3STATE =         5
  BS_GROUPBOX =       7
  BS_USERBUTTON =     8
  BS_AUTORADIOBUTTON= 9

ES_MULTILINE   = 4
  ES_PASSWORD    = 0x20
  ES_AUTOVSCROLL = 0x40
  ES_AUTOHSCROLL = 0x80
  ES_READONLY    = 0x800
  ES_WANTRETURN  = 0x1000
  LBS_STANDARD =    0x00a00000 | 1
  LBS_MULTIPLESEL = 8

CBS_STANDARD    = 0x00a00200 | 3
  CBS_AUTOSCROLL = 0x40
end

###############################################
# Standard Control
#

class VRStdControl < VRControl
  def _vr_cmdhandlers
    unless defined?(@_vr_cmdhandlers)
      @_vr_cmdhandlers={} 
    else
      @_vr_cmdhandlers
    end
  end

def addCommandHandler(msg,handlername,handlertype,argparsestr)
    @_vr_cmdhandlers={} unless defined?(@_vr_cmdhandlers)
    @_vr_cmdhandlers[msg]=[] unless _vr_cmdhandlers[msg]
    @_vr_cmdhandlers[msg].push [handlername,handlertype,argparsestr]
  end

def deleteCommandHandler(msg,handlername)
    return false unless @_vr_cmdhandlers[msg]
    @_vr_cmdhandlers.delete_if do |shandler|
      shandler[0] != (PREHANDLERSTR+handlername).intern
    end
  end
end

################################################
# Standard Control Container 
#
module VRStdControlContainer
=begin
== VRStdControlContainer
This module provides a message handler for WM_COMMAND, which calls
the defined methods in a parent window.
VRForm includes this module automatically loading "vrcontrol.rb".
=end

include VRMessageHandler

def stdcontrolcontainerinit
    addHandler(WMsg::WM_COMMAND,"wmcommand",MSGTYPE::ARGPASS,nil)
    addEvent WMsg::WM_COMMAND
  end
  
  def vrinit
    super
    stdcontrolcontainerinit
    addNoRelayMessages [WMsg::WM_COMMAND]
  end

def self_wmcommand(msg)
    id=LOWORD(msg.wParam)
    ct=@controls[id]       # Activated Control
    if !ct then
      if !@_vr_menu then return end
      ct=@_vr_menus[id]
      if !ct then
        return # no handler
      end
    end
    
    messageid=HIWORD(msg.wParam)
    return unless ct._vr_cmdhandlers and ct._vr_cmdhandlers[messageid]

ct._vr_cmdhandlers[messageid].each do |shandler|
      args=msgarg2handlerarg(shandler[1],msg,shandler[2])
      ct.__send__(shandler[0],*args) if ct.respond_to?(shandler[0])
      msg.retval = controlmsg_dispatching(ct,shandler[0],*args)
    end
  end

end

# add
module VRContainersSet
  include VRStdControlContainer
  INITIALIZERS.push :stdcontrolcontainerinit
end

##########################################
#  Standard Controls
#
#
#  Minimum definition for a Standard Control is
#
#> class VRSampleControl <VRStdControl
#>   WINCLASSINFO = ["ControlClass",additionalStyle,exStyle]
#>   def vrinit()
#>     super 
#>     addCommandHandler(message,eventname,type,argparsestr])
#>   end
#> end
#
# @_vr_cmdhandlers such as {
## message -> [eventname, argtype, unpackstr]
#   WMsg::BN_CLICKED=>["clicked",MSGTYPE::ARGNONE,nil],
#   WMsg::LBN_SELCHANGE=>["selchange",MSGTYPE::ARGNONE,nil]
#}
# ############################################################

class VRButton < VRStdControl
=begin
== VRButton
Button.
Button's caption can be set/got by caption/caption= method of SWin::Window.

=== Event handlers
Buttons invoke the following method of parent window.
--- ????_clicked
    This parent's method is fired when button is pushed.
--- ????_dblclicked
    This parent's method is fired when button is double clicked.
=end

WINCLASSINFO =  ["BUTTON",WStyle::BS_PUSHBUTTON]

def vrinit
    super
    addCommandHandler(WMsg::BN_CLICKED,    "clicked",   MSGTYPE::ARGNONE,nil)
    addCommandHandler(WMsg::BN_DBLCLICKED, "dblclicked",MSGTYPE::ARGNONE,nil)
  end
end

class VRGroupbox < VRStdControl
=begin
== VRGroupbox
Groupbox.

This control can be a container of other window.
You need to extend this class by Container modules, VRStdControlContainer for Standard Controls and VRCommonControlContainer for Common Controls.
=end

include VRParent
  WINCLASSINFO = ["BUTTON",WStyle::BS_GROUPBOX]
end

class VRCheckbox < VRButton
=begin
== VRCheckbox
Check box.
Parent class is ((<VRButton>))

=== Methods
Checkbox has the following methods.
--- checked?
    Return boolean value whether checkbox is checked or not.
--- check(v)
    Check checkbox as v(=true/false).
=end
  WINCLASSINFO = ["BUTTON",WStyle::BS_AUTOCHECKBOX]
  private
  
  def to_check_state(v)
    res=case v
    when true
      1
    when false,nil
      0
    else
      if v.respond_to?(:to_i)
        v.to_i != 0 ? 1 : 0
      else
        v ? 1 : 0
      end
    end
    return res
  end
  
  public
  
  def checked?
    c=sendMessage(WMsg::BM_GETCHECK,0,0)               #getcheck
    return c!=0
  end
  
  def check(v)
    sendMessage WMsg::BM_SETCHECK, to_check_state(v),0
  end
  
  alias :checked= :check
end

class VRRadiobutton < VRCheckbox
=begin
== VRRadiobutton
Radio Button.

Parent class is ((<VRCheckbox>))
=end
  WINCLASSINFO = ["BUTTON",WStyle::BS_AUTORADIOBUTTON]
end

class VRStatic < VRStdControl
=begin
== VRStatic
Static Control(text).

Text can be access as caption.

=== Event handlers
--- ????_clicked
    Fired when the control is clicked if the control has the style WMsg::STN_CLICKED
=end
  WINCLASSINFO = ["STATIC",0]
  def vrinit
    addCommandHandler(WMsg::STN_CLICKED,  "clicked",0,nil)
  end
end

class VREdit < VRStdControl
=begin
== VREdit
Edit Control.

=== Methods
--- text
    Gets Text in the control. Line break(\r\n) is translated by this method.
--- text=(str)
    Sets Text in the control. Line break is translated by this method.
--- getSel
    Returns [start_pos,end_pos] of the selected area.
--- setSel(st,en,noscroll=0)
    Sets the selected area specified by ((|st|)) as start point and ((|en|))
    as end point and Scrolls to show the area. When ((|noscroll|)) is 1, 
    it doesn't scroll.
--- setCaret(r)
    Sets cursor point at ((|r|))
--- replaceSel(newstr)
    Replaces text in the selected area with ((|newstr|)).
--- readonly=(b)
    Sets readonly flag as boolean ((|b|))
--- limit
    Gets the length limit of this Editbox.
--- limit=(lmt)
    Sets the length limit of this Editbox.
--- modified
    Returns true if the editbox text is modified by user.
--- modified=(f)
    Sets modified flag of the editbox.
--- cut
    Cuts the selected area into clipboard.
--- copy
    Copies the selected area into clipboard.
--- paste
    Paste the clipboard text into the editbox.
--- clear
    Clears selected area text.
    Use ((<cut>)) method to set the text into clipboard.
--- undo
    Undo the previous cut/copy/paste/clear action.
--- charFromPos(x,y)
    retrieves information about the character closest to a specified point
    in the client area.
    ((x)) is the horizontal coordinate. ((y)) is the vertical coordinate.
    the return value specifies character index by Fixnum.
    the character index starts from zero
=== Event handlers
Editboxes invoke the following method of parent window.
--- ????_changed
    This parent's method is fired when editbox text is modified.
=end

WINCLASSINFO = ["EDIT",WStyle::ES_AUTOHSCROLL,WExStyle::WS_EX_CLIENTEDGE]

def vrinit
    super
    addCommandHandler(0x300,"changed",MSGTYPE::ARGNONE,nil)
  end

def getSel
    r=sendMessage(0xb0,0,0)
    return LOWORD(r),HIWORD(r)
  end

def setCaret(r)
    setSel(r,r)
  end

def setSel(st,en,noscroll=0)
    sendMessage(0xb1,st,en)
  end

def replaceSel(newstr)
    sendMessage(0xc2,0,((newstr.empty?)? '' : newstr.to_s))
  end

def readonly=(b)
    f= (b)? 1 : 0
    sendMessage 0xcf,f,0
  end

def limit=(lmt)
    sendMessage 0xc5,lmt.to_i,0
  end
  def limit
    sendMessage 0xd5,0,0
  end

def modified
    r=sendMessage 0xb8,0,0              #GETMODIFY
    if r==0 then false else true end
  end
  alias modified? :modified
  def modified=(f)
    r= if f then 1 else 0 end
    sendMessage 0xb9,r,0
  end

# change linebreak code
# caption,caption= methods is raw methods

VR_REGEXPNEWLINE="\r\n"
  def text() self.caption.gsub(/#{VR_REGEXPNEWLINE}/,$/); end
  def text=(str) 
    self.caption = str.to_s.gsub(/#{VR_REGEXPNEWLINE}/,"\n").gsub(/\n/,VR_REGEXPNEWLINE)
  end

# for clipboard and so on..
  def cut
    sendMessage 0x300,0,0  #CUT
  end
  def copy
    sendMessage 0x301,0,0  #COPY
  end
  def paste
    sendMessage 0x302,0,0  #PASTE
  end
  def clear
    sendMessage 0x303,0,0  #CLEAR
  end
  def undo
    sendMessage 0x304,0,0  #UNDO
  end
  
  def charFromPos(x,y)
    r=sendMessage 0x00D7,0,(y << 16) | x  #EM_CHARFROMPOS
    return LOWORD(r)
  end
  
end

class VRText < VREdit
=begin
== VRText
Mutiline Editbox.
Parent class is ((<VREdit>))

=== Methods
--- scrollTo(line.col)
    Scrolls ((|line|)) lines vertically and ((|col|)) columns horizontally.
--- visibleStartLine
    Returns line number of the first visible line in the editbox.
--- countLines
    Returns max line number.
--- getLineLengthOf(ln)
    Returns length of the ((|ln|))-th line.
--- getLineTextOf(ln,maxlen)
    Returns text of ((|ln|))-th line. If maxlen is specified, returned text is
    limited in its length.
--- scrollup
    Scrolls line up in the editbox.
--- scrolldown
    Scrolls line down in the editbox.
--- scrollupPage
    Scrolls page up in the editbox.
--- scrolldownPage
    Scrolls page down in the editbox.
--- scrolltocaret
    Scrolls the caret into view in the editbox.
--- char2line(ptr)
    Returns the index of the line that contains the specified character index.
--- line2char(ln)
    Returns the character index of a line.
--- getCurrentLine
    Returns the current line index.
--- charLineFromPos(x,y)
    retrieves information about the character closest to a specified point
    in the client area.
    ((x)) is the horizontal coordinate. ((y)) is the vertical coordinate.
    the return value specifies character index and line index by Array.
    first item means character index. second item means line index.
    the character index and line index start from zero
=end

WINCLASSINFO = ["EDIT",
     WStyle::ES_MULTILINE|WStyle::ES_AUTOVSCROLL,WExStyle::WS_EX_CLIENTEDGE
    ]

private
  def c_scroll(r)
    sendMessage 0xb5,r.to_i,0
  end

public

def countLines
    sendMessage 0x00BA,0,0
  end

def scrollTo(line,col)
    sendMessage 0x00B6,0,MAKELPARAM(line,col)    #LINESCROLL
  end
  def visibleStartLine()
    sendMessage 0x00CE,0,0             #GETFIRSTVISIBLELINE
  end
  
  def getLineLengthOf(l)
    sendMessage 0xc1,line2char(l.to_i),0          #GETLINELENGTH
  end
  def getLineTextOf(l,textsize=getLineLengthOf(l)+1)
    r=[textsize," "*textsize].pack("Sa*")
    len=sendMessage 0xc4,l.to_i,r
    r[0,len]
  end

def scrollup() c_scroll 0; end
  def scrolldown() c_scroll 1; end
  def scrollupPage() c_scroll 2; end
  def scrolldownPage() c_scroll 3; end
  
  def scrolltocaret
    sendMessage 0xb7,0,0               #SCROLLCARET
  end
  
  def char2line(ptr)
    sendMessage 0xc9,ptr.to_i,0        #LINEFROMCHAR
  end
  def line2char(l)
    sendMessage 0xbb,l.to_i,0          #LINEINDEX
  end
  def getCurrentLine
    char2line(-1)
  end
  
  def charLineFromPos(x,y)
    r=sendMessage 0x00D7,0,(y << 16) | x  #EM_CHARFROMPOS
    return [LOWORD(r),HIWORD(r)]
  end
  
end

class VRListbox < VRStdControl
=begin
== VRListbox
Listbox.
Listbox has multi strings to select.

WINCLASSINFO = ["LISTBOX",WStyle::LBS_STANDARD,WExStyle::WS_EX_CLIENTEDGE]

def vrinit
    super
    addCommandHandler(WMsg::LBN_SELCHANGE, "selchange",MSGTYPE::ARGNONE,nil)
    set_liststrings
  end
  
 private
  def set_liststrings
    clearStrings
    
    return unless defined? @_vr_init_items
    0.upto(@_vr_init_items.size-1) do |idx|
      addString idx,@_vr_init_items[idx]
    end if @_vr_init_items
  end

public
  def addString(*arg)
    if arg[0].is_a?(Integer) then
      sendMessage WMsg::LB_INSERTSTRING,arg[0],arg[1].to_s
    else
      sendMessage WMsg::LB_ADDSTRING,0,arg[0].to_s
    end
  end

def deleteString(idx)
    sendMessage WMsg::LB_DELETESTRING,idx.to_i,0
  end
  def countStrings
    sendMessage WMsg::LB_GETCOUNT,0,0
  end

def clearStrings
    c=getCount
    (1..c).each do |i|
      deleteString 0           #delete #0 c-times
    end
  end
  
  def eachString
    c=getCount
    0.upto(c-1) do |i|
      yield getString(i)
    end
  end
  
  def setListStrings(sarray)
    @_vr_init_items=sarray
    if hWnd>0 then set_liststrings end
  end

def selectedString
    sendMessage(WMsg::LB_GETCURSEL,0,0)
  end

def getTextOf(idx)
    len = sendMessage(WMsg::LB_GETTEXTLEN,idx.to_i,0) #LB_gettextlen
    raise "No such index(#{idx}) in the Listbox"if len<0
    str=" " * len
    sendMessage(WMsg::LB_GETTEXT,idx.to_i,str)          #LB_getText
    str
  end

def select(idx)
    sendMessage(WMsg::LB_SETCURSEL,idx.to_i,0)
  end

def setDir(fname,opt=0)
    sendMessage(WMsg::LB_DIR,opt.to_i,fname.to_s)
  end

def findString(findstr,start=0)
    sendMessage(WMsg::LB_FINDSTRING,start.to_i,findstr.to_s)
  end

def getDataOf(idx)
    sendMessage(WMsg::LB_GETITEMDATA,idx.to_i,0)
  end
  def setDataOf(idx,data)
    sendMessage(WMsg::LB_SETITEMDATA,idx.to_i,data.to_i)
  end

def eachSelected
    count = sendMessage(WMsg::LB_GETSELCOUNT,0,0)
  
    if count<1 then
      yield selectedString
      return
    end

buffer = '\0\0\0\0' * count
    sendMessage(WMsg::LB_GETSELITEMS,count,buffer)

buffer.unpack("I*")[0,count].each do |i|
      yield i
    end
  end

end

class VRCombobox < VRStdControl
=begin
== VRCombobox
Combobox is like Listbox, but Only one string is selected.

WINCLASSINFO = ["COMBOBOX",WStyle::CBS_STANDARD]

def vrinit
    super
    set_liststrings
    addCommandHandler(WMsg::CBN_SELCHANGE, "selchange",MSGTYPE::ARGNONE,nil)
  end

private
  def set_liststrings
    clearStrings
    return unless defined? @_vr_init_items
    0.upto(@_vr_init_items.size-1) do |idx|
      addString idx,@_vr_init_items[idx]
    end if @_vr_init_items
  end

public
  def addString(*arg)
    if arg[0].is_a?(Integer) then
      sendMessage WMsg::CB_INSERTSTRING,arg[0],arg[1].to_s
    else
      sendMessage WMsg::CB_ADDSTRING,0,arg[0].to_s
    end
  end

def deleteString(idx)
      sendMessage WMsg::CB_DELETESTRING,idx,0
  end
  def countStrings
      sendMessage WMsg::CB_GETCOUNT,0,0
  end

def clearStrings
    c=getCount
    (1..c).each do |i|
      deleteString 0           #delete #0 c-times
    end
  end
  
  def eachString
    c=getCount
    0.upto(c-1) do |i|
      yield getString(i)
    end
  end

def setListStrings(sarray)
    @_vr_init_items=sarray
    if hWnd>0 then set_liststrings end
  end

def selectedString
    sendMessage(WMsg::CB_GETCURSEL,0,0)
  end

def getTextOf(idx)
    len = sendMessage(WMsg::CB_GETLBTEXTLEN,idx,0)   #CB_gettextlen
    raise "No such index(#{idx}) in the Combobox"if len<0
    str=" " * len
    sendMessage(WMsg::CB_GETLBTEXT,idx,str)          #CB_getText
    str
  end

def select(idx)
    sendMessage(WMsg::CB_SETCURSEL,idx,0)
  end

def setDir(fname,opt=0)
    sendMessage(WMsg::CB_DIR,opt.to_i,fname.to_s)
  end

def findString(findstr,start=0)
    sendMessage(WMsg::CB_FINDSTRING,start.to_i,findstr.to_s)
  end

def getDataOf(idx)
    sendMessage(WMsg::CB_GETITEMDATA,idx.to_i,0)
  end
  def setDataOf(idx,data)
    sendMessage(WMsg::CB_SETITEMDATA,idx.to_i,data.to_i)
  end
end

#####################################
#  Editable Combobox  
#  programmed by USHIWATARI-san
module WMsg
  CBN_EDITCHANGE = 5
end
module WStyle
  CBS_DROPDOWN    = 0x00a00200 | 2
end

class VREditCombobox < VRCombobox
=begin
== VREditCombobox
Editable Combobox.
This is a kind of Combobox where you can edit the text.

=== Methods
This has also VRCombobox's methods.
--- text
    Returns the current text.

=== Event handlers
--- changed
    Fired when the text is changed.
=end

WINCLASSINFO = ["COMBOBOX",WStyle::CBS_DROPDOWN | WStyle::CBS_AUTOSCROLL ] 
  def vrinit
    super
    addCommandHandler(WMsg::CBN_EDITCHANGE, "changed",MSGTYPE::ARGNONE,nil)
  end

def text
    self.caption
  end
  def text=(str) 
    self.caption = str.gsub(/([^\r])\n/,'\1'+VREdit::VR_REGEXPNEWLINE)
  end

end

#####################################
#  Menu
#
class VRMenu
=begin
== VRMenu
Menu.

=== Methods
--- append(caption,state)
    Adds a new menu item at the last with the caption of ((|caption|)) and 
    the state of ((|state|)). See ((<state=>)) about ((|state|)).
--- insert(ptr,caption,name,state)
    Inserts new item at ((|ptr|)).
--- delete(id)
    Deletes menu. ((|id|)) can be a instance of VRMenuItem or a menu-id integer.
--- count
    Counts the menu items.
--- set(sarr)
    Sets the menu according to the ((|sarr|)) which is a structured array 
    of strings such like
    (({  [ ["&File", [["&Open","open"],["E&xit","exit"]],  }))
    (({       ["&Edit",["&Copy","copy]]    }))
    (({    ] ]  }))
      Caption : TEXT
      Name : TEXT
      Menu : [Caption, Name|Menu]

When a menu is clicked, ((|Name|))_clicked method is fired.

=end

attr_reader :menu, :parent

SEPARATOR=["sep","_vrmenusep",0x800]

def initialize(menu,parent)
    @menu=menu
    @parent=parent
  end

def append (*arg)
    m=VRMenuItem.new(@menu)
    id=@parent.newControlID
    if arg[2] then
      @menu.append arg[0],id,arg[2]
    else
      @menu.append arg[0],id
    end
    @parent.registerMenu(m,arg[1],id,arg[0])
    m
  end
  def insert (ptr,*arg)
    m=VRMenuItem.new(@menu)
    id=@parent.newControlID
    if arg.size>2 then
      @menu.insert arg[0],id,ptr,arg[2]
    else
      @menu.insert arg[0],id,ptr
    end
    @parent.registerMenu(m,arg[1],id,arg[0])
    m
  end
  def delete (id)
    if id.is_a?(VRMenuItem) then
      @menu.delete id.etc
    else
      @menu.delete id
    end
  end
  def count (*arg)
    @menu.count(*arg)
  end

def set(sarr)
    sarr.each do |item|
      if item[1].is_a?(Array) then
        m=@parent.newMenu(true)
        m.set(item[1])
        @menu.append item[0],m.menu,item[2]
      elsif item[1].is_a?(VRMenu) then
        @menu.append item[0],item[1].menu,item[2]
      else
        append(*item)
      end
    end
    self
  end
end

VRMenuTemplate = Struct.new("VRMenuTemplate",:caption,:item,:state)
=begin
== VRMenuTemplate
If you don't like using Array for VRMenu#set, this will help you.

=== Methods
--- caption
--- caption=
    Represents the caption of the menu.
--- item
--- item=
    When ((|item|)) is String, ((|item|)) means the name of menu item.
    This name is used for the event handler name like ((|item|))_clicked.
    ((|item|)) can be also an instance of VRMenuTemplate. In this case ((|item|))
    represents its submenu.
=== example
  a=VRMenuTemplate.new
  a.caption,a.item = "Test1","test1"
  
  b=VRMenuTemplate.new("Test2","test2")
  c=VRMenuTemplate.new("Test3","test3",VRMenuItem::GRAYED)

d1=VRMenuTemplate.new("Test4-1","test41")
  d2=VRMenuTemplate.new("Test4-2","test42")
  d3=VRMenuTemplate.new("Test4-3","test43")

d = VRMenuTemplate.new
  d.caption , d.item = "Test4" , [d1,d2,d3]
=end

class VRMenuItem
=begin
== VRMenuItem
This is a wrapper of SWin::Menu
=== Methods
--- new(menu)
    ((|menu|)) must be the instance of SWin::Menu.
--- state
    Returns the state of the menu item.
--- state=
    Sets the state of the menu item.
    state means
    * 0 MF_ENABLED
    * 1 MF_GRAYED
    * 2 MF_DISABLED
    * 8 MF_CHECKED
--- checked?
    Returns true if the menu item is checked. 
--- checked=
    Sets true/false whether the menu item is checked or not.
--- modify(text)
    Modifies the text of the menu item.
=end
  attr_accessor :name, :etc

GRAYED=1
  DISABLED=2
  CHECKED=8

def initialize(menu)
    @menu=menu
  end
  def _vr_cmdhandlers
    {0=>[["clicked",MSGTYPE::ARGNONE,nil]],    # for menu
     1=>[["clicked",MSGTYPE::ARGNONE,nil]]}    # for key accelerator
  end

def state= (st)
    @menu.setState(@etc,st)
  end
  def state
    @menu.getState(@etc)
  end
  def checked=(f)
    @menu.setChecked(@etc,f)
  end
  def checked?
    (self.state&8)==8
  end
  def modify(text)
    @menu.modify @etc,text
  end
end

module VRKeyAcceleratorUseable   # Thanks to Yukimisake-san.
  def menuTransTable(hsh) 
    tVirt = {"Ctrl" => 0x08,"Shift" => 0x04,"Alt" => 0x10}
    tVkey = {"F1"=>0x70,"F2"=>0x71,"F3"=>0x72,"F4"=>0x73,
             "F5"=>0x74,"F6"=>0x75,"F7"=>0x76,"F8"=>0x77,
             "F9"=>0x78,"F10"=>0x79,"F11"=>0x7a,"F12"=>0x7b,
             "Insert"=>0x2d,"Delete"=>0x2e,"PageUp"=>0x21,"PageDown"=>0x22,
             "End"=>0x23,"Home"=>0x24
    }
    r = []
    hsh.each{|k,v|
      fVirt = 1
      key = nil
      if txt = v[/\t.*/] then
        a = txt.strip!.split(/\+/)
        a[0,a.size-1].each{|ii|
            raise "Iregal Key" unless n = tVirt[ii]
            fVirt += n } if a.size > 1
        if (s = a[a.size-1]).size > 1 then
          unless key = tVkey[s] then raise "Iregal Key" end
        else
          key = (s.upcase)[0]
        end
      end
      if key then
        r << fVirt
        r << key
        r << k
      end
    }
    r
  end
end

module VRMenuUseable
=begin
== VRMenuUseable
Include this module to use menus.

=== Methods
--- newMenu(popup=false)
    Creates a new ((<VRMenu>)). If popup is true, the created menu is popup menu.
--- newPopupMenu
    Same as newMenu(true)
--- setMenu(menu)
    Sets the menu ((<VRMenu>)) to the window.
--- showPopup(popupmenu)
    Shows ((|popupmenu|)) at the cursor position
=end

include VRKeyAcceleratorUseable

SetForegroundWindow = Win32API.new("user32","SetForegroundWindow","I","I")

def registerMenu(m,name,id,mcaption="")
    m.etc= id
    instance_eval("@"+name+"=m")
    @_vr_menus= {} unless defined?(@_vr_menus)
    @_vr_menucaptions= {} unless defined?(@_vr_menucaptions)
    @_vr_menus[id]= m
    @_vr_menucaptions[id] = mcaption
    m.name = name
    m
  end

def newMenu(popup=false)
    if popup then
      menu=@screen.factory.newpopup
    else
      menu=@screen.factory.newmenu
    end
    VRMenu.new(menu,self)
  end

def newPopupMenu    # contributed by Yuya-san
    return self.newMenu(true)
  end

def setMenu(menu,keyacc=false)
    SetForegroundWindow.call(self.hWnd)
    if menu.is_a?(SWin::Menu) then  
      super menu
      return
    end

@_vr_menu=menu
    @menu=menu
    super menu.menu
    if keyacc then
      tb = menuTransTable(@_vr_menucaptions)
      SWin::Application.setAccel(self,tb) 
    end
  end

def showPopup(menu)
    SetForegroundWindow.call(self.hWnd)
    if menu.is_a?(SWin::Menu) then  
      m=menu
    else     # asumes it is VRMenu
      m=menu.menu
      @_vr_menu = menu
    end
    popupMenu m,*Cursor.get_screenposition
  end

def setMenuByArray(arr)
    self.setMenu newMenu(arr)
  end

end

##############################
# Other Controls
#

module WStruct
  SCROLLINFO="lllllll"
end

class VRScrollbar < VRControl 
  WINCLASSINFO = ["SCROLLBAR",0]
  attr_accessor :smallstep, :longstep

def vrinit
    setRange(0,100)
    self.pagesize=10
    self.position=50
    @smallstep, @longstep = 1,10
  end
  
  def setRange(min,max)
    sendMessage 0xe6,min.to_i,max.to_i
  end

def position=(val)
    sendMessage 0xe0,val.to_i,1
  end
  def position
    sendMessage 0xe1,0,0
  end

def pagesize=(p)
    si=[4*7,2,0,0,p.to_i,0,0].pack WStruct::SCROLLINFO
    sendMessage 0xe9,1,si  # SBM_SETSCROLLINFO
  end
  def pagesize
    si=[4*7,2,0,0,0,0,0].pack WStruct::SCROLLINFO
    sendMessage 0xea,1,si  # SBM_GETSCROLLINFO
    si.unpack(WStruct::SCROLLINFO)[4]
  end
end

class VRHScrollbar < VRScrollbar
  WINCLASSINFO = ["SCROLLBAR",0]
end
class VRVScrollbar < VRScrollbar
  WINCLASSINFO = ["SCROLLBAR",1]
end

module WMsg
  WM_HSCROLL=276
  WM_VSCROLL=277
end

module VRScrollbarContainer
  def scrollbarcontainerinit
    addHandler WMsg::WM_HSCROLL,"vrscroll",MSGTYPE::ARGINTINT,nil
    addHandler WMsg::WM_VSCROLL,"vrscroll",MSGTYPE::ARGINTINT,nil
    acceptEvents [ WMsg::WM_HSCROLL,WMsg::WM_VSCROLL]
    @_vr_scrollbars={}
  end
  def vrinit
    super
    scrollbarcontainerinit
  end

def searchscrollbar(hwnd)
    @_vr_scrollbars=Hash.new unless defined? @_vr_scrollbars
    srl = @_vr_scrollbars[hwnd]   # false : to be ignored window, 0: form
    if srl==nil then
      @controls.each_value do |v| 
        if v.is_a?(SWin::Window) and v.hWnd==hwnd then
          @_vr_scrollbars[hwnd] = srl = v
          break
        end
      end # @controls.each_value
    end
    srl
  end

=begin
          elsif defined?(VRTrackbar) and v.is_a?(VRTrackbar) then
            @_vr_scrollbars[hwnd] = srl = v
          elsif defined?(VRUpdown) and v.is_a?(VRUpdown) then
            @_vr_scrollbars[hwnd] = srl = v
          else 
            @_vr_scrollbars[hwnd] = 0
            srl = self
=end

def self_vrscroll(wparam,hwnd)
    srl = searchscrollbar(hwnd)
    return if srl.nil?

if srl.is_a?(VRScrollbar) then
      code=LOWORD(wparam)
      if code==4 then
        pos=HIWORD(wparam)
      else
        pos  = srl.position
      end
      case code
      when 0 
        srl.sendMessage 224,pos-srl.smallstep,1
      when 1
        srl.sendMessage 224,pos+srl.smallstep,1
      when 2
        srl.sendMessage 224,pos-srl.longstep,1
      when 3
        srl.sendMessage 224,pos+srl.longstep,1
      when 4
        srl.sendMessage 224,pos,1
      end
    end
    controlmsg_dispatching(srl,"changed")
  end
end

# add
module VRContainersSet
  include VRScrollbarContainer
  INITIALIZERS.push :scrollbarcontainerinit
end

########################
#
# Control using VRPanel
#
class VRBitmapPanel < VRPanel
=begin
== VRBitmapPanel
Bitmap panel that can display static bitmap.

include VRDrawable
  def vrinit
    super
    @bmp=nil
  end

def loadFile(fname)
    @bmp=SWin::Bitmap.loadFile fname
    self.refresh
  end

def createBitmap(info,bmp)
    @bmp=SWin::Bitmap.createBitmap info,bmp
    self.refresh
  end

def self_paint
    drawBitmap @bmp if @bmp.is_a?(SWin::Bitmap)
  end
end

class VRCanvasPanel < VRPanel
=begin
== VRCanvasPanel
Bitmap Canvas panel that can display drawable bitmap.
=== Methods
--- createCanvas(w,h,color=0xffffff)
    Creates a new canvas dimensioned ( ((|w|)),((|h||)) ) and
    colored ((|color|)) on the background.
--- canvas
    Returns the instance of SWin::Canvas to draw it.
=end

attr_reader :canvas

include VRDrawable
  
  def createCanvas(w,h,color=0xffffff)
    @canvas=@screen.factory.newcanvas(w,h)
    @canvas.setBrush(color)
    @canvas.setPen(color)
    @canvas.fillRect(0,0,w,h)
    @canvas.setPen(0x0)
  end

def vrinit
    super
    @canvas=nil
  end

def self_paint
    bitblt @canvas if @canvas
  end
end

if VR_COMPATIBILITY_LEVEL then
  require VR_DIR + 'compat/vrcontrol.rb'
end

hta

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">

<title>NHK.hta - NHKラジオ講座 ダウンローダ - ver-2.2.1 2013-04-02版</title>

const kouza_dim=30
dim url_xml(30),kouza_name(30),kouza_select(30)
dim	kouza_link(21),next_kouza(30),pre_kouza(30)
dim cur_kouza,nkouza,kouza_count
dim nflv(30)
const	daily_dim=10
Dim flv_file(30,10),hdate(30,10),flv_select(30,10),kouza(30,10)
Dim flv_year(30,10),track(30,10)
dim flv_name(30,10), mp3_name(30,10), base_name(30,10), yobi(30,10)
dim flv_size(30,10),mp3_size(30,10)

dim user_name, computer_name
dim unicode_flag : unicode_flag=false
dim m0_flag : m0_flag=false
dim flv_delete_flag : flv_delete_flag=false
dim base_date, cur_now

const parameter_file="NHK_param3.txt"
const flvstreamer="flvstreamer",	ffmpeg="ffmpeg",	id3s="id3s"
const bat_name="download.bat"
const flv_default="flv",	mp3_default="mp3"
dim flv_folder,	mp3_folder
flv_folder = flv_default
mp3_folder = mp3_default
dim sub_folder_flag
sub_folder_flag = false

dim	rtmp_dir		'rtmp のbase-name
dim	random_xml		'random code の xml の url
dim	random_mask		'週変わりランダムコードに変換する名前
dim	search_kouza_num	'調べて見る講座の番号
const	random_input_file="random_input.txt"
'----------------------------------------------------------------
Dim wshell
Set wshell = CreateObject("WScript.Shell")
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim regEx
Set regEx = New RegExp   ' 正規表現を作成します。
'----------------------------------------------------------------
dim phase, return_pos
const phase_initial=0
const phase_kouza=1
const phase_daily=2
const phase_option=3
const phase_nothing=4
phase=phase_initial
return_pos=phase_nothing

'----------------------------------------------------------------

sub initialize_all

phase = phase_initial

const x_win_len=800, y_win_len=600
	Window.ReSizeTo x_win_len, y_win_len
	Window.moveTo ((screen.availWidth -x_win_len)/2),((screen.availHeight -y_win_len)/2)

set_user_name user_name, computer_name

cur_now=now()
	base_date=get_base_date(cur_now)

dim flvstreamerhelp,dummy
	exec_check flvstreamer,flvstreamer & " --help",flvstreamerhelp
	exec_check ffmpeg,ffmpeg,dummy
	flvstreamer_option_check flvstreamerhelp

clr_kouza kouza_select, kouza_dim
	parameter_read nkouza, url_xml, kouza_name, kouza_dim, random_mask, rtmp_dir, _
							random_xml, search_kouza_num, parameter_file
	clr_flv_select 0

option_initialize

all_folder_check

random_code_initialize

end sub

sub random_code_initialize
	dim code(2), j_code, j_status, j_msg, j_date
	dim code_count
	set random_manager = new class_random_manager
	random_manager.get_random_code	code, code_count
	for i=1 to code_count
		random_manager.exec_random_code	code(i),j_status,j_msg
	next
	random_manager.first_code
	if random_code_status=0 then
		exit sub
	end if
	ini_read_random	j_code, j_date
	if j_code<>"" and j_date<>"" then
		random_manager.check_date_of_random_code	j_date, j_status, j_msg
		if j_status>=0 then
			random_manager.exec_random_code	j_code, j_status, j_msg
		end if
	end if
	if random_code_status=0 then
		exit sub
	end if
	set random_table = new class_random_table
	dim i,a,b
	'msgbox "random-table size = " & random_table.n	'時間計測
	'a=now	'時間計測
	for i=1 to random_table.n
		j_code=random_table.table(i)
		random_manager.exec_random_code	j_code, j_status, j_msg
		if j_status=0 then
			ini_write_random	j_code, now
		end if
	next
	'b=now	'時間計測
	'msgbox a & vbNewLine & b & vbNewLine & DateDiff("s",b,a)	'時間計測
	random_manager.first_code
end sub

'*******************************************************************************

sub size_check(num)
	dim	i
	if num = 0 then
		for i = 1 to nkouza
			size_check i
		next
	elseif num >= 1 and num <= kouza_dim then
		if kouza_select(num) then
			for i = 1 to nflv(num)
				flv_size(num,i) = get_file_size(flv_name(num,i))
				mp3_size(num,i) = get_file_size(mp3_name(num,i))
			next
			'set_size_checked(num)
		end if
	else
		msgbox "内部エラー in size_check 講座番号が異常です : " & Cstr(num)
		Window.Close
	end if
end sub

sub clr_flv_select(num)
	dim i,j
	if num = 0 then
		for i = 1 to kouza_dim
			clr_flv_select i
		next
	elseif num>= 1 and num <=kouza_dim then
		for j = 1 to daily_dim
			flv_select(num,j) = False
		next
	else
		msgbox "内部エラー in clr_flv_select 講座番号が異常です : " & Cstr(num)
		Window.Close
	end if
end sub

sub set_flv_select(num)
	dim i,j
	if num = 0 then
		for i = 1 to nkouza
			set_flv_select i
		next
	elseif num>= 1 and num <=kouza_dim then
		if kouza_select(num) then
			for j = 1 to nflv(num)
				flv_select(num,j) = true
			next
		end if
	else
		msgbox "内部エラー in set_flv_select 講座番号が異常です : " & Cstr(num)
	end if
end sub

sub read_flv_select(num)
	dim i,j,n,str
	if num = 0 then
		for i = 1 to nkouza
			read_flv_select i
		next
	elseif num>= 1 and num <=kouza_dim then
		if kouza_select(num) then
			ini_search "[" & kouza_name(num) & "]", key_check, str, n
			'msgbox "read_flv_select : str='" & str & "'"
			unpack_flag_2d str, flv_select, num, nflv(num)
		end if
	else
		msgbox "内部エラー in read_flv_select 講座番号が異常です : " & Cstr(num)
	end if
end sub

sub write_flv_select(num)
	dim i,j,n,str
	if num = 0 then
		for i = 1 to nkouza
			set_flv_select i
		next
	elseif num>= 1 and num <=kouza_dim then
		if kouza_select(num) then
			ini_add "["&kouza_name(num)&"]", key_check,_
									pack_flag_2d(flv_select,num,nflv(num))
		end if
	else
		msgbox "内部エラー in read_flv_select 講座番号が異常です : " & Cstr(num)
	end if
end sub

function get_download_count(num)
	dim retval,i,j
	retval = 0
	if num = 0 then
		for i = 1 to nkouza
			retval = retval + get_download_count(i)
		next
	elseif num>= 1 and num <=kouza_dim then
		if kouza_select(num) then
			for j = 1 to nflv(num)
				if flv_select(num,j) then
					retval = retval + 1
				end if
			next
		end if
	else
		msgbox "内部エラー in get_download_count 講座番号が異常です : " & Cstr(num)
	end if
	get_download_count = retval
end function

sub download(num,mp3only)
	Dim bat
	dim	j,i

Const ForWriting = 2
	On Error Resume Next
	Set bat = fso.OpenTextFile(bat_name, ForWriting, True)
	if Err.Number <> 0 then
		MsgBox "作業ファイル """ & bat_name & """ が開けません" & vbNewLine & _
		       	"エラー番号 " & CStr(Err.Number) & " " & Err.Description
		On Error Goto 0
		Window.Close
	end if
	On Error Goto 0
	'bat.WriteLine "if not exist " & flv_folder & "\con mkdir " & flv_folder
	'bat.WriteLine "if not exist " & mp3_folder & "\con mkdir " & mp3_folder
	'bat.WriteLine
	sub_bat_write bat, num, mp3only
	bat.Close

'msgbox "ちょっと待っています。すぐにクリックしてください"
	wshell.Run bat_name,1,True
end sub

sub sub_bat_write(bat, i, mp3only)
	if i >= 1 and i <= nkouza then
		if kouza_select(i) then
			bat.WriteLine "rem " & kouza_name(i)
			bat.WriteLine
			for j=1 to nflv(i)
				if flv_select(i,j) then
					if not mp3only then
						bat.WriteLine flvstreamer_command(i,j)
					end if
					bat.WriteLine mp3_command(i,j)
					bat.WriteLine tagdel_command(i,j)
					bat.WriteLine tagWrite_command(i,j)
					bat.WriteLine
				end if
			next
		end if
	elseif i = 0 then
		dim j
		for j = 1 to nkouza
			sub_bat_write bat,j,mp3only
		next
	else
		msgbox "内部エラー sub_bat_write 講座番号が異常です : " & Cstr(i)
	end if
end sub

function flvstreamer_command(i,j)
	dim url,m0opt
	regEx.IgnoreCase = True
	regEx.Global = False
	regEx.Pattern = "\.flv$"
	url=regEx.Replace(flv_file(i,j),"")
	url= rtmp_dir & url
	if m0_flag then
		m0opt=" -m 0 "
	else
		m0opt=""
	end if
	flvstreamer_command = flvstreamer & m0opt & " -r """ & url & _
						""" -o """ & flv_name(i,j) & """ >nul"
end function

function mp3_command(i,j)
	mp3_command =ffmpeg & " -y -i """ & flv_name(i,j) & """ -vn -ab 48k -ar 22000 -ac 1 """ & mp3_name(i,j) & """"
end function

function tagdel_command(i,j)
	tagdel_command =id3s & " -d -2 """ & mp3_name(i,j) & """"
end function

function tagWrite_command(i,j)
	dim uni
	if unicode_flag then
		uni = " -u "
	else
		uni = ""
	end if
	tagWrite_command =id3s & uni & " -2 -a NHK" & _
						" -t """ & kouza(i,j) & " " & hdate(i,j) & """" & _
						" -n " & CStr(track(i,j)) & _
						" -y " & CStr(flv_year(i,j)) & _
						" -l """ & kouza(i,j) & """ """ & mp3_name(i,j) & """"
end function

sub get_flv_file
	Dim obj, NodeList
	dim objxml
	dim i,s,m,d,list_num
	dim hizuke
	dim flv_debug
	dim	full_date
	dim t_status, t_msg

if kouza_count <= 0 or kouza_count > nkouza then
		msgbox "内部エラー 講座数が異常な値です : " & CStr(kouza_count)
		exit sub
	end if

for i = 1 to nkouza
		if kouza_select(i) then
			Set objxml = CreateObject("MSXML.DOMDocument")
			objxml.async = False
			If objxml.load(url_xml(i)) Then
				Set nodeList = objxml.documentElement.selectNodes("/musicdata/music")
				list_num=0
				For Each obj In nodeList
					list_num = list_num + 1
					nflv(i) = list_num
					kouza(i,list_num) = obj.getattribute("kouza")
					hdate(i,list_num) = obj.getattribute("hdate")
					flv_file(i,list_num) = obj.getattribute("file")

track(i,list_num)=get_diff_day(hdate(i,list_num),base_date)
					flv_year(i,list_num)=get_last_year(hdate(i,nflv(i)),base_date)

regEx.Pattern = "放送.*"	:regEx.IgnoreCase = True	:regEx.Global = False
					full_date=flv_year(i,list_num) & "年" & regEx.Replace(hdate(i,list_num),"")
					yobi(i,nflv(i)) = WeekdayName(Weekday(full_date))

regEx.Pattern = "月.*"	:regEx.IgnoreCase = True	:regEx.Global = False
					m=regEx.Replace(hdate(i,list_num),"")
					if len(m) <= 1 then
						m = "0" & m
					end if

regEx.Pattern = ".*月"	:regEx.IgnoreCase = True	:regEx.Global = False
					d=regEx.Replace(hdate(i,list_num),"")
					regEx.Pattern = "日.*"	:regEx.IgnoreCase = True	:regEx.Global = False
					d=regEx.Replace(d,"")
					if len(d) <=1 then
						d = "0" & d
					end if

hizuke = m & "-" & d
					base_name(i,list_num) = kouza(i,list_num) & "_" & flv_year(i,list_num) & "-" & hizuke

'MsgBox "kouza=" & kouza(i,list_num) & vbNewline & _
					'		"hdate=" & hdate(i,list_num) & vbNewLine & _
					'		"file=" & flv_file(i,list_num) & vbNewLine &_
					'		"base-name=" & base_name(i,list_num)
				Next
				set nodeList=Nothing

random_manager.check_random_code_status full_date, full_date, t_status, t_msg, true
				if t_status < 0 then
					nflv(i)=0
				end if
				if nflv(i) <= 0 then
					msgbox  kouza_name(i) & vbNewLine & vbNewLine & "講座のデータが異常です"
				else
					flv_debug = false
					if flv_debug then
						msgbox "講座データ" & vbNewLine & kouza(i,1) & vbNewLine _
								& hdate(i,1) & vbNewLine & flv_file(i,1) _
								& vbNewLine & flv_name(i,1) & vbNewLine & mp3_name(i,1)
					end if
				end if
			else
				msgbox "読み込み失敗" & vbNewLine & kouza_name(i)
			end if
			Set objxml = Nothing
		End If
	Next

end sub

sub make_file_name
	dim i,j
	for i=1 to nkouza
		if kouza_select(i) then
			for j=1 to nflv(i)
				flv_name(i,j) = flv_folder & "\" & base_name(i,j) & ".flv"
				if not sub_folder_flag then
					mp3_name(i,j) = mp3_folder & "\" & base_name(i,j) & ".mp3"
				else
					mp3_name(i,j)=mp3_folder &"\"& kouza_name(i) &"\"& base_name(i,j) & ".mp3"
				end if
			next
		end if
	next
end sub

sub exec_check(progname,command,helpstr)
	dim objExec
	On Error Resume Next
	Set objExec = wshell.Exec(command)
	if Err.Number <> 0 then
		MsgBox progname & " を実行可能な場所(フォルダ)に置いてください" _
				& vbNewLine & vbNewLine & _
				"説明.txt にダウンロード先などが書いてあります" _
				& vbNewLine & vbNewLine & _
				"エラー番号 " & CStr(Err.Number) & vbNewLine & Err.Description
		On Error Goto 0
		Window.Close
	end if
	On Error Goto 0

helpstr = ""
    while Not objExec.StdOut.AtEndOfStream
          helpstr = helpstr & objExec.StdOut.ReadAll
    wend
    while Not objExec.StdErr.AtEndOfStream
          helpstr = helpstr & objExec.StdErr.ReadAll
    wend
	'msgbox helpstr
	'result = objExec.ExitCode
	set objExec = Nothing
end sub

sub flvstreamer_option_check(helpstr)
	dim Match, Matches
	dim ver

ver = ""

'msgbox helpstr

regEx.IgnoreCase = True
	regEx.Global = False

regEx.Pattern = "flvstreamer [^\n]*1\.[5-9][0-9]*[a-zA-Z]*"
	Set Matches = regEx.Execute(helpstr)
	For Each Match in Matches
		ver=Match
	Next

if ver = "" then
		regEx.Pattern = "flvstreamer [^\n]*1\.[1-4][0-9][0-9]*[a-zA-Z]*"
		Set Matches = regEx.Execute(helpstr)
		For Each Match in Matches
			ver=Match
		Next
	end if

if ver = "" then
		regEx.Pattern = "flvstreamer [^\n]*[2-9]\.[0-9][0-9]*[a-zA-Z]*"
		Set Matches = regEx.Execute(helpstr)
		For Each Match in Matches
			ver=Match
		Next
	end if

dim mopt
	mopt=""
	regEx.IgnoreCase = false
	regEx.Pattern = "-m "
	Set Matches = regEx.Execute(helpstr)
	For Each Match in Matches
		mopt=Match
	Next

'msgbox "'" & ver & "'" & vbNewLine & "'" & mopt & "'"

if (ver <> "") and (mopt <> "") then
		m0_flag = true
		'msgbox "-m 0 option"
	else
		m0_flag = false
		'msgbox "-m オプションを使用しない"
	end if

'flvstreamer には -m オプションがあるので常に使うようにする
	m0_flag = true

end sub

'*************************** parameter read ***********************************

sub parameter_read(nkouza, url_xml, kouza_name, kouza_dim, _
				mask, rtmp_dir, a_random_xml, s_num, param_file)
	Dim param_in
	Dim Match, Matches
	Dim Fld(100),nFld

Const ForReading=1
	On Error Resume Next
	Set param_in = fso.OpenTextFile(param_file, ForReading)
	if Err.Number <> 0 then
		MsgBox "ファイル """ & param_file & """ が開けません" & vbNewLine & _
				"エラー番号 " & CStr(Err.Number) & vbNewLine & Err.Description
		On Error Goto 0
		Window.Close
	end if
	On Error Goto 0

dim rawtmp,tmp
	nkouza=0

dim read_switch : read_switch=1
	
	Do Until param_in.AtEndOfStream
		rawtmp = param_in.ReadLine
		regEx.Pattern = "#.*"
		regEx.IgnoreCase = False
		regEx.Global = False
		tmp=regEx.Replace(rawtmp, "")

' split が使い物にならんから無理やり
		regEx.Pattern = "[^ ^	][^ ^	]*"
		regEx.IgnoreCase = false
		regEx.Global = True
		Set Matches = regEx.Execute(tmp)
		nFld = 0
		For Each Match in Matches
			nFld = nFld + 1
			Fld(nFld) = Match
		Next
		'msgbox rawtmp & vbNewLine & tmp & vbNewLine & nFld

if read_switch=1 then
			if nFld >=1 then
				a_random_xml=Fld(1)
				read_switch=2
			end if
		elseif read_switch=2 then
			if nFld >=1 then
				mask=Fld(1)
				read_switch=3
			end if
		elseif read_switch=3 then
			if nFld >=1 then
				rtmp_dir=Fld(1)
				read_switch=4
			end if
		elseif read_switch=4 then
			if nFld >=1 then
				s_num=Fld(1)
				read_switch=5
			end if
		elseif nFld >= 2 then
			nkouza = nkouza + 1
			if nkouza > kouza_dim then
				msgbox parameter_file & "の講座のデータ数が多すぎます " & _
										 kouza_dim & " までです"
				nkouza = kouza_dim
				exit do
			end if
			url_xml(nkouza) = Fld(1)
			kouza_name(nkouza) = Fld(2)
		end if
	Loop
	param_in.Close
	if nkouza = 0 then
		msgbox parameter_file & " : 講座のデータがありません"
		Window.Close
	end if
end sub

'*************************** random-code 関係 **********************************

sub input_random_code
	dim e_random_code, e_top_date, e_end_date, e_status, e_msg
	e_random_code = InputBox("Random code の入力",,"")
	if e_random_code = "" then
		exit sub
	end if
	dim is_new_code
	is_new_code = not random_manager.code_found(e_random_code)
	random_manager.exec_random_code	e_random_code, e_status, e_msg
	if is_new_code and e_status=0 then
		ini_write_random	e_random_code, now
	end if
	if e_status < 0 then
		msgbox e_random_code & vbNewLine & e_msg
		exit sub
	end if
	kouza_print
end sub

'**************************************************************************************

sub kouza_select_check
	dim	f
	Set f = Document.kouzafrm		'ｵﾌﾞｼﾞｪｸﾄを変数に格納
	dim	i, s, m
	const offset=0	'前にボタンが1個あるからoffsetは0
		
	For i = 1 To nkouza
		s = f.Elements(i+offset).value 'ダブルチェックのためにセットした値
		On Error Resume Next
		m = CInt(s)
		if Err.Number <> 0 then
			MsgBox "kouzafrm " & CStr(i+offset) & " が異常: " & s & vbNewLine & _
					"エラー番号 " & CStr(Err.Number) & vbNewLine & Err.Description
			On Error Goto 0
			Window.Close
		end if
		On Error Goto 0
		if i<>m then
			msgbox "kouzafrm i と m が違う : " & CStr(i) & "!=" & CStr(m)
		end if
		If f.Elements(i+offset).checked Then
			kouza_select(m) = True
		else
			kouza_select(m) = False
		End If
	Next
	const kouza_check_debug=false
	if kouza_check_debug then
		dim ch
		ch=""
		for i = 1 to nkouza
			if kouza_select(i) then
				ch = ch & kouza_name(i) & vbNewLine
			end if
		next
		msgbox ch
	end if
end sub

function set_kouza_count
	dim	i
	kouza_count=0
	for i = 1 to nkouza
		if kouza_select(i) then
			kouza_count = kouza_count + 1
			kouza_link(kouza_count) = i
		end if
	next
	set_kouza_count = kouza_count
	if kouza_count > 0 then
		for i = 1 to nkouza
			next_kouza(i) = kouza_link(1)
			pre_kouza(i) = kouza_link(1)
		next
		kouza_link(0) = kouza_link(kouza_count)
		kouza_link(kouza_count+1) = kouza_link(1)
		for i = 1 to kouza_count
			next_kouza(kouza_link(i))=kouza_link(i+1)
			pre_kouza(kouza_link(i))=kouza_link(i-1)
		next
	else ' 一応用心のため
		kouza_link(1)=1
		kouza_link(0)=1
		kouza_link(2)=1
		next_kouza(1)=1
		pre_kouza(1)=1
		for i = 1 to nkouza
			next_kouza(i) = 1
			pre_kouza(i) = 1
		next
	end if
end function

Sub ok_kouza
	kouza_select_check
	if set_kouza_count() = 0 then
		msgbox "講座を選んでください"
	else
		if random_code_status<0 then
			msgbox "Random Code を設定してください"
			exit sub
		end if
		random_manager.random_code_set(random_code)
		wait_message
		kouza_write
		get_flv_file
		all_folder_check
		make_file_name
		read_flv_select 0
		size_check 0
		cur_kouza=kouza_link(1)
		daily_print
	end if
End Sub

Sub go_selected_kouza
	kouza_select_check
	if set_kouza_count() = 0 then
		msgbox "講座を選んでください"
	else
		if random_code_status<0 then
			msgbox "Random Code を設定してください"
			exit sub
		end if
		random_manager.random_code_set(random_code)
		wait_message
		kouza_write
		get_flv_file
		all_folder_check
		make_file_name
		read_flv_select 0
		download 0,false
		clr_flv_select 0
		size_check 0
		cur_kouza=kouza_link(1)
		daily_print
	end if
End Sub

Sub all_kouza
	kouza_select_check
	if set_kouza_count() = 0 then
		msgbox "講座を選んでください"
	else
		if random_code_status<0 then
			msgbox "Random Code を設定してください"
			exit sub
		end if
		random_manager.random_code_set(random_code)
		wait_message
		kouza_write
		get_flv_file
		all_folder_check
		make_file_name
		set_flv_select 0
		download 0,false
		clr_flv_select 0
		size_check 0
		cur_kouza=kouza_link(1)
		daily_print
	end if
End Sub

sub set_kouza
	dim	i
	for i = 1 to nkouza
		kouza_select(i)=true
	next
	kouza_print
end sub

sub clr_all_kouza
	dim	i
	for i = 1 to nkouza
		kouza_select(i)=false
	next
	kouza_print
end sub

sub quit_program
	all_exit
	Window.Close
end sub

sub go_next_random
	random_manager.next_code
	kouza_print
end sub

Sub kouza_print
	dim	m,i
	const row_lim=10
	dim col_num, row_num, col_mod, col_c, row_pos(100), row_spc(100)

col_num = nkouza \ row_lim
	if nkouza mod row_lim > 0 then
		col_num = col_num + 1
	end if

row_num = nkouza \ col_num
	if col_num = 1 then
		col_mod = 0
	else
		col_mod = nkouza mod col_num
		if col_mod > 0 then
			row_num = row_num + 1
		end if
	end if

if col_mod = 0 then
		col_mod = col_num
	end if
	row_pos(0) = 0
	for i = 1 to col_num
		if i<=col_mod then
			row_pos(i) = row_pos(i-1) + row_num
			row_spc(i) = false
		else
			row_pos(i) = row_pos(i-1) + row_num - 1
			row_spc(i) = true
		end if
	next
	if nkouza <> row_pos(col_num) then
		msgbox "内部エラー in kouza_print : nkouza <> row_pos(col_num)"
	end if

m=	"<FORM name=""kouzafrm"">"
	m=m&"<center>"
	m=m&"<h2>講座を選択して下さい　　"
	m=m&"<INPUT type=""button"" value=""　ＯＫ　"" name=""kouza"" " & _
				"onclick=""ok_kouza()"">"
	m=m&"</h2>"

if col_num > 1 then
		m=m&"<table> <tr><td>"
	end if

m=m&"<table border>"
	m=m&"<tr>"
	m=m&"<td align=""center"">選択</td>"
	m=m&"<td align=""center"">講座 </td>"
	m=m&"</tr>"
	col_c=1

for i=1 to nkouza
		m=m&"<tr>"
		m=m&"<td align=""center"">"
		m = m & "<INPUT type=""checkbox"" name=""K" & CStr(i) & _
				 """ value=""" & CStr(i) & """"
		if kouza_select(i) then
			m=m & " checked> "
		else
			m=m & " > "
		end if
		m=m&"</td>"
		m=m&"<td align=""left"">"
		m=m& kouza_name(i)
		m=m&"</td>"
		m=m&"</tr>"

if i=row_pos(col_c) then
			if row_spc(col_c) then
				m=m&"<tr> <td>　</td> <td></td> </tr>"
			end if
			m=m&"</table>"
			if col_c < col_num then
				m=m&"</td>"
				m=m&"<td></td><td></td>"
				m=m&"<td>"

m=m&"<table border>"
				m=m&"<tr>"
				m=m&"<td align=""center"">選択</td>"
				m=m&"<td align=""center"">講座 </td>"
				m=m&"</tr>"
				col_c= col_c + 1
			end if
		end if

m=m&"<BR>"
	m=m&"<INPUT type=""button"" value=""選択した講座の全データ転送"" " _ 
			& "name=""allkouza"" onclick=""all_kouza()"">"
	m=m&"　　"
	m=m&"<INPUT type=""button"" value=""選択した講座の各初期設定でデータ転送"" " _
			& "name=""selected_kouza"" onclick=""go_selected_kouza()"">"
	m=m & "<BR><BR>"
	m=m&"<INPUT type=""button"" value=""設定"" name=""option_go"" " _
	 		& " onclick=""kouza_option()"">"
	m=m&"　　　　　　　　"
	m=m & "<INPUT type=""button"" value=""全セット"" name=""setkouza"" " _
			& "onclick=""set_kouza()"">"
	m=m & "　"
	m=m & "<INPUT type=""button"" value=""全クリア"" name=""clrkouza"" " _
			& "onclick=""clr_all_kouza()"">"
	m=m & "　　　　　　　"
	m=m & "<INPUT type=""button"" value=""終了"" name=""quit"" " _
			& "onclick=""quit_program()"">"
	m=m & "<BR>"
	m=m & "<BR>"
	m=m & "======================================================================================"
	m=m & "<BR>"
	m=m & "<BR>"

m=m&"<table>"
	m=m&"<tr>"
	m=m&"<td>"

m=m&"<table border>"
	m=m&"<tr>"
	m=m&"<td align=""center"">次"
	m=m&"<td align=""center"">Random Code"
	m=m&"<td align=""center"">データの日付"
	m=m&"<td align=""center"">現状"
	m=m&"</tr>"
	m=m&"<tr>"
	m=m&"<td>"
	m=m&"<INPUT type=""button"" value=""▼"" name=""next_random"" " _
			& "onclick=""go_next_random()"">"
	m=m&"<td align=""center"">" & random_code
	m=m&"<td align=""center"">" & top_date
	m=m&"<td align=""center""><b>" & random_code_msg & "</b>"
	m=m&"</tr>"
	m=m&"</table>"

m=m&"<td>"
	m=m&"　　"

m=m&"<td>"
	m=m & "<INPUT type=""button"" value=""Random Code の手入力"" name=""name_random_input"" " _
			& "onclick=""input_random_code()"">"
	m=m&"</tr>"
	m=m&"</table>"

m=m & "</center>"
    m=m & "</FORM>"
	document.body.innerHTML = m
	phase=phase_kouza
	return_pos=phase_kouza
End Sub

sub kouza_option
	kouza_select_check
	option_print
end sub

sub daily_select_check
	dim	f
	Set f = Document.dailyfrm		'ｵﾌﾞｼﾞｪｸﾄを変数に格納
	dim	i, s, m
	const offset=1	'前にボタンが2個あるからoffsetは1

For i = 1 To nflv(cur_kouza)
		s = f.Elements(i+offset).value 'ダブルチェックのためにセットした値
		On Error Resume Next
		m = CInt(s)
		if Err.Number <> 0 then
			MsgBox " dailyfrm " & CStr(i+offset) & " が異常: " & s & vbNewLine & _
					"エラー番号 " & CStr(Err.Number) & vbNewLine & Err.Description
			On Error Goto 0
			Window.Close
		end if
		On Error Goto 0
		if i<>m then
			msgbox "dailyfrm i と m が違う : " & CStr(i) & "!=" & CStr(m)
		end if
		If f.Elements(i+offset).checked Then
			flv_select(cur_kouza,m) = True
		else
			flv_select(cur_kouza,m) = False
		End If
	Next
	const daily_check_debug=false
	if daily_check_debug then
		dim ch
		ch=""
		for i = 1 to nflv(cur_kouza)
			if flv_select(cur_kouza,i) then
				ch = ch & kouza(cur_kouza,i) & " - " & hdate(cur_kouza,i) & vbNewLine
			end if
		next
		msgbox ch
	end if
end sub

Sub down_go
	daily_select_check
	if get_download_count(0) = 0 then
		msgbox "講座を選んでください"
	else
		wait_message
		download 0,false
		clr_flv_select 0
		size_check 0
		daily_print
	end if
End Sub

Sub mp3only
	daily_select_check
	if get_download_count(cur_kouza) = 0 then
		msgbox "講座を選んでください"
	else
		wait_message
		download cur_kouza,true
		clr_flv_select cur_kouza
		size_check cur_kouza
		daily_print
	end if
End Sub

sub size_recheck
	size_check 0
	daily_print
end sub

sub set_daily
	set_flv_select cur_kouza
	daily_print
end sub

sub clr_daily
	clr_flv_select cur_kouza
	daily_print
end sub

sub next_kouza_go
	daily_select_check
	cur_kouza = next_kouza(cur_kouza)
	if not kouza_select(cur_kouza) then
		msgbox "内部エラー in next_kouza 講座番号が正常でない :" & CStr(cur_kouza)
		Window.Close
	end if
	daily_print
end sub

sub pre_kouza_go
	daily_select_check
	cur_kouza = pre_kouza(cur_kouza)
	if not kouza_select(cur_kouza) then
		msgbox "内部エラー in pre_kouza 講座番号が正常でない :" & CStr(cur_kouza)
		Window.Close
	end if
	daily_print
end sub

sub daily_initial_setting
	read_flv_select cur_kouza
	daily_print
end sub

sub daily_add_ini
	daily_select_check
	write_flv_select cur_kouza
end sub

Sub daily_print
	dim m, i
	m=  "<FORM name=""dailyfrm"">"
	m=m & "<center>"
	m=m&"<h2>落とすデータを選択して下さい　"
	m=m&"</h2>"
	m=m&"<INPUT type=""button"" value=""ダウンロード"" name=""download"" " & _ 
				 "onclick=""down_go()"">"
	m=m&"　　　　<INPUT type=""button"" value=""サイズ再チェック"" name=""mp3"" " & _
				"onclick=""size_recheck()"">"
	m=m&"<BR><BR>"
	m=m&"<table border>"
	m=m&"<tr>"
	m=m&"<td align=""center"">選択</td>"
	m=m&"<td align=""center"">講座</td>"
	m=m&"<td align=""center"">放送日</td>"
	m=m&"<td align=""center"">曜日</td>"
	m=m&"<td align=""center"">flvのサイズ</td>"
	m=m&"<td align=""center"">mp3のサイズ</td>"
	m=m&"</tr>"
	for i = 1 to nflv(cur_kouza)
		m=m&"<tr>"
		m=m&"<td align=""center"">"
		m=m&"<INPUT type=""checkbox"" name=""K" &CStr(i)& """ value=""" &CStr(i)& """"
		if flv_select(cur_kouza,i) then
			m=m & " checked> "
		else
			m=m & " > "
		end if
		m=m&"</td>"
		m=m&"<td align=""center"">" & kouza(cur_kouza,i) & "</td>"
		m=m&"<td align=""right"">" & hdate(cur_kouza,i) & "</td>"
		m=m&"<td align=""center"">" & yobi(cur_kouza,i) & "</td>"
		m=m&"<td align=""right"">" & flv_size(cur_kouza,i) & "</td>"
		m=m&"<td align=""right"">" & mp3_size(cur_kouza,i) & "</td>"
		m=m&"</tr>"
	next
	
	for i = nflv(cur_kouza)+1 to daily_dim
		m=m&"<tr>"
		m=m&"<td align=""center"">"
		m=m&"<INPUT type=""checkbox"" name=""K" & CStr(i) & """ value=""" & _
												CStr(i) & """ disabled>"
		m=m&"</td>"
		m=m&"<td align=""center"">　</td>"
		m=m&"<td align=""center"">　</td>"
		m=m&"<td align=""center"">　</td>"
		m=m&"<td align=""center"">　</td>"
		m=m&"<td align=""center"">　</td>"
		m=m&"</tr>"
	next
	m=m&"</table>"
	m=m&"<BR><BR>"
	m=m & "<INPUT type=""button"" value=""全セット"" name=""setdaily"" " _
			& "onclick=""set_daily()"">"
	m=m & "　"
	m=m & "<INPUT type=""button"" value=""全クリア"" name=""clrdaily"" " _
			& "onclick=""clr_daily()"">"
	if kouza_count > 1 then
		m=m & "　　　　　　　"
		m=m & "<INPUT type=""button"" value=""前の講座"" name=""prekouza"" " & _
				"onclick=""pre_kouza_go()"">"
		m=m & "　"
		m=m & "<INPUT type=""button"" value=""次の講座"" name=""nextkouza"" " & _
				"onclick=""next_kouza_go()"">"
	end if
	m=m&"<BR><BR>"
	m=m&"<INPUT type=""button"" value="" 設定 "" name=""option_go"" " _
	 		& " onclick=""daily_option()"">"
	m=m&"　　　　　　"
	m=m&"<INPUT type=""button"" value=""設定されたチェック"" name=""option_initial"" " _
	 		& " onclick=""daily_initial_setting()"">"
	m=m&"　　　　　　"
	m=m&"<INPUT type=""button"" value=""選択した曜日をこの講座の初期設定に"" " _
			& "name=""daily_set_name"" onclick=""daily_add_ini()"">"
	m=m & "<BR><BR><BR>"
	m=m & "　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　"
	m=m & "<INPUT type=""button"" value=""終了"" name=""quit"" onclick=""quit_program()"">"
	m=m & "</center>"
    m=m & "</FORM>"
	document.body.innerHTML = m
	phase=phase_daily
	return_pos=phase_daily
End Sub

sub daily_option
	daily_select_check
	option_print
end sub

sub option_select_check
	dim	f
	Set f = Document.optionfrm		'ｵﾌﾞｼﾞｪｸﾄを変数に格納
	unicode_flag=f.unicode.checked
	flv_delete_flag=f.delete.checked
	flv_folder=f.flv.value
	mp3_folder=f.mp3.value
	sub_folder_flag=f.sub_folder.checked
end sub

sub debug_option
	msgbox "unicode=" & CStr(unicode_flag) & vbNewLine & _
			"delete=" & CStr(flv_delete_flag) & vbNewLine & _
			"flv_folder=" & flv_folder & vbNewLine & _
			"mp3_folder=" & mp3_folder & vbNewLine & _
			"sub_folder_flag=" & CStr(sub_folder_flag)
end sub

Sub ok_option
	option_select_check
	'debug_option
	all_folder_check
	option_write
	if return_pos=phase_kouza then
		kouza_print
	elseif return_pos=phase_daily then
		make_file_name
		size_check 0
		daily_print
	end if
End Sub

Sub cancel_option
	if return_pos=phase_kouza then
		kouza_print
	elseif return_pos=phase_daily then
		daily_print
	end if
End Sub

sub flv_def
	document.optionfrm.flv.value=flv_default
end sub

sub mp3_def
	document.optionfrm.mp3.value=mp3_default
end sub

sub flv_search
	dim	val
	val = folder_search("flv のフォルダを選択してください")
	if val <> "" then
		document.optionfrm.flv.value=val
	end if
end sub

sub mp3_search
	dim	val
	val = folder_search("mp3 のフォルダを選択してください")
	if val <> "" then
		document.optionfrm.mp3.value=val
	end if
end sub

Function folder_search(arg_comment)
	dim Shell, objFolder
	Set Shell = CreateObject("Shell.Application")
	Set objFolder = Shell.BrowseForFolder(0, arg_comment, 1)
	If objFolder is Nothing then
		folder_search = ""
	Else
		folder_search = objFolder.Items.Item.Path
	End If
End Function

sub option_print
	dim m
	m=  "<FORM name=""optionfrm"">"
	m=m&"<center>"
	m=m&"<INPUT type=""reset"" value=""Reset"" name=""option_reset"">"
	m=m&"　　　　"
	m=m&"<INPUT type=""button"" value="" OK "" name=""ok"" onclick=""ok_option()"">"
	m=m&"　　　　"
	m=m&"<INPUT type=""button"" value=""Cancel"" name=""cancel"" " _
			& "onclick=""cancel_option()"">"
	m=m&"<BR><BR>"
	m=m&"<table border>"
	m=m&"<tr>"
	m=m&	"<td align=""center"">"
	m=m&		"<INPUT type=""checkbox"" name=""unicode"""
	if unicode_flag then
		m=m & 		" checked> "
	else
		m=m & 		" > "
	end if
	m=m&	"</td>"
	m=m&	"<td colspan=""2"" align=""left""> mp3のタグをunicode で書き込む"
	m=m&	"</td>"
	m=m&"</tr>"
	m=m&"<tr>"
	m=m&	"<td align=""center"">"
	m=m&		"<INPUT type=""checkbox"" name=""delete"""
	if flv_delete_flag then
		m=m & 		" checked> "
	else
		m=m & 		" > "
	end if
	m=m&	"</td>"
	m=m&	"<td colspan=""2"" align=""left""> 終了時にflvファイルを削除する"
	m=m&	"</td>"
	m=m&"</tr>"
	m=m&"<tr>"
	m=m&	"<td align=""center""> flvのフォルダ"
	m=m&	"</td>"
	m=m&	"<td align=""center"">"
	m=m&	"<INPUT type=""text"" value="""&flv_folder&""" name=""flv"" size=""100"">"
	m=m&	"</td>"
	m=m&	"<td align=""center"">"
	m=m&	"<INPUT type=""button"" value=""参照"" name=""flv_srch"" " _
				& "onclick=""flv_search()"">" 
	m=m&	"<INPUT type=""button"" value=""default"" name=""flv_default"" " _
				& "onclick=""flv_def()"">"
	m=m&	"</td>"
	m=m&"</tr>"
	m=m&"<tr>"
	m=m&	"<td align=""center""> mp3のフォルダ"
	m=m&	"</td>"
	m=m&	"<td align=""center"">"
	m=m&	"<INPUT type=""text"" value=""" & mp3_folder & """ name=""mp3"" size=""100"">"
	m=m&	"</td>"
	m=m&	"<td align=""center"">"
	m=m&	"<INPUT type=""button"" value=""参照"" name=""mp3_srch"" " _
					& "onclick=""mp3_search()"">" 
	m=m&	"<INPUT type=""button"" value=""default"" name=""mp3_default"" " _
					& "onclick=""mp3_def()"">"
	m=m&	"</td>"
	m=m&"</tr>"
	m=m&"<tr>"
	m=m&"<tr>"
	m=m&	"<td align=""center"">"
	m=m&		"<INPUT type=""checkbox"" name=""sub_folder"""
	if sub_folder_flag then
		m=m & 		" checked> "
	else
		m=m & 		" > "
	end if
	m=m&	"</td>"
	m=m&	"<td colspan=""2"" align=""left""> "
	m=m&		"mp3ファイルを講座ごとのサブフォルダに入れる"
	m=m&	"</td>"
	m=m&"</tr>"
	m=m&"</table>"
	m=m&"</center>"
	m=m&"</FORM>"
	document.body.innerHTML = m
	phase=phase_option
end sub

sub wait_message
	dim m
	m = "<BR><BR><BR><pre>       しばらく待って下さい </pre>"
	document.body.innerHTML = m
end sub

sub clr_kouza(kouza_select,kouza_dim)
	dim i
	for i = 1 to kouza_dim
		kouza_select(i) = false
	next
end sub

sub all_folder_check
	if not folder_check(flv_folder) then
		if flv_folder <> flv_default then
			msgbox "flv-folder を default " & flv_default & " にします"
			flv_folder = flv_default
			ini_add section_general, key_flv, """" & flv_folder & """"
			if not foler_check(flv_folder) then
				Window.Close
			end if
		end if
	end if
	if not folder_check(mp3_folder) then
		if mp3_folder <> mp3_default then
			msgbox "mp3-folder を default " & mp3_default & " にします"
			mp3_folder = mp3_default
			ini_add section_general, key_mp3, """" & mp3_folder & """"
			if not folder_check(mp3_folder) then
				Window.Close
			end if
		end if
	end if
	if sub_folder_flag then
		if set_kouza_count() > 0 then
			dim i
			for i = 1 to nkouza
				if kouza_select(i) then
					if not folder_check(mp3_folder & "\" & kouza_name(i)) then
						msgbox "mp3 の sub-folder を止めます"
						sub_folder_flag = false
						ini_add section_general, key_sub_folder, CStr(sub_folder_flag)
					end if
				end if
			next
		end if
	end if
end sub

function folder_check(folder_name)
	Dim f
	If (not fso.FolderExists(folder_name)) Then
		On Error Resume Next
		Set f = fso.CreateFolder(folder_name)
		if Err.Number <> 0 then
			MsgBox "フォルダ """ & folder_name & """ が作れません" & vbNewLine & _
					"エラー番号 " & CStr(Err.Number) & vbNewLine & Err.Description
			On Error Goto 0
			folder_check = false
			exit function
		end if
		On Error Goto 0
	end if
	folder_check = true
end function

sub flv_delete
	dim i,j,MyFile, errcount
	errcount=0
	for i=1 to nkouza
		if kouza_select(i) then
			for j=1 to nflv(i)
				if fso.FileExists(flv_name(i,j)) then
					Set MyFile = fso.GetFile(flv_name(i,j))
					On Error Resume Next
					MyFile.Delete
					if Err.Number <> 0 then
						MsgBox "file """ & flv_name(i,j) & _
							""" が削除できません" & vbNewLine & _
							"エラー番号 " & CStr(Err.Number) & _
							vbNewLine & Err.Description
						errcount = errcount + 1
						if errcount >= 3 then
							On Error Goto 0
							exit sub
						end if
					end if
					On Error Goto 0
				end if
			next
		end if
	next
end sub

sub all_exit
	if Err.Number <> 0 then
		On Error Goto 0
		exit sub
	end if
	if phase=phase_kouza then
		kouza_select_check
		kouza_write
	elseif phase=phase_option then
		option_select_check
		option_write
	end if
	if ini_change then
		write_ini_file
	end if
	if flv_delete_flag then
		flv_delete
	end if
end sub

Sub HtaExit()
	all_exit
End Sub

-->
</script>

</head>
<body onUnload="HtaExit()">
<script Language="VBScript">

</script>
</body>
</html>

xmlファイル

xmlファイル

random_table

Option Explicit   ' 変数に対して、明示的な宣言を強制します。

dim random_table

class class_random_table

public	n,table()

private sub Class_Initialize
		const	random_table_file="random_table.txt"
		redim	table(10)
		n=0
		read_table(random_table_file)
	end sub

public sub read_table(filename)
		Dim fso :Set fso = CreateObject("Scripting.FileSystemObject")
		if not fso.FileExists(filename) then
			MsgBox "random-code sample ファイル """ & filename & """ が見つかりません"
			set fso=nothig
			exit sub
		end if
		Const ForReading=1
		dim input_obj
		On Error Resume Next
		Set input_obj = fso.OpenTextFile(filename, ForReading)
		if Err.Number <> 0 then
			MsgBox "ファイル """ & filename & """ が読み込み用に開けません" & vbNewLine & _
				"エラー番号 " & CStr(Err.Number) & vbNewLine & Err.Description
			On Error Goto 0
			set input_obj=nothing
			set fso=nothing
			exit sub
		end if
		On Error Goto 0
		Do Until input_obj.AtEndOfStream
			n = n + 1
			if UBound(table) <= n then
				redim_table
			end if
			table(n) = input_obj.ReadLine
		Loop
		input_obj.Close
		set input_obj=nothing
		set fso=nothing
	end sub
	private sub redim_table
		dim newlen
		newlen=UBound(table)+10
		redim Preserve table(newlen)
	end sub

end class

random_manager

option explicit

'--------------------------- このライブラリの広域変数  --------------------------
dim	random_code		'ランダムコード
dim random_code_status
dim random_code_msg
dim top_date, end_date
dim random_manager	'このライブラリのobject - 参照している広域変数が読み込まれたあと set
'--------------------------------------------------------------------------------
'	このライブラリの参照している広域変数 - parameter として読み込まれる
'			nkouza, rtmp_dir, url_xml, random_mask, random_xml, search_kouza_num
'--------------------------------------------------------------------------------

class	class_random_manager
	private	p_code(10), p_top_date(10), p_end_date(10), p_status(10), p_msg(10)
	private	cur
	public	num, found_zero
	private rtmp_dir_org
	private url_xml_org(20)
	private week_top, data_top

private sub Class_Initialize
		num=0
		cur=0
		p_code(0)=""
		p_top_date(0)=""
		p_end_date(0)=""
		p_status(0)=-9
		p_msg(0)="検索無し"
		found_zero=false
		'--------------------------------------------
		week_top = get_week_top(now)
		data_top = get_data_top(now)
		copy_random_var nkouza, rtmp_dir, url_xml, rtmp_dir_org, url_xml_org	'パラメータ backup
		output(0)
	end sub

private function output(i)
		if (i>=0) and (i<=num) then
			cur=i
			random_code=p_code(i)
			top_date=p_top_date(i)
			end_date=p_end_date(i)
			random_code_status=p_status(i)
			random_code_msg=p_msg(i)
			output=true
		else
			output=false
		end if
	end function

public function store_code(code,t_date,e_date,sta,msg)
		store_code = false
		if code="" then
			store_code = false
			exit function
		end if
		if code_found(code) then
			store_code = false
			exit function
		end if
		if sta>=0 then
			num=num+1
			cur=num
			p_code(cur)=code
			p_top_date(cur)=t_date
			p_end_date(cur)=e_date
			p_status(cur)=sta
			p_msg(cur)=msg
			if sta=0 then
				found_zero=true
			end if
			output(cur)
			store_code = true
			exit function
		end if
		store_code=false
	end function

public sub first_code
		if num<=0 then
			output(0)
			exit sub
		end if
		dim i
		for i=1 to num
			if p_status(i)=0 then
				output(i)
				exit sub
			end if
		next
		output(1)
	end sub

public sub next_code
		if num<=0 then
			output(0)
			exit sub
		end if
		cur=cur+1
		if cur>num then
			cur=1
		end if
		output(cur)
	end sub

public function code_found(code)
		dim i
		code_found=false
		for i=1 to num
			if p_code(i)=code then
				code_found=true
			end if
		next
	end function

private function code_seek(code)
		dim i
		code_seek=false
		for i=1 to num
			if p_code(i)=code then
				code_seek=true
				output(i)
				exit function
			end if
		next
	end function

'--------------------------------------------------------------------------------------

private sub copy_random_var( n, a_rtmp, a_url, b_rtmp, b_url)
		dim	i
		b_rtmp = a_rtmp
		for i=1 to n
			b_url(i) = a_url(i)
		next
	end sub

public sub random_code_set(a_random_code)
		copy_random_var nkouza, rtmp_dir_org, url_xml_org, rtmp_dir, url_xml
		convert_random_code  random_mask, a_random_code, rtmp_dir, nkouza, url_xml
	end sub

public sub check_date_of_random_code( a_date, a_status, a_msg)
		dim d,sa
		'a_date=""	'debug
		if a_date = "" then
			a_status=-666
			a_msg="内部エラー : check_date_of_random_code : null date"
			'msgbox "check_date_of_random_code" & vbNewLine & a_status & vbNewLine & a_msg
			exit sub
		end if
		d=get_week_top(a_date)
		sa=DateDiff("d",week_top,d)
		if sa=0 then
			a_status=0
			a_msg="今週のデータ"
		elseif sa=-7 then
			a_status=1
			a_msg="先週のデータ"
		else
			'msgbox sa
			a_status=-9
			a_msg="昔のデータ"
		end if
	end sub

public sub check_random_code_status( a_top_date, a_end_date, a_status, a_msg, fri_flag)
		dim t,e,sa,te_sa
		if a_top_date="" or a_end_date="" then
			a_status=-999
			a_msg="アクセスできません"
		else
			t=get_week_top(a_top_date)
			e=get_week_top(a_end_date)
			te_sa=DateDiff("d",t,e)
			sa=DateDiff("d",data_top,t)
			if te_sa<>0 then
				a_status=-99
				a_msg="おそらく去年のデータ"
			else
				if sa=0 then
					if fri_flag then
						a_status=0
						a_msg="今週のデータ"
					elseif weekday(a_top_date)=vbMonday or weekday(a_end_date)=vbFriday then
						a_status=0
						a_msg="今週のデータ"
					elseif weekday(a_end_date)=vbSaturday or weekday(a_end_date)=vbSunday then
						a_status=-9
						a_msg="昔のデータ"
					else
						a_status=3
						a_msg="??今週のデータ??"
					end if
				elseif sa=-7 then
					if fri_flag then
						a_status=1
						a_msg="先週のデータ"
					elseif weekday(a_top_date)=vbMonday or weekday(a_end_date)=vbFriday then
						a_status=1
						a_msg="先週のデータ"
					elseif weekday(a_end_date)=vbSaturday or weekday(a_end_date)=vbSunday then
						a_status=-9
						a_msg="昔のデータ"
					else
						a_status=4
						a_msg="??先週のデータ??"
					end if
				'elseif sa=7 then
					'a_status=2
					'a_msg="来週のデータ"
				else
					'msgbox sa
					a_status=-9
					a_msg="昔のデータ"
				end if
			end if
		end if
	end sub

private function get_data_top(n)
		get_data_top=DateAdd("d",-7,get_week_top(n))
	end function

private function get_week_top(n)
		'vbSunday 1 日曜 
		'vbMonday 2 月曜 
		'vbTuesday 3 火曜 
		'vbWednesday 4 水曜 
		'vbThursday 5 木曜 
		'vbFriday 6 金曜 
		'vbSaturday 7 土曜 
		dim d,wd,h
		'msgbox "n=""" & n & """"
		d=DateValue(n)
		wd=weekday(n)
		if inStr(n,":")=0 then
			h=10
		else
			h=hour(n)
		end if
		if wd=vbSunday then
			d=DateAdd("d",-6,d)
		elseif wd=vbMonday then
			if h<10 then
				d=DateAdd("d",-7,d)
			end if
		else
			d=DateAdd("d",-wd+vbMonday,d)
		end if
		get_week_top=d
	end function

private function hizuke2date(h)
		dim y,m,d
		d=h mod 100
		m=int(h / 100) mod 100
		y=int(h / 10000)
		hizuke2date= y & "/" & m & "/" & d
	end function

private function date2hizuke(n)
		dim y,m,d
		d=day(n)
		m=month(n)
		y=year(n)
		date2hizuke= y*10000 + m*100 + d
	end function

Public Sub get_random_code(code_array, code_count)
		dim objxml
		dim nodeList,obj	'作業用の変数
		dim hizuke,code
		dim i,n

Dim regEx : Set regEx = New RegExp   ' 正規表現を作成します。

code_count=0

Set objxml = CreateObject("MSXML.DOMDocument")
		objxml.async = False
			'random_xml = "http://www47.atwiki.jp/jakago/pub/zzzscramble.xml"	'エラーのURL
		If objxml.load(random_xml) Then
			dim debug_skip : debug_skip=0	'debug_skip は通常時 0 ディバッグ時 1 or 2
			if debug_skip<>0 then
				msgbox "debug_skip=" & debug_skip
				ini_write_random "",""
			end if
			i=0
			n=0
			code_count=0
			code_array(1)=""
			code_array(2)=""

Set nodeList = objxml.documentElement.selectNodes("/flv/scramble")
			For Each obj In nodeList
				i=i+1
				if i>debug_skip then
					n=n+1
					if n>=3 then
						'msgbox "code1=" & code_array(1) & vbNewLine & "code2=" & code_array(2)
						exit for
					end if
					code = obj.getattribute("code")
					hizuke = obj.getattribute("date")

regEx.Pattern = "^[A-Z0-9][A-Z0-9]*$"
					regEx.IgnoreCase = True	:regEx.Global = False
					'code="abff='00vb<"	'debug
					if regEx.Test(code) then
						code_count=code_count+1
						code_array(code_count)=code
						if debug_skip <> 0 then
							msgbox "code=" & code & vbNewLine & "date=" & hizuke
						end if
					else
						msgbox "注意 : scramble.xml が、異常です" & vbNewLine & _
							"date=" & hizuke & vbNewLine & "code=" & code
					end if
				end if
			Next
			set nodeList=Nothing
		Else
			Dim strErrText
			Dim xPE		' Obtain the ParseError object
			Set xPE = objxml.parseError
			With xPE
				strErrText = "XML Document で""scramble.xml""を読み込めません" & _
					vbNewLine & "しばらく待って再試行して見て下さい" & vbNewLine & _  
					"頻発するようでしたら、ウィキに報告して下さい" & vbNewLine & vbNewLine & _
					"Error #: " & .errorCode & ": " & xPE.reason & _
					"Line #: " & .Line & vbCrLf & _
					"Line Position: " & .linepos & vbCrLf & _
					"Position In File: " & .filepos & vbCrLf & _
					"Source Text: " & .srcText & vbCrLf & _
					"Document URL: " & .url
			End With
			MsgBox strErrText, vbExclamation
			set xPE = nothing
			Set objxml = Nothing
			Set regEx = nothing
			Window.Close
		End If

Set objxml = Nothing
		Set regEx = nothing

end sub

sub search_xml(a_top_date,a_end_date)
		dim objxml
		dim nodeList,obj	'作業用の変数
		dim	full_date
		dim s,h_date,c_year
		Dim regEx : Set regEx = New RegExp   ' 正規表現を作成します。

a_top_date=""
		a_end_date=""

Set objxml = CreateObject("MSXML.DOMDocument")
		objxml.async = False

'url_xml(search_kouza_num)="http://www47.atwiki.jp/jakago/pub/zzzscramble.xml"	'エラーのURL

If objxml.load(url_xml(search_kouza_num)) Then
			Set nodeList = objxml.documentElement.selectNodes("/musicdata/music")
			For Each obj In nodeList
				h_date = obj.getattribute("hdate")
				c_year = get_last_year(h_date,base_date)
				regEx.Pattern = "放送.*"	:regEx.IgnoreCase = True	:regEx.Global = False
				full_date = c_year & "年" & regEx.Replace(h_date,"")
				'msgbox "h_date=" & h_date & vbNewLine & "full_date=" & full_date
				if a_top_date="" then
					a_top_date=full_date
					a_end_date=full_date
				else
					a_end_date=full_date
				end if
			Next
			set nodeList=Nothing
		Else
			'msgbox "検索 listdataflv.xml 読み込みエラー"
			a_top_date=""
			a_end_date=""
		End If
		Set objxml = Nothing
		Set regEx = nothing
	end sub

public sub convert_random_code(mask, code, rtmp, n, xml)
		dim	i,check
		Dim regEx : Set regEx = New RegExp   ' 正規表現を作成します。
		regEx.Pattern = mask
		regEx.IgnoreCase = True
		regEx.Global = True

rtmp=regEx.Replace(rtmp, code)
		check=rtmp
	
		for i=1 to n
			xml(i)=regEx.Replace(xml(i),code)
			check = check & vbNewLine & xml(i)
		next
		'msgbox check
		Set regEx = nothing
	end sub

public sub exec_random_code(e_random_code, e_status, e_msg)
		dim e_top_date, e_end_date
		if e_random_code = "" then
			e_status=-5
			e_msg="Null 文字列"
			exit sub
		end if
		if code_found(e_random_code) then
			code_seek	e_random_code
			e_status = random_code_status
			e_msg = random_code_msg
			exit sub
		end if
		random_code_set	e_random_code
		search_xml	e_top_date, e_end_date
		check_random_code_status	 e_top_date, e_end_date, e_status, e_msg, false
		store_code	e_random_code, e_top_date, e_end_date, e_status, e_msg
	end sub

end class

実行ログ

C:\Users\s\Desktop\NHK_hta_2_2_1>rem ラジオ英会話

C:\Users\s\Desktop\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/onde
mand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp4" -o "flv\ラ
ジオ英会話_2013-03-25.flv"  1>nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
ERROR: RTMP_ReadPacket, failed to read RTMP packet body. len: 3628056

C:\Users\s\Desktop\NHK_hta_2_2_1>ffmpeg -y -i "flv\ラジオ英会話_2013-03-25.flv"
-vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-25.mp3"
FFmpeg version SVN-r25456-Sherpya, Copyright (c) 2000-2010 the FFmpeg developers

built on Oct 14 2010 16:46:15 with gcc 4.2.5 20090330 (prerelease) [Sherpya]
  libavutil     50.32. 3 / 50.32. 3
  libavcore      0. 9. 1 /  0. 9. 1
  libavcodec    52.92. 0 / 52.92. 0
  libavformat   52.81. 0 / 52.81. 0
  libavdevice   52. 2. 2 / 52. 2. 2
  libavfilter    1.51. 1 /  1.51. 1
  libswscale     0.12. 0 /  0.12. 0
  libpostproc   51. 2. 0 / 51. 2. 0
flv\ラジオ英会話_2013-03-25.flv: Invalid data found when processing input

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -d -2 "mp3\ラジオ英会話_2013-03-25.mp3"

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -2 -a NHK -t "ラジオ英会話 3月25日放送分"
-n 358 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-25.mp3"

C:\Users\s\Desktop\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/onde
mand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-198.mp4" -o "flv\ラ
ジオ英会話_2013-03-26.flv"  1>nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
Starting download at: 0.000 kB
Metadata:
  duration              900.77
  moovPosition          32.00
  audiocodecid          mp4a
  aacaot                2.00
  audiosamplerate       44100.00
  audiochannels         1.00
trackinfo:
  length                39724032.00
  timescale             44100.00
  language              eng
sampledescription:
  sampletype            mp4a
0.292 kB / 0.00 sec (0.0%)

実行結果２

C:\Users\s\Desktop\NHK_hta_2_2_1>rem ラジオ英会話

C:\Users\s\Desktop\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/onde
mand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp4" -o "flv\ラ
ジオ英会話_2013-03-25.flv"  1>nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...

C:\Users\s\Desktop\NHK_hta_2_2_1>ffmpeg -y -i "flv\ラジオ英会話_2013-03-25.flv"
-vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-25.mp3"
FFmpeg version SVN-r25456-Sherpya, Copyright (c) 2000-2010 the FFmpeg developers

built on Oct 14 2010 16:46:15 with gcc 4.2.5 20090330 (prerelease) [Sherpya]
  libavutil     50.32. 3 / 50.32. 3
  libavcore      0. 9. 1 /  0. 9. 1
  libavcodec    52.92. 0 / 52.92. 0
  libavformat   52.81. 0 / 52.81. 0
  libavdevice   52. 2. 2 / 52. 2. 2
  libavfilter    1.51. 1 /  1.51. 1
  libswscale     0.12. 0 /  0.12. 0
  libpostproc   51. 2. 0 / 51. 2. 0
flv\ラジオ英会話_2013-03-25.flv: Invalid data found when processing input

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -d -2 "mp3\ラジオ英会話_2013-03-25.mp3"
ファイルが存在しません : mp3\ラジオ英会話_2013-03-25.mp3

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -2 -a NHK -t "ラジオ英会話 3月25日放送分"
-n 358 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-25.mp3"
ファイルが存在しません : mp3\ラジオ英会話_2013-03-25.mp3

C:\Users\s\Desktop\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/onde
mand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-198.mp4" -o "flv\ラ
ジオ英会話_2013-03-26.flv"  1>nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
ERROR: RTMP_ReadPacket, failed to read RTMP packet body. len: 6168048

C:\Users\s\Desktop\NHK_hta_2_2_1>ffmpeg -y -i "flv\ラジオ英会話_2013-03-26.flv"
-vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-26.mp3"
FFmpeg version SVN-r25456-Sherpya, Copyright (c) 2000-2010 the FFmpeg developers

built on Oct 14 2010 16:46:15 with gcc 4.2.5 20090330 (prerelease) [Sherpya]
  libavutil     50.32. 3 / 50.32. 3
  libavcore      0. 9. 1 /  0. 9. 1
  libavcodec    52.92. 0 / 52.92. 0
  libavformat   52.81. 0 / 52.81. 0
  libavdevice   52. 2. 2 / 52. 2. 2
  libavfilter    1.51. 1 /  1.51. 1
  libswscale     0.12. 0 /  0.12. 0
  libpostproc   51. 2. 0 / 51. 2. 0
flv\ラジオ英会話_2013-03-26.flv: Invalid data found when processing input

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -d -2 "mp3\ラジオ英会話_2013-03-26.mp3"
ファイルが存在しません : mp3\ラジオ英会話_2013-03-26.mp3

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -2 -a NHK -t "ラジオ英会話 3月26日放送分"
-n 359 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-26.mp3"
ファイルが存在しません : mp3\ラジオ英会話_2013-03-26.mp3

C:\Users\s\Desktop\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/onde
mand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-199.mp4" -o "flv\ラ
ジオ英会話_2013-03-27.flv"  1>nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
Starting download at: 0.000 kB
Metadata:
  duration              900.77
  moovPosition          32.00
  audiocodecid          mp4a
  aacaot                2.00
  audiosamplerate       44100.00
  audiochannels         1.00
trackinfo:
  length                39724032.00
  timescale             44100.00
  language              eng
sampledescription:
  sampletype            mp4a
5536.911 kB / 881.59 sec (97.8%)
Download complete

C:\Users\s\Desktop\NHK_hta_2_2_1>ffmpeg -y -i "flv\ラジオ英会話_2013-03-27.flv"
-vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-27.mp3"
FFmpeg version SVN-r25456-Sherpya, Copyright (c) 2000-2010 the FFmpeg developers

built on Oct 14 2010 16:46:15 with gcc 4.2.5 20090330 (prerelease) [Sherpya]
  libavutil     50.32. 3 / 50.32. 3
  libavcore      0. 9. 1 /  0. 9. 1
  libavcodec    52.92. 0 / 52.92. 0
  libavformat   52.81. 0 / 52.81. 0
  libavdevice   52. 2. 2 / 52. 2. 2
  libavfilter    1.51. 1 /  1.51. 1
  libswscale     0.12. 0 /  0.12. 0
  libpostproc   51. 2. 0 / 51. 2. 0
[flv @ 019cc4c0] max_analyze_duration reached
[flv @ 019cc4c0] Estimating duration from bitrate, this may be inaccurate
Input #0, flv, from 'flv\ラジオ英会話_2013-03-27.flv':
  Metadata:
    duration        : 901
    moovPosition    : 32
    audiocodecid    : mp4a
    aacaot          : 2
    audiosamplerate : 44100
    audiochannels   : 1
  Duration: 00:15:00.77, start: 0.000000, bitrate: N/A
    Stream #0.0: Audio: aac, 44100 Hz, mono, s16
[NULL @ 01632ed0] Requested sampling rate unsupported using closest supported (2
2050)
Output #0, mp3, to 'mp3\ラジオ英会話_2013-03-27.mp3':
  Metadata:
    TSSE            : Lavf52.81.0
    Stream #0.0: Audio: libmp3lame, 22050 Hz, mono, s16, 48 kb/s
Stream mapping:
  Stream #0.0 -> #0.0
Press [q] to stop encoding
size=    5278kB time=900.83 bitrate=  48.0kbits/s
video:0kB audio:5278kB global headers:0kB muxing overhead 0.000611%

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -d -2 "mp3\ラジオ英会話_2013-03-27.mp3"

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -2 -a NHK -t "ラジオ英会話 3月27日放送分"
-n 360 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-27.mp3"

C:\Users\s\Desktop\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/onde
mand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-200.mp4" -o "flv\ラ
ジオ英会話_2013-03-28.flv"  1>nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...

実行結果３

C:\Users\s\Desktop\NHK_hta_2_2_1>rem ラジオ英会話

C:\Users\s\Desktop\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/onde
mand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp4" -o "flv\ラ
ジオ英会話_2013-03-25.flv"  1>nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
Starting download at: 0.000 kB
Metadata:
  duration              900.77
  moovPosition          32.00
  audiocodecid          mp4a
  aacaot                2.00
  audiosamplerate       44100.00
  audiochannels         1.00
trackinfo:
  length                39724032.00
  timescale             44100.00
  language              eng
sampledescription:
  sampletype            mp4a
5657.123 kB / 900.75 sec (99.9%)
Download complete

C:\Users\s\Desktop\NHK_hta_2_2_1>ffmpeg -y -i "flv\ラジオ英会話_2013-03-25.flv"
-vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-25.mp3"
FFmpeg version SVN-r25456-Sherpya, Copyright (c) 2000-2010 the FFmpeg developers

built on Oct 14 2010 16:46:15 with gcc 4.2.5 20090330 (prerelease) [Sherpya]
  libavutil     50.32. 3 / 50.32. 3
  libavcore      0. 9. 1 /  0. 9. 1
  libavcodec    52.92. 0 / 52.92. 0
  libavformat   52.81. 0 / 52.81. 0
  libavdevice   52. 2. 2 / 52. 2. 2
  libavfilter    1.51. 1 /  1.51. 1
  libswscale     0.12. 0 /  0.12. 0
  libpostproc   51. 2. 0 / 51. 2. 0
[flv @ 0037c450] max_analyze_duration reached
[flv @ 0037c450] Estimating duration from bitrate, this may be inaccurate
Input #0, flv, from 'flv\ラジオ英会話_2013-03-25.flv':
  Metadata:
    duration        : 901
    moovPosition    : 32
    audiocodecid    : mp4a
    aacaot          : 2
    audiosamplerate : 44100
    audiochannels   : 1
  Duration: 00:15:00.77, start: 0.000000, bitrate: N/A
    Stream #0.0: Audio: aac, 44100 Hz, mono, s16
[NULL @ 03222ed0] Requested sampling rate unsupported using closest supported (2
2050)
Output #0, mp3, to 'mp3\ラジオ英会話_2013-03-25.mp3':
  Metadata:
    TSSE            : Lavf52.81.0
    Stream #0.0: Audio: libmp3lame, 22050 Hz, mono, s16, 48 kb/s
Stream mapping:
  Stream #0.0 -> #0.0
Press [q] to stop encoding
size=    5278kB time=900.83 bitrate=  48.0kbits/s
video:0kB audio:5278kB global headers:0kB muxing overhead 0.000611%

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -d -2 "mp3\ラジオ英会話_2013-03-25.mp3"

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -2 -a NHK -t "ラジオ英会話 3月25日放送分"
-n 358 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-25.mp3"

C:\Users\s\Desktop\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/onde
mand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-198.mp4" -o "flv\ラ
ジオ英会話_2013-03-26.flv"  1>nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
Starting download at: 0.000 kB
Metadata:
  duration              900.77
  moovPosition          32.00
  audiocodecid          mp4a
  aacaot                2.00
  audiosamplerate       44100.00
  audiochannels         1.00
trackinfo:
  length                39724032.00
  timescale             44100.00
  language              eng
sampledescription:
  sampletype            mp4a
5601.157 kB / 891.81 sec (99.0%)
Download complete

C:\Users\s\Desktop\NHK_hta_2_2_1>ffmpeg -y -i "flv\ラジオ英会話_2013-03-26.flv"
-vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-26.mp3"
FFmpeg version SVN-r25456-Sherpya, Copyright (c) 2000-2010 the FFmpeg developers

built on Oct 14 2010 16:46:15 with gcc 4.2.5 20090330 (prerelease) [Sherpya]
  libavutil     50.32. 3 / 50.32. 3
  libavcore      0. 9. 1 /  0. 9. 1
  libavcodec    52.92. 0 / 52.92. 0
  libavformat   52.81. 0 / 52.81. 0
  libavdevice   52. 2. 2 / 52. 2. 2
  libavfilter    1.51. 1 /  1.51. 1
  libswscale     0.12. 0 /  0.12. 0
  libpostproc   51. 2. 0 / 51. 2. 0
[flv @ 016dc450] max_analyze_duration reached
[flv @ 016dc450] Estimating duration from bitrate, this may be inaccurate
Input #0, flv, from 'flv\ラジオ英会話_2013-03-26.flv':
  Metadata:
    duration        : 901
    moovPosition    : 32
    audiocodecid    : mp4a
    aacaot          : 2
    audiosamplerate : 44100
    audiochannels   : 1
  Duration: 00:15:00.77, start: 0.000000, bitrate: N/A
    Stream #0.0: Audio: aac, 44100 Hz, mono, s16
[NULL @ 02e02ed0] Requested sampling rate unsupported using closest supported (2
2050)
Output #0, mp3, to 'mp3\ラジオ英会話_2013-03-26.mp3':
  Metadata:
    TSSE            : Lavf52.81.0
    Stream #0.0: Audio: libmp3lame, 22050 Hz, mono, s16, 48 kb/s
Stream mapping:
  Stream #0.0 -> #0.0
Press [q] to stop encoding
size=    5278kB time=900.83 bitrate=  48.0kbits/s
video:0kB audio:5278kB global headers:0kB muxing overhead 0.000611%

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -d -2 "mp3\ラジオ英会話_2013-03-26.mp3"

C:\Users\s\Desktop\NHK_hta_2_2_1>id3s -2 -a NHK -t "ラジオ英会話 3月26日放送分"
-n 359 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-26.mp3"

C:\Users\s\Desktop\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/onde
mand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-199.mp4" -o "flv\ラ
ジオ英会話_2013-03-27.flv"  1>nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...

xmlファイル

C:\Users\s\Desktop\NHK_hta_2_2_1>rem ラジオ英会話

C:\Users\s\Desktop\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/onde
mand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-199.mp4" -o "flv\ラ
ジオ英会話_2013-03-27.flv"  1>nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
Starting download at: 0.000 kB
Metadata:
  duration              900.77
  moovPosition          32.00
  audiocodecid          mp4a
  aacaot                2.00
  audiosamplerate       44100.00
  audiochannels         1.00
trackinfo:
  length                39724032.00
  timescale             44100.00
  language              eng
sampledescription:
  sampletype            mp4a
5657.123 kB / 900.75 sec (99.9%)
Download complete

C:\Users\s\Desktop\NHK_hta_2_2_1>ffmpeg -y -i "flv\ラジオ英会話_2013-03-27.flv"
-vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-27.mp3"
FFmpeg version SVN-r25456-Sherpya, Copyright (c) 2000-2010 the FFmpeg developers

built on Oct 14 2010 16:46:15 with gcc 4.2.5 20090330 (prerelease) [Sherpya]
  libavutil     50.32. 3 / 50.32. 3
  libavcore      0. 9. 1 /  0. 9. 1
  libavcodec    52.92. 0 / 52.92. 0
  libavformat   52.81. 0 / 52.81. 0
  libavdevice   52. 2. 2 / 52. 2. 2
  libavfilter    1.51. 1 /  1.51. 1
  libswscale     0.12. 0 /  0.12. 0
  libpostproc   51. 2. 0 / 51. 2. 0
[flv @ 0160c450] max_analyze_duration reached
[flv @ 0160c450] Estimating duration from bitrate, this may be inaccurate
Input #0, flv, from 'flv\ラジオ英会話_2013-03-27.flv':
  Metadata:
    duration        : 901
    moovPosition    : 32
    audiocodecid    : mp4a
    aacaot          : 2
    audiosamplerate : 44100
    audiochannels   : 1
  Duration: 00:15:00.77, start: 0.000000, bitrate: N/A
    Stream #0.0: Audio: aac, 44100 Hz, mono, s16
[NULL @ 014a2ed0] Requested sampling rate unsupported using closest supported (2
2050)
Output #0, mp3, to 'mp3\ラジオ英会話_2013-03-27.mp3':
  Metadata:
    TSSE            : Lavf52.81.0
    Stream #0.0: Audio: libmp3lame, 22050 Hz, mono, s16, 48 kb/s
Stream mapping:
  Stream #0.0 -> #0.0
Press [q] to stop encoding
size=    4471kB time=763.06 bitrate=  48.0kbits/s

download.bat

rem ラジオ英会話

flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp4" -o "flv\ラジオ英会話_2013-03-25.flv" >nul
ffmpeg -y -i "flv\ラジオ英会話_2013-03-25.flv" -vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-25.mp3"
id3s -d -2 "mp3\ラジオ英会話_2013-03-25.mp3"
id3s -2 -a NHK -t "ラジオ英会話 3月25日放送分" -n 358 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-25.mp3"

flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-198.mp4" -o "flv\ラジオ英会話_2013-03-26.flv" >nul
ffmpeg -y -i "flv\ラジオ英会話_2013-03-26.flv" -vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-26.mp3"
id3s -d -2 "mp3\ラジオ英会話_2013-03-26.mp3"
id3s -2 -a NHK -t "ラジオ英会話 3月26日放送分" -n 359 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-26.mp3"

flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-199.mp4" -o "flv\ラジオ英会話_2013-03-27.flv" >nul
ffmpeg -y -i "flv\ラジオ英会話_2013-03-27.flv" -vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-27.mp3"
id3s -d -2 "mp3\ラジオ英会話_2013-03-27.mp3"
id3s -2 -a NHK -t "ラジオ英会話 3月27日放送分" -n 360 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-27.mp3"

flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-200.mp4" -o "flv\ラジオ英会話_2013-03-28.flv" >nul
ffmpeg -y -i "flv\ラジオ英会話_2013-03-28.flv" -vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-28.mp3"
id3s -d -2 "mp3\ラジオ英会話_2013-03-28.mp3"
id3s -2 -a NHK -t "ラジオ英会話 3月28日放送分" -n 361 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-28.mp3"

flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-201.mp4" -o "flv\ラジオ英会話_2013-03-29.flv" >nul
ffmpeg -y -i "flv\ラジオ英会話_2013-03-29.flv" -vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-29.mp3"
id3s -d -2 "mp3\ラジオ英会話_2013-03-29.mp3"
id3s -2 -a NHK -t "ラジオ英会話 3月29日放送分" -n 362 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-29.mp3"

バッチ逐次実行

C:\Users\s>e:

E:\>cd NHK_hta_2_2_1

E:\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp
4" -o "flv\ラジオ英会話_2013-03-25.flv" >nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Failed to open file! flv\ラジオ英会話_2013-03-25.flv

E:\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp
4" -o "flv\ラジオ英会話_2013-03-25.flv" >nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
Starting download at: 0.000 kB
Metadata:
  duration              900.77
  moovPosition          32.00
  audiocodecid          mp4a
  aacaot                2.00
  audiosamplerate       44100.00
  audiochannels         1.00
trackinfo:
  length                39724032.00
  timescale             44100.00
  language              eng
sampledescription:
  sampletype            mp4a
5600.962 kB / 891.76 sec (98.9%)
Download complete

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp
4" -o "flv\ラジオ英会話_2013-03-25.flv" >nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
Starting download at: 0.000 kB
Metadata:
  duration              900.77
  moovPosition          32.00
  audiocodecid          mp4a
  aacaot                2.00
  audiosamplerate       44100.00
  audiochannels         1.00
trackinfo:
  length                39724032.00
  timescale             44100.00
  language              eng
sampledescription:
  sampletype            mp4a
5472.733 kB / 871.35 sec (96.7%)
Download complete

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>ffmpeg -y -i "flv\ラジオ英会話_2013-03-25.flv" -vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-25.mp3"
FFmpeg version SVN-r25456-Sherpya, Copyright (c) 2000-2010 the FFmpeg developers
  built on Oct 14 2010 16:46:15 with gcc 4.2.5 20090330 (prerelease) [Sherpya]
  libavutil     50.32. 3 / 50.32. 3
  libavcore      0. 9. 1 /  0. 9. 1
  libavcodec    52.92. 0 / 52.92. 0
  libavformat   52.81. 0 / 52.81. 0
  libavdevice   52. 2. 2 / 52. 2. 2
  libavfilter    1.51. 1 /  1.51. 1
  libswscale     0.12. 0 /  0.12. 0
  libpostproc   51. 2. 0 / 51. 2. 0
[flv @ 016ac450] max_analyze_duration reached
[flv @ 016ac450] Estimating duration from bitrate, this may be inaccurate
Input #0, flv, from 'flv\ラジオ英会話_2013-03-25.flv':
  Metadata:
    duration        : 901
    moovPosition    : 32
    audiocodecid    : mp4a
    aacaot          : 2
    audiosamplerate : 44100
    audiochannels   : 1
  Duration: 00:15:00.77, start: 0.000000, bitrate: N/A
    Stream #0.0: Audio: aac, 44100 Hz, mono, s16
[NULL @ 02dd2ed0] Requested sampling rate unsupported using closest supported (22050)
Output #0, mp3, to 'mp3\ラジオ英会話_2013-03-25.mp3':
  Metadata:
    TSSE            : Lavf52.81.0
    Stream #0.0: Audio: libmp3lame, 22050 Hz, mono, s16, 48 kb/s
Stream mapping:
  Stream #0.0 -> #0.0
Press [q] to stop encoding
size=    5278kB time=900.83 bitrate=  48.0kbits/s
video:0kB audio:5278kB global headers:0kB muxing overhead 0.000611%

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>id3s -d -2 "mp3\ラジオ英会話_2013-03-26.mp3"
ファイルが存在しません : mp3\ラジオ英会話_2013-03-26.mp3

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>id3s -d -2 "mp3\ラジオ英会話_2013-03-25.mp3"

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>id3s -2 -a NHK -t "ラジオ英会話 3月25日放送分" -n 358 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-25.mp3"

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>cd mp3

E:\NHK_hta_2_2_1\mp3>dir
 ドライブ E のボリューム ラベルは ボリューム です
 ボリューム シリアル番号は 7241-94CD です

E:\NHK_hta_2_2_1\mp3 のディレクトリ

2013/04/04  06:10    <DIR>          .
2013/04/04  06:10    <DIR>          ..
2013/04/04  06:08         5,407,054 ラジオ英会話_2013-03-25.mp3
               1 個のファイル           5,407,054 バイト
               2 個のディレクトリ  362,907,049,984 バイトの空き領域

E:\NHK_hta_2_2_1\mp3>cd ..

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>cd flv

E:\NHK_hta_2_2_1\flv>dir
 ドライブ E のボリューム ラベルは ボリューム です
 ボリューム シリアル番号は 7241-94CD です

E:\NHK_hta_2_2_1\flv のディレクトリ

2013/04/04  06:06    <DIR>          .
2013/04/04  06:06    <DIR>          ..
2013/04/04  06:08         5,792,894 ラジオ英会話_2013-03-25.flv
               1 個のファイル           5,792,894 バイト
               2 個のディレクトリ  362,907,049,984 バイトの空き領域

E:\NHK_hta_2_2_1\flv>h dir
'h' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

E:\NHK_hta_2_2_1\flv>dir ?
 ドライブ E のボリューム ラベルは ボリューム です
 ボリューム シリアル番号は 7241-94CD です

E:\NHK_hta_2_2_1\flv のディレクトリ

2013/04/04  06:06    <DIR>          .
2013/04/04  06:06    <DIR>          ..
               0 個のファイル                   0 バイト
               2 個のディレクトリ  362,907,049,984 バイトの空き領域

E:\NHK_hta_2_2_1\flv>dir /?
ディレクトリ中のファイルとサブディレクトリを一覧表示します。

DIR [ドライブ:][パス][ファイル名] [/A[[:]属性]] [/B] [/C] [/D] [/L] [/N]
  [/O[[:]ソート順]] [/P] [/Q] [/R] [/S] [/T[[:]タイムフィールド]] [/W] [/X] [/4]

[ドライブ:][パス][ファイル名]
              一覧表示するドライブ、ディレクトリ、またはファイルを指定します。

/A          指定された属性のファイルを表示します。
  属性        D  ディレクトリ                R  読み取り専用
              H  隠しファイル                A  アーカイブ
              S  システム ファイル           I  非インデックス対象ファイル
               L  再解析ポイント             -  その属性以外
  /B          ファイル名のみを表示します (見出しや要約が付きません)。
  /C          ファイル サイズを桁区切り表示します。これは
              既定の設定です。/-C とすると桁区切り表示されません。
  /D          /W と同じですが、ファイルを列で並べ替えた一覧を表示します。
  /L          小文字で表示します。
  /N          ファイル名を右端に表示する一覧形式を使用します。
  /O          ファイルを並べ替えて表示します。
  ソート順    N  名前順 (アルファベット)     S  サイズ順 (小さい方から)
              E  拡張子順 (アルファベット)   D  日時順 (古い方から)
              G  グループ (ディレクトリから) -  降順
  /P          1 画面ごとに停止して表示します。
  /Q          ファイルの所有者を表示します。
  /R          ファイルの代替データ ストリームを表示します。
  /S          指定されたディレクトリおよびそのサブディレクトリのすべての
              ファイルを表示します。
  /T          どのタイム フィールドを表示するか、または並べ替えに使用するかを
              指定します。
  タイムフィールド
              C  作成
              A  最終アクセス
              W  最終更新
  /W          ワイド一覧形式で表示します。
  /X          このオプションは MS-DOS 形式以外のファイル名に対する短い名前を
              表示します。長い名前の前に短い名前を表示する点を除けば、
              /N オプションと同じです。短い名前がない場合は、ブランクに
              なります。
  /4          4 つの数字で年を表示します。

環境変数 DIRCMD にスイッチを設定できます。
/-W のように - (ハイフン) を前に付けると、そのスイッチは無効になります。

E:\NHK_hta_2_2_1\flv>dir /a
 ドライブ E のボリューム ラベルは ボリューム です
 ボリューム シリアル番号は 7241-94CD です

E:\NHK_hta_2_2_1\flv のディレクトリ

2013/04/04  06:06    <DIR>          .
2013/04/04  06:06    <DIR>          ..
2013/04/04  06:08         5,792,894 ラジオ英会話_2013-03-25.flv
               1 個のファイル           5,792,894 バイト
               2 個のディレクトリ  362,907,049,984 バイトの空き領域

E:\NHK_hta_2_2_1\flv>
E:\NHK_hta_2_2_1\flv>
E:\NHK_hta_2_2_1\flv>
E:\NHK_hta_2_2_1\flv>flvstreamer /?
'flvstreamer' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

E:\NHK_hta_2_2_1\flv>flvstreamer ?
'flvstreamer' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

E:\NHK_hta_2_2_1\flv>flvstreamer
'flvstreamer' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

E:\NHK_hta_2_2_1\flv>cd ..

E:\NHK_hta_2_2_1>flvstreamer /?
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
ERROR: You must specify a hostname (--host) or url (-r "rtmp://host[:port]/playpath") containing a hostname

E:\NHK_hta_2_2_1>flvstreamer help
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
ERROR: You must specify a hostname (--host) or url (-r "rtmp://host[:port]/playpath") containing a hostname

E:\NHK_hta_2_2_1>

xmlファイル

C:\Users\s>e:

E:\>cd NHK_hta_2_2_1

E:\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp
4" -o "flv\ラジオ英会話_2013-03-25.flv" >nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Failed to open file! flv\ラジオ英会話_2013-03-25.flv

E:\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp
4" -o "flv\ラジオ英会話_2013-03-25.flv" >nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
Starting download at: 0.000 kB
Metadata:
  duration              900.77
  moovPosition          32.00
  audiocodecid          mp4a
  aacaot                2.00
  audiosamplerate       44100.00
  audiochannels         1.00
trackinfo:
  length                39724032.00
  timescale             44100.00
  language              eng
sampledescription:
  sampletype            mp4a
5600.962 kB / 891.76 sec (98.9%)
Download complete

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>flvstreamer -m 0  -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp
4" -o "flv\ラジオ英会話_2013-03-25.flv" >nul
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
Starting download at: 0.000 kB
Metadata:
  duration              900.77
  moovPosition          32.00
  audiocodecid          mp4a
  aacaot                2.00
  audiosamplerate       44100.00
  audiochannels         1.00
trackinfo:
  length                39724032.00
  timescale             44100.00
  language              eng
sampledescription:
  sampletype            mp4a
5472.733 kB / 871.35 sec (96.7%)
Download complete

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>ffmpeg -y -i "flv\ラジオ英会話_2013-03-25.flv" -vn -ab 48k -ar 22000 -ac 1 "mp3\ラジオ英会話_2013-03-25.mp3"
FFmpeg version SVN-r25456-Sherpya, Copyright (c) 2000-2010 the FFmpeg developers
  built on Oct 14 2010 16:46:15 with gcc 4.2.5 20090330 (prerelease) [Sherpya]
  libavutil     50.32. 3 / 50.32. 3
  libavcore      0. 9. 1 /  0. 9. 1
  libavcodec    52.92. 0 / 52.92. 0
  libavformat   52.81. 0 / 52.81. 0
  libavdevice   52. 2. 2 / 52. 2. 2
  libavfilter    1.51. 1 /  1.51. 1
  libswscale     0.12. 0 /  0.12. 0
  libpostproc   51. 2. 0 / 51. 2. 0
[flv @ 016ac450] max_analyze_duration reached
[flv @ 016ac450] Estimating duration from bitrate, this may be inaccurate
Input #0, flv, from 'flv\ラジオ英会話_2013-03-25.flv':
  Metadata:
    duration        : 901
    moovPosition    : 32
    audiocodecid    : mp4a
    aacaot          : 2
    audiosamplerate : 44100
    audiochannels   : 1
  Duration: 00:15:00.77, start: 0.000000, bitrate: N/A
    Stream #0.0: Audio: aac, 44100 Hz, mono, s16
[NULL @ 02dd2ed0] Requested sampling rate unsupported using closest supported (22050)
Output #0, mp3, to 'mp3\ラジオ英会話_2013-03-25.mp3':
  Metadata:
    TSSE            : Lavf52.81.0
    Stream #0.0: Audio: libmp3lame, 22050 Hz, mono, s16, 48 kb/s
Stream mapping:
  Stream #0.0 -> #0.0
Press [q] to stop encoding
size=    5278kB time=900.83 bitrate=  48.0kbits/s
video:0kB audio:5278kB global headers:0kB muxing overhead 0.000611%

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>id3s -d -2 "mp3\ラジオ英会話_2013-03-26.mp3"
ファイルが存在しません : mp3\ラジオ英会話_2013-03-26.mp3

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>id3s -d -2 "mp3\ラジオ英会話_2013-03-25.mp3"

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>id3s -2 -a NHK -t "ラジオ英会話 3月25日放送分" -n 358 -y 2013 -l "ラジオ英会話" "mp3\ラジオ英会話_2013-03-25.mp3"

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>cd mp3

E:\NHK_hta_2_2_1\mp3>dir
 ドライブ E のボリューム ラベルは ボリューム です
 ボリューム シリアル番号は 7241-94CD です

E:\NHK_hta_2_2_1\mp3 のディレクトリ

2013/04/04  06:10    <DIR>          .
2013/04/04  06:10    <DIR>          ..
2013/04/04  06:08         5,407,054 ラジオ英会話_2013-03-25.mp3
               1 個のファイル           5,407,054 バイト
               2 個のディレクトリ  362,907,049,984 バイトの空き領域

E:\NHK_hta_2_2_1\mp3>cd ..

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>cd flv

E:\NHK_hta_2_2_1\flv>dir
 ドライブ E のボリューム ラベルは ボリューム です
 ボリューム シリアル番号は 7241-94CD です

E:\NHK_hta_2_2_1\flv のディレクトリ

2013/04/04  06:06    <DIR>          .
2013/04/04  06:06    <DIR>          ..
2013/04/04  06:08         5,792,894 ラジオ英会話_2013-03-25.flv
               1 個のファイル           5,792,894 バイト
               2 個のディレクトリ  362,907,049,984 バイトの空き領域

E:\NHK_hta_2_2_1\flv>h dir
'h' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

E:\NHK_hta_2_2_1\flv>dir ?
 ドライブ E のボリューム ラベルは ボリューム です
 ボリューム シリアル番号は 7241-94CD です

E:\NHK_hta_2_2_1\flv のディレクトリ

2013/04/04  06:06    <DIR>          .
2013/04/04  06:06    <DIR>          ..
               0 個のファイル                   0 バイト
               2 個のディレクトリ  362,907,049,984 バイトの空き領域

E:\NHK_hta_2_2_1\flv>dir /?
ディレクトリ中のファイルとサブディレクトリを一覧表示します。

DIR [ドライブ:][パス][ファイル名] [/A[[:]属性]] [/B] [/C] [/D] [/L] [/N]
  [/O[[:]ソート順]] [/P] [/Q] [/R] [/S] [/T[[:]タイムフィールド]] [/W] [/X] [/4]

[ドライブ:][パス][ファイル名]
              一覧表示するドライブ、ディレクトリ、またはファイルを指定します。

/A          指定された属性のファイルを表示します。
  属性        D  ディレクトリ                R  読み取り専用
              H  隠しファイル                A  アーカイブ
              S  システム ファイル           I  非インデックス対象ファイル
               L  再解析ポイント             -  その属性以外
  /B          ファイル名のみを表示します (見出しや要約が付きません)。
  /C          ファイル サイズを桁区切り表示します。これは
              既定の設定です。/-C とすると桁区切り表示されません。
  /D          /W と同じですが、ファイルを列で並べ替えた一覧を表示します。
  /L          小文字で表示します。
  /N          ファイル名を右端に表示する一覧形式を使用します。
  /O          ファイルを並べ替えて表示します。
  ソート順    N  名前順 (アルファベット)     S  サイズ順 (小さい方から)
              E  拡張子順 (アルファベット)   D  日時順 (古い方から)
              G  グループ (ディレクトリから) -  降順
  /P          1 画面ごとに停止して表示します。
  /Q          ファイルの所有者を表示します。
  /R          ファイルの代替データ ストリームを表示します。
  /S          指定されたディレクトリおよびそのサブディレクトリのすべての
              ファイルを表示します。
  /T          どのタイム フィールドを表示するか、または並べ替えに使用するかを
              指定します。
  タイムフィールド
              C  作成
              A  最終アクセス
              W  最終更新
  /W          ワイド一覧形式で表示します。
  /X          このオプションは MS-DOS 形式以外のファイル名に対する短い名前を
              表示します。長い名前の前に短い名前を表示する点を除けば、
              /N オプションと同じです。短い名前がない場合は、ブランクに
              なります。
  /4          4 つの数字で年を表示します。

環境変数 DIRCMD にスイッチを設定できます。
/-W のように - (ハイフン) を前に付けると、そのスイッチは無効になります。

E:\NHK_hta_2_2_1\flv>dir /a
 ドライブ E のボリューム ラベルは ボリューム です
 ボリューム シリアル番号は 7241-94CD です

E:\NHK_hta_2_2_1\flv のディレクトリ

2013/04/04  06:06    <DIR>          .
2013/04/04  06:06    <DIR>          ..
2013/04/04  06:08         5,792,894 ラジオ英会話_2013-03-25.flv
               1 個のファイル           5,792,894 バイト
               2 個のディレクトリ  362,907,049,984 バイトの空き領域

E:\NHK_hta_2_2_1\flv>
E:\NHK_hta_2_2_1\flv>
E:\NHK_hta_2_2_1\flv>
E:\NHK_hta_2_2_1\flv>flvstreamer /?
'flvstreamer' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

E:\NHK_hta_2_2_1\flv>flvstreamer ?
'flvstreamer' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

E:\NHK_hta_2_2_1\flv>flvstreamer
'flvstreamer' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

E:\NHK_hta_2_2_1\flv>cd ..

E:\NHK_hta_2_2_1>flvstreamer /?
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
ERROR: You must specify a hostname (--host) or url (-r "rtmp://host[:port]/playpath") containing a hostname

E:\NHK_hta_2_2_1>flvstreamer help
FLVStreamer v2.1c1
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
ERROR: You must specify a hostname (--host) or url (-r "rtmp://host[:port]/playpath") containing a hostname

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp4
'rtmp:' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp4
'rtmp:' は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチ ファイルとして認識されていません。

E:\NHK_hta_2_2_1>rtmpdump
RTMPDump v2.2d
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
ERROR: You must specify a hostname (--host) or url (-r "rtmp://host[:port]/playpath") containing a hostname

E:\NHK_hta_2_2_1>rtmpdump -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-197.mp4"
RTMPDump v2.2d
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
WARNING: You haven't specified an output file (-o filename), using stdout
Connecting ...
INFO: Connected...
Starting download at: -0.001 kB
INFO: Metadata:
INFO:   duration              900.77
INFO:   moovPosition          32.00
INFO:   audiocodecid          mp4a
INFO:   aacaot                2.00
INFO:   audiosamplerate       44100.00
INFO:   audiochannels         1.00
INFO: trackinfo:
INFO:   length                39724032.00
INFO:   timescale             44100.00
INFO:   language              eng
INFO: sampledescription:
INFO:   sampletype            mp4a
ERROR: Download: Failed writing, exiting!

E:\NHK_hta_2_2_1>rtmpdump -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-198.mp4" -o "fl
v\ラジオ英会話_2013-03-26.flv"
RTMPDump v2.2d
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
INFO: Connected...
Starting download at: 0.000 kB
INFO: Metadata:
INFO:   duration              900.77
INFO:   moovPosition          32.00
INFO:   audiocodecid          mp4a
INFO:   aacaot                2.00
INFO:   audiosamplerate       44100.00
INFO:   audiochannels         1.00
INFO: trackinfo:
INFO:   length                39724032.00
INFO:   timescale             44100.00
INFO:   language              eng
INFO: sampledescription:
INFO:   sampletype            mp4a
5657.123 kB / 900.75 sec (99.9%)
Download complete

E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>
E:\NHK_hta_2_2_1>rtmpdump -r "rtmp://flv.nhk.or.jp/ondemand/mp4:flv/gogaku/streaming/mp4/1284L2S8ZZWWQ4/12-er-4235-198.mp4" -o "fl
v\ラジオ英会話_2013-03-26.flv"
RTMPDump v2.2d
(c) 2010 Andrej Stepanchuk, Howard Chu, The Flvstreamer Team; license: GPL
Connecting ...
INFO: Connected...
Starting download at: 0.000 kB
INFO: Metadata:
INFO:   duration              900.77
INFO:   moovPosition          32.00
INFO:   audiocodecid          mp4a
INFO:   aacaot                2.00
INFO:   audiosamplerate       44100.00
INFO:   audiochannels         1.00
INFO: trackinfo:
INFO:   length                39724032.00
INFO:   timescale             44100.00
INFO:   language              eng
INFO: sampledescription:
INFO:   sampletype            mp4a
5657.123 kB / 900.75 sec (99.9%)
Download complete

名前	ユーザIDを使用しないで書き込む	ユーザーIDを使う	ログインする
画像コード	画像に記載されている文字を下のフォームに入力してください。
備考	「http://」を含む投稿は禁止されています。
本文
利用規約をご確認のうえご記入下さい

ポチの玉手箱

lib\vr\vrcomctl.rb(1094): class VRTrackbar < VRNotifyControl

lib\vr\vrcontrol.rb(1248):

hta

xmlファイル

xmlファイル

random_table

random_manager

実行ログ

実行結果２

実行結果３

xmlファイル

download.bat

バッチ逐次実行

xmlファイル

xmlファイル

xmlファイル

xmlファイル

xmlファイル

xmlファイル

コメントをかく

Menu

最近のメニュー

過去のメニュー

最近更新したページ

2024-05-26

2024-05-07

2024-05-01

2024-04-08

2024-01-03

2024-01-01

2023-10-01

2023-08-18

2023-01-11

2022-11-19

2022-08-02

2022-07-19

2022-07-10

2022-07-07

2022-06-30

2022-06-01

2022-05-15

最新コメント

2017-08-16

2017-08-15

2017-03-05

2010-11-25

2010-11-17

QRコード

アクセス解析中