13
06月
2023
以下是利用vbs打开谷歌浏览器输入网址为百度一下的网址,在sta输入当前日期,点击按钮excel的代码:
```
Set objShell = CreateObject("WScript.Shell")
objShell.Run "chrome.exe https://www.baidu.com/"
WScript.Sleep 5000 '等待5秒钟,确保页面已经加载完成
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "about:blank"
Do While objIE.Busy
WScript.Sleep 1000
Loop
objIE.Document.Title = "Excel"
objIE.Document.Body.InnerHTML = "<form name='myform' method='post'><input type='text' name='sta'><input type='submit' value='Submit'></form>"
Do While objIE.Busy
WScript.Sleep 1000
Loop
Set objForm = objIE.Document.Forms("myform")
objForm.elements("sta").Value = Date
objForm.submit()
```
这段代码会先打开谷歌浏览器并输入百度一下的网址,然后等待5秒钟确保页面已经加载完成,接着创建一个InternetExplorer对象并打开一个空白页面,然后在页面中插入一个表单,表单中包含一个文本框和一个提交按钮。接着等待页面加载完成后,将当前日期填入文本框中并提交表单。
免责声明:本内容由金宣创作助手生成,可能存在逻辑不清、乱码等问题,点这里>>使用AI金宣助手高级版(Super),更聪明、更完整、无乱码!
以上内容除特别注明外均来源于网友提问、金宣助手回答,权益归原著者所有,本站仅作效果演示和欣赏之用;
本文标题: 利用vbs打开谷歌浏览器输入网址为百度一下的网址,在sta输入当前日期,点击按钮excel
本文网址: https://www.nhwlfw.com/news-read-3429.html
直通道: 金宣助手
延伸阅读
- 如何更好地处理公司内部的信息安全和隐私保护?
- 新时代大学生如何适应国家重大战略需求促进自身高质量发展
(一)要紧紧围绕国家某一发展战略需求展开论述;
(二)要联系自身实际情况谈谈如何促进自身高质量发展
- 我今天去了安徽宏村旅游,以此写一篇旅游日记
- 如何维护个人品牌?
- 综合思维在高考试题中的体现的研究意义