リファレンス 24 ドキュメント 7 サンプル 32
Artlet2D 11 basic 48 comobj 19 d3module 27 demo 1 elm2d 9 game 20 hgimg 12 hgimg3 44 hgimg4 15 HIDaspx 2 hsp3dish 12 hsp3imp 1 hspcl 10 hspcv 5 hspda 10 hspdb 3 hspdx 5 hspext 17 hspinet 14 hspprint 2 hspsock 5 hsptv 4 hsptvapp 1 hspusbio 1 llmod3 9 misc 12 module 8 new 21 obaq 13 SQLele 3 ssaver 1

comobj

Path : sample\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 - 2015/05/27
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 - 2015/05/27
comtest2.hsp
#define navigate "Navigate" mes "InternetExplorerコンポーネントを起動します。
sample\comobj\comtest2.hsp - 2015/05/27
comtest3.hsp
#define IID_IImgCtx "{3050f3d7-98b5-11cf-bb82-00aa00bdce0b}" #define CLSID_IImgCtx "{3050f3d6-98b5-11cf-bb82-00aa00bdce0b}" #usecom ImgCtx IID_IImgCtx CLSID_IImgCtx #comfunc IImgCtx_Load 3 wstr,int #comfunc IImgCtx_GetStateInfo 8 var,var,int
sample\comobj\comtest3.hsp - 2015/05/27
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 - 2015/05/27
comtest5.hsp
WSHを使う newcom wshSHell, "WScript.Shell" comres res mcall wshSHell, "Popup", "メッセージです", 5, "テスト", 3|48 if stat : dialog "COM呼び出しのエラーです。
sample\comobj\comtest5.hsp - 2015/05/27
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 - 2015/05/27
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 - 2015/05/27
comtest8.hsp
正規表現(RegExp)を使った検索 #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 - 2015/05/27
comtest9.hsp
正規表現(RegExp)を使った置換 #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 "置換結果
sample\comobj\comtest9.hsp - 2015/05/27
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 - 2015/05/27
htmlput.hsp
プログラム内で生成したhtmlを表示するサンプル IEコンポーネントをウィンドウ上に配置して、その中に 任意のhtmlコードを表示します。 axobj ie, "Shell.Explorer.2", ginfo_winx, ginfo_winy if stat == -1 { dialog "ActiveXコントロールの配置に失敗しました。
sample\comobj\htmlput.hsp - 2015/05/27
imgload.hsp
#include "mod_img.as" title "ImgCtxによる画像読み込み" dialog "BMP *.JPG *.PNG *.GIF *.ICO *.TIFF",16 if stat = 0 : end imgload refstr title "読み込み完了" stop
sample\comobj\imgload.hsp - 2015/05/27
itunes_mon.hsp
COM経由でiTunesを使うサンプル appleが配布しているiTunesと連携して動作するものです。 再生と停止、再生中の曲情報などを取得できます。
sample\comobj\itunes_mon.hsp - 2015/05/27
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 - 2015/05/27
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 - 2015/05/27
sapi_speech.hsp
音声合成を使って喋らせます。 Windows XP以降の環境であれば、標準で音声合成が利用できます。 以下のスクリプトは、変数wordに代入された文字列を発音します。 このスクリプトでは英語しか話すことができません。 Windows XPでない人や、日本語を喋らせたいという人に向けては、 MS Agentというシステムが用意されています。 こちらのページから、日本語のシステムや、音声合成エンジンを ダウンロードすることができます。
sample\comobj\sapi_speech.hsp - 2015/05/27
swfload.hsp
#include "mod_img.as" ActiveXによってflashコンポーネントを呼び出して表示します。 FLASHファイルは、基本的にIEコンポーネントなどで表示させることが可能ですが (サンプルのcomtest2.hspなどで試してみてください)、直接Flashオブジェクトを利用して swfファイルをウィンドウ内で再生することで、細かいコントロールを行なうことが可能です。
sample\comobj\swfload.hsp - 2015/05/27
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 - 2015/05/27