忍者ブログ

[PR]

2017年08月22日
×

[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
Comment
  Vodafone絵文字 i-mode絵文字 Ezweb絵文字
Trackback
トラックバックURL: