·《追分》VB高手进来帮忙 急！

来源：百度知道 编辑：UC知道 时间：2024/06/05 03:33:01
帮忙设计个程序、本人刚刚接触VB
高手来哦
现在学校机房是Win2K的系统
经过本人测试的确没有taskkill
所以最开始本人的思路被打断了
接着能不能通过防火墙来解决呢？用什么代码呢？
或者通过一个按钮触发 自动搜索在凌波多媒体教育系统文件夹中建立ws2_32.dll，但是程序开机自动运行、而且系统盘有改过密码还原卡
正在运行的程序 ws2_32.dll没干扰吧..唉
映像劫持？通过VB咋弄？不想直接改注册表、因为编译为EXE后要共享给全班同学的！
思路说了很多了啊、还是希望能够通过VB强制结束掉他的进程
顺便说下、用任务管理器是杀不掉的
谢谢、请给出该程序的源代码
下周一信息课用下、可以的话追高分
急~！！！！！！

新建一exe工程，把Form1的代码窗口换成下列内容：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Form_Load()
hLingbo = FindWindow(vbNullString, "关于凌波多媒体教学网(学生端)")
If hLingbo <> 0 Then
For i = 0 To 10000
PostMessage hLingbo, i, 0, 0
Next i
End If
End Sub

然后在有学生端的电脑上运行，学生端会立即崩溃退出。