Winsockを使ってルータへ接続するには？ (ID:90741)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめまして、初心者666号です。 Winsockを使ったネットワーク構築の準備として、PCのCOM1ポートに繋いだルータへ、Winsockを使って接続したいのですがうまくいきません。 ネットで調べてもサーバへ繋ぐ方法は出ているのですが、ルータへ繋ぐ方法は載っておらず、困っています。 現状のコードは以下の通りです。 Private Sub Winsock1_Close() Login1_Winsock1.Close '接続を閉じる Unload Me Private Sub Command1_Click() '変数の定義 Dim hst As String Dim ptn As String hst = "Router1" ptn = "COM1" '←COM1の部分にはCOM1ポートに相当するポート番号 'が入ると思われる 'ここでTelnetに接続する。 Winsock1.Close '以前の接続が残っていた時の対策 Winsock1.RemoteHost = hst Winsock1.RemotePort = ptn '←ポート番号に関する問題でエラー Winsock1.Connect また、接続後に接続が確立したかを確かめたいので、その方法も教えて頂けないでしょうか？