teacup. [ 掲示板 ] [ 掲示板作成 ] [ 有料掲示板 ] [ ブログ ]

 投稿者
  題名
  内容 入力補助画像・ファイル<IMG>タグが利用可能です。(詳細)
    
 URL
[ ケータイで使う ] [ BBSティッカー ] [ 書込み通知 ] [ 検索 ]

スレッド一覧

  1. 足あと帳(0)
スレッド一覧(全1)  他のスレッドを探す 

*掲示板をお持ちでない方へ、まずは掲示板を作成しましょう。無料掲示板作成


test

 投稿者:test  投稿日:2011年 8月 7日(日)11時34分52秒
返信・引用
  Private Declare Function SetCursorPos Lib "User32.dll" ( _
ByVal x As Long, _
ByVal y As Long) As Long

Sub ietest() 'IEテストする。

'IEの起動
    Dim objIE As Object '変数を定義します。
    Dim Ret As Long


    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。

    '処理したいページを表示します。
    objIE.Navigate "http://www.yahoo.co.jp/"

    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        DoEvents  '重いので嫌いな人居るけど。
    Wend


    Call SetCursorPos(370, 335)

    Application.Wait [NOW()+"0:00:05"]

    'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        DoEvents  '重いので嫌いな人居るけど。
    Wend


    Call SetCursorPos(400, 350)

    Application.Wait [NOW()+"0:00:00.1"]

    Call SetCursorPos(100, 250)

    Application.Wait [NOW()+"0:00:00.1"]

    Call SetCursorPos(500, 250)

    'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        DoEvents  '重いので嫌いな人居るけど。
    Wend

    Application.Wait [NOW()+"0:00:03.5"]

End Sub

 
 

掲示板が完成しましたキラキラ

 投稿者:teacup.運営  投稿日:2011年 8月 7日(日)11時33分27秒
返信・引用
  ご利用ありがとうございます。

teacup.掲示板は
ダイヤスレッド作り放題右上
ダイヤ画像・動画・音楽の投稿OK
ダイヤケータイ絵文字が使えるv▽v
ダイヤRSS対応ヒラメイタ!
ダイヤお絵描き機能付きえんぴつ
ダイヤかわいいケータイテンプレハートx2

足跡足あと帳はコチラ
スレッド内容は管理画面内「スレッドの管理」から編集できます。
 

レンタル掲示板
/1