|
UWSCランチャーコードサンプル
CONST KEY_OPE_TIME = 10
TOP_SELECT()
PROCEDURE TOP_SELECT()
//SLCTBOXの項目の最大数は31まで
APPLI = SLCTBOX( SLCT_BTN, 0, "ランチャーメニュー", "インターネット",_ //CASE SLCT_1
"フォルダ",_ //CASE SLCT_2
"メモ帳",_ //CASE SLCT_3
"test",_ //CASE SLCT_4
"PowerPoint",_ //CASE SLCT_5
"差分比較",_ //CASE SLCT_6
"UWSC",_ //CASE SLCT_7
"エクセル")_ //CASE SLCT_8
"戻る") //DEFAULT
SELECT APPLI
CASE SLCT_1
//【インターネット】-----------------------------------------------------------------------------------
APPLI_INTERNET = SLCTBOX( SLCT_BTN, 0, "開くサイトを選択してください", "test1",_ //CASE SLCT_1
"test2")_ //CASE SLCT_2
"戻る") //DEFAULT
SELECT APPLI_INTERNET
CASE SLCT_1
//test1-----------------------------------------------------------------------------
AURL = "http"
IE = IE_LAST_HALF_OPE( AURL )
CASE SLCT_2
//test2-----------------------------------------------------------------------------
AURL = "http"
IE = IE_LAST_HALF_OPE( AURL )
DEFAULT
//戻るが押された場合-------------------------------------------------------------
TOP_SELECT()
SELEND
CASE SLCT_2
//【フォルダ】-----------------------------------------------------------------------------------
APPLI_FOLDER = SLCTBOX( SLCT_BTN, 0, "開くフォルダを選択してください", "test1",_ //CASE SLCT_1
"test2")_ //CASE SLCT_2
"戻る") //DEFAULT
wss = createoleobject( "wscript.shell" )
SELECT APPLI_FOLDER
CASE SLCT_1
//test1-----------------------------------------------------------------------------
objrun = wss.run("<#DBL>C:\Users\"<#DBL>)
//パス中にスペースがある場合<#DBL>で囲むとうまくいく場合がある
CASE SLCT_2
//test2-----------------------------------------------------------------------------
DEFAULT
//戻るが押された場合-------------------------------------------------------------
TOP_SELECT()
SELEND
CASE SLCT_3
//【メモ帳】-----------------------------------------------------------------------------------
Exec( "notepad" )
CASE SLCT_4
//【test】-----------------------------------------------------------------------------------
//自作のUWSファイルを呼ぶこともできる
//call ***.UWS
CASE SLCT_5
//【ppt】-----------------------------------------------------------------------------------
//からのPPTを用意しておきそれを開く
PPT_PATH = "C:\Users\"
PPT = CREATEOLEOBJ( "PowerPoint.Application" )
PPT.visible = True
PPT.Presentations.Open( FileName := PPT_PATH )
CASE SLCT_6
//【差分比較ツール】-----------------------------------------------------------------------------------
//WinMarge
Exec("C:\Program Files\")
CASE SLCT_7
//【UWSC】-----------------------------------------------------------------------------------
APPLI_UWSC = SLCTBOX( SLCT_BTN, 0, "開くファイルを選択してください", "ランチャーコード",_ //CASE SLCT_1
"UWSC"_) //CASE SLCT_2
"ヘルプ"_) //CASE SLCT_3
"戻る") //DEFAULT
wss = createoleobj( "wscript.shell" )
SELECT APPLI_UWSC
CASE SLCT_1
objrun = wss.run("<#DBL>C:\Users\<#DBL>")
CASE SLCT_2
objrun = wss.run("<#DBL>C:\Users\<#DBL>")
CASE SLCT_3
objrun = wss.run("<#DBL>C:\Users\<#DBL>")
DEFAULT
//戻るが押された場合-------------------------------------------------------------
TOP_SELECT()
SELEND
CASE SLCT_8
//【エクセル】-----------------------------------------------------------------------------------
APPLI_EXCEL = SLCTBOX( SLCT_BTN, 0, "開くブックを選択してください", "test1",_ //CASE SLCT_1
"test2",_ //CASE SLCT_2
"戻る") //DEFAULT
SELECT APPLI_EXCEL
CASE SLCT_1
EXCEL_PATH = "C:\Users\"
EXCEL_LAST_HALF_OPE( APPLI_EXCEL )
CASE SLCT_2
CASE SLCT_3
DEFAULT
//戻るが押された場合-------------------------------------------------------------
TOP_SELECT()
SELEND
//戻るボタンを一度でも押した場合は再起処理を行っているが、再起処理終了後の戻り先で続きの処理をしようとする。
//それを防ぐため、目的の処理を完了した場合(=再起処理が呼ばれなかった場合)処理を強制終了させるためEXITEXITを呼びでしている。
EXITEXIT
FEND
//IE後半部処理
FUNCTION IE_LAST_HALF_OPE( AURL )
IE = CREATEOLEOBJ( "InternetExplorer.Application" )
IE.visible = True
IE.navigate( AURL )
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4
//第三引数の-1はウインドウが出るまで待つ
CTRLWIN( GETID( "Internet Explorer", , -1 ), MAX )
CTRLWIN( GETID( "Internet Explorer", , -1 ), ACTIVATE )
RESULT = IE
FEND
//エクセル後半部処理
PROCEDURE EXCEL_LAST_HALF_OPE( EXCEL_PATH )
EXCEL = CREATEOLEOBJ( "Excel.Application" )
EXCEL.visible = True
Excel.WorkBooks.Open( FileName := EXCEL_PATH )
FEND
|
|