001.<JOB>
002.<COMMENT>
003.************************************************************
004. ファイルアップロードデータ作成用
005.************************************************************
006.</COMMENT>
007.<OBJECT id="Stream" progid="ADODB.Stream" />
008.<OBJECT id="StreamWorkBin" progid="ADODB.Stream" />
009.<OBJECT id="StreamBin" progid="ADODB.Stream" />
010.<COMMENT>
011.************************************************************
012. HTTP通信用
013.************************************************************
014.</COMMENT>
015.<OBJECT id="objHTTP" progid="MSXML2.XMLHTTP" />
016.
017.<SCRIPT language=VBScript>
018.
019.strUser = "xxxxxxxx"
020.strPass = "xxxxxxxx"
021.strGallery = "999999"
022.
023.
024.
025.
026.target_url = "https://login.nifty.com/service/login"
027.Call objHTTP.Open( "POST",target_url, False )
028.Call objHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
029.strData = "username="&strUser&"&password="&strPass
030.Call objHTTP.SetRequestHeader("Content-Length",Len(strData))
031.Call objHTTP.Send(strData)
032.
033.
034.
035.
036.Call objHTTP.Open("GET","http://app.cocolog-nifty.com/t/app/gallery/manage?__mode=start_upload&set_id=" & strGallery,False)
037.Call objHTTP.Send("")
038.
039.
040.
041.
042.
043.
044.
045.
046.target_url = "http://app.cocolog-nifty.com/t/app/gallery/manage"
047.Call objHTTP.Open( "POST",target_url, False )
048.
049.
050.strBoundary = DateDiff("s", "1970/1/1 0:00:00",DateAdd("h",-9,now))
051.Call objHTTP.setRequestHeader("Content-Type", "multipart/form-data; boundary="&strBoundary)
052.
053.
054.StreamWorkBin.Open
055.StreamWorkBin.Type = 1
056.
057.
058.StreamBin.Open
059.StreamBin.Type = 1
060.
061.
062.Stream.Open
063.Stream.Charset = "shift_jis"
064.
065.
066.
067.
068.
069.
070.
071.
072.Stream.WriteText "--" & strBoundary & vbLf
073.Stream.WriteText "Content-Disposition: form-data; name=""__mode""" & vbLf & vbLf
074.Stream.WriteText "upload" & vbLf
075.Stream.WriteText "--" & strBoundary & vbLf
076.Stream.WriteText "Content-Disposition: form-data; name=""set_id""" & vbLf & vbLf
077.Stream.WriteText "492403" & vbLf
078.Stream.WriteText "--" & strBoundary & vbLf
079.Stream.WriteText "Content-Disposition: form-data; name=""num_photos""" & vbLf & vbLf
080.Stream.WriteText "5" & vbLf
081.Stream.WriteText "--" & strBoundary & vbLf
082.Stream.WriteText "Content-Disposition: form-data; name=""file1""; filename=""1248964999094603.png""" & vbLf
083.Stream.WriteText "Content-Type: image/png" & vbLf
084.Stream.WriteText vbLf
085.Stream.Position = 0
086.
087.
088.Stream.CopyTo StreamWorkBin
089.
090.
091.StreamWorkBin.Position = 0
092.StreamBin.Write StreamWorkBin.Read(StreamWorkBin.Size)
093.
094.
095.
096.StreamWorkBin.LoadFromFile("1248964999094603.png")
097.
098.
099.StreamBin.Write StreamWorkBin.Read(StreamWorkBin.Size)
100.
101.
102.StreamWorkBin.Close
103.StreamWorkBin.Open
104.StreamWorkBin.Type = 1
105.
106.
107.Stream.Close
108.Stream.Open
109.Stream.Charset = "shift_jis"
110.
111.
112.Stream.WriteText vbLf & "--" & strBoundary & "--" & vbLf
113.Stream.Position = 0
114.
115.
116.Stream.CopyTo StreamWorkBin
117.
118.
119.StreamWorkBin.Position = 0
120.StreamBin.Write StreamWorkBin.Read(StreamWorkBin.Size)
121.
122.
123.nLen = StreamBin.Size
124.StreamBin.Position = 0
125.strData = StreamBin.Read(nLen)
126.
127.
128.
129.Stream.Close
130.StreamBin.Close
131.StreamWorkBin.Close
132.
133.
134.
135.
136.Call objHTTP.SetRequestHeader("Content-Length",nLen)
137.
138.
139.
140.
141.Call objHTTP.Send(strData)
142.
143.Wscript.Echo("処理が終了しました")
144.
145.</SCRIPT>
146.</JOB>
