https://baozam.org/index.php?action=history&feed=atom&title=Template%3AData_export%2Fvbs
Template:Data export/vbs - Revision history
2026-04-15T03:41:34Z
Revision history for this page on the wiki
MediaWiki 1.25.3
https://baozam.org/index.php?title=Template:Data_export/vbs&diff=773&oldid=prev
Baya at 10:47, 8 February 2017
2017-02-08T10:47:55Z
<p></p>
<table class='diff diff-contentalign-left'>
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 10:47, 8 February 2017</td>
</tr><tr><td colspan="2" class="diff-lineno" id="L21" >Line 21:</td>
<td colspan="2" class="diff-lineno">Line 21:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>     Set objFSO = CreateObject( "Scripting.FileSystemObject" )</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>     Set objFSO = CreateObject( "Scripting.FileSystemObject" )</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>     ' Create <del class="diffchange diffchange-inline">or open </del>the target file</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>     ' Create the target file</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>     Set objFile = objFSO.CreateTextFile( mySaveTo, True, True ) ' <del class="diffchange diffchange-inline">second True = </del>unicode</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>     Set objFile = objFSO.CreateTextFile( mySaveTo, True, True ) ' <ins class="diffchange diffchange-inline">overwrite, </ins>unicode</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>     ' Create an HTTP object</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>     ' Create an HTTP object</div></td></tr>
</table>
Baya
https://baozam.org/index.php?title=Template:Data_export/vbs&diff=772&oldid=prev
Baya at 10:46, 8 February 2017
2017-02-08T10:46:01Z
<p></p>
<table class='diff diff-contentalign-left'>
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 10:46, 8 February 2017</td>
</tr><tr><td colspan="2" class="diff-lineno" id="L22" >Line 22:</td>
<td colspan="2" class="diff-lineno">Line 22:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>     ' Create or open the target file</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>     ' Create or open the target file</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>     Set objFile = objFSO.<del class="diffchange diffchange-inline">OpenTextFile</del>( mySaveTo, <del class="diffchange diffchange-inline">ForWriting</del>, True )</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>     Set objFile = objFSO.<ins class="diffchange diffchange-inline">CreateTextFile</ins>( mySaveTo, <ins class="diffchange diffchange-inline">True</ins>, True ) <ins class="diffchange diffchange-inline">' second True = unicode</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>     ' Create an HTTP object</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>     ' Create an HTTP object</div></td></tr>
</table>
Baya
https://baozam.org/index.php?title=Template:Data_export/vbs&diff=754&oldid=prev
Baya at 11:13, 23 January 2017
2017-01-23T11:13:31Z
<p></p>
<table class='diff diff-contentalign-left'>
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 11:13, 23 January 2017</td>
</tr><tr><td colspan="2" class="diff-lineno" id="L2" >Line 2:</td>
<td colspan="2" class="diff-lineno">Line 2:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>' This Sub downloads the FILE specified in myUrl to the file specified in mySaveTo.</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>' This Sub downloads the FILE specified in myUrl to the file specified in mySaveTo.</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>Const myDevice = "<<del class="diffchange diffchange-inline">DEVICE</del>>", myUser = "<USR>", myPwd = "<PASSWORD>"</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>Const myDevice = "<<ins class="diffchange diffchange-inline">HOSTID</ins>>", myUser = "<USR>", myPwd = "<PASSWORD>"</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Const myHost = "baozam.net", mySaveTo = "D:\baozam.csv"</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Const myHost = "baozam.net", mySaveTo = "D:\baozam.csv"</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Const myPeriod = "259200", mySTime = "0", myStep = "g1d"</div></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>Const myPeriod = "259200", mySTime = "0", myStep = "g1d"</div></td></tr>
</table>
Baya
https://baozam.org/index.php?title=Template:Data_export/vbs&diff=481&oldid=prev
Baya: Created page with "<pre> ' This Sub downloads the FILE specified in myUrl to the file specified in mySaveTo. Const myDevice = "<DEVICE>", myUser = "<USR>", myPwd = "<PASSWORD>" Const myHost = "..."
2016-09-08T10:57:34Z
<p>Created page with "<pre> ' This Sub downloads the FILE specified in myUrl to the file specified in mySaveTo. Const myDevice = "<DEVICE>", myUser = "<USR>", myPwd = "<PASSWORD>" Const myHost = "..."</p>
<p><b>New page</b></p><div><pre><br />
' This Sub downloads the FILE specified in myUrl to the file specified in mySaveTo.<br />
<br />
Const myDevice = "<DEVICE>", myUser = "<USR>", myPwd = "<PASSWORD>"<br />
Const myHost = "baozam.net", mySaveTo = "D:\baozam.csv"<br />
Const myPeriod = "259200", mySTime = "0", myStep = "g1d"<br />
<br />
HTTPDownload "https://" + myHost + "/index.php?action=csv&hosts=" + myDevice + "&period=" + myPeriod + "&stime=" + mySTime + "&step=" + myStep<br />
Sub HTTPDownload( myUrl )<br />
<br />
' Based on a script found on the Thai Visa forum<br />
' http://www.thaivisa.com/forum/index.php?showtopic=21832<br />
' by Rob van der Woude<br />
' http://www.robvanderwoude.com/vbstech_internet_download.php<br />
<br />
' Standard housekeeping<br />
Dim i, objFile, objFSO, objHTTP<br />
Const ForReading = 1, ForWriting = 2, ForAppending = 8<br />
<br />
' Create a File System Object<br />
Set objFSO = CreateObject( "Scripting.FileSystemObject" )<br />
<br />
' Create or open the target file<br />
Set objFile = objFSO.OpenTextFile( mySaveTo, ForWriting, True )<br />
<br />
' Create an HTTP object<br />
Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )<br />
<br />
' Download the specified URL<br />
objHTTP.Open "POST", myUrl, False<br />
'objHTTP.Option(4) = &H3300 'WinHttpRequestOption_SslErrorIgnoreFlags = 0x3300 <br />
objHTTP.setRequestHeader "myHost", myHost<br />
objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"<br />
objHTTP.Send "name=" + myUser + "&password=" + myPwd<br />
<br />
' Write the downloaded byte stream to the target file<br />
For i = 1 To LenB( objHTTP.ResponseBody )<br />
objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )<br />
Next<br />
<br />
' Close the target file<br />
objFile.Close( )<br />
End Sub<br />
</pre></div>
Baya