Macro/投稿/60
をテンプレートにして作成
Land.to
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* 価格.com検索 [#xd9d9034]
-ページ: [[Macro/投稿]]
-作者: [[maru]]
-カテゴリー: vbs
-投稿日: 2005-06-26 (日) 02:35:51
** メッセージ [#zc7fa5f0]
#code(vbscript){{
'otw_kakaku.vbs --------------------------------
'価格.com
sWord = Editor.ExpandParameter("$C")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = true
naviURL = "http://kakaku.com/txtsearch/txtsearch.asp" _
& "?TopCategoryCD=&SearchWord=" & URLEncode(sWord)
objIE.Navigate( naviURL )
Private Function URLEncode(sWord)
For iCnt = 1 To Len(sWord)
sHex = sHex & Hex(Asc(Mid(sWord, iCnt)))
Next
For iCnt = 1To Len(sHex) Step 2
sUrl = sUrl & "%" & Mid(sHex, iCnt, 2)
Next
URLEncode = sUrl
End Function
}}
----
#comment
終了行:
* 価格.com検索 [#xd9d9034]
-ページ: [[Macro/投稿]]
-作者: [[maru]]
-カテゴリー: vbs
-投稿日: 2005-06-26 (日) 02:35:51
** メッセージ [#zc7fa5f0]
#code(vbscript){{
'otw_kakaku.vbs --------------------------------
'価格.com
sWord = Editor.ExpandParameter("$C")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = true
naviURL = "http://kakaku.com/txtsearch/txtsearch.asp" _
& "?TopCategoryCD=&SearchWord=" & URLEncode(sWord)
objIE.Navigate( naviURL )
Private Function URLEncode(sWord)
For iCnt = 1 To Len(sWord)
sHex = sHex & Hex(Asc(Mid(sWord, iCnt)))
Next
For iCnt = 1To Len(sHex) Step 2
sUrl = sUrl & "%" & Mid(sHex, iCnt, 2)
Next
URLEncode = sUrl
End Function
}}
----
#comment
ページ名: