1について
「全角も一文字として認識されちゃうもの」というのは、具体的にどういう方法でしょうか。
こちらで調べましたところ、選択位置取得には
EM_GETSEL($00B0)メッセージを送るという方法があるようです。
ほかの方法なんてほとんどないだろうし、sendmsgをつかっているということから、
あなたの「全角も一文字として認識されちゃうもの」はこれを指しているという前提で以下を書きます。
僕も試してみたところkerupaniさんの言うように、バイト数ではなく文字数単位で取得されました。
しかしその後、mesboxだとバイト数になることを発見しました。
同じエディットボックスコントロールなはずなのに。
ということで、CreateWindow関数を使ってウィンドウを自作したところ、うまくいきました。
なにかinputのスタイルに問題でもあったのでしょうか。
サンプル？
#uselib "USER32.DLL"
#func CreateWindowEx "CreateWindowExA" int,int,int,int,int,int,int,int,int,int,int,int
#define WS_CHILD $40000000
#define WS_VISIBLE $10000000
#define WS_BORDER $00800000
#define EM_GETSEL $00B0
ClassName = "Edit" //クラス名（エディットコントロール）
WindowName= "TESTてすと" //内容
px=0 : py=0 //pos
sx=200 : sy=24 //size
winStyle=WS_CHILD | WS_VISIBLE | WS_BORDER //ウィンドウスタイル
CreateWindowEx 0, varptr(ClassName), varptr(WindowName), winStyle, px, py, sx, sy, hwnd, 0, 0, 0
hedit = stat //コントロールのウィンドウハンドル
pos ,py+sy
objsize 128
button "選択位置取得",*getpos
mes "選択位置(最初:最後)"
stop
*getpos
dim Position,2
sendmsg hedit,EM_GETSEL,varptr(Position.0),varptr(Position.1) //EM_GETSELを送る
mes "" + Position.0 + ":" + Position.1 //Position.0に選択範囲の最初、.1に最後の位置がバイト単位で入ります。
stop
inputと見た目がだいぶ違いますが、ご勘弁を。
ウィンドウスタイルをいじってみてください。
スクリプトが分かりにくい？ すいません。
inputについて (文字列型変数使いました)
