アクセスしたHPにクリップボード経由で値をコピー貼り付けを以下の様なスクリプトで実行しています。
コピー貼り付けをする値にエンコードが必要な文字("&","<","?","^","@"な特殊な文字)が入った値のときは旨く値がクリップボードにコピーされません(途中までのコピーだったり全くコピーされなかったり)。
特殊な文字を含まない場合は、コピー貼り付けは旨くいくます。
どなたか、アドバイスかヒントを頂けるとありがたいです。
試行錯誤していますが、旨くいっていません。
--------------------------
On Error Goto Timewaite
Dim WshShell
'インターネットエクスプローラーのオブジェクトを作成
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run ("chrome.exe -url " & "送り先のURL")
'[フールド A]をクリップボードにコピー
Call CreateObject("Wscript.Shell").Run("%COMSPEC% /c echo " & txtA & "| clip",0)
Sleep 0.1
Header:
Activateapp "開いたページのTitle"
Sleep 0.1
keybd_event 17,0,0,0 ' Ctrl key down
keybd_event 86,0,0,0 ' A down
keybd_event 86,0,2,0 ' A up
keybd_event 17,0,2,0 ' Ctrl key up
Sleep 0.1
Call CreateObject("Wscript.Shell").Run("%COMSPEC% /c echo off | clip",0)
Sleep 0.1
keybd_event 9,0,0,0 ' TAB down
keybd_event 9,0,2,0 ' TAB down
Sleep 0.1
Call CreateObject("Wscript.Shell").Run("%COMSPEC% /c echo " & txtB & "| clip",0)
Sleep 0.1
keybd_event 17,0,0,0 ' Ctrl key down
keybd_event 86,0,0,0 ' A down
keybd_event 86,0,2,0 ' A up
keybd_event 17,0,2,0 ' Ctrl key up
Sleep 0.1
Call CreateObject("Wscript.Shell").Run("%COMSPEC% /c echo off | clip",0)
Sleep 0.1
keybd_event 9,0,0,0 ' TAB down
keybd_event 9,0,2,0 ' TAB up
keybd_event 9,0,0,0 ' TAB down
keybd_event 9,0,2,0 ' TAB up
Sleep 0.1
keybd_event 13,0,0,0 ' Enter down
keybd_event 13,0,2,0 ' Enter down
--------------------------