用vb编写程序：将键盘练习游戏和控制移动游戏、猜数字游戏，放入一个系统中，使用菜单进行游戏的选择。_百度知道
用vb编写程序：将键盘练习游戏和控制移动游戏、猜数字游戏，放入一个系统中，使用菜单进行游戏的选择。
我有更好的答案
不明白意思
你又那三个游戏吗
没有，老师留的作业，我不会啊，我自己都不明白
为您推荐：
其他类似问题
您可能关注的内容
猜数字游戏的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB查找指定一个软件的窗口，并自动点击软件里面的下一步按钮。怎么写？最好有代码
来源：互联网
责任编辑：王强字体：
用户回答1:用postmessage
Public Sub SendClick(ByVal lyHwnd As Long, ByVal x As Long, ByVal Y As Long)
Dim lp As Long
PostMessage lyHwnd, WM_KEYDOWN, VK_RETURN, MapVirtualKey(VK_RETURN, WM_KEYDOWN) &发送一个ENTER键按下的消息
PostMessage lyHwnd, WM_KEYDOWN, VK_1, MapVirtualKey(VK_1, WM_KEYDOWN) &发送一个1键按下的消息
lp = lp * 65536 + x
&上面的X和Y代表的是你要在指定的窗口中执行鼠标事件的一个点的坐标
PostMessage lyHwnd, WM_LBUTTONDOWN, MK_LBUTTON, ByVal lp
PostMessage lyHwnd, WM_LBUTTONUP, MK_LBUTTON, ByVal lp
&在窗口（hwnd）中的点（x,Y)执行一次鼠标单击事件
End Sub相关解决方法如下：
WM_KEYDOWN, VK_1, MapVirtualKey(VK_1, WM_KEYDOWN) '发送一个1键按下的... + x&& '上面的X和Y代表的是你要在指定的窗口中执行鼠标事件的一个点的坐...
MapVirtualKey(VK_RETURN, WM_KEYDOWN) '发送一个ENTER键按下的消息 ... = lp * 65536 + x '上面的X和Y代表的是你要在指定的窗口中执行鼠标事件的一个点...
代码如上=================希望你的加入,一同学习,共同进步具体: http://wenwen.soso.com/z/q.htm谢谢采纳
想做个程序让它自动点击网页中的提交按钮,我已经从网上找了很久,虽然找到了一个方法是可以找到按钮并提交的,代码如下:
Dim Dov&&&& As Object
你先要判断文件是否存在,用一个API即可,
在模块里声明
Private Declare Function ... &PathFileExistsA& (ByVal pszPath As String) As Long
然后在按钮里写上
在凭证处理窗口中单击"凭证汇总"按钮,自动汇总。
在帐簿窗... 代码"等,有代表文字和数值的,按条件选择。
工资公式设置-工资公式
步骤:软件有给的...
File"按钮来查看所选文件里面的内容,这一点对于查找文本文件非常有用。
当选择好用... 有好的恢复效果。
点击"下一步"之后,程序开始扫描该分区,接着弹出一个文件列表窗口...
里面的"网络安全"中设置。
• 查找有摄像头的用户:
首先打开查...
在图1-30的窗口中选择查找RTX腾讯通用户,点击下一步出现如图1-35所示的窗口。...
问：貌似可以再写一个小程序来专门点击这个确定按钮，但我几经周折也没有找...答：这个应该比较简单，你查一下VB的书，看书上怎么介绍的。
答：dim program program="D:\qqcttf.exe" '你的qq路径 set Wshell=CreateObject("Wscript.Shell") set oexec=Wshell.Exec(program) wscript.Sleep 3000 Wshell.AppActivate "qqcttf.exe" wscript.Sleep 200 Wshell.SendKeys "+{TAB}" wscript.Sleep...
问：我的VB程序里有一个Command1按钮 我想用时钟控件每隔一秒自动执行一次co...答：VB可使用Timer控件的Timer事件实现执行按钮的Click事件来实现。 Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。 Timer 事件，在一个 Timer 控件的预定的时间间隔过去之后发生。该间隔的频率储存于该控件的 I...
问：想做个程序让它自动点击网页中的提交按钮，我已经从网上找了很久，虽然...答：某网页按钮内容： 你现有500万 代码： Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set vDoc = WebBrowser1.Document For i = 0 To vDoc.All.length - 1 '检测所有标签 If UCase(vDoc.All(i).tagName) = ...
问：vb窗体上有个按钮command1。同时有个时间部件timer1。设定： Private Su...答：1、利用鼠标模拟事件 2、新建工程-----编辑一个按钮和一个文本框和一个定时器 3、在定时器里写每一百毫秒鼠标点击一次 SetCursorPos 500, 500 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
问：在界面中设置一个 退出VB 按钮，如何实现 点击 退出VB 按钮时，自己关闭...答：你的问题含糊不清 Private Sub Form_Load() Command1.Caption = "退出" End Sub Private Sub Command1_Click() End End Sub 点击 退出VB 按钮时 这样就可以退出VB，但不退出VB编辑环境，如果生成。EXE， 这时点击 退出VB 这个生成的程序就可以退...
问：比如做一个抢票软件，怎么才能实现捕获网页内容并自动点击提交按钮？ 我...答：HtmlDocument doca = this.webBrowser1.D //把当前的webBrowser1显示的文档实例化成一个HtmlDocument对象 for (int i = 0; i & doca.All.C i++) //循环查找这个对象的每一个元素 { if (doca.All[i].TagName == "A") //如果这个元素...
问：我想做个程序，用vb编个窗口，窗口运行的时候，自动控制鼠标到指定位置...答：在贴吧看到你提问了 这边在回答一次 可以用SetCursorPos函数设置鼠标位置 Mouse_Event函数执行鼠标动作复制下列代码就能实现程序运行点击开始菜单了,你可以稍加了解这2个函数的作用就能达到你的编程目的 Private Declare Sub Mouse_Events Lib "...
答：CONST A=0,B=1,C=2,D=3正确答案=Bif option1(正确答案).value then msgbox "正确"else msgbox "错误"endif为您准备的好内容:
最新添加资讯
24小时热门资讯
Copyright ©
haoxyx.com All Rights Reserved. 好心游戏网 版权所有
京ICP备号-1 京公网安备02号VB猜拳游戏可以提供代码吗？_百度知道
VB猜拳游戏可以提供代码吗？
没有思路怎么做，要求实现人机互动
我有更好的答案
我自己写的猜拳游戏，要的q.
如何将里面的字改成图的
采纳率：73%
来自团队：
自行美化下就行了
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。怎么用VB做个坦克大战游戏里面自动移动和打炮弹的敌方坦克？timer控制还是随机事件啊？求源代码。_百度知道
怎么用VB做个坦克大战游戏里面自动移动和打炮弹的敌方坦克？timer控制还是随机事件啊？求源代码。
我有更好的答案
屌丝软件多得是
采纳率：59%
要创建另外一个线程来控制，timer不顶用的
发一哈完整代码，大神。。
完整的代码很大的
我哪有时间写
为您推荐：
其他类似问题
坦克大战的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb程序小游戏的代码问题_百度知道
vb程序小游戏的代码问题
一个timer控制着多个图片运动，如何使其中一个图片停下来
我有更好的答案
添加窗体级全局变量：'
=True时图片停止运动
图片索引值Dim StopMoving() As Boolean, ImageIndex As Integer在Form的Load事件中根据图片数量重新定义StopMoving()：Private Sub Form_Load()
k = 5 'k=图片数-1
ReDim StopMoving(k)
ImageIndex = -1 ‘ImageIndex=-1（表示没有触发Image的MouseMove事件）End Sub建议使用Image控件数组，方便控制。在Image的MouseMove事件中设置StopMoving(?)=True，使图片停止运动Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
StopMoving(Index) = True
ImageIndex = IndexEnd Sub在Image的容器的MouseMove事件中设置StopMoving(?)=False，使图片重新运动Private Sub Form_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If ImageIndex&=0 Then
StopMoving(ImageIndex) = True
ImageIndex = -1
End IfEnd Sub在Timer事件中根据StopMoving(?)决定是否移动图片Private Sub Timer1_Timer()
Dim img As Image
For Each img In Image1
If StopMoving(img.Index) = False Then
'在这里添加移动图片的代码 - TOP
'在这里添加移动图片的代码 - END
NextEnd Sub
'在这里添加移动图片的代码 - TOP'在这里添加移动图片的代码 - END中- TOP- END是什么意思？
top表示移动图片的代码的首行是下面一行end表示移动图片的代码的末行是上面一行
采纳率：67%
来自团队：
为您推荐：
其他类似问题
vb程序的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。