korokorosketch

793 ：名無しさん＠お腹いっぱい。：2009/08/22(土) 11:02:47 ID:Kl0HawuC0
GASMenu.vbs の各行を書き換え。

23行目
Dim RefererFlag
Dim AddRefererFlag

27行目
RefererFlag = FALSE
AddRefererFlag = TRUE

274行目
RefererInfo = vbTab + “Referer: ” + external.menuArguments.document.referrer
RefererInfo = vbTab + “Referer: ” + external.menuArguments.document.url

確認
このURL解析を行いますか？
[いいえ] を選択

794 ：名無しさん＠お腹いっぱい。：2009/08/22(土) 11:05:37 ID:30CMlCRb0
»789-790 

If Instr(nowURL, “http://www.animate.tv/play.php”) > 0 Then
GASDownLoad = nowURL + vbTab + “Referer:” + external.menuArguments.document.url
End If

こんな感じでなんとなく’Add Cookie(2008/4/12)の上に入れてる
毎回解析するか尋ねられるので「いいえ」選ぶか設定で強制DLにチェックなど適宜

795 ：名無しさん＠お腹いっぱい。：2009/08/22(土) 11:10:55 ID:30CMlCRb0
»793もいいね
RefererFlag使われてないっぽいし

796 ：名無しさん＠お腹いっぱい。：2009/08/22(土) 11:53:54 ID:uFS2TCsj0
»793 
いけた！　GJ！！

797 ：名無しさん＠お腹いっぱい。：2009/08/22(土) 14:04:09 ID:7RgYb2RC0
»793-794 
GJ！どっちがいいかわからないから»794の方やってみたけど出来ました！
どうも有り難うございます。