自己責任でお願いします。ごぜん日記

[PR]

2024年11月21日

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

Category・

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