ごぜん日記

### ネット接続 ###
# 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回]

各スクリプトを修正したのでアップしておきます。

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

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回]

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



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

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

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

ダウンロード(zip)

[1回]

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

ダウンロード(zip)

・リクエスト募集中

[3回]

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

[5回]