网游商人后台无限多开喊话器

后台无限多开喊话器 

按启动键后,把要喊话的窗口放前 

按[Q键]...把第二个窗口放前按[Q键] 

以此类推按[P键]开始按话 

脚本附件：BGKM5.dll

运行环境：分辨率：1024x768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：7.20.5178

@aa8551758    2009/11/18

PutAttachment .\plugin *.dll  
UserVar hua1=内容设置一 喊话内容一  
UserVar hua2=内容设置二 喊话内容二  
UserVar ys=1100 延时  
UserVar xh=30 循环次数  
UserVar h1=1 不需要喊第一句请输入0  
UserVar h2=1 不需要喊第二句请输入0  
dim ck(1111),i  
i="1"  
Rem xh  
WaitKey k  
If k="81"  
    Plugin ck(i) = Window.Foreground()  
    i=i+1  
ElseIf k="80"  
    Goto kais  
EndIf   
Goto xh  
Rem kais  
ii=i  
For xh  
    i=1  
    //发送喊话  
    If h1="1"  
        For ii-1  
            Plugin BGKM5.KeyClick(ck(i),13)  
            Delay 100  
            hua1=""&hua1&""  
            Plugin Window.SendString(ck(i), hua1)  
            Delay 200  
            i=i+1  
        EndFor   
        //回车  
        i=1  
        For ii-1  
            Plugin BGKM5.KeyClick(ck(i),13)  
            i=i+1  
            Delay ys  
        EndFor   
        i=1  
    Else   
    EndIf   
    //===========================  
    //发送喊话  
    If h2="1"  
        For ii-1  
            Plugin BGKM5.KeyClick(ck(i),13)  
            Delay 100  
            hua2=""&hua2&""  
            Plugin Window.SendString(ck(i), hua2)  
            Delay 200  
            i=i+1  
        EndFor   
        //回车  
        i=1  
        For ii-1  
            Plugin BGKM5.KeyClick(ck(i),13)  
            i=i+1  
            Delay ys  
        EndFor   
        i=1  
    Else   
    EndIf   
EndFor