ExcelでTelnetを動かしたい

Question

長々と書いて申し訳ありませんが、困っています。
使用環境はWindows 2000です。開発環境というかexcel2000のVBAでコーディングしています。
で問題点が2点ありまして、
(1)EnumWindowsの所で止まるのですが、AddressOf演算子はexcel2000でも使えますよね。
　コンパイルエラー　Sub、Function、または Property が必要です　というエラーで止まります。
　何か使用方法が間違っていますでしょうか？
(2)テキストボックスを２つ用意してあるので、それを引数としてtelnetでつなぐパソコンを
　選べるようにしたいのですが引数でうまく渡せません（現状はコメントアウトしている部分です）。

Private Sub CommandButton1_Click()

    box1 = TextBox1
    box2 = TextBox2
    'ipnum = "telnet xxx.xxx."box1"."box2
    
    '待ち時間処理用の時刻の変数
    newHour = Hour(Now())
    newMinute = Minute(Now())
    Shell "cmd.exe"
    lRet = Shell("C:\WINNT\system32\cmd.exe", vbNormalFocus)
    newSecond = Second(Now()) + 5
    waitTime = TimeSerial(newHour, newMinute, newSecond)
    Application.Wait waitTime
   
    Call EnumWindows(AddressOf Rekkyo, 0)
    lRet = FindWindow(vbNullString, "C:\WINDOWS\system32\cmd.exe")
    Call SendMessage(lRet, WM_SYSCOMMAND, WM_MAXIMIZE, ByVal 0&)
    Call PostMessageStrings("telnet xxx.xxx.xxx.xxx")
    'Call PostMessageStrings(ipnum)
    Call PostMessageStrings("xxx.bat")
    Call PostMessageStrings("exit")
    Call PostMessageStrings("exit")
    
End Sub

Public Function PostMessageStrings(strPost As String)
    Dim i As Integer
    '1文字ずつ分解して送信
    For i = 1 To Len(strPost)
        Call PostMessage(lRet, &H102, Asc(Mid(strPost, i, 1)), 0)
    Next
    '送信後に改行コードを送信
    Call PostMessage(lRet, &H102, 13, 0)
End Function

標準モジュールに、こんな感じでAPI関数を記述してあります。
他のAPIも記述してありますが、割愛してあります。
'ウィンドウのハンドルの取得
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

誰か教えてください。よろしくお願いします。

tsukasa-12r · Accepted Answer

>デバックモードで値を見ているとlRetに何も入っていないのでここが悪いと思うのですが

FindWindow() の戻り値が、でしょうか？
それとも、PostMessageStrings() の中で、でしょうか？

よく見てみると lRet がどこで宣言されているのかわかりませんね。
Sub CommandButton1_Click() の中で
Dim lRet As Long
と宣言しているのでしょうか？
そうだとすると、PostMessageStrings() の中の lRet は PostMessageStrings() の中で暗黙に宣言されたものとみなされてしまうので、PostMessageStrings() の中 lRet は 0 になってしまいます。
(General) の (Declarations) で
Private lRet As Long
と宣言するか、PostMessageString() にウィンドウハンドルの引数を追加する必要があります。
だいたい、↓こんな感じですね。
(テキストボックスから取得するところはご自分で適当に直してください。)

(General) - (Declarations)
Private Declare Function FindWindowA Lib "user32" (ByVal cnm As String, ByVal cap As String) As Long
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
Private Const WM_CHAR = &H102

Private Sub CommandButton1_Click()
    Dim lngRet As Long
    Dim hWnd As Long

    lngRet = Shell("cmd.exe", vbNormalFocus)
    
    Sleep 100

    hWnd = FindWindowA(vbNullString, "C:\WINDOWS\system32\cmd.exe")

    SendString hWnd, "telnet xxx.xxx.xxx.xxx"

End Sub

Private Sub SendString(ByVal hWnd As Long, ByVal s As String)
    Dim i As Integer
    Dim c As String

    For i = 1 To Len(s)
        c = Mid(s, i, 1)
        PostMessage hWnd, WM_CHAR, Asc(c), 0
        Sleep 10
    Next i

    PostMessage hWnd, WM_CHAR, Asc(vbCrLf), 0

End Sub

tsukasa-12r · Answer

＞telnet xxx.123.456.789
＞の部分が
＞telnet xxx.123.45.78　や　telnet xxx.123.45.789
＞になってしまうバグが発生します。

ANo.4 のソースには記述していましたが（説明はしていませんでしたが）、PostMessage() の呼出しごとに Sleep ( または wait ) を入れると回避できるようです。

tsukasa-12r · Answer

>最初に書いたようにEnumWindowsを標準モジュールに記述してありますが、そことは別に必要なんでしょうか？

EnumWindows() の宣言をしている標準モジュールに Function Rekkyo() がある、ということですか？
というか、もしかして、Function Rekkyo() をどこにも作成していないのではないですか？

>ただの引数としてcmd.exeを渡すものだと思っていました。

というところから、Function Rekkyo() を作成していないのではないかという気がしてきました。
EnumWindows( Address CallBackProc ) というのは、OS に、「 Window を列挙してね。そして、列挙した Window ごとに、CallBackProc にウィンドウハンドルを渡して呼び出してね。」
というお願いをするというものです。CallBackProc ( 名称は別に何でも構わない ) はこちらで用意しておきます。が、
Public Function CallBackProc(ByVal Handle As Long) As Boolean
の形式にしなければなりません。
というか、FindWindow() でウィンドウハンドルが取得できるのであれば、EnumWindows() は使用する必要はないんじゃないでしょうか。

steerboard · Answer

では（２）の方を。。。

Private Sub CommandButton1_Click()
Dim ipnum   As String
    ipnum = "telnet xxx.xxx." & TextBox1.Text & "." & TextBox2.Text
    MsgBox ipnum

変数の型が分からなかったので勝手にStringとしました。
「.Text」で取れます。

tsukasa-12r · Answer

とりあえず (1) の方だけですが、
Call EnumWindows(AddressOf Rekkyo, 0)
で指定する Function Rekkyo ですが、なぜか標準モジュールにおかなければならないようです。
（標準モジュールは VBA の画面でメニューの「挿入」からできます。）

ExcelでTelnetを動かしたい

>デバックモードで値を見ているとlRetに何も入っていないのでここが悪いと思うのですが

＞telnet xxx.123.456.789

この回答への補足

>最初に書いたようにEnumWindowsを標準モジュールに記述してありますが、そことは別に必要なんでしょうか？

この回答への補足

では（２）の方を。

この回答への補足

とりあえず (1) の方だけですが、

この回答への補足

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

今、見られている記事はコレ!

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング