投稿日	： 2005/01/07(Fri) 12:16
投稿者	： 優花
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: IEへの文字列転送

ご回答ありがとうございます。

> 過去のログ、No.4629 等をご覧下さい。

Private Sub Command1_Click()
    Dim IE As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    'IEオブジェクトの作成
    
    With IE
        .Navigate ("hhttp://mail.yahoo.co.jp/")
        
        DoEvents
        
        Do While .Busy = True
            DoEvents
        Loop
        
        .Visible = True
        Do While .Document.ReadyState <> "complete"
            DoEvents
        Loop
        
      '--ここにチェックボックスの文字列を入れる。
        .Document.Forms(0).Elements("login").Value = CVar("ユーザID")
        .Document.Forms(0).Elements("passwd").Value = CVar("パスワード")
        .Document.Forms(0).Elements(".persistent").Click
        .Document.Forms(0).Elements(16).Click
    
    End With
    Set IE = Nothing
End Sub

参考にさせていただきました。
なんとなく分かりました(@_@)

意図する使い方としては、[チェックボックス][貼り付け]ボタンを作成したフォームを画面上に
常駐させます。
そこで、すでに開いてあるホームページの対象のテキストボックスに文字列を送り
こみたいと考えおります。

すると、
　・フォームをクリックした瞬間に、対象となるホームページは非アクティブになってしまいます。
　　⇒そのような中で、どのホームページのどのテキストボックスに文字列を送り込むのか
　　　指定して命令することはできるのでしょうか。
　　　対象のテキストボックスに一度カーソルを置いてから実行すれば、そのカーソル
　　　のところへ文字列を送り込めればよいのですが…。

また、.Document.Forms(0).Elements("login").Value = CVar("ユーザID")で、文字列を貼り付け
ていますが、この"login"というオブジェクト名は、「ソースの表示」をして経験と勘で見分けるのでしょう
か。

いろいろ教えていただき、申し訳ございません。

★ - IEへの文字列転送 - 優花 01/07-00:57No.1450
• Re: IEへの文字列転送 - 花ちゃん 01/07-01:35 No.1451
  • Re^2: IEへの文字列転送 - 優花 01/07-12:16 No.1462
    • Re^3: IEへの文字列転送 - 花ちゃん 01/07-13:30 No.1465
      • Re^4: IEへの文字列転送 - 花ちゃん 01/07-14:45 No.1469