忍者ブログ
AdminWriteComment
管理人highballが記載する、エミルクロニクルオンライン略してECOの日記でした。 が、今ではECOやって無いのでそれ以外の事も書いていこうかと思います。ゲームとか日常の雑記とかね。 (※当ブログからの収益は、すべてminecraftはいぼ鯖の増強に充てられます。)
[154]  [153]  [152]  [150]  [149]  [148]  [147]  [146]  [145]  [144]  [143

[ No. ] 2017/12/15 (Fri) 11:35:39 [ 編集 ]
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

[ No.148 ] 2011/05/17 (Tue) 16:59:30 [ 編集 ]
見てくれてる人いるのかな?
お久しぶりです。どうも、僕ですc(・H・´ と⌒c)つ彡


さて、今日はちょっとしたプログラム(スクリプト)のお話です。
私、NCV(コメントビューワー)使いながらIE8でニコニコ生放送見てるんですが、新しい放送が始まるたびに毎回NCVとIE8を起動するのがしんどくて。
しかも、他にIEを起動しちゃって、ウィンドウ位置がずれたりとかサイズ変更したまま保存して調整し直したり・・・と。
面倒だなぁ、と思っていたんです。

んで、あまりに面倒というかシステム的にもよろしくないので、初めてのVBでスクリプトを作ってみました。
VBを選んだのは、手軽でWindowsと親和性が高いからです。

環境は
・WindowsXP SP3
・InterNetExplorer8
です。
続きに仕様とスクリプトを書きます。長いので興味ない人はスルーで。

拍手[0回]


仕様は以下の通り

・スクリプト起動時にURLを引数として渡す
・起動時に、「IEを新規で開くか、既存を使用するか選択」できる
・IEを新規で開く場合、画面の左上に、特定の大きさで開く
・既存の(既に起動している)IEを使用する場合、現在のタブを上書きして放送ページを開く

以下、スクリプトを記述します。長いよ!ごめんね!

※私はVB始めてでかつ知識もBASICで止まった状態からなので、間違いなどあるかもしれません。
間違いあったら教えてもらえると助かります!


<スクリプト:ieopen.vbs>--------
Option Explicit
Const navOpenInNewTab = &H800
Const navOpenInBackgroundTab = &H1000

Dim objIE
Set objIE = Nothing 'Is Nothingでフラグチェックするため初期化
Dim objShell
Dim lngCount
Dim URL
Dim Answer

'引数をURLに格納
URL = WScript.Arguments(0)

'Shell.Applicationオブジェクトの作成
Set objShell = CreateObject("Shell.Application")

'動作選択
Answer = MsgBox ( "IEを新規に起動しますか?", vbYesNoCancel, "起動確認" )
Select Case Answer
  'はい(いまのところ処理無し)
  Case vbYes

  'いいえ(既に開いているIEを探す)
  Case vbNo
    For lngCount = 0 To ObjShell.Windows.Count - 1
      If Right(UCase(objShell.Windows(lngCount).FullName), 12) = "IEXPLORE.EXE" Then
        Set objIE = objShell.Windows(lngCount)
        Exit For '見つけたので、↑代入後、強制的にループを抜ける
      End If
    Next

    If objIE Is Nothing Then 'IEが見つけられなかったら終了する
      MsgBox "見つけられませんでした"
      WScript.Quit
    End If

  'キャンセル(処理終了)
  Case vbCancel
    MsgBox "キャンセルされました"
    WScript.Quit
End Select

'IEオブジェクトがないときは、新しく作成する
If objIE Is Nothing Then
  Set objIE = CreateObject("InternetExplorer.Application")
  'ウィンドウの大きさを変更
  objIE.Width = 612
  objIE.Height = 800

  '表示位置を変更
  objIE.Left = 0
  objIE.Top = 0

  'IE起動
  objIE.Navigate2 URL
  objIE.Visible = True

'IEオブジェクトがあるときは、タブを操作する(既存のタブを上書き)
Else
  objIE.Navigate2 URL '既存のタブ
End If

WScript.Quit

-----ここまで
PR
この記事にコメントする
お名前
タイトル
文字色
コメント
パスワード   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
この記事へのトラックバック
この記事にトラックバックする:
[154]  [153]  [152]  [150]  [149]  [148]  [147]  [146]  [145]  [144]  [143
いらっしゃいませ(゚∀゚)
MyContents
カレンダー
11月<< 2017年12月 >>01月
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
ブログ内検索
プロフィール
中の人:highball(はいぼぅる)
誕生日:02/16
職業:ハイボニア国王
趣味:ゲームとかパソコンとかアニメ
現在は、「はいぼ鯖@minecraft」の管理人をしています。ほとんど身内用の弱小過疎鯖です
ヽ(´▽`)ノ
ゲーム好きですがゲーマーにはなりきれない。プログラミングやハードウェアも知ってますが精通するほどではない。そんな広く浅いボクです。
【ゲーム等で使用するキャラ名】
ルミーナ
セレンシア
はいぼぅる(ハイボゥル)
・・・等

【現在】
PSO2
[1]ルミーナ/♀/ニューマン/Ship4

【旧情報】
ECOキャラ
[1]セレンシア/♀/タイタニア/$orバード
[2]ルミーナ/♀/エミル/剣士
[3]はいぼぅる/♂/エミル/商人
[4]アンリナート/♀/ドミニオン/ウォーロック

(コメント)中のひとが男か女かだって?そんな細かいこと気にするもんじゃないよ。ロールプレイングゲームは「役割を演じるゲーム」。現実にはできないことをやるのが本則だと信じて疑っていません。
だから、♀キャラばっかり使っていてもきっとネカマとかそういうのではないと思う。よ?

連絡はこちら:
webhighball(。◕ˇдˇ◕。)gmail.com
※顔文字をあっとまーくにしてください
管理人とゲーム
【現状最もプレイしているゲーム】
PSO2 [PC]
Minecraft [PC]
Dragon's Dogma(国内版) [PS3]
TES5 Skyrim [PC]
ダークソウル(国内版)[PS3]
ArmordCoreV [PS3]
・ドラゴンコレクション [GREE]

【借りてるゲーム】
METALGEARSOLID4 [PS3]

【最近やった / やっているゲーム】
・TES4 Oblivion [PC]
モンスターハンターP3(国内版)[PSP]
デモンズソウル(国内版)[PS3]
エミルクロニクルオンライン(国内版)[PC]
モンスターハンターP2G(国内版)[PSP]
・モンスターハンター3(国内版)[Wii]
・Red Dead Redemption(国内版)[PS3]
【詰みゲー】
・FINALFANTASY12 [PS2] ・DISSIDIA 012 FF(国内版)[PSP]
・COD4 MW(国内版)[PS3]

【管理人のオンラインゲーム遍歴】
・ウルティマオンライン(国内版)[PC]
・カウンターストライク(国内版)[PC]
・エバークエスト(海外版)[PC]
・ダークエイジオブキャメロット(海外版)[PC]
・ファンタシースターオンライン(国内版)[PC]
・ラグナロクオンライン(国内版)[PC]
※本腰を入れてプレイしたことのあるもののみ記載。

最新コメント
・・・・・。(08/07)
Minecraft(06/24)
しまった~(返信済)(05/07)
ありがとうございます(返信済)(04/11)
質問です(返信済)(04/10)
すぽんさーど広告
amazon
【商品検索】



buy from amazon
バーコード
アクセス解析
忍者ブログ [PR]