モデムをプログラムで制御するにはどうすればいいですか?

Question 1

AutoHotkey.com が役に立つかもしれません。

確実に動作させるための重要なコツは、正しいアプローチを使用することだと考えています。Microsoft Windows にキーストロークをダンプして、Windows がそれをフォアグラウンドアプリケーションに渡すだけでは、最も安定した方法とは言えません。以下は、PuTTY と対話するために使用したコードの一部です。このコードは十分に機能し、スクリプトを開始して PuTTY を起動することができ、その後、PuTTY がバックグラウンドにある場合でも、プログラムは PuTTY の正しいインスタンスと対話できました。

(おそらく、このサンプルコードを大幅に変更することになるでしょう。)

sPuTTYloc:="C:\Users\\me\PuTTY\PuTTY.exe"
sSiteName:="NameOfSite"
Run, "%sPuTTYloc%" -load "%sSiteName%",,UseErrorLevel,sPuTTYPID

    if %sPuTTYPID%
    {
        WinWait, ahk_pid %sPuTTYPID%
        sleep ,5000
        IfWinExist,ahk_pid %sPuTTYPID%
        {
            ControlSend,,{Enter},ahk_pid %sPuTTYPID%
; other stuff
        else
        {
MsgBox "PuTTY Window closed, spot #1"
            return ; Apparently the PuTTY window closed
        }
        Sleep 1500
        IfWinExist,ahk_pid %sPuTTYPID%
        {
            ; do other stuff
        }
        else
        {
MsgBox "PuTTY Window closed, spot #2"
            return ; Apparently the PuTTY window closed
        }
        Sleep 1500
        return
    }
return

依然として「IfWinExist」を複数回呼び出して、処理を細分化している理由は、必ずしも説得力のあるものではありません。スクリプトを作成して最初にデバッグしていたとき、リモート側が接続を終了すると (PuTTY ウィンドウが閉じる)、デバッグに役立つ (または少なくとも何が起こっているかをよりよく理解できる) ことがわかりました。

重要なのは、ControlSend を使用して、Run コマンドによって作成された PID を使用するプログラムにキーストロークを与えることで、何か問題が発生した場合でも、スクリプトが Windows にキーストロークを送信し続けず、キーストロークが間違ったプログラムに送信されてしまうことがなくなることです。

Answer

AutoHotkey.com が役に立つかもしれません。

確実に動作させるための重要なコツは、正しいアプローチを使用することだと考えています。Microsoft Windows にキーストロークをダンプして、Windows がそれをフォアグラウンドアプリケーションに渡すだけでは、最も安定した方法とは言えません。以下は、PuTTY と対話するために使用したコードの一部です。このコードは十分に機能し、スクリプトを開始して PuTTY を起動することができ、その後、PuTTY がバックグラウンドにある場合でも、プログラムは PuTTY の正しいインスタンスと対話できました。

(おそらく、このサンプルコードを大幅に変更することになるでしょう。)

sPuTTYloc:="C:\Users\\me\PuTTY\PuTTY.exe"
sSiteName:="NameOfSite"
Run, "%sPuTTYloc%" -load "%sSiteName%",,UseErrorLevel,sPuTTYPID

    if %sPuTTYPID%
    {
        WinWait, ahk_pid %sPuTTYPID%
        sleep ,5000
        IfWinExist,ahk_pid %sPuTTYPID%
        {
            ControlSend,,{Enter},ahk_pid %sPuTTYPID%
; other stuff
        else
        {
MsgBox "PuTTY Window closed, spot #1"
            return ; Apparently the PuTTY window closed
        }
        Sleep 1500
        IfWinExist,ahk_pid %sPuTTYPID%
        {
            ; do other stuff
        }
        else
        {
MsgBox "PuTTY Window closed, spot #2"
            return ; Apparently the PuTTY window closed
        }
        Sleep 1500
        return
    }
return

依然として「IfWinExist」を複数回呼び出して、処理を細分化している理由は、必ずしも説得力のあるものではありません。スクリプトを作成して最初にデバッグしていたとき、リモート側が接続を終了すると (PuTTY ウィンドウが閉じる)、デバッグに役立つ (または少なくとも何が起こっているかをよりよく理解できる) ことがわかりました。

重要なのは、ControlSend を使用して、Run コマンドによって作成された PID を使用するプログラムにキーストロークを与えることで、何か問題が発生した場合でも、スクリプトが Windows にキーストロークを送信し続けず、キーストロークが間違ったプログラムに送信されてしまうことがなくなることです。

Question 2

あなたの問題を解決するのに役立つツールは AT コマンドテスターデスクトップアプリ、7 日間の無料試用期間付きの商用製品 (9.95 ドル)。

この製品は、「スクリプトモード」タブで AT コマンドのスクリプトを実行でき、スクリプトをローカルコンピューターに保存したり、ローカルコンピューターから読み込むことができます。

また、次のように呼び出すことができるコマンドラインモードもあります。

atc –port portname –script filename

このツールはモデムのログを収集して保存することもできます。モデムを持っていないし、電話番号も知らないので試していませんが、ログがテキストファイルとして保存されていれば、エラー/成功を検索する小さなテキスト検索スクリプトを書くのは簡単なはずです。

自分で書きたい場合は、簡単なPowerShellスクリプトで実行できます。 System.IO.Ports.SerialPort クラス。

ここに例を示します (テストされておらず、非常に理論的なものです)。

# Create your instance of the SerialPort Class
$serialPort = new-Object System.IO.Ports.SerialPort
# Set various COM-port settings
$serialPort.PortName = "COM1"
$serialPort.BaudRate = 19200
$serialPort.WriteTimeout = 500
$serialPort.ReadTimeout = 3000
$serialPort.DtrEnable = "true"
# or in one command
# $serialPort= new-Object System.IO.Ports.SerialPort COM#,Baudrate,None,8,one
# Open the connection
$serialPort.Open()
# write to it
$serialPort.WriteLine( "at+csq" + "`r" )
# wait
start-sleep -m 50
# read line
$line = $serialPort.ReadLine()
Write-Host $line
# write to it
$serialPort.Close()

モデムで使用される行末文字には注意が必要であることに注意してください。

これは、.Net Framework 2.0をインストールしたXP VMでのセッションです。 KB968930ほぼ動作しましたが、COM1 に何も接続されていないため、タイムアウトによって終了するまで ReadLine() 呼び出しでハングしました。

私のスクリプトにはコピーアンドペーストエラーがありましたが、現在は修正されています。機能しなかった行は次のとおりです。

$line = $port.ReadLine()

正しくは次のようになります:

$line = $serialPort.ReadLine()

Answer