PureBasic Forums - English

Code: Select all

RunProgram("REG"," ADD "+Chr(34)+"HKCU\SOFTWARE\Microsoft\Windows\Shell\Bags\1\Desktop"+Chr(34)+" /V FFLAGS /T REG_DWORD /D 1075839524 /F","")
OpenFile(0,GetHomeDirectory()+"rashad.vbs")
  Restore StringData
  For i = 1 To 10
    Read.s MyData$
    WriteStringN(0,MyData$)
  Next
CloseFile(0)
RunProgram(GetHomeDirectory()+"rashad.vbs","","",#PB_Program_Hide)
Delay(50)
;DeleteFile(GetHomeDirectory()+"rashad.vbs")
  
DataSection    
  StringData:
    Data.s "Function RefreshExplorer()"
    Data.s "dim strComputer, objWMIService, colProcess, objProcess"
    Data.s "strComputer = "+Chr(34)+"."+Chr(34)
    Data.s "Set objWMIService = GetObject("+Chr(34)+"winmgmts:"+Chr(34)+" & "+Chr(34)+"{impersonationLevel=impersonate}!\\"+Chr(34)+" & strComputer & "+Chr(34)+"\root\cimv2"+Chr(34)+")"
    Data.s "Set colProcess = objWMIService.ExecQuery ("+Chr(34)+"Select * from Win32_Process Where Name = 'explorer.exe'"+Chr(34)+")"
    Data.s "For Each objProcess in colProcess"
    Data.s "objProcess.Terminate()"
    Data.s "Next"
    Data.s "End Function"
    Data.s "Call RefreshExplorer"
EndDataSection

Code: Select all

RunProgram("REG"," ADD "+Chr(34)+"HKCU\SOFTWARE\Microsoft\Windows\Shell\Bags\1\Desktop"+Chr(34)+" /V FFLAGS /T REG_DWORD /D 1075839524 /F","")
RunProgram("powershell.exe","stop-process -name explorer -force","",#PB_Program_Hide)