daily pastebin goal
35%
SHARE
TWEET

Untitled

a guest Jun 19th, 2017 46 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top