できました!!今まで協力してくださった皆さん、ありがとうございます。
手順を説明します。
1.
https://hsp.moe/#hspdsc
のhspdsc.dllをダウンロードする。
2.そこから"libzbar.as","libzbar-0.dll","libiconv-2.dll","hspdsc.dll","hspdsc.as"
,"color2gray.dll","color2gray.as"を同じフォルダに入れる。
3.下のスプリクトを入力する。
<// hspカメラ表示スプリクト
#include "hspdsc.as"
#include "libzbar.as"
dsc_Init
size = dsc_GetDeviceListSize()
if size <= 0 : dialog "サイズ取得エラー" : end
sdim devlist, size
dsc_GetDeviceList devlist
if stat == 0 : dialog "デバイスが見つかりません" : end
dsc_GetDeviceList devlist
id=0
dsc_SetActiveSel 0
dsc_Open id, 0, 0, 0, 0
if stat < 0 : dialog "エラーが発生しました\nstat = " + stat, 1, "DEVICE-ERROR" : stop
gsel 0, 1
dsc_Play2
repeat
wait 12
sdim dibdata, dsc_GetImageMemSize(0)
sdim dibhead, dsc_GetImageMemSize(1)
dibsize = dsc_GetImageMemSize(0)
dsc_GetImageMem dibdata, dibsize, dibhead
x = lpeek(dibhead, 4)
y = lpeek(dibhead, 8)
GetBarCodeStart dibdata, x, y
n = stat
if n <= 0 : continue
repeat n
GetBarCodeData cnt, buf
iTyp = stat
if iTyp == 10 || iTyp == 14 {
GetBarCodeType iTyp
dialog ""+refstr+"\n"+buf
}
loop
BarCodeDestroy
loop
stop>