キャンペーン実施中!日本ファースト証券資料請求でCOCO壱番館500円飲食券を1枚プレゼント
↓より資料請求いただき、こちらのフォームより(1)資料請求日、(2)送付先の住所・お名前を連絡ください

ヤマト運輸の集荷依頼を自動化

ヤマト運輸の集荷依頼を自動化します。宅急便、メール便の集荷依頼にご利用ください
集荷日時と個数の指定だけで依頼できてしまいます
こちらは表示中のIEの画面を操作するためのVBのソースを生成の適用例です。若干WSH用に修正してます。指定内容を変えたいときは操作コードを出力して、下記のソースを修正してください
■Windows/XP,IE6で動作確認済み
■使いかた
1.拡張子.vbsで適当なファイルを作成する
2.このvbsファイルをエディタで開く
3.下記ソーズをコピー、上記で開いた.vbsのファイルに貼り付ける
4.ソース中にユーザID、パスワードを入力。（下記ソース先頭2行）
5.保存・終了する
6.このvbsファイルを実行（ダブルクリック）
5.ヤマトの集荷依頼・集荷希望日時選択が表示される
6.集荷希望日時を選択する
7.個数を入力する。こちらも個数がきまっているのであれば、下記ソースに書き込めば省略できる
8."次へ"ボタン押下→次の画面で"確定"ボタン押下

■ソース
objIE0.document.all.id.value="" ' ユーザID objIE0.document.all.passwd.value="" 'パスワード Dim objIE0 'ルートのオブジェクト、操作コードではこの名称を使用します Dim objIE1 ,objIE2 'FRAMEのオブジェクト、ネストが3重以上になる場合は、objIE3,objIE4・・・を追加してください '対象画面を検索、なければ開く（必要に応じ使用してください） Set xShell = CreateObject("Shell.Application") win_s = False 'For Each Window In xShell.Windows '対象URLが表示されているか？ ' If TypeName(Window.Document) = "HTMLDocument" Then ' if Window.Document.url="https://cmypage.kuronekoyamato.co.jp/portal/entrance" then ' Set objIE0 = Window '対象URLが表示→その画面を使う ' win_s=true ' exit for ' end if ' end if 'next if win_s=false then '対象URLが非表示→新しく画面を開く Set objIE0 = CreateObject("InternetExplorer.Application") objIE0.Visible = True objIE0.Navigate "https://cmypage.kuronekoyamato.co.jp/portal/entrance" call waitPage (objIE0) end if '---header end--- '---以下操作コード、必要な部分をコピーしてください--- objIE0.document.all.Submit.click ' submit Submit ログイン call waitPage (objIE0) 'objIE0.Document.links(6).click '■集荷を依頼したい call link_click(objIE0,"text","■集荷を依頼したい") 'call link_click(objIE0,"text","宅急便集荷受付") call waitPage (objIE0) objIE0.document.all.ETC_BTN.click call waitPage (objIE0) 'do 'if instr(objIE0.document.body.outertext,"集荷のご希望日・時間帯をお選びください")>0 then exit do 'wscript.sleep(300) 'loop objIE0.document.all.shukaTakkyuHinmeNm.value="ＤＶＤ" ' text objIE0.document.all.shukaDdenpyoFlg(0).checked=true ' radio 持っているので必要なし 'objIE0.Document.all.shukaKiboujikantai.selectedIndex=1 ' 指定なし:10000 'objIE0.Document.all.shukaKiboujikantai.selectedIndex=2 ' 13時まで:10100 'objIE0.Document.all.shukaKiboujikantai.selectedIndex=3 ' 13時から15時まで:10200 objIE0.Document.all.shukaKiboujikantai.selectedIndex=4 ' 15時から17時まで:10300 'objIE0.Document.all.shukaKiboujikantai.selectedIndex=5 ' 17時から19時まで:10400 ' select name=takkyuShohinCd value=1400 'objIE0.Document.all.takkyuShohinCd.selectedIndex=0 ' 複数口宅急便:1150 'objIE0.Document.all.takkyuShohinCd.selectedIndex=1 ' 宅急便コレクト:1300 objIE0.Document.all.takkyuShohinCd.selectedIndex=2 ' クロネコメール便:1400 selected 'objIE0.Document.all.takkyuShohinCd.selectedIndex=3 ' 機密文書リサイク:1500 'objIE0.Document.all.takkyuShohinCd.selectedIndex=4 ' 国際宅急便:1600 'objIE0.Document.all.takkyuShohinCd.selectedIndex=5 ' オークション宅急便:1800 ' select name=shukaKosu value=1 'objIE0.Document.all.shukaKosu.selectedIndex=0 ' 1:1 selected 'objIE0.Document.all.shukaKosu.selectedIndex=1 ' 2:2 'objIE0.Document.all.shukaKosu.selectedIndex=2 ' 3:3 'objIE0.Document.all.shukaKosu.selectedIndex=3 ' 4:4 objIE0.Document.all.shukaKosu.selectedIndex=4 ' 5以上:5 objIE0.Document.all.shukaKiboubi.selectedIndex=1 '(本日)集荷希望日時選択 call waitPage (objIE0) Sub waitPage (objIE) Do While objIE.busy Loop Do While objIE.Document.readyState <> "complete" Loop End Sub Function link_click(objIE, typ, v) link_click = -1 if typ="num" then objIE.document.links(v).Click Call ie_wait(objIE) link_click = 0 else For i = 0 To objIE.document.links.Length - 1 If typ = "text" Then If objIE.document.links(i).outertext = v Then objIE.document.links(i).Click Call waitPage(objIE) link_click = 0 Exit For End If End If If typ = "href" Then If objIE.document.links(i).href = v Then objIE.document.links(i).Click Call waitPage(objIE) link_click = 0 Exit For End If End If If typ = "href_inc" Then If InStr(objIE.document.links(i).href, v) > 0 Then objIE.document.links(i).Click Call waitPage(objIE) link_click = 0 Exit For End If End If Next end if End Function

■免責うんぬん
・本VBSによる使用者の損害どうのこうの補償は作成者は一切関知しません
　使用者の責においてご利用ください
質問・要望はこちらから その他WSH,EXCEL VBAの活用例紹介しています

こちらのオークションでプログラミングの書籍を出品してます