贸易通.ent

可以最小化贸易通聊天程序。此脚本文件需要按键游侠工具才可执行

[ScriptOption]
Description=贸易通后台自动聊天程序
BeginHotkey= 120
BeginHotkeyMod= 0
EndHotKey= 123
EndHotKeyMod= 0
RunOnce= 0
Enable= 0
Type= 1
Number= 1
ScriptFormat= 0
[Comment]
可以最小化贸易通聊天程序。


[InitVar]
UserVar=说话间隔（秒）|VarName=TimeT|Type=Long|Value=15
UserVar=第一句话|VarName=S1|Type=String|Value=欢迎使用贸易通
UserVar=第二句话|VarName=S2|Type=String|Value=通过贸易通聊天，您可以增加贸易通活跃度；
UserVar=第三句话|VarName=S3|Type=String|Value=也可以增加您在贸易通上的财富值。

[VBSScriptCode]
[Main]
Sub Main()
    Dim hwnd
    hwnd=HApp.getAcceptHwnd()
    Do While 1=1
        If S1<>"" Then
            HApp.sendstring hwnd,S1
            Delay 100
            HApp.sendkeypress hwnd,"Enter"
            Delay TimeT * 1000
        End If
        Delay 100
        If S2<>"" Then
            HApp.sendstring hwnd,S2
            Delay 100
            HApp.sendkeypress hwnd,"Enter"
            Delay TimeT * 1000
        End If
        Delay 100
        If S3<>"" Then
            HApp.sendstring hwnd,S3
            Delay 100
            HApp.sendkeypress hwnd,"Enter"
            Delay TimeT * 1000
        End If
        Delay 100
    Loop
End Sub


[MainEnd]
[VBSLib]
\MyLib\Default.Txt
[EndVBSLib]
[PublicVar]

[EndPublicVar]