189 8069 5689
好像不难吧？
成都创新互联是一家专业提供蕉岭企业网站建设,专注与网站设计制作、成都网站制作、H5高端网站建设、小程序制作等业务。10年已为蕉岭众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。
我放进了Button1的Click事件里。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo Errmessages '在做系统操作时加排错标签是个好习惯
Dim TargetName As String = "ibmdict" '存储进程名为文本型，注：进程名不加扩展名
Dim TargetKill() As Process = Process.GetProcessesByName(TargetName) '从进程名获取进程
Dim TargetPath As String '存储进程路径为文本型
If TargetKill.Length 1 Then '判断进程名的数量，如果同名进程数量在2个以上，用For循环关闭进程。
For i = 0 To TargetKill.Length - 1
TargetPath = TargetKill(i).MainModule.FileName
TargetKill(i).Kill()
Next
ElseIf TargetKill.Length = 0 Then '判断进程名的数量，没有发现进程直接弹窗。不需要的，可直接删掉该If子句
MsgBox("没有发现进程！")
Exit Sub
ElseIf TargetKill.Length = 1 Then '判断进程名的数量，如果只有一个，就不用For循环
TargetKill(0).Kill()
End If
MsgBox("已终止" TargetKill.Length "个进程") '弹窗提示已终止多少个进程
Errmessages: ‘定义排错标签
If Err.Description Nothing Then ’判断有无错误，如果有，则 ↓
MsgBox(Err.Description) '当出现错误时，弹窗提示
End If
End Sub
可根据需要自行修改，这个备注够完善了吧？不会的再Hi我。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For s = 1 To 11 Step 10
t1 = New Threading.Thread(AddressOf setA)
t2 = New Threading.Thread(AddressOf setB)
t3 = New Threading.Thread(AddressOf setC)
t4 = New Threading.Thread(AddressOf setD)
t5 = New Threading.Thread(AddressOf setE)
t6 = New Threading.Thread(AddressOf setF)
t7 = New Threading.Thread(AddressOf setG)
t8 = New Threading.Thread(AddressOf setH)
t9 = New Threading.Thread(AddressOf setI)
t10 = New Threading.Thread(AddressOf setJ)
错误》》》 t1.Start()
t2.Start()
t3.Start()
t4.Start()
t5.Start()
t6.Start()
t7.Start()
t8.Start()
t9.Start()
t10.Start()
Next
同楼上，每个Thread只能运行一次
使用api
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long