自动开启史诗盒子带分解分享

生活世界殖民化

字实在太小了看不清楚

舞魅∞慧慧

仓库里面有同样的装备会多一个询问框
能告知一下代码么？
加了一条好了！

梦寻千度

桃酿 发表于 2024-9-3 08:20
我都是用鼠标键盘录制器- -

可以分享一下吗 大佬

suifeng0917

舞魅∞慧慧 发表于 2024-11-1 18:46
仓库里面有同样的装备会多一个询问框
能告知一下代码么？
加了一条好了！

Dim Cycletimes, EquipmentX, EquipmentY, delayDuration
delayDuration = Form1.InputBox24.Text //延迟设置
Cycletimes = Form1.InputBox23.Text// 循环次数


Event Form1.Load
    Form1.Hotkey1.Modifiers = 4
    Form1.Hotkey1.VirtualKey = 49
    Form1.Hotkey1.Register True
    Form1.Hotkey2.Modifiers = 4
    Form1.Hotkey2.VirtualKey = 50
    Form1.Hotkey2.Register True
    Form1.Hotkey3.Modifiers = 4
    Form1.Hotkey3.VirtualKey = 51
    Form1.Hotkey3.Register True
    Form1.Hotkey4.Modifiers = 4
    Form1.Hotkey4.VirtualKey = 52
    Form1.Hotkey4.Register True
    Form1.Hotkey5.Modifiers = 4
    Form1.Hotkey5.VirtualKey = 53
    Form1.Hotkey5.Register True
    Form1.Hotkey6.Modifiers = 4
    Form1.Hotkey6.VirtualKey = 54
    Form1.Hotkey6.Register True
    Form1.Hotkey7.Modifiers = 4
    Form1.Hotkey7.VirtualKey = 55
    Form1.Hotkey7.Register True
    Form1.Hotkey8.Modifiers = 4
    Form1.Hotkey8.VirtualKey = 56
    Form1.Hotkey8.Register True
    Form1.Hotkey9.Modifiers = 4
    Form1.Hotkey9.VirtualKey = 57
    Form1.Hotkey9.Register True
    Form1.Hotkey10.Modifiers = 4
    Form1.Hotkey10.VirtualKey = 48
    Form1.Hotkey10.Register True
    Form1.Hotkey11.Modifiers = 4
    Form1.Hotkey11.VirtualKey = 189
    Form1.Hotkey11.Register True
End Event

Event Form1.Hotkey1.Hotkey
    GetCursorPos x, y
    Form1.InputBox1.Text = x
    Form1.InputBox2.Text = y
End Event
Event Form1.Hotkey2.Hotkey
    GetCursorPos x, y
    Form1.InputBox3.Text = x
    Form1.InputBox4.Text = y
End Event
Event Form1.Hotkey3.Hotkey
    GetCursorPos x, y
    Form1.InputBox5.Text = x
    Form1.InputBox6.Text = y
End Event
Event Form1.Hotkey4.Hotkey
    GetCursorPos x, y
    Form1.InputBox7.Text = x
    Form1.InputBox8.Text = y
End Event
Event Form1.Hotkey5.Hotkey
    GetCursorPos x, y
    Form1.InputBox9.Text = x
    Form1.InputBox10.Text = y
End Event
Event Form1.Hotkey6.Hotkey
    GetCursorPos x, y
    Form1.InputBox11.Text = x
    Form1.InputBox12.Text = y
End Event
Event Form1.Hotkey7.Hotkey
    GetCursorPos x, y
    Form1.InputBox13.Text = x
    Form1.InputBox14.Text = y
End Event
Event Form1.Hotkey8.Hotkey
    GetCursorPos x, y
    Form1.InputBox15.Text = x
    Form1.InputBox16.Text = y
End Event
Event Form1.Hotkey9.Hotkey
    GetCursorPos x, y
    Form1.InputBox17.Text = x
    Form1.InputBox18.Text = y
End Event
Event Form1.Hotkey10.Hotkey
    GetCursorPos x, y
    Form1.InputBox19.Text = x
    Form1.InputBox20.Text = y
End Event
Event Form1.Hotkey11.Hotkey
    GetCursorPos x, y
    Form1.InputBox21.Text = x
    Form1.InputBox22.Text = y

End Event
Function LeftClickPosition(message, x, y)
    TracePrint message
    MoveTo x, y
    LeftClick 1
    Delay delayDuration
End Function

// -------- 实际流程 --------
Do While Cycletimes > 0
    Cycletimes = Cycletimes - 1
    KeyPress Form1.Hotkey12.Text , 1
    LeftClickPosition "点击 - 选择部位-1", Form1.InputBox1.Text, Form1.InputBox2.Text
    LeftClickPosition "点击 - 选择部位-2", Form1.InputBox3.Text, Form1.InputBox4.Text
    LeftClickPosition "点击 - 选择职业-1", Form1.InputBox5.Text, Form1.InputBox6.Text
    LeftClickPosition "点击 - 选择职业-2", Form1.InputBox7.Text, Form1.InputBox8.Text
    LeftClickPosition "点击 - 选择装备", Form1.InputBox9.Text, Form1.InputBox10.Text
    LeftClickPosition "点击 - 领取", Form1.InputBox11.Text, Form1.InputBox12.Text
    KeyPress "Space", 1
    Delay delayDuration
    KeyPress "Space", 1
    Delay delayDuration
    KeyPress "Space", 1
    Delay delayDuration
Loop

If Form1.OptionBox1.Value = 1 Then
    ' OptionBox1 被选中时执行的操作
    KeyPress Form1.Hotkey13.Text , 1
    Delay delayDuration
    LeftClickPosition "点击 - 装备分解", Form1.InputBox13.Text, Form1.InputBox14.Text
    Delay delayDuration
    ' 定义装备栏点击操作
    Call ClickEquipmentRow(EquipmentX, EquipmentY, 0)
    Call ClickEquipmentRow(EquipmentX, EquipmentY, Form1.InputBox25.Text * 1)
    Call ClickEquipmentRow(EquipmentX, EquipmentY, Form1.InputBox25.Text * 2)
    LeftClickPosition "点击 - 分解", Form1.InputBox17.Text, Form1.InputBox18.Text
    Delay delayDuration
    LeftClickPosition "点击 - 高价值", Form1.InputBox19.Text, Form1.InputBox20.Text
    Delay delayDuration
    LeftClickPosition "点击 - 确定", Form1.InputBox21.Text, Form1.InputBox22.Text
    Delay 3000
    KeyPress "Esc", 1
    Delay delayDuration
Else
End If


// -------- 自定义函数 --------
Sub ClickEquipmentRow(EquipmentX, EquipmentY, offsetY)
    For i = 0 To 7// 点击一行中的八个装备栏
        EquipmentX = Form1.InputBox15.Text
        EquipmentY = Form1.InputBox16.Text
        LeftClickPosition "点击 - 装备栏第" & (i + 1) & "个", EquipmentX +  Form1.InputBox25.Text * i, EquipmentY + offsetY
    Next
End Sub
这是代码，有三个空格，应该是没问题的呀

suifeng0917

舞魅∞慧慧 发表于 2024-11-1 18:46
仓库里面有同样的装备会多一个询问框
能告知一下代码么？
加了一条好了！

确定那里有三个空格，不需要用坐标的

独留旧梦守空城

lovel星野静流 发表于 2024-08-29 07:25:37
我下了按键精灵打不开，一直报错

杀毒软件关一下就行了

舞魅∞慧慧

suifeng0917 发表于 2024-11-2 16:02
Dim Cycletimes, EquipmentX, EquipmentY, delayDuration
delayDuration = Form1.InputBox24.Text //延迟 ...

好的谢谢！~！~！~

五香花生。

好东西好东西！感谢楼主！

gtdfghtrioiu

6明      

似曾若緒

马克