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 - 2021/07/29

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 - 2021/07/29

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

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 - 2021/07/29

comtest4.hsp
XMLパーサー(MSXML)を使用してRSSを読み込む url="http: www.metro.tokyo.jp/rss/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 - 2021/07/29

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

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 - 2021/07/29

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 - 2021/07/29

comtest8.hsp
#include "mod_regexp.as" teststr="012 3456 78 9" testptn="\\d+" mes "対象文字 \""+teststr+"\"" mes "パターン \""+testptn+"\"" matches result, teststr, testptn, 0, 0, 0 repeat stat mes "#"+cnt+"="+result(cnt) loop stop
sample\comobj\comtest8.hsp - 2021/07/29

comtest9.hsp
#include "mod_regexp.as" teststr="This is a pen." testptn="This" repstr="That" mes "対象文字 \""+teststr+"\"" mes "検索文字 \""+testptn+"\"" mes "置換文字 \""+repstr+"\"" result = replace( teststr, testptn, repstr, 0, 0, 0 ) mes "置換結果 \""+result+"\""
sample\comobj\comtest9.hsp - 2021/07/29

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 - 2021/07/29

htmlput.hsp
プログラム内で生成したhtmlを表示するサンプル IEコンポーネントをウィンドウ上に配置して、その中に 任意のhtmlコードを表示します。 axobj ie, "Shell.Explorer.2", ginfo_winx, ginfo_winy if stat == -1 { dialog "ActiveXコントロールの配置に失敗しました。
sample\comobj\htmlput.hsp - 2021/07/29

imgload.hsp
title "ImgCtxによる画像読み込み" dialog "BMP *.JPG *.PNG *.GIF *.ICO *.TIFF",16 if stat = 0 : end imgload refstr title "読み込み完了" stop
sample\comobj\imgload.hsp - 2021/07/29

itunes_mon.hsp
title "iTunes monitor" screen 0,320,60:sysfont 17:objsize 120,20:pos 188,10 newcom iTunes, "iTunes.Application" if varuse(iTunes)=0 { dialog "iTunesが見つかりません" : end } button gosub "play",*i_play button gosub "pause",*i_pause *main track =
sample\comobj\itunes_mon.hsp - 2021/07/29

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 - 2021/07/29

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

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

swfload.hsp
title "swfファイルを読み込んで再生します" dialog "swf",16 if stat = 0 : end fname = refstr axobj obj,"ShockwaveFlash.ShockwaveFlash",640,480 obj->"LoadMovie" 0, fname obj->"Play" stop
sample\comobj\swfload.hsp - 2021/07/29

web.hsp
IEコンポーネントを使ったブラウザ #define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}" #define DISPID_NAVIGATECOMPLETE2 252 cls 1 sdim url,512 url="http: hsp.tv/" objsize 600,24 pos 0,2:mes "URL:" pos 0,26:mes "WEB Browser Sample" pos 40,0:input
sample\comobj\web.hsp - 2021/07/29