忍者ブログ

[PR]

2024年03月19日
×

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

自己責任でお願いします。

2010年06月07日
### ネット接続 ###
# out...(ret.)    0...接続している/接続した    1...接続失敗

sub NetConnect

    WifiNow                = regread( "HKLM" , "System\State\Hardware" , "Wifi" )
    CellularNow        = regread( "HKLM" , "System\State\Connections\Cellular", "Count")
    AsNow                    = regread( "HKLM" , "Drivers\USB\FunctionDrivers", "ActiveSyncConnected")
    ipAddr                = regread( "HKLM" , "Comm\Tcpip\Hosts\dtpt_peer" , "ipaddr" )
    ipAddrFlg            = RegValueExists( "HKLM" , "Comm\Tcpip\Hosts\dtpt_peer", "ipaddr" )

    if (CellularNow > 0)
        return(0)
    else
        if((WifiNow = 19) or (WifiNow = 23) or (WifiNow = 27))
            return(0)
        else
            if (AsNow = 1 && ipAddrFlg = TRUE)
                #ActiveSync接続済みでIPアドレス割り当て済み
                return(0)
            else
                if (AsNow = 1 && ipAddrFlg = FALSE)
                    #ActiveSync接続済みでIPアドレス割り当てなし
                    return (1)
                else
                    if (CellularNow = 0)
                        # 回線接続する
                        Connect(ConnectName[InternetConnect])
                        for p = 0 to 20
                            if (regread( "HKLM" , "System\State\Connections\Cellular" , "Count" ) > 0)
                                p = 20
                            else
                                Sleep( 500 )
                            endif
                        next

                        NetConnect    = regread("HKLM","System\State\Connections","Count")
                    endif

                    return( NetConnect = 0 )
                endif
            endif
        endif
    endif
endsub


一応0.5秒おきに接続確認して確認したら即抜け設定。
10秒間だけ待機します。
いままでのは問答無用で8秒待機にしてたので待ち時間がなくなって快適かもよ~

拍手[0回]

PR

自作MortScript修正

2010年05月17日
各スクリプトを修正したのでアップしておきます。

■ 天気情報取得スクリプト

2010/05/17 (Mon) ネット接続部分修正

tenki.mscr Download


■ ピンポイント天気情報取得スクリプト

2010/05/17 (Mon) ネット接続部分修正

tenki24.mscr Download


■ 花粉情報取得スクリプト

2010/05/17 (Mon) ネット接続部分修正
 地域設定ページ変更に伴なうソース修正

pollen.mscr Download


■ 電車運行情報取得スクリプト

2010/05/17 (Mon) ネット接続部分修正

train.mscr Download


■ MSN産経ニュース取得スクリプト

2010/05/17 (Mon) ネット接続部分修正

news.mscr Download

拍手[3回]

今日の予定を表示する MortScript

2010年04月28日
定義ファイルを読み込んで今日は何の日かをレジストリに登録します。

20100428090549.jpg

※ 赤枠で囲まれた部分です。

前後土日祝の予定移動も考慮して前後3日分をレジストリに書き出しています。
定義ファイルをかきたせば自由に増やせますが処理時間がかなりかかりますのでご注意ください。

付属の○○週間の表示をつけた場合3分ぐらいかかりました・・・

ダウンロード(zip)

拍手[1回]

ピンポイント天気表示

2010年04月25日
Pinpoint.jpg

tenki.jp よりピンポイント天気を取得します。
更新間隔は3時間ごとです。

ダウンロード(zip)

・リクエスト募集中

拍手[3回]

24時間天気予報

2010年04月24日


作成中。
地域が多すぎて選択画面の選択肢がはみ出した(@・ω・@)

拍手[5回]

 | HOME | 次のページ »