vb 时间循环次数问题

qq_36182481 2016-09-19 08:58:36
Private Sub Command43_Click()
On Error Resume Next
Command_False

For ii = 1 To 2
If CheckApplicationIsRun("GamePlaza.exe") = True Then
Else
Shell "rundll32.exe url.dll,FileProtocolHandler " & "C:\Users\Administrator\Desktop\KK竞技.lnk", vbNormalFocus
End If
Delay 500
Dim lHwnd As Long
lHwnd = FindWindow("xDirectUI", vbNullString)
SetWindowPos lHwnd, HWND_TOPMOST, 241, 156, 959, 558, 0
SetCursorPos 1010, 462
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起

Delay 200
Call keybd_event(vbKeyTab, 0, 0, 0)
Call keybd_event(vbKeyTab, 0, KEYEVENTF_KEYUP, 0) '释放
Call keybd_event(vbKeyTab, 0, 0, 0)
Call keybd_event(vbKeyTab, 0, KEYEVENTF_KEYUP, 0) '释放
Delay 50
Clipboard.Clear
DoEvents
Clipboard.SetText ("123456abe")
Call keybd_event(vbKeyControl, 0, 0, 0)
Call keybd_event(vbKeyV, 0, 0, 0)
Call keybd_event(vbKeyV, 0, KEYEVENTF_KEYUP, 0) '释放
Call keybd_event(vbKeyControl, 0, KEYEVENTF_KEYUP, 0)
Delay 200
SetCursorPos 951, 566
Delay 20
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起

Timer7.Interval = 1000
Timer7.Enabled = True
Do While Timer7.Enabled = True
DoEvents
Loop

Next
Command_True
End Sub

Private Sub Timer7_Timer()
Dim lHwnd As Long
lHwnd = FindWindow("CWebWindow", vbNullString)
If lHwnd = 0 Then
Else
SetCursorPos 1099, 165 '八月十五
Delay 20
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Timer7.Enabled = False
Timer8.Enabled = True
Timer8.Interval = 1000
End If
End Sub
Private Sub Timer8_Timer()
Dim lHwnd As Long
lHwnd = FindWindow("CWebWindow", vbNullString)
If lHwnd = 0 Then
SetCursorPos 405, 222
Delay 20
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Else
Dim fHwnd As Long
Do
fHwnd = FindWindow(vbNullString, "脚本错误")
If fHwnd Then SendMessage fHwnd, WM_CLOSE, 0&, 0&
Loop Until fHwnd = 0
Delay 2000
SetCursorPos 1008, 622
Delay 20
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Delay 1500
SetCursorPos 1055, 160
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Timer8.Enabled = False
Timer9.Enabled = True
Timer9.Interval = 1000
End If
End Sub
Private Sub Timer9_Timer()
Dim lHwnd As Long
lHwnd = FindWindow("CGameClost", vbNullString)
If lHwnd = 0 Then
SetCursorPos 1205, 77
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Else
SetCursorPos 543, 449
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Delay 5100
SetCursorPos 880, 695 '
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Delay 1000
SetCursorPos 396, 277
Delay 50
mouse_event &H2, 0&, 0&, 0&, 0& '鼠标左键按下
mouse_event &H4, 0&, 0&, 0&, 0& '鼠标左键弹起
Timer9.Enabled = False
Call Command1_Click '结束游戏

End If
End Sub
...全文
1746 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
一笑拔剑 2016-09-26
  • 打赏
  • 举报
回复
问题描述?
赵4老师 2016-09-20
  • 打赏
  • 举报
回复
参考《编译原理》中的词法分析和有限状态自动机。
VB模拟洗衣机,哈哈,还没听说过吧,可模拟出洗衣机自动加水抽水的功能,还有动画演示效果,符合VB结构化程序的特点,简单易懂,同时采用了通用的小游戏循环方式。代码片段:   Dim WarterHeight As Single '水高度   Dim DiBuH As Single '底部高度   Dim KGJiashui As Integer '进水开关   Dim KGChushui As Integer '出水开关   Dim shuiguanColor As Long '水管颜色   Dim shuiguanColorWarter As Long '水管有水时候的颜色   Dim JiashuiV As Single '加水速度   Dim ChushuiV As Single '出水速度   Dim inRun As Boolean '运行中,洗衣机已经启动了   Dim ShengyuTime As Single '剩余时间   Dim SheDingTime As Single '设定时间   Dim ShengyuCishu As Single '剩余次数   Dim Huanshui As Boolean '换水状态   Dim mOk As Boolean '完成   Dim OneRun As Boolean '首次运行   Dim HuanshuiNum As Integer '换水完成 0-放水,1-进水   WarterHeight = 0 '起始水量    JiashuiV = 20 '加水的速度    ChushuiV = 21 '出水的速度    shuiguanColor = Line1.BorderColor '水管的颜色    shuiguanColorWarter = Picture2.BackColor '水管有水的颜色    DiBuH = Picture2.Top Picture2.Height '洗衣机底部高度    With labShijian '移动显示时间的lab与设置时间的txt位置相同    .Move TxtShijian.Left, TxtShijian.Top, TxtShijian.Width, TxtShijian.Height    End With    With labCishu '移动显示次数的lab与设置次数的txt位置相同    .Move TxtCishu.Left, TxtCishu.Top, TxtCishu.Width, TxtCishu.Height    End With    SheDingTime = 60: ShengyuCishu = 2    TxtShijian = SheDingTime: TxtCishu = ShengyuCishu '开始运行时,默认的设置时间次数    inRun = False '洗衣机非运行状态

809

社区成员

发帖
与我相关
我的任务
社区描述
VB 多媒体
社区管理员
  • 多媒体
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧