//--liween Ver0.52--
//
//--ユーザー設定（環境に合わせて設定してください）---
mybr=1   　//IE:0 sleipnir:1 FireFox:2 chrome:3
ret=0    　//転送後すぐに送信 する:1 しない:0(デフォルト)
ins=1    　//置換え形式：0　挿入形式:1
hed="" 　  //ヘッダー部分のコメント。例："今見てる "
mid=""     //タイトルとURLの間のコメント(デフォルトは半角スペース)。
foot=""　  //フッター部分のコメント。
//----------------------------------------------------
dim tbnames,tbc
ifb mybr=0
	id=Getid("Internet Explorer","IEFrame",5)
	ifb id>-1
		URL=Getstr(id,2,STR_ACC_EDIT)
		stt=Status(id,ST_TITLE)
		title=Copy(stt,1,Pos(" - ",stt,1,-1))
	else
		Msgbox("Internet Explorerが立上がってないようです")
		ExitExit
	endif
elseif mybr=1
	SP=CreateOleObj("Sleipnir.API") 
	ifb SP>-1
		url=SP.URL
		title=SP.GetDocumentObject(SP.GetDocumentID(SP.ActiveIndex)).title
	else
		Msgbox("Sleipnirが立上がってないようです")
		ExitExit
	endif
elseif mybr=2
	id=Getid("Mozilla Firefox","MozillaUIWindowClass",5)
	ifb id>-1
		URL=Getstr(id,1,STR_ACC_EDIT)
		stt=Status(id,ST_TITLE)
		title=Copy(stt,1,pos(" - ",stt,1,-1))
	else
		Msgbox("Firefoxが立上がってないようです")
		ExitExit
	endif
elseif mybr=3
	id=Getid("Google Chrome","Chrome_")
	ifb id>-1
		Getitem(id,ITM_EDIT,-1)
		URL=ALL_ITEM_LIST[0]
		stt=Status(id,ST_TITLE)
		title=Copy(stt,1,pos(" - ",stt,1,-1))
	else
		Msgbox("Chromeが立上がってないようです")
		ExitExit
	endif
endif
id=Getid("Tween","WindowsForms10.Window.8")
ifb id=-1
	Msgbox("Tweenが立上がってないようです")
	ExitExit
else
	Getitem(id,ITM_BTN)
	ifb ALL_ITEM_LIST[0]="Search"
		tbc=1
	endif
endif
ifb Status(id,ST_VISIBLE)=0
	Ctrlwin(id,NORMAL)
endif
if mid="" then mid=" "
str=hed+title+mid+url+foot
ifb ins=0
Sendstr(id,str,1+tbc,1)
elseif ins=1
Sendstr(id,str,1+tbc)
endif
ifb ret
	Sckey(id,VK_RETURN)
endif
Ctrlwin(id,TOPMOST)
Ctrlwin(id,NOTOPMOST)