按键精灵简单代码

aq425518860

Tap 199,1209 : Delay 600 :InputText ReadUIConfig("进房文本"):Delay 500:Tap 660,1245:Delay 300


这是发送文本的 怎么在文本里面添加个当前时间一起发送  DateTime.Format("%Y-%m-%d %H:%M:%S")  我怎么添加都不对

尛龍科技

那直接使用&拼接符InputText ReadUIConfig("进房文本") & " " & DateTime.Format("%Y-%m-%d %H:%M:%S")

温柔小仙女

Dim 进房文本 = ReadUIConfig("进房文本")
Dim 当前时间 = GetTimeEx("yyyy-MM-dd HH:mm:ss")
InputText 进房文本 & " " & 当前时间

aq425518860

温柔小仙女 发表于 2025-7-28 07:56
Dim 进房文本 = ReadUIConfig("进房文本")
Dim 当前时间 = GetTimeEx("yyyy-MM-dd HH:mm:ss")
InputText 进 ...

这样不行啊

温柔小仙女

aq425518860 发表于 2025-7-28 08:56
这样不行啊

把你原始代码发出来.

aq425518860

温柔小仙女 发表于 2025-7-28 09:07
把你原始代码发出来.

Import "qihe.mql"
RunApp "com.c2vl.kgamebox"
Dim 输 = Int(((3-1+1) * Rnd()) + 1)

Do
    If ReadUIConfig("文本开关") Then
        Call 进房()
    End If       
Loop

Sub 进房
    RunApp "com.c2vl.kgamebox"
    qihe.多点比色("240|842|7D52CE,279|849|E9B04F,568|353|63BFE2",1,"页面休闲区",1,1)
    qihe.多点比色("349|1216|7C7C7C,370|1215|7C7C7C,351|1264|666666",1,"消息",1,1)
    qihe.多点比色 "349|278|FFC96E,293|249|8852E6,113|254|E88277", 1, "休闲区", 1, 1
    qihe.多点比色("443|732|2A3032-202020,459|747|234953-202020,503|753|293235-202020,536|730|1F5664-202020,555|755|214E5A-202020",1,"退出房间",1,1)
    If CmpColorEx("53|442|F2F2F7-202020,83|446|FFFFFF-202020,107|457|FFFFFF-202020,121|456|FFFFFF-202020,163|456|FFFFFF-202020",0.9) = 1 Then
        Delay 300
        Tap 166,487 ///随机进房
        qihe.倒计时 "进房延迟", ReadUIConfig("进房时间"), "秒"
        Tap 199,1209 : Delay 600 :InputText ReadUIConfig("进房文本"):Delay 500:Tap 660,1245:Delay 300
     
        Tap 199,1209 : Delay 600 :InputText ReadUIConfig("进房文本1"):Delay 500:Tap 660,1245:Delay 300
        Tap 199, 1209 : Delay 600:InputText ReadUIConfig("进房文本2") :Delay 400 : Tap 660, 1245 : Delay 200
        Delay 5000
        Tap 24, 83 : Delay 700 : 褪
        qihe.倒计时("退房等待",ReadUIConfig("退房时间"),"秒")
    End If       
    If CmpColorEx("71|211|FDF6CB-202020,121|210|FFE9D3-202020,152|189|FDE3EC-202020,178|199|FBDFF5-202020,196|202|FCDEF5-202020",0.9) = 1 Then
        TracePrint "k歌房退出"
        Delay 300
        Tap 24, 83 : Delay 700 : 褪
        qihe.倒计时("退房等待",ReadUIConfig("退房时间"),"秒")
    End If
    If CmpColorEx("617|1206|23A2FE-202020,630|1208|36E0FF-202020,667|1206|F8F6F7-202020,686|1212|FAF8F9-202020,695|1216|EAE5E8-202020",0.9) = 1 Then
        TracePrint "主播房退出"
        Delay 300
        Tap 24, 83 : Delay 700 : 褪
        qihe.倒计时("退房等待",ReadUIConfig("退房时间"),"秒")
    End If
    If CmpColorEx("614|1203|22AAFF-010120,621|1204|36E0FF-010120,667|1214|BAB9B9-010120,685|1212|FFFFFF-010120,695|1217|F3F3F3-010120",0.9) = 1 Then
        TracePrint "主播房2退"
        Delay 300
        Tap 24, 83 : Delay 700 : 褪
        Delay 300
        Tap 630, 432
        qihe.倒计时("退房等待",ReadUIConfig("退房时间"),"秒")
    End If
End Sub


Sub 褪()
    If CmpColorEx("421|153|45CBFF,502|152|45CBFF,459|109|45CBFF", 0.9) = 1 Then
        Tap 260, 150 : Delay 2000
    ElseIf CmpColorEx("518|147|45CBFF,603|146|45CBFF,560|104|45CBFF", 0.9) = 1 Then
        Tap 160, 150 : Delay 2000
    Else
        Tap 361,753 : Delay 2000
    End If
End Sub

温柔小仙女

        qihe.倒计时 "进房延迟", ReadUIConfig("进房时间"), "秒"
        Tap 199,1209 : Delay 600 :InputText ReadUIConfig("进房文本") & " " & GetTimeEx("yyyy-MM-dd HH:mm:ss"):Delay 500:Tap 660,1245:Delay 300
     
        Tap 199,1209 : Delay 600 :InputText ReadUIConfig("进房文本1") & " " & GetTimeEx("yyyy-MM-dd HH:mm:ss"):Delay 500:Tap 660,1245:Delay 300
        Tap 199, 1209 : Delay 600:InputText ReadUIConfig("进房文本2") & " " & GetTimeEx("yyyy-MM-dd HH:mm:ss") :Delay 400 : Tap 660, 1245 : Delay 200
        Delay 5000

aq425518860

温柔小仙女 发表于 2025-7-28 09:14
qihe.倒计时 "进房延迟", ReadUIConfig("进房时间"), "秒"
        Tap 199,1209 : Delay 600 :Inp ...

错误：第23行：名称 GetTimeEx 没有定义。错误码=2005

aq425518860

aq425518860

温柔小仙女 发表于 2025-7-28 09:14
qihe.倒计时 "进房延迟", ReadUIConfig("进房时间"), "秒"
        Tap 199,1209 : Delay 600 :Inp ...

我发你源码你帮我改一下