comobj

comtest1.hsp
シェルリンクオブジェクトのクラスID #define CLSID_ShellLink "{00021401-0000-0000-C000-000000000046}" IShellLink インターフェースのインターフェースID #define IID_IShellLinkA "{000214EE-0000-0000-C000-000000000046}" IPersistFile インターフェースのインターフェース ID #define IID_IPersistFile
sample\comobj\comtest1.hsp - 2007/07/31

comtest10.hsp
screen 0,320,150 objsize 320,30 newcom Shell, "Shell.Application" button "最小化", *win1 button "最小化復帰", *win2 button "エクスプローラー", *win3 button "シャットダウン", *win4 button "サスペンド", *win5 stop *win1 Shell->"MinimizeAll" stop *win2 Shell->"UndoMinimizeALL"
sample\comobj\comtest10.hsp - 2007/07/31

comtest2.hsp
#define navigate "Navigate" mes "InternetExplorerコンポーネントを起動します。
sample\comobj\comtest2.hsp - 2007/07/31

comtest3.hsp
title "ImgCtxによる画像読み込み" newcom pImage,ImgCtx dialog "BMP *.JPG *.PNG *.GIF *.ICO *.TIFF",16 if stat = 0 : end fname = refstr IImgCtx_Load pImage,fname,0 dim size,4 repeat IImgCtx_GetStateInfo pImage,flg,size,1 if ( flg & 0x00200000 )==0 : break wait
sample\comobj\comtest3.hsp - 2007/07/31

comtest4.hsp
XMLパーサー(MSXML)を使用してRSSを読み込む url="http: hotwired.goo.ne.jp/news/index.rdf" newcom oDom,"Microsoft.XMLDOM" oDom("async")="FALSE" 同期読み込みを行う oDom->"load" "test.xml" ファイルを指定する時 oDom->"load" url URLを指定する時 oRoot = oDom("documentElement") if varuse(oRoot)=0
sample\comobj\comtest4.hsp - 2007/07/31

comtest5.hsp
WSHを使う newcom wshSHell, "WScript.Shell" comres res mcall wshSHell, "Popup", "メッセージです", 5, "テスト", 3|48 if stat : dialog "COM呼び出しのエラーです。
sample\comobj\comtest5.hsp - 2007/07/31

comtest6.hsp
Excelを使う (MicrosoftExcelがインストールされている必要があります) newcom xlApp, "Excel.Application" xlApp("Visible") = 1 ウィンドウを表示 xlApp("DisplayAlerts") = 0 警告メッセージを表示させない xlBooks = xlApp("Workbooks") Workbooks コレクション取得 xlBook = xlBooks("Add") ワークブックを追加 xlSheet =
sample\comobj\comtest6.hsp - 2007/07/31

comtest7.hsp
IEコンポーネントを使う #define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}" #define DISPID_COMMANDSTATECHANGE 105 #define DISPID_BEFORENAVIGATE2 250 #define DISPID_NAVIGATECOMPLETE2 252 #define DISPID_ONQUIT 253 #define DISPID_ONMENUBAR
sample\comobj\comtest7.hsp - 2007/07/31

comtest8.hsp
正規表現(RegExp)を使った検索 teststr="012 3456 78 9" testptn="\\d+" mes "対象文字 \""+teststr+"\"" mes "パターン \""+testptn+"\"" newcom oReg,"VBScript.RegExp" comres result oReg("Pattern")=testptn oReg("Global")=1 oReg->"Execute" teststr oMatches=result repeat
sample\comobj\comtest8.hsp - 2007/07/31

comtest9.hsp
正規表現(RegExp)を使った置換 teststr="This is a pen." testptn="This" repstr="That" mes "対象文字 \""+teststr+"\"" mes "検索文字 \""+testptn+"\"" mes "置換文字 \""+repstr+"\"" newcom oReg,"VBScript.RegExp" comres result oReg("Pattern")=testptn oReg->"Replace"
sample\comobj\comtest9.hsp - 2007/07/31

getxls.hsp
xlsのデータを取得する myname = "test.xls" fname = dir_cur+"\\"+myname フルパスを作成する newcom xlApp, "Excel.Application" xlApp("Visible") = 0 Excelウィンドウは非表示 xlApp("DisplayAlerts") = 0 警告メッセージを表示させない xlBooks = xlApp("Workbooks") Workbooks コレクション取得 xlBooks->"Open"
sample\comobj\getxls.hsp - 2007/07/31

itunes_mon.hsp
title "iTunes monitor" screen 0,320,60:sysfont 17:objsize 120,20:pos 188,10 newcom iTunes, "iTunes.Application" button gosub "play",*i_play button gosub "pause",*i_pause *main track = iTunes("CurrentTrack") redraw 0:syscolor 15:boxf color 0,0,0:pos
sample\comobj\itunes_mon.hsp - 2007/07/31

mplayer.hsp
メディアプレーヤーを配置する axobj mp, "{22d6f312-b0f6-11d0-94ab-0080c74c7e95}",640,480 mp("ShowTracker")=1 トラックバー表示のON/OFF mp("EnableTracker")=0 トラックバーの有効/無効 mp("ShowControls")=1 コントロールボタン表示のON/OFF mp("ShowCaptioning")=0 キャプション表示のON/OFF mp("ShowAudioControls")=0
sample\comobj\mplayer.hsp - 2007/07/31

rssload.hsp
#include "mod_rss.as" RSSリーダーサンプル url="http: hotwired.goo.ne.jp/news/index.rdf" rssload desc, link, url, 6 if stat=1 : dialog "取得に失敗しました。" : end if stat=2 : dialog "RSSではありません。" : end mes "RSSの内容を表示します。
sample\comobj\rssload.hsp - 2007/07/31

sapi_speech.hsp
音声合成を使って喋らせます。 Windows XP以降の環境であれば、標準で音声合成が利用できます。 以下のスクリプトは、変数wordに代入された文字列を発音します。 このスクリプトでは英語しか話すことができません。 Windows XPでない人や、日本語を喋らせたいという人に向けては、 MS Agentというシステムが用意されています。 こちらのページから、日本語のシステムや、音声合成エンジンを ダウンロードすることができます。
sample\comobj\sapi_speech.hsp - 2007/07/31