绿坝花季护航系统设置密码修改核心代码

夏小落

Dim I As Integer
For I = 1 To 3 Step 1
    Call KillAllProcess("XNet2.exe")
    Call KillAllProcess("XDaemon.exe")
    Call KillAllProcess("MPSvcC.exe")
    Call KillAllProcess("HncEng.exe")
    Call KillAllProcess("gn.exe")
Next
Call gpvSetKeyStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\xnet2", "PASSWORD", "")
On Error Resume Next
Kill (Environ("windir") & "\system32\kwpwf.dll")
On Error GoTo 0
MsgBox "密码修改完成！" & vbCrLf & "默认密码为“112233”！", vbInformation

kiki

＝，＝

VB的代码。。。