VBSで商標検索
J-PlatPatにアクセスして商標を検索することができるVBSを作成しました。 使用する際には、メモ帳等にコピペし、ファイルの拡張子をVBSにします。 商標の検索方法（VBS） のページもご参照ください。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
Option Explicit Const strIE = "iexplore.exe" Dim searchWord Dim similarCode Dim wtime '待機時間を設定します（ミリ秒） wtime = 50 '称呼と類似群コードを入力します searchWord = InputBox("称呼を全角カナで入力してください。" & vbCr & "例：トッキョチョー") similarCode = InputBox("（任意入力）類似群コードを半角英数で入力してください。" & vbCr & "例：29B01") 'キーワードが空でなければ処理を開始します If searchWord <> "" Then Dim ws Set ws = WScript.CreateObject("Wscript.Shell") 'IEでJPlatPat商標検索にアクセス Dim ie Set ie = CreateObject("InternetExplorer.Application") ie.Navigate "https://www.j-platpat.inpit.go.jp/t0100" ie.Visible = True waitIE ie 'プロセスIDを取得し、IEをアクティブにします Dim locater, connect, instances, instance Dim PID Set locater = CreateObject("WbemScripting.SWbemLocator") Set connect = locater.ConnectServer Set instances = connect.InstancesOf("Win32_Process") For Each instance In instances If Not IsEmpty(instance.processID) And instance.Description = "iexplore.exe" Then PID = instance.processID End If Next Set locater = Nothing Set instances = Nothing Set connect = Nothing While Not ws.AppActivate(PID) WScript.Sleep wtime Wend '検索項目を「称呼（類似検索）」にセットします ie.Document.getElementById("t01_srchCondtn_mk_selSearchItem1").Click WScript.Sleep wtime ws.SendKeys "{DOWN}" WScript.Sleep wtime ws.SendKeys "{ENTER}" waitIE ie 'キーワードをセットします ie.Document.getElementById("t01_srchCondtn_mk_txtKeywd1").Click ie.Document.getElementById("t01_srchCondtn_mk_txtKeywd1").Focus ie.Document.getElementById("t01_srchCondtn_mk_txtKeywd1").Value = searchWord WScript.Sleep wtime ws.SendKeys "{ENTER}" waitIE ie '類似群コードの入力があるときセットします If similarCode <> "" Then ie.Document.getElementById("t01_srchCondtn_goods_selSearchItem0").Click WScript.Sleep wtime ws.SendKeys "{ENTER}" waitIE ie ie.Document.getElementById("t01_srchCondtn_goods_txtKeywd0").Click ie.Document.getElementById("t01_srchCondtn_goods_txtKeywd0").Focus ie.Document.getElementById("t01_srchCondtn_goods_txtKeywd0").Value = similarCode WScript.Sleep wtime ws.SendKeys "{ENTER}" waitIE ie End If '検索ボタンをクリック ie.Document.getElementById("t01_srchBtn_btnSearch").Click Set ie = Nothing Set ws = Nothing End If Sub waitIE(ie) 'アクセス完了まで待機 Do While ie.Busy = True Or ie.readystate <> 4 WScript.Sleep 50 Loop End Sub |
このVBSは、インターネッ […]