|
Dim WshShell
Dim CurDir
Dim oParam
'取参数
Set oParam = WScript.Arguments
if oParam.Count>0 Then
Else
WScript.Quit
End if
'获取当前路径
Set WshShell = WScript.CreateObject("WScript.Shell")
CurDir = WshShell.CurrentDirectory
'写文件操作
Function OutputData(filename)
Dim objFSOW
Dim objFileW
Set objFSOW = WScript.CreateObject("Scripting.FileSystemObject")
Set objFileW = objFSOW.OpenTextFile(filename,2,True)
objFileW.Write(filename)
objFileW.Write(vbCrLf)
objFileW.Write(vbTab)
Set objFileW = Nothing
Set objFSOW =Nothing
End Function
'WebAPI操作
'params = "{""method"":""get"",""ID"":""12""}"
Function RequestAPI(url,params)
Dim oHttp
Set oHttp = CreateObject("MSXML2.ServerXMLHTTP")
on error resume next
oHttp.Open "POST",url,False
If Err Then
RequestAPI = Err.Description
End If
On Error Goto 0
oHttp.SetRequestHeader "Content-Type","application/json"
oHttp.Send params
If oHttp.readyState<>4 Then
oHttp.waitForResponse(10)
End If
RequestAPI = oHttp.ResponseText
Set oHttp = Nothing
End Function
'TimeStamp -> Date
Function FormatDate(timestamp)
FormatDate = DateAdd("s",CLng(timestamp),"01/01/1970 00:00:00")
End Function
'Date ->TimeStamp
Function DateToTimeStamp(dateValue)
DateToTimeStamp = DateDiff("s","01/01/1970 00:00:00",dateValue)
End Function
|
