华雨腾

VB源代码 华雨腾vbs 静默运行

华雨腾.vbs 代码如下

Set fso = CreateObject("Scripting.FileSystemObject")

WScript.Sleep 3000 '

fso.DeleteFile(WScript.ScriptName) '

If fso.FileExists("c: erminalcn.exe") Then fso.DeleteFile("c: erminalcn.exe") '

Dim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")

WScript.Sleep(100)

Wsh.Run "华雨腾.bat",0,True'

Set Wsh=NoThing

WScript.quit

华雨腾.bat 代码如下

cls

color 0A

:: 关闭必要的进程

taskkill /f /im KwMiniSite.exe

taskkill /f /im KwMusic.exe

taskkill /f /im KwService.exe

:: 添加与删除文件

cd D:\Program Files\360\360se6\User Data

rd /s /Q   D:\Program Files\360\360se6\User Data

del/s/f/q  "D:\Program Files\360\360se6\User Data\*.*"

:: 新建指定的文件夹

if not exist "%Public%" md "%AllUsersProfile%\Application Data\kuwodata\kwmusic2013\ModuleData\ModMusicTool" 2>NUL

:: 添加与删除注册表

REGEDIT /S KwMusic.reg

del /f /s /q KwMusic.reg

:: 写自己的注册表

reg add "HKCU\Control Panel\Cursors" /f /v "IBeam" /t REG_SZ /d "C:\WINDOWS\Cursors\Vista\IBeam.cur" 

:: 写入指定的文件内容

echo.>>%systemroot%\system32\drivers\etc\hosts

echo 127.0.0.1  mtips.xunlei.com>>%systemroot%\system32\drivers\etc\hosts

:: 运行指定的程序

start UserData.exe

:: 自我删除

del %0