实时错误53 文件未找到

nohiker 2009-03-21 07:56:59
代码如下
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Integer
For a = 3 To 5 Step 1
Shell "IEXPLORE.EXE" & "http;//www.baidu.com"
Next
End Sub



form mousemove
Borderstyle 0-none
...全文
152 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
nohiker 2009-03-22
  • 打赏
  • 举报
回复
呵呵 我也是哈 谢谢大家了
dufuguang 2009-03-21
  • 打赏
  • 举报
回复
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a%
For a = 3 To 5
Shell "C:\Program Files\TheWorld 2.0\TheWorld.exe " & "http://www.baidu.com"
Next
End Sub


打开速度还是蛮快的噢(我用的是世界之窗浏览器 呵呵)
SYSSZ 2009-03-21
  • 打赏
  • 举报
回复
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http;//www.baidu.com"
wangjunnjim 2009-03-21
  • 打赏
  • 举报
回复
楼上正解
神马都能聊 2009-03-21
  • 打赏
  • 举报
回复
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As Integer
For a = 3 To 5 Step 1
Shell "IEXPLORE.EXE " & "http;//www.baidu.com"
Next
End Sub
nohiker 2009-03-21
  • 打赏
  • 举报
回复
呵呵 谢谢啊
yxr_2008 2009-03-21
  • 打赏
  • 举报
回复
鼠标一动就打开好几个IE窗口,够损的啊。。。

7,759

社区成员

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

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