1597653964 1597653964
关注数: 0 粉丝数: 78 发帖数: 1,729 关注贴吧数: 41
求大佬帮助啊,一直提示268行错误码(0)没有合法符号 Sub c0 Rem go Delay 80 KeyPress "Enter", 1 Delay 500 For 6 Delay 32 KeyPress "W", 1 Next For 19 Delay 32 KeyPress "A", 1 Next KeyPress "S", 1 For 5 Delay 32 KeyPress "D", 1 Next For 6 Delay 32 KeyPress "S", 1 Next Delay 32 KeyPress "Enter", 1 a = WaitKey() If a = 27 Then For 3 Delay 320 Next goto go End If End Sub Sub c1 Rem go Delay 80 KeyPress "Enter", 1 Delay 500 For 6 Delay 32 KeyPress "W", 1 Next For 23 Delay 32 KeyPress "A", 1 Next KeyPress "S", 1 For 16 Delay 32 KeyPress "A", 1 Next For 6 Delay 32 KeyPress "S", 1 Next Delay 32 KeyPress "Enter", 1 a = WaitKey() If a = 27 Then For 3 Delay 320 Next Goto go End If End Sub Sub c2 Rem go Delay 80 KeyPress "Enter", 1 Delay 500 For 6 Delay 32 KeyPress "W", 1 Next For 23 Delay 32 KeyPress "A", 1 Next KeyPress "S", 1 For 15 Delay 32 KeyPress "A", 1 Next For 6 Delay 32 KeyPress "S", 1 Next Delay 32 KeyPress "Enter", 1 a = WaitKey() If a = 27 Then For 3 Delay 320 Next Goto go End If End Sub Sub c3 Rem go Delay 80 KeyPress "Enter", 1 Delay 500 For 6 Delay 32 KeyPress "W", 1 Next For 2 Delay 32 KeyPress "A", 1 Next KeyPress "S", 1 For 1 Delay 32 KeyPress "D", 1 Next For 6 Delay 32 KeyPress "S", 1 Next Delay 32 KeyPress "Enter", 1 a = WaitKey() If a = 27 Then For 3 Delay 320 Next Goto go End If End Sub Sub c4 Rem go Delay 80 KeyPress "Enter", 1 Delay 500 For 6 Delay 32 KeyPress "W", 1 Next For 2 Delay 32 KeyPress "A", 1 Next KeyPress "S", 1 For 2 Delay 32 KeyPress "A", 1 Next For 6 Delay 32 KeyPress "S", 1 Next Delay 32 KeyPress "Enter", 1 a = WaitKey() If a = 27 Then For 3 Delay 320 Next Goto go End If End Sub Sub c5 Rem go Delay 80 KeyPress "Enter", 1 Delay 500 For 6 Delay 32 KeyPress "W", 1 Next For 26 Delay 32 KeyPress "D", 1 Next KeyPress "S", 1 For 2 Delay 32 KeyPress "A", 1 Next For 6 Delay 32 KeyPress "S", 1 Next Delay 32 KeyPress "Enter", 1 a = WaitKey() If a = 27 Then For 3 Delay 320 Next Goto go End If End Sub Sub c6 Rem go Delay 80 KeyPress "Enter", 1 Delay 500 For 6 Delay 32 KeyPress "W", 1 Next For 38 Delay 32 KeyPress "D", 1 Next KeyPress "S", 1 For 1 Delay 32 KeyPress "D", 1 Next For 6 Delay 32 KeyPress "S", 1 Next Delay 32 KeyPress "Enter", 1 a = WaitKey() If a = 27 Then For 3 Delay 320 Next Goto go End If End Sub Sub c7 Rem go Delay 80 KeyPress "Enter", 1 Delay 500 For 6 Delay 32 KeyPress "W", 1 Next For 23 Delay 32 KeyPress "A", 1 Next KeyPress "S", 1 For 15 Delay 32 KeyPress "A", 1 Next For 6 Delay 32 KeyPress "S", 1 Next Delay 32 KeyPress "Enter", 1 a = WaitKey() If a = 27 Then For 3 Delay 320 Next Goto go End if End Sub Event Form1.Button1.Click Form1.Close Form2.Show End Event Event Form2.Button2.Click Form2.Close Form1.Show End Event m = Form2.ComboBox1.ListIndex Select Case m Case 0 Event Form2.Button1.Click Call sub c0 End Event Case 1 Event Form2.Button1.Click Call sub c1 End Event Case 2 Event Form2.Button1.Click Call sub c2 EndScript End Event Case 3 Event Form2.Button1.Click Call sub c3 End Event Case 4 Event Form2.Button1.Click Call sub c4 End Event Case 5 Event Form2.Button1.Click Call sub c5 End Event Case 6 Event Form2.Button1.Click Call sub c6 End Event Case 7 Event Form2.Button1.Click Call sub c7 End Event End Select
1 下一页