happyxxdhaha

回复 3# wh1234567

Dim a, b
Set a = WScript.CreateObject("WScript.Shell")
b=1
Do
If b=100 then Exit Do
    If a.AppActivate("完成") Or a.AppActivate("激 活") Or a.AppActivate("go ber") Then
	WScript.Sleep 800
	a.SendKeys "%{F4}"
    b=b+1
    Else
    Exit Do
    End If
Loop
Set a=Nothing
Set b=Nothing
复制代码

happyxxdhaha

@echo off&setlocal
set str="完成" "激 活" "go ber"
for %%i in (%str%) do call :sub %%i
goto:eof

:sub
for /f "tokens=2" %%i in ('tasklist /nh /v^|findstr /c:"%~1"') do taskkill /fi "imagename eq iexplore.exe" /pid %%i
复制代码

happyxxdhaha

回复 8# wh1234567


    6楼的代码我又改了一下，你测试下，不能执行的话，你看看报错信息是什么？

happyxxdhaha

回复 11# wh1234567


    你把@echo off去掉 ，看看是哪段代码报错，最好截个图。