[ 掲示板に戻る ]
過去ログ閲覧モード
★ Web / web
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
愛知(IE)

id="01068868"
paswd="Aich0075"

施設予約システムに入る(IE)

IESetData(IE,id,"layoutChildBody:childForm:userid")　　　　　　　　 // Id
IESetData(IE,paswd,"layoutChildBody:childForm:passwd") // 暗証番号

ログイン(IE)

　　　　新規抽選(IE)


　　　　小幡庭球(IE) //ラヂオボタン

　　　　対象館一覧(IE)

　　　　施設の決定(IE)

no=31
　　　　日付の選択(IE,no)

面数(IE)

moji="cd"
　　　　時間帯(IE,moji)

　　　　申し込み確定(IE)
　　　　
　　　　利用目的(IE)

抽選内容の確認(IE)



//=============================================================

// ボタン doOnceFix

//=============================================================

// ======愛知ネットにはいる========

Procedure　愛知(ie)
IE.Navigate("https://www4.pref.aichi.jp/yoyaku/index.jsp")
BusyWait(ie)
Fend

//========施設予約システムに入る=================
Procedure 施設予約システムに入る(IE)
IE.navigate("javaScript: doSubmit('childForm', 'doLogin');" )
BusyWait(IE)
Fend

//================ログイン======================
Procedure　ログイン(IE)
IE.document.getElementById("doLogin").click()
BusyWait(IE)
sleep(0.2)
Fend

//================新規抽選====================== goLotSerach
Procedure　新規抽選(IE)
IE.document.getElementById("goLotSerach").click()
BusyWait(IE)
sleep(0.2)

Fend

//================小幡庭球======================
Procedure　小幡庭球(IE)
IESetData(IE,True,"layoutChildBody:childForm:selectClscd","180")
BusyWait(IE)
Fend



//================対象館一覧を表示======================
Procedure　対象館一覧(IE)
IE.document.getElementById("doSearch").click()
BusyWait(IE)
Fend

//================施設の決定======================
Procedure　施設の決定(IE)
IE.document.getElementById("doAreaSet").click()
BusyWait(IE)
Fend

//================日付の選択======================
Procedure　日付の選択(IE,no)
if no=1 then ban="1"
if no=2 then ban="2"
if no=3 then ban="3"
if no=4 then ban="4"
if no=5 then ban="5"
if no=6 then ban="6"
if no=7 then ban="7"
if no=8 then ban="8"
if no=9 then ban="9"
if no=10 then ban="10"
if no=11 then ban="11"
if no=12 then ban="12"
if no=13 then ban="13"
if no=14 then ban="14"
if no=15 then ban="15"
if no=16 then ban="16"
if no=17 then ban="17"
if no=18 then ban="18"
if no=19 then ban="19"
if no=20 then ban="20"
if no=21 then ban="21"
if no=22 then ban="22"
if no=23 then ban="23"
if no=24 then ban="24"
if no=25 then ban="25"
if no=26 then ban="26"
if no=27 then ban="27"
if no=28 then ban="28"
if no=29 then ban="29"
if no=30 then ban="30"
if no=31 then ban="31"


id = GETID("抽選申込日時設定／ネットあいち施設予約システム - Internet Explorer", "IEFrame", -1)
SLEEP(0.2)
CLKITEM(id, ban, CLK_LINK)
BusyWait(ie)
Fend

//================面数====================== ここ
Procedure　面数(IE)
IESetData(IE,"2","layoutChildBody:childForm:selectFieldCnt")
BusyWait(IE)
Fend

//================
//========== 時間帯============

Procedure　時間帯(IE,moji)
nn=pos("a",moji)
if nn>0 then IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:0:chkKom-1")
nn=pos("b",moji)
if nn>0 then　 IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:1:chkKom-1")
nn=pos("c",moji)
if nn>0 then IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:2:chkKom-1")
nn=pos("d",moji)
if nn>0 then IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:3:chkKom-1")
BusyWait(IE)
Fend

//================申し込み確定======================
Procedure　申し込み確定(IE)
IE.document.getElementById("doDateTimeSet").click()
BusyWait(IE)
sleep(0.2)
Fend

//================利用目的====================== ここ
Procedure　利用目的(IE)
　IESetData(IE,"硬式テニス","layoutChildBody:childForm:makeList")
　IESetData(IE,"19","layoutChildBody:childForm:applycnt") 　　　　//人数　
BusyWait(IE)
Fend

//================抽選内容の確認======================
Procedure　抽選内容の確認(IE)
IE.document.getElementById("doConfirm").click()
BusyWait(IE)
sleep(0.2)
IE.document.getElementById("doOnceFix").click() //申し込み
BusyWait(IE)
sleep(0.2)

clkitem(GetId("Webページからのメッセージ","Internet Explorer_TridentDlgFrame"), "OK", CLK_ACC) //メッセージにOKする
Fend
//===============
Procedure BusyWait(ie)
　repeat
　　Sleep(0.1)
　until (! ie.busy) and (ie.readyState=4)
Sleep(0.2)
Fend

//=================================

お世話になっています。Webページからのメッセージというにに「OK」を入れたいのですが、うまくいきません。
多分ここをクリアすると出来上がります。よろしくお願いします。この１０行くらい上に書いたものではダメなようです。
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
愛知(IE)

id="01068868"
paswd="Aich0075"

施設予約システムに入る(IE)

IESetData(IE,id,"layoutChildBody:childForm:userid")　　　　　　　　 // Id
IESetData(IE,paswd,"layoutChildBody:childForm:passwd") // 暗証番号

ログイン(IE)

　　　　新規抽選(IE)


　　　　小幡庭球(IE) //ラヂオボタン

　　　　対象館一覧(IE)

　　　　施設の決定(IE)

no=31
　　　　日付の選択(IE,no)

面数(IE)

moji="cd"
　　　　時間帯(IE,moji)

　　　　申し込み確定(IE)
　　　　
　　　　利用目的(IE)

抽選内容の確認(IE)



//=============================================================

// ボタン doOnceFix

//=============================================================

// ======愛知ネットにはいる========

Procedure　愛知(ie)
IE.Navigate("https://www4.pref.aichi.jp/yoyaku/index.jsp")
BusyWait(ie)
Fend

//========施設予約システムに入る=================
Procedure 施設予約システムに入る(IE)
IE.navigate("javaScript: doSubmit('childForm', 'doLogin');" )
BusyWait(IE)
Fend

//================ログイン======================
Procedure　ログイン(IE)
IE.document.getElementById("doLogin").click()
BusyWait(IE)
sleep(0.2)
Fend

//================新規抽選====================== goLotSerach
Procedure　新規抽選(IE)
IE.document.getElementById("goLotSerach").click()
BusyWait(IE)
sleep(0.2)

Fend

//================小幡庭球======================
Procedure　小幡庭球(IE)
IESetData(IE,True,"layoutChildBody:childForm:selectClscd","180")
BusyWait(IE)
Fend



//================対象館一覧を表示======================
Procedure　対象館一覧(IE)
IE.document.getElementById("doSearch").click()
BusyWait(IE)
Fend

//================施設の決定======================
Procedure　施設の決定(IE)
IE.document.getElementById("doAreaSet").click()
BusyWait(IE)
Fend

//================日付の選択======================
Procedure　日付の選択(IE,no)
if no=1 then ban="1"
if no=2 then ban="2"
if no=3 then ban="3"
if no=4 then ban="4"
if no=5 then ban="5"
if no=6 then ban="6"
if no=7 then ban="7"
if no=8 then ban="8"
if no=9 then ban="9"
if no=10 then ban="10"
if no=11 then ban="11"
if no=12 then ban="12"
if no=13 then ban="13"
if no=14 then ban="14"
if no=15 then ban="15"
if no=16 then ban="16"
if no=17 then ban="17"
if no=18 then ban="18"
if no=19 then ban="19"
if no=20 then ban="20"
if no=21 then ban="21"
if no=22 then ban="22"
if no=23 then ban="23"
if no=24 then ban="24"
if no=25 then ban="25"
if no=26 then ban="26"
if no=27 then ban="27"
if no=28 then ban="28"
if no=29 then ban="29"
if no=30 then ban="30"
if no=31 then ban="31"


id = GETID("抽選申込日時設定／ネットあいち施設予約システム - Internet Explorer", "IEFrame", -1)
SLEEP(0.2)
CLKITEM(id, ban, CLK_LINK)
BusyWait(ie)
Fend

//================面数====================== ここ
Procedure　面数(IE)
IESetData(IE,"2","layoutChildBody:childForm:selectFieldCnt")
BusyWait(IE)
Fend

//================
//========== 時間帯============

Procedure　時間帯(IE,moji)
nn=pos("a",moji)
if nn>0 then IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:0:chkKom-1")
nn=pos("b",moji)
if nn>0 then　 IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:1:chkKom-1")
nn=pos("c",moji)
if nn>0 then IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:2:chkKom-1")
nn=pos("d",moji)
if nn>0 then IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:3:chkKom-1")
BusyWait(IE)
Fend

//================申し込み確定======================
Procedure　申し込み確定(IE)
IE.document.getElementById("doDateTimeSet").click()
BusyWait(IE)
sleep(0.2)
Fend

//================利用目的====================== ここ
Procedure　利用目的(IE)
　IESetData(IE,"硬式テニス","layoutChildBody:childForm:makeList")
　IESetData(IE,"19","layoutChildBody:childForm:applycnt") 　　　　//人数　
BusyWait(IE)
Fend

//================抽選内容の確認======================
Procedure　抽選内容の確認(IE)
IE.document.getElementById("doConfirm").click()
BusyWait(IE)
sleep(0.2)
IE.document.getElementById("doOnceFix").click() //申し込み
BusyWait(IE)
sleep(0.2)

clkitem(GetId("Webページからのメッセージ","Internet Explorer_TridentDlgFrame"), "OK", CLK_ACC) //メッセージにOKする
Fend
//===============
Procedure BusyWait(ie)
　repeat
　　Sleep(0.1)
　until (! ie.busy) and (ie.readyState=4)
Sleep(0.2)
Fend

//=================================

お世話になっています。Webページからのメッセージというにに「OK」を入れたいのですが、うまくいきません。
多分ここをクリアすると出来上がります。よろしくお願いします。この１０行くらい上に書いたものではダメなようです。
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
愛知(IE)

id="01068868"
paswd="Aich0075"

施設予約システムに入る(IE)

IESetData(IE,id,"layoutChildBody:childForm:userid")　　　　　　　　 // Id
IESetData(IE,paswd,"layoutChildBody:childForm:passwd") // 暗証番号

ログイン(IE)

　　　　新規抽選(IE)


　　　　小幡庭球(IE) //ラヂオボタン

　　　　対象館一覧(IE)

　　　　施設の決定(IE)

no=31
　　　　日付の選択(IE,no)

面数(IE)

moji="cd"
　　　　時間帯(IE,moji)

　　　　申し込み確定(IE)
　　　　
　　　　利用目的(IE)

抽選内容の確認(IE)



//=============================================================

// ボタン doOnceFix

//=============================================================

// ======愛知ネットにはいる========

Procedure　愛知(ie)
IE.Navigate("https://www4.pref.aichi.jp/yoyaku/index.jsp")
BusyWait(ie)
Fend

//========施設予約システムに入る=================
Procedure 施設予約システムに入る(IE)
IE.navigate("javaScript: doSubmit('childForm', 'doLogin');" )
BusyWait(IE)
Fend

//================ログイン======================
Procedure　ログイン(IE)
IE.document.getElementById("doLogin").click()
BusyWait(IE)
sleep(0.2)
Fend

//================新規抽選====================== goLotSerach
Procedure　新規抽選(IE)
IE.document.getElementById("goLotSerach").click()
BusyWait(IE)
sleep(0.2)

Fend

//================小幡庭球======================
Procedure　小幡庭球(IE)
IESetData(IE,True,"layoutChildBody:childForm:selectClscd","180")
BusyWait(IE)
Fend



//================対象館一覧を表示======================
Procedure　対象館一覧(IE)
IE.document.getElementById("doSearch").click()
BusyWait(IE)
Fend

//================施設の決定======================
Procedure　施設の決定(IE)
IE.document.getElementById("doAreaSet").click()
BusyWait(IE)
Fend

//================日付の選択======================
Procedure　日付の選択(IE,no)
if no=1 then ban="1"
if no=2 then ban="2"
if no=3 then ban="3"
if no=4 then ban="4"
if no=5 then ban="5"
if no=6 then ban="6"
if no=7 then ban="7"
if no=8 then ban="8"
if no=9 then ban="9"
if no=10 then ban="10"
if no=11 then ban="11"
if no=12 then ban="12"
if no=13 then ban="13"
if no=14 then ban="14"
if no=15 then ban="15"
if no=16 then ban="16"
if no=17 then ban="17"
if no=18 then ban="18"
if no=19 then ban="19"
if no=20 then ban="20"
if no=21 then ban="21"
if no=22 then ban="22"
if no=23 then ban="23"
if no=24 then ban="24"
if no=25 then ban="25"
if no=26 then ban="26"
if no=27 then ban="27"
if no=28 then ban="28"
if no=29 then ban="29"
if no=30 then ban="30"
if no=31 then ban="31"


id = GETID("抽選申込日時設定／ネットあいち施設予約システム - Internet Explorer", "IEFrame", -1)
SLEEP(0.2)
CLKITEM(id, ban, CLK_LINK)
BusyWait(ie)
Fend

//================面数====================== ここ
Procedure　面数(IE)
IESetData(IE,"2","layoutChildBody:childForm:selectFieldCnt")
BusyWait(IE)
Fend

//================
//========== 時間帯============

Procedure　時間帯(IE,moji)
nn=pos("a",moji)
if nn>0 then IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:0:chkKom-1")
nn=pos("b",moji)
if nn>0 then　 IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:1:chkKom-1")
nn=pos("c",moji)
if nn>0 then IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:2:chkKom-1")
nn=pos("d",moji)
if nn>0 then IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:3:chkKom-1")
BusyWait(IE)
Fend

//================申し込み確定======================
Procedure　申し込み確定(IE)
IE.document.getElementById("doDateTimeSet").click()
BusyWait(IE)
sleep(0.2)
Fend

//================利用目的====================== ここ
Procedure　利用目的(IE)
　IESetData(IE,"硬式テニス","layoutChildBody:childForm:makeList")
　IESetData(IE,"19","layoutChildBody:childForm:applycnt") 　　　　//人数　
BusyWait(IE)
Fend

//================抽選内容の確認======================
Procedure　抽選内容の確認(IE)
IE.document.getElementById("doConfirm").click()
BusyWait(IE)
sleep(0.2)
IE.document.getElementById("doOnceFix").click() //申し込み
BusyWait(IE)
sleep(0.2)

clkitem(GetId("Webページからのメッセージ","Internet Explorer_TridentDlgFrame"), "OK", CLK_ACC) //メッセージにOKする
Fend
//===============
Procedure BusyWait(ie)
　repeat
　　Sleep(0.1)
　until (! ie.busy) and (ie.readyState=4)
Sleep(0.2)
Fend

//=================================
No.3886 2017/05/06(Sat) 16:55:22
☆ Re: Web / テニスじいさん
手違いで三つ入ってしまいましたすみません。
お世話になっています。webページからのメッセージにOKを返したいのです。
多分これで完成すると思います。助けてください。
No.3887 2017/05/06(Sat) 17:01:10
☆ Re: Web / K.Nagatani
さすがにここは検証していませんのでよろしくお願いします。
//================抽選内容の確認======================
Procedure　抽選内容の確認(IE)
　IE.document.getElementById("doConfirm").click()
　BusyWait(IE)
　sleep(0.2)
　IE.document.getElementById("doOnceFix").click() //申し込み
　BusyWait(IE)
　sleep(0.2)
　REPEAT
　　SLEEP(0.2)
　　ID = GetID("Web ページからのメッセージ","#32770")
　UNTIL ID > 0
　SLEEP(0.2)
　CLKITEM(ID,"OK", CLK_BTN) //メッセージにOKする
Fend
No.3889 2017/05/06(Sat) 18:37:20
☆ Re: Web / テニスじいさん
お世話かけます。やってみましたが、いつまでも待ち状態が続くばかりで先へいきません。手動でクリックするとIDは２になります。この＃32770というのはなんでしょうか。
No.3892 2017/05/06(Sat) 21:22:43
☆ Re: Web / K.Nagatani
//================抽選内容の確認======================
Procedure　抽選内容の確認(IE)
　IE.document.getElementById("doConfirm").click()
　BusyWait(IE)
　sleep(0.2)
　//IE.document.getElementById("doOnceFix").click() //申し込み←原因はここです。
　//IEの操作(COM)にて、ダイアログが出ると動作が停止する　　#N25
　//http://www.uwsc.info/faq.html#N25
　Thread PopupWin()
　IESETDATA(IE,True,"","抽選を申込む")
　BusyWait(IE)
　sleep(0.2)
　REPEAT
　　SLEEP(0.2)
　　ID = GetID("Web ページからのメッセージ","#32770")
　UNTIL ID > 0
　SLEEP(0.2)
　CLKITEM(ID,"OK", CLK_BTN) //メッセージにOKする
//clkitem(GetId("Webページからのメッセージ","Internet Explorer_TridentDlgFrame"), "OK", CLK_ACC) //メッセージにOKする
Fend

"#32770"はポップアップウインドウの決まり文句でしょうか？色んな所で使かわれています
No.3894 2017/05/06(Sat) 21:51:12
☆ Re: Web / K.Nagatani
失念しておりました。下記のＰｏｐｕｐＷｉｎが必要になります

// ダイアログボタンクリック
　Procedure PopupWin()
　　　id = Getid(, "#32770", -1)
　　　Sleep(1)
　　　Clkitem(id, "OK")
　　Fend
No.3895 2017/05/06(Sat) 21:54:14
★ 選択ボックスの値の変え方を教えてください / テニスじいさん


IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
愛知(IE)

id="01068868"
paswd="Aich0075"

施設予約システムに入る(IE)

IESetData(IE,id,"layoutChildBody:childForm:userid")　　　　　　　　 // Id
IESetData(IE,paswd,"layoutChildBody:childForm:passwd") // 暗証番号

ログイン(IE)

　　　　新規抽選(IE)


　　　　小幡庭球(IE) //ラヂオボタン

　　　　対象館一覧(IE)

　　　　施設の決定(IE)

no=18
　　　　日付の選択(IE,no)

面数(IE)

　　　　IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:2:chkKom-1")
　　　　IESetData(IE,True,"layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:0:chkKom-1")


//=============================================================

// ボタン layoutChildBody:childForm:lotEmptyStateListItemsItems:0:lotEmptyStateListItems--:0:chkKom-1

//=============================================================

// ======愛知ネットにはいる========

Procedure　愛知(ie)
IE.Navigate("https://www4.pref.aichi.jp/yoyaku/index.jsp")
BusyWait(ie)
Fend

//========施設予約システムに入る=================
Procedure 施設予約システムに入る(IE)
IE.navigate("javaScript: doSubmit('childForm', 'doLogin');" )
BusyWait(IE)
Fend

//================ログイン======================
Procedure　ログイン(IE)
IE.document.getElementById("doLogin").click()
BusyWait(IE)
sleep(0.2)
Fend

//================新規抽選====================== goLotSerach
Procedure　新規抽選(IE)
IE.document.getElementById("goLotSerach").click()
BusyWait(IE)
sleep(0.2)

Fend

//================小幡庭球======================
Procedure　小幡庭球(IE)
IESetData(IE,True,"layoutChildBody:childForm:selectClscd","180")
BusyWait(IE)
Fend



//================対象館一覧を表示======================
Procedure　対象館一覧(IE)
IE.document.getElementById("doSearch").click()
BusyWait(IE)
Fend

//================施設の決定======================
Procedure　施設の決定(IE)
IE.document.getElementById("doAreaSet").click()
BusyWait(IE)
Fend

//================日付の選択======================
Procedure　日付の選択(IE,no)
if no=1 then ban="1"
if no=2 then ban="2"
if no=3 then ban="3"
if no=4 then ban="4"
if no=5 then ban="5"
if no=6 then ban="6"
if no=7 then ban="7"
if no=8 then ban="8"
if no=9 then ban="9"
if no=10 then ban="10"
if no=11 then ban="11"
if no=12 then ban="12"
if no=13 then ban="13"
if no=14 then ban="14"
if no=15 then ban="15"
if no=16 then ban="16"
if no=17 then ban="17"
if no=18 then ban="18"
if no=19 then ban="19"
if no=20 then ban="20"
if no=21 then ban="21"
if no=22 then ban="22"
if no=23 then ban="23"
if no=24 then ban="24"
if no=25 then ban="25"
if no=26 then ban="26"
if no=27 then ban="27"
if no=28 then ban="28"
if no=29 then ban="29"
if no=30 then ban="30"
if no=31 then ban="31"


id = GETID("抽選申込日時設定／ネットあいち施設予約システム - Internet Explorer", "IEFrame", -1)
SLEEP(0.2)
CLKITEM(id, ban, CLK_LINK)
BusyWait(ie)
Fend

//================面数====================== ここ
Procedure　面数(IE)
IESetData(IE,True,"selectFieldCnt","2")
BusyWait(IE)
Fend


//===============
Procedure BusyWait(ie)
　repeat
　　Sleep(0.1)
　until (! ie.busy) and (ie.readyState=4)
Sleep(0.2)
Fend

//=================================

何度もすみません。皆様をわずらわせています。
こんどは、コート面数のセットができません。２面にしたくて、上のようにやってみたのですが、動きません。
ご教示ください。
No.3881 2017/05/06(Sat) 13:21:44
☆ Re: 選択ボックスの値の変え方を教えてください / テニスじいさん

お騒がせしました。解決しました。
No.3883 2017/05/06(Sat) 14:49:17
☆ Re: 選択ボックスの値の変え方を教えてください / K.Nagatani
日付の選択が長いので・・・
//================日付の選択======================
Procedure　日付の選択(IE,no)
ban=(no + "")
id = GETID("抽選申込日時設定／ネットあいち施設予約システム - Internet Explorer", "IEFrame", -1)
SLEEP(0.2)
CLKITEM(id, ban, CLK_LINK)
BusyWait(ie)
Fend
No.3884 2017/05/06(Sat) 15:27:00
★ カレンダーの日付を変更したいのですが / テニスじいさん
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
愛知(IE)

id="01068868"
paswd="Aich0075"

施設予約システムに入る(IE)

IESetData(IE,id,"layoutChildBody:childForm:userid")　　　　　　　　 // Id
IESetData(IE,paswd,"layoutChildBody:childForm:passwd") // 暗証番号

ログイン(IE)

　　　　新規抽選(IE)


　　　　小幡庭球(IE) //ラヂオボタン

　　　　対象館一覧(IE)

　　　　施設の決定(IE)

　　　　日付の選択(IE)



//=============================================================

// ボタン "layoutChildBody:childForm:day" value="4"

//=============================================================

// ======愛知ネットにはいる========

Procedure　愛知(ie)
IE.Navigate("https://www4.pref.aichi.jp/yoyaku/index.jsp")
BusyWait(ie)
Fend

//========施設予約システムに入る=================
Procedure 施設予約システムに入る(IE)
IE.navigate("javaScript: doSubmit('childForm', 'doLogin');" )
BusyWait(IE)
Fend

//================ログイン======================
Procedure　ログイン(IE)
IE.document.getElementById("doLogin").click()
BusyWait(IE)
sleep(0.2)
Fend

//================新規抽選====================== goLotSerach
Procedure　新規抽選(IE)
IE.document.getElementById("goLotSerach").click()
BusyWait(IE)
sleep(0.2)

Fend

//================小幡庭球======================
Procedure　小幡庭球(IE)
IESetData(IE,True,"layoutChildBody:childForm:selectClscd","180")
BusyWait(IE)
Fend



//================対象館一覧を表示======================
Procedure　対象館一覧(IE)
IE.document.getElementById("doSearch").click()
BusyWait(IE)
Fend

//================施設の決定======================
Procedure　施設の決定(IE)
IE.document.getElementById("doAreaSet").click()
BusyWait(IE)
Fend

//================日付の選択======================
Procedure　日付の選択(IE)
IESetData(IE,True,"layoutChildBody:childForm:day","8")
BusyWait(IE)
Fend


//===============
Procedure BusyWait(ie)
　repeat
　　Sleep(0.1)
　until (! ie.busy) and (ie.readyState=4)
Sleep(0.2)
Fend

//=================================


何度もすみません。カレンダーの日付を、８日にしたくて、上のような形にしてみました。反応しません。
どうしたらいいのでしょうか。ソースは下のようになっております。


<input type="hidden" id="day" name="layoutChildBody:childForm:day" value="1" />
No.3868 2017/05/04(Thu) 22:22:29
☆ Re: カレンダーの日付を変更したいのですが / K.Nagatani
ただ表示されたカレンダーの「８」を押すのならこの方法もあります。
//================日付の選択======================
Procedure　日付の選択(IE)

SLEEP(2)
//IESetData(IE,True,"layoutChildBody:childForm:day","8")
id = GETID("抽選申込日時設定／ネットあいち施設予約システム - Internet Explorer", "IEFrame", -1)
SLEEP(1)
CLKITEM(id, "8", CLK_LINK)

//BusyWait(IE)
Fend
No.3871 2017/05/05(Fri) 15:10:44
☆ Re: カレンダーの日付を変更したいのですが / テニスじいさん
nagatani様
ありがとうございました。うまくいきました。ネックでしたのでとても助かりました。
No.3882 2017/05/06(Sat) 13:24:27
★ 配列ソートに並び替える数字の桁数を合わせる必要について / よっさん
stuncloud様のサイトにある配列のソートについて色々研究していたのですが、keyの数字の桁数がバラバラだとうまくソートされません。下記のコードでは2桁で統一されているのでうまくソートされます。例えば下記のような感じです。
DIM key[] = 40, 2250, 250

FORMAT関数で桁数を整えるしかないのでしょうか?以下がstuncloud様が作成された貴重なコードです。


OPTION EXPLICIT

DIM key[] = 40, 50, 50, 20, 20, 30, 20, 10
DIM val[] = "aa", "dd", "bb", "cc", "bb", "cc", "dd", "bb"

DIM key2 = SPLIT(JOIN(key)), val2 = SPLIT(JOIN(val))

PrintArray("original", key2, val2)
QSort(key2, 0, val2)
PrintArray("QSort", key2, val2)

key2 = SPLIT(JOIN(key))
val2 = SPLIT(JOIN(val))
QSortVal(key2, val2)
PrintArray("QSortVal", key2, val2)

key2 = SPLIT(JOIN(key))
val2 = SPLIT(JOIN(val))
StableSort(key2, val2)
PrintArray("StableSort", key2, val2)


PROCEDURE PrintArray(msg, keyArr[], valArr[])
PRINT msg
PRINT " key: " + JOIN(keyArr)
PRINT " val: " + JOIN(valArr)
FEND

PROCEDURE StableSort(var keyArr[], var valArr[], order=0)
DIM i, idx = -1, sub, j, m = LENGTH(keyArr) - 1, oarr = SAFEARRAY(0, m), suo, b
FOR i = 0 TO m
oarr[i] = i
NEXT
QSORT(keyArr, order, valArr, oarr)
FOR i = 1 TO m
b = (keyArr[i] = keyArr[i-1])
IF b AND idx < 0 THEN idx = i - 1
IFB idx >= 0 AND (!b OR i = m) THEN
IF b THEN i = i + 1
sub = SLICE(valArr, idx, i - 1)
suo = SLICE(oarr, idx, i - 1)
QSORT(suo, 0, sub)
FOR j = idx TO i - 1
valArr[j] = sub[j - idx]
NEXT
idx = -1
ENDIF
NEXT
FEND

PROCEDURE QSortVal(var keyArr[], var valArr[], order=0)
DIM i, idx = -1, sub, j, m = LENGTH(keyArr) - 1, b
QSORT(keyArr, order, valArr)
FOR i = 1 TO m
b = (keyArr[i] = keyArr[i-1])
IF b AND idx < 0 THEN idx = i - 1
IFB idx >= 0 AND (!b OR i = m) THEN
IF b THEN i = i + 1
sub = SLICE(valArr, idx, i - 1)
QSORT(sub, order)
FOR j = idx TO i - 1
valArr[j] = sub[j - idx]
NEXT
idx = -1
ENDIF
NEXT
FEND
No.3878 2017/05/06(Sat) 10:28:50
☆ Re: 配列ソートに並び替える数字の桁数を合わせる必要について / よっさん
FORMAT関数で試してもうまくいきませんでした。例えば、4桁でFORMATしたのですが、下記のような感じです。一部分を抜粋：REPLACE(FORMAT(val(Matches.Item(i).SubMatches(0)), 4), " ", "0")+":")

QSort
key: 全国 北海道･東北 東海 関東
val: 1213 0048 0015 0789

QSortVal
key: 全国 北海道･東北 東海 関東
val: 1213 0048 0015 0789

StableSort
key: 全国 北海道･東北 東海 関東
val: 1213 0048 0015 0789
No.3879 2017/05/06(Sat) 10:45:39
☆ Re: 配列ソートに並び替える数字の桁数を合わせる必要について / よっさん
訂正です。junjun様のサイトで掲載されているjunjun様が作成されたコードです上記のコード文は！
失礼致しました。色々サイトを見ていてどのサイトで掲載されていたかうろ覚えでした。
stuncloud様、junjun様大変失礼致しました。
No.3880 2017/05/06(Sat) 11:24:00
★ Matches.Item(0).Valueで取得したデータを配列に挿入する方法 / よっさん
for文を利用して正規表現でパターンて検索したデータを配列に順番にいれる方法ないでしょうか？
例えば、aというページで正規表現で一つのデータを取得してそれを配列に入れて、
次にbというページで正規表現でパターン検索して1つのデータを取得して配列にいれたいです。
どうかご教授頂けませんでしようか？

for i =1 to 3
//iページに接続
Public regvb=CREATEOLEOBJ("VBScript.RegExp")

文字列全体=test
Pattern="現在のページ\s/\s\d"

Matches=regvb_Execute(文字列全体, Pattern)
print Matches.Item(0).Value
next
//正規表現
Function regvb_Execute(str, Pattern, IgnoreCase=TRUE, Global=TRUE)
regvb.IgnoreCase=IgnoreCase
regvb.Global=Global
regvb.Pattern=Pattern
Matches=regvb.Execute(str)
Result=Matches
Fend
No.3855 2017/05/03(Wed) 16:38:42
☆ Re: Matches.Item(0).Valueで取得したデータを配列に挿入する方法 / 森
骨格だけですが、やりたいことはこんな感じ？
※質問に書かれている正規表現等は精査していません。

// 配列の変数宣言
dim data[3]

// 検索結果を配列に格納するループ
for i = 1 to 3
　data[i] = kensaku(文字列全体, Pattern)
next

// 検索結果を返す関数
function kensaku(文字列全体, Pattern)
　ここに検索のスクリプト
　result = Matches
fend
No.3863 2017/05/04(Thu) 09:56:04
☆ Re: Matches.Item(0).Valueで取得したデータを配列に挿入する方法 / よっさん
森様、貴重な骨格ありがとうございます。やりたい事ができました。森様のコードかなり私にとっては貴重な有り難いコードでした。
No.3876 2017/05/06(Sat) 10:16:28
★ ファイルを開く方法 / ビギナー
指定したファイルを開くプログラムを書こうとしています。
何度変更してみても開くことができません。
inputにはC:\Users\〜からすべて入力しています。
どうすればいいのか教えてください。

MYPATH = INPUT("ファイルパス") //exeの指定
MYFILE = INPUT("ファイル") //ファイルの指定
exec(MYPATH + MYFAILE) //ファイルを開く
No.3872 2017/05/05(Fri) 20:01:56
☆ Re: ファイルを開く方法 / K.Nagatani
多分で申し訳ありませんが
EXEC関数にてスペースを含んだパス、ファイルを実行する事が出来ない　　#N24
No.3873 2017/05/05(Fri) 20:33:11
☆ Re: ファイルを開く方法 / 森
MYPATH と MYFAILE の間にスペースが必要です。
さらに、FAQ #N24に書いてあるように、EXEC関数ではスペースを含める場合には"ダブルコーテーション"で括る必要があります。
http://www.uwsc.info/faq.html#N24
No.3874 2017/05/06(Sat) 07:37:21
★ (No Subject) / テニスじいさん
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
愛知(IE)

id="01068868"
paswd="Aich0075"

施設予約システムに入る(IE)

IESetData(IE,id,"layoutChildBody:childForm:userid")　　　　　　　　 // Id
IESetData(IE,paswd,"layoutChildBody:childForm:passwd") // 暗証番号

ログイン(IE)

　　　　新規抽選(IE)

　　　　小幡庭球(IE)

//=============================================================

// ボタン
//=============================================================

// ======愛知ネットにはいる========

Procedure　愛知(ie)
IE.Navigate("https://www4.pref.aichi.jp/yoyaku/index.jsp")
BusyWait(ie)
Fend

//========施設予約システムに入る=================
Procedure 施設予約システムに入る(IE)
IE.navigate("javaScript: doSubmit('childForm', 'doLogin');" )
BusyWait(IE)
Fend

//================ログイン======================
Procedure　ログイン(IE)
IE.document.getElementById("doLogin").click()
BusyWait(IE)
Fend

//================新規抽選======================
Procedure　新規抽選(IE)
IE.document.getElementById("goLotSerach").click()
BusyWait(IE)
Fend

//================小幡庭球======================
Procedure　小幡庭球(IE)
IE.document.getElementById("layoutChildBody:childForm:selectClscd ").click()
BusyWait(IE)
Fend

//===============
Procedure BusyWait(ie)
　repeat
　　Sleep(0.1)
　until (! ie.busy) and (ie.readyState=4)
Sleep(0.2)
Fend

//=================================

　しろまささま、ありがとうございました。今度は
ラヂオボタンの押し方がわかりません。たくさんあっていろいろ番号がふってあるようですが、どうして区別するのかわかりません。バカの一つ覚えのようにやっています。ちなみに、当該ボタンは次のように表記されています。度々で申し訳ないですが、お助けください。

<input type="radio" id="clscd" name="layoutChildBody:childForm:selectClscd" value="180" />
No.3846 2017/05/02(Tue) 22:46:39
☆ Re: / miles
ＵＷＳＣサンプルを参考にしてください。
（update 2017/04/16 になっていた）

Internet Explorer 上での文字設定、ボタンのクリック　　#N33
http://www.uwsc.info/sample.html#N33

検証していませんが、
IESetData(IE,True,"layoutChildBody:childForm:selectClscd","180")
かな？
No.3853 2017/05/03(Wed) 09:41:32
☆ Re: / テニスじいさん
ありがとうございました。IESetDataがこういうふうに使えるとは知りませんでした。助かりました。
なおタイトルを忘れていました。気をつけます。
No.3858 2017/05/03(Wed) 16:49:21
★ パラメーターについて質問です / しんじ
パラメータについて
0 = PARAM_STR[0]
MSGBOX("0")

1 = PARAM_STR[0]
MSGBOX("1")
...etc
このような感じで送られてきたパラメーターごとに処理を分けたいのですが
よくわかりませんわかる方いましたらよろしくお願いします
No.3835 2017/05/02(Tue) 05:05:15
☆ Re: パラメーターについて質問です / 俄プログラマー
ヘルプファイルより

　//　Select　Selend 文
　SELECT　式
　　CASE 式　　　　　　　//　数値でも文字でも変数でもＯＫ
　　　　処理
　　[CASE　式, 式]　　　 //　,カンマによる複数表記可
　　　　処理
　　[DEFAULT]　　　　　　//　デフォルト
　　　　処理
　SELEND
No.3836 2017/05/02(Tue) 05:31:25
☆ Re: パラメーターについて質問です / しんじ
ありがとうございます
No.3840 2017/05/02(Tue) 19:45:47
☆ Re: パラメーターについて質問です / しんじ
すいませんやはりできないです
文の中にIFB GETKEYSTATE(TGL_IME)を入れてるのですがループかブロックをふさいでいると出ます
どうすればいいでしょうかbreakを使いましたがうまくいかないです
No.3841 2017/05/02(Tue) 21:29:21
☆ Re: パラメーターについて質問です / 俄プログラマー
//私は超能力者ではないのでソースを提示して頂けないと答えようがないです。

SELECT PARAM_STR[0]
　CASE 0
　　MSGBOX("0")
　CASE 1
　　MSGBOX("1")
SELEND
No.3842 2017/05/02(Tue) 22:29:58
☆ Re: パラメーターについて質問です / user
■処理をふりわける方法について。
サンプルです。
質問にある「0 = PARAM_STR[0]」って、ifbの中で使われているんですよね？
もしエラーになっている部分について目星がつくなら、そのあたりの行ごと引用したほうが、適切な回答が得られやすいと思います。よくわかんないなら、いったん全部なげてもよいかも。

p=input("入力してください")

select　p
　　　　case　1
　　　　　　　　msgbox(1)
　　　　case　2
　　　　　　　　msgbox(2)
selend

//上と同じ　単純に割り振るなら、上のほうがわかりやすいかも。
ifb　p=1　then
　　　　msgbox(1)
elseif　p=2
　　　　msgbox(2)
endif
No.3844 2017/05/02(Tue) 22:34:44
☆ Re: パラメーターについて質問です / user
■TGL_IMEについて
・Windowsは、通常アプリごとにIMEの状態を保持しています。メモ帳ではONだけど、エクセルではOFFとか（ただし、IMEによっては、全てのアプリで状態を共有する設定にもできるはず）
・GETKEYSTATE(TGL_IME)は、アクティブなウィンドウ（アプリ）のIMEの状態を拾うらしい。
※http://uwsc.wpblog.jp/?p=129
※デバッガで試したけれど、半角全角キーでのトグルは拾えなかった（デバッガだからかも？）

//TGL_IMEのテスト
while　true
　　　　sleep(0.1)
　　　　IFB　GETKEYSTATE(TGL_IME)　then
　　　　　　　　break
　　　　endif
wend
msgbox("IMEトグル?")
No.3845 2017/05/02(Tue) 22:46:23
☆ Re: パラメーターについて質問です / しんじ
すいません失礼しました
以下がcaseの中に入れるコードです
LOCKHARD(TRUE)

GETTIME()
date = "" + G_TIME_MM2 + "月" + G_TIME_DD2 + "日"
time = "" + G_TIME_HH2 + "時" + G_TIME_NN2 + "分" + G_TIME_SS2 + "秒"


FSO = CreateOLEObj("Scripting.FileSystemObject")
IFB FSO.FolderExists("")
ELSE
folder_name =""
Doscmd("mkdir C:\" + folder_name)
ENDIF


x2=G_MOUSE_X
y2=G_MOUSE_Y

id1=GETID("0",)
id = GetId("")
CTRLWIN(id, SHOW)
CTRLWIN(id, ACTIVATE)
IFB (STATUS(id, ST_ACTIVE)="True")AND(STATUS(id1, ST_TITLE)="")AND(STATUS(id1, ST_ACTIVE)="False")

　title = STATUS(id, ST_TITLE)
　x = STATUS(id, ST_X)
　y = STATUS(id, ST_Y)
　　X1=4+RANDOM(4)
　Y1=4+RANDOM(4)
fileID = FOPEN("", F_READ)
str = FGET(fileID, 1)
FCLOSE(fileID)
IFB (str="")

MMV(x,y)
　　BTN(LEFT,CLICK)
for 回数 = 1 to 6
KBD(VK_BACK,CLICK)
next
If GETKEYSTATE(TGL_IME) Then KBD(VK_KANJI,CLICK)
fileID = FOPEN("", F_READ)
for i = 1 to FGET(fileID, -1)
　KBD(ASC(FGET(fileID,i)))
next
FCLOSE(fileID)
MMV(x, y)
k=(2)/10+(RANDOM(1))/10
　SLEEP(0+k)
BTN(LEFT,CLICK)

fileID = FOPEN("", F_READ or F_WRITE)
FPUT(fileID, date + " " + time + "")
FCLOSE(fileID)
LOCKHARD(FALSE)

ELSE

Sleep(0.3)
MMV(x, y)
　　BTN(LEFT,CLICK)
Sleep(0.2)
　MMV(x,y)
　　BTN(LEFT,CLICK)
Sleep(0.2)
MMV(x,y)
　　BTN(LEFT,CLICK)
for 回数 = 1 to 6
KBD(VK_BACK,CLICK)
next
If GETKEYSTATE(TGL_IME) Then KBD(VK_KANJI,CLICK)
fileID = FOPEN("", F_READ)
for i = 1 to FGET(fileID, -1)
　KBD(ASC(FGET(fileID,i)))
next
FCLOSE(fileID)
MMV(x, y)
k=(2)/10+(RANDOM(1))/10
　SLEEP(0+k)
BTN(LEFT,CLICK)
　MMV(x2,y2)

fileID = FOPEN("", F_READ or F_WRITE)
FPUT(fileID, date + " " + time + ")
FCLOSE(fileID)
fileID = FOPEN("", F_WRITE)
FPUT(fileID, "")
FCLOSE(fileID)
LOCKHARD(FALSE)
ENDIF
ELSE


LOCKHARD(FALSE)
MMV(x2,y2)
ENDIF
No.3849 2017/05/03(Wed) 00:22:28
☆ Re: パラメーターについて質問です / 俄プログラマー
最初の質問と内容が変わってきていますね。

＞ループかブロックをふさいでいると出ます
提示されたソースでは出ないですね。
繰り返し処理の途中で条件分岐をちゃんと終えていますか？

while true

　if 〜〜

wend
　endif

などになっていませんか？


取りあえず気になったところだけ挙げておきます。

id1=GETID("0",)
id1=GETID("0")


FPUT(fileID, date + " " + time + ")
FPUT(fileID, date + " " + time + "")


エラーになっている周辺の処理を一旦別のテキストファイルにコピー（退避）しておいて
print "処理A"
などと適当にわかるような物に変えてみてください。
細かな処理はそのあと一つずつ追加して動作確認しながら進めてください。
先のスレでも書きましたが一度で一気に複雑な事をするのは止めましょう。
エラーが出ても訳が分からなくなるだけですよ。
No.3850 2017/05/03(Wed) 01:21:09
☆ Re: パラメーターについて質問です / しんじ
If GETKEYSTATE(TGL_IME) Then KBD(VK_KANJI,CLICK)
この部分でふさいでいるとエラーが出ました
一番最初の質問に関しては解決はしたのですが
これはもともと一つ一つファイルに組み込んでいたもので
一つのファイルで管理できたらなと思いパラメータで分担処理をしようとしたところ
上記のようなエラーが出たため質問させていただきました次第でございます
No.3851 2017/05/03(Wed) 01:36:44
★ エクセルブック間でXLSETDATAを使って列の貼り付けをしたい。 / sen
いつもお世話になっております。
XLSETDATAを使って転記していたのですが、うまくいきません。
思い切って、エクセルのマクロを実行する形でやったら、簡単にできました。
しかし、XLSETDATAのやり方で試行錯誤を繰り返していたので、残念な思いもあります。
もし宜しければ、ご教授願います。


//?@XLSETDATAを使用した場合　うまく動かない・・・A:Hまでならうまく動く
Excel = XLOPEN("C:\Nrb0000.CSV")
元 = XLGETDATA(Excel,"A:AQ")
XLCLOSE(Excel,TRUE)

Excel2 = XLOPEN("C:\ピポット転記売上明細.xlsm")
XLACTIVATE(Excel2, "明細")
XLSETDATA(Excel2,元,"A:AQ")
XLCLOSE(Excel2)


//?Aエクセルのマクロを使った場合・・・うまく動く
DIM Excel2 = XLOPEN("C:\Nrb0000.CSV")
DIM Excel = XLOPEN("C:\ピポット転記売上明細.xlsm")
XLACTIVATE(Excel, "明細")
excel.run("転記")
XLCLOSE(Excel)

//エクセルマクロ
//Sub 転記()
// Application.DisplayAlerts = False
// Windows("Nrb0000.CSV").Activate
// Columns("A:AQ").Select
// Selection.Copy
// Windows("ピポット転記売上明細.xlsm").Activate
// Columns("A:AQ").Select
// ActiveSheet.Paste
//End Sub
No.3820 2017/04/30(Sun) 23:03:52
☆ Re: エクセルブック間でXLSETDATAを使って列の貼り付けをしたい。 / しき
どの行でエラーになりますか？
私の環境では、A:AQはエラー A:J はOKでした
Excel2007 win7x64 PC core i5 メモリ8GB
データ量が大きいとエラーになるのでは？メモリー量依存かも

Excel = XLOPEN("C:\Nrb0000.CSV")
//元 = XLGETDATA(Excel,"A:AQ")　　 //エラー
//元 = XLGETDATA(Excel,"A:J")　　 //OK
//元 = XLGETDATA(Excel,"A:B")　　　//OK
元 = XLGETDATA(Excel,"A1:AQ4")　 //OK

msgbox(length(元) +", "+ length(元[1]))　//4, 43
No.3824 2017/05/01(Mon) 16:02:11
☆ Re: エクセルブック間でXLSETDATAを使って列の貼り付けをしたい。 / sen
ありがとうございます。

元 = XLGETDATA(Excel,"A:AQ")
でエラーまずなります。

列を少なくすると、
XLACTIVATE(Excel2, "明細")
でなる時もあります。
この行を削除してうまくいく時もあります。

最後に、
XLSETDATA(Excel2,元,"A:AQ")
でなります。

システムは、
WINDOWS10 HOME64
EXCEL2016
I5-6400 2.7GHZ
8GB
です。
No.3831 2017/05/01(Mon) 22:56:53
☆ Re: エクセルブック間でXLSETDATAを使って列の貼り付けをしたい。 / routa
行番号を忘れずに付けましょう。
元 = XLGETDATA(Excel,"A1:AQ5")
XLSETDATA(Excel2,元,"A1")
No.3832 2017/05/02(Tue) 00:11:46
☆ Re: エクセルブック間でXLSETDATAを使って列の貼り付けをしたい。 / しき
Excelでマクロ実行してもエラーが起きます。
この方法を使うなら、範囲を狭くするしかないでしょう

//エクセルマクロ
Sub Macro1()
Set o_range = Range("A:AQ")
v = o_range.Value

MsgBox UBound(v)
End Sub

//エラー内容
実行時エラー '7':

メモリが不足しています｡
No.3838 2017/05/02(Tue) 17:05:03
☆ Re: エクセルブック間でXLSETDATAを使って列の貼り付けをしたい。 / sen
そうですか。
残念です。

取り敢えず、パターン?Aで動いているみたいなので、これで頑張ります。

初めて使ったuwscのxlopenとexcel.runの組合せは、ワクワクします。
僅か４行で二つのブックの操作をできるのは偉大で、これならスケジュール設定も可能だし、
フルパスは、以前教えて頂いたsendstr(0,param_str[0])で楽々、収得。
エクセルマクロは、自動記録です。

今まで、データベースから抽出されたcsvに対して計算して付け加えていましたが、
これなら、エクセルの関数もピポットテーブルも、作り込んだのを使い回せます。

xlopenとexcel.runの組合せで可能性無限大です。

ありがとうございました。
No.3848 2017/05/02(Tue) 23:07:57
★ リンク先へ上手く行けない / ＲＡＭ
IESETDATA(IE,TRUE,"TAG=IMG","○○○")

上記の式を使って、ＵＲＬを貼っているのですが回してみるとそのページに飛ばず。

IE.document.links.item(○).click(○)

こちらの式を使ってみると、別のページへ飛び、これ以降の操作ができなくなってしまいます。


解決する方法はあるのでしょうか？
No.3795 2017/04/25(Tue) 12:33:51
☆ Re: リンク先へ上手く行けない / stuncloud
> IESETDATA(IE,TRUE,"TAG=IMG","○○○")
"TAG=IMG" としてるからでは…？

> 別のページへ飛び、これ以降の操作ができなくなってしまいます。
変数IEと新しく開いたページが別物なんじゃないかなって気がします
IE2 = getactiveoleobj("InternetExplorer.Application", "新しく開いたページのタイトル")
として以降IE2で操作しましょう
(古い変数IE(とそこに表示してるページ)を使わないのであればそっちに上書きしちゃっても別に良いですよ)
No.3797 2017/04/25(Tue) 16:45:20
☆ Re: リンク先へ上手く行けない / ＲＡＭ
返信ありがとうございます。

その新しく開いたページがランダムの場合、ページのタイトルが確定しないのですが、どうすればよいでしょうか？
また、上書き方法がよくわからないので、そちらも合わせてお教えいただけるとありがたいです。
No.3800 2017/04/26(Wed) 00:53:16
☆ Re: リンク先へ上手く行けない / しゅん
> その新しく開いたページがランダムの場合、ページのタイトルが確定しないのですが、どうすればよいでしょうか？
状況により最適な方法は異なります。
もうちょっと具体的に回答してもらえないと、回答はつかないと思いますよ。


> また、上書き方法がよくわからないので、そちらも合わせてお教えいただけるとありがたいです。

IE2 = getactiveoleobj("InternetExplorer.Application", "新しく開いたページのタイトル")
と書くのではなく
IE = getactiveoleobj("InternetExplorer.Application", "新しく開いたページのタイトル")
と書く、という意味です。
IEという変数の中身が、元のページから新しいページになります。
No.3801 2017/04/26(Wed) 09:15:40
☆ Re: リンク先へ上手く行けない / ＲＡＭ
返答ありがとうございます。

具体的ですか…一日置にそのリンク先のページが変わる、という感じだと伝わるでしょうか？
No.3814 2017/04/28(Fri) 19:09:21
☆ Re: リンク先へ上手く行けない / しゅん
残念ながら私には伝わりません。

どこのページなのか具体的に言った方が良いと思いますが、、、それでも実際にあなたがやりたいことを具体的に表現しているとは限らなかったりもします。
難しいですね。
No.3821 2017/05/01(Mon) 08:53:08
☆ Re: リンク先へ上手く行けない / ＲＡＭ
説明不足で申し訳ありません。

IE２で新しく開いたタイトル(リンク先)がランダムの場合。
IE = getactiveoleobj("InternetExplorer.Application", "新しく開いたページのタイトル")

この式の「新しく開いたページのタイトル」が確定しない場合。

この場合はどうすればよいでしょうか？


このような文だと伝わるでしょうか？
No.3843 2017/05/02(Tue) 22:32:30
全1170件 [ ページ : << 1 ... 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ... 117 >> ]