HSPTV!掲示板

mesboxのスクロールバーの情報取得(スクロール位置の取得)ができません。
頂いたサンプルなんですが、mesboxのスクロールを実現したいのですが
mesboxのスクロールの位置が取得できません。
どうすればいいか教えて下さい。よろしくお願いします

#include "user32.as"
#define global WM_SIZE    0x5
#define global WS_VSCROLL   0x200000
#define global GWL_STYLE   -16
#define global SWP_NOSIZE   0x1
#define global SWP_NOMOVE   0x2
#define global SWP_NOZORDER  0x4
#define global SWP_FRAMECHANGED 0x20
#define global SB_VERT    1
#define global SIF_RANGE   0x1
#define global SIF_PAGE   0x2
#define global SIF_POS    0x4
#define global SIF_TRACKPOS  0x10
#define global SIF_ALL    0x17
#define global TRUE    1
#define global SM_CXVSCROLL  $00000002
#define global WM_VSCROLL   $00000115   ;垂直スクロールメッセージ


 gsel 0, -1
 xpic = 640
 ypic = 480
 screen 1, xpic, ypic, 0, 0, 0, xpic / 3, ypic / 4

 oncmd gosub *SCROLL, WM_VSCROLL ; ONでスクリーン側のスクロールを取得します。

 dim si, 7
 si.0 = 28
 si.1 = SIF_ALL
 si.2 = 0
 si.3 = ypic - 1
 si.4 = 0
 si.5 = 0
 si.6 = 0

a="a\nb\nc\nd\ne\nf\ng\nh\ni\nj\nk\nl\n\m\nn\no\np\nq\nr\ns\nt\nu\nv\nw\nx\ny\nz"
mesbox a,100,100 : hhwnd = objinfo(stat,2)


repeat
 GetScrollInfo hwnd, SB_VERT, varptr(si) ; hhwndを指定しても動きません;;
 si(5)=bar_pos
 SetScrollInfo hwnd, SB_VERT, varptr(si), 1 ; hhwndを指定しても動きません;;
 title ""+stat
wait 1
loop

 
*SCROLL
 oncmd 0

 wp=wparam
 bar_pos=(wp>>16)&$ffff
 GetScrollInfo hwnd, SB_VERT, varptr(si)
 si(5)=bar_pos
 SetScrollInfo hwnd, SB_VERT, varptr(si), 1
 title ""+stat
 oncmd 1
 return

hwndをhhwndに変更

#include "user32.as"

#define SB_VERT    1

a="a\nb\nc\nd\ne\nf\ng\nh\ni\nj\nk\nl\n\m\nn\no\np\nq\nr\ns\nt\nu\nv\nw\nx\ny\nz"
mesbox a,100,100 : hhwnd = objinfo(stat,2)
repeat
 GetScrollPos hhwnd,SB_VERT ; hhwndを指定しても動きません;;
 title ""+stat
 wait 1
loop
stop

全然違う事をしてました
ありがとうございます