daily pastebin goal
50%
SHARE
TWEET

Untitled

a guest Jun 19th, 2017 45 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. folder = left(WScript.ScriptFullName, (len(WScript.ScriptFullName)) - (len(WScript.ScriptName)))
  2.  
  3. Set filesys = CreateObject("Scripting.FileSystemObject")
  4.  
  5. If filesys.FileExists(folder & "NSART.DAT") Then
  6. Else
  7.     WScript.Echo "NSART.DAT is niet gevonden in """ & folder & """"
  8.     WScript.quit
  9. End If
  10.  
  11. set rTransfer = WScript.CreateObject("rTransfer.Protocol", "rTransfer_")
  12.  
  13. Set ProgressBar = CreateObject("InternetExplorer.Application")
  14.  
  15. SwOk = rTransfer.Open(0, 1, False)
  16.  
  17. With ProgressBar
  18.     .MenuBar = False
  19.     .ToolBar = False
  20.     .StatusBar = False
  21.     .FullScreen = False
  22.     .AddressBar = False
  23.     .Height = 50
  24.     .Width = 230
  25.     .Resizable = False
  26.  
  27.     .Visible = True
  28.     .Navigate2 folder & "ProgressBar.html"
  29. End With
  30.  
  31. SwOk = rTransfer.SendFile(folder & "NSART.DAT", "8 6")
  32.  
  33. SwOk = rTransfer.Close()
  34.  
  35. rTransfer_Progress(100)
  36.  
  37. sub rTransfer_Progress(data)
  38.     If data <> 0 Then
  39.         ProgressBar.Document.getElementById("pbar1").style.width = CStr(data) & "%"
  40.        
  41.         If data <> 100 Then
  42.             ProgressBar.Document.getElementById("pbartext").innerHTML = CStr(data) & "%"
  43.         Else
  44.             ProgressBar.Document.getElementById("pbartext").innerHTML = "Voltooid!"
  45.         End If
  46.        
  47.     End If
  48. end Sub
RAW Paste Data
Top