添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接

Set objShell = CreateObject("Shell.Application")
For n = 1 To objShell.Windows.count
Set objie = objShell.Windows(n)
If Right(UCase(objie.FullName), 12) = "IEXPLORE.EXE" Then
If (0 < InStr(objie.LocationURL, "要访问的地址( http://localhost:8080/test/login.jsp )")) Then
'objie 就是要访问的ie对象
end if
end if
next n

'打开页面
'方法一
objie.navigate(ipAddress, 1, "ExcelSubmitWin")
'方法二 非active打开
objie.navigate2(ipAddress, &H1000, "ExcelSubmitWin")

'设置页面项目的值 (页面的boolean类型可以直接赋值TRUE)
objie.Document.GetElementById("userID").Value = "root"

'多条数据设置
web页面List项目
<ui:repeat id="recordList" value="#{testDto.records}" var="rcd">
<h:inputHidden id="recordData" value="#{rcd.content}" />
</ui:repeat>
vba访问web页面List项目
For i = 0 To count
dataID = "sendForm:recordList:" & i "recordData"
objie.Document.GetElementById(dataID).Value = “strContent”
next
如果strContent又是List类型,将strContent中数据用特殊符号隔开拼接成字符串,然后java侧再解析

'触发页面按钮
objie.Document.GetElementById("buttonID").Click

'等待请求终了
Do While objie.Busy
DoEvents
Loop

'等待画面刷新完了
Do While objie.Document.readystate <> "complete"
DoEvents
Loop

shell32可以方便的获取文件信息《用于脚本和 Microsoft Visual Basic的 Shell 对象》 目录获取单个文件的所有信息获取音频、视频文件时长按视频时长移动至文件夹 获取单个文件的所有信息 Sub 获取文件信息() 'MsgBox弹出单个文件的所有信息,《注意文件名不能有空格》 filename = "D:\media\movie\飞驰人生.mp4" Dim fso As Object, shl As Object, shfd As Object, f As
工作里面需要处理上百个Word文档,所以就开始在网上查找宏相关的代码 由于第一次接触宏相关的代码,所以写得肯定不会很好。不过,最后勉强算是解决了问题,为了以后方便查找,就把代码贴上来。 开启、编写宏 勾选上图中的开发工具,就可以显示宏相关的菜单栏了 点击红框内按钮,就可以开始编写和运行宏了 Sub 批量 操作 WORD() Application.ScreenUpdating = False '冻结屏幕,打开各个文件及关闭 Sub SetClipboardText(Text) Set objIE = CreateObject(“ Internet Explorer .Application”) objIE.Navigate(“about:blank”) objIE.Document.ParentWindow.ClipboardData.SetData “text... (2)组合键win+r,cmd 操作 ,输入ipconfig,查找自己电脑的IP (3)打开手机设置,找到手机端无线网络,进行手动代理设置,填入自己电脑IP,以及fiddler端口号 (4)fiddler中点击AutoResponder工具,进行如下 操作 如:第一个输入框输入“taobao” (5)如图第四步选择红框选项(之所以选择这个选项,是因为这个选项可以 一个小马龙: 把数组单独抽出来是走索引的,是你建的有问题。试试我这个语法。 ALTER TABLE customers2 ADD INDEX idx_zipcode((CAST(zipcode->'$' AS UNSIGNED ARRAY))); SELECT * FROM customers2 WHERE "49507" MEMBER OF(zipcode->'$'); linux ssh授权 无密码登录 Tisfy: 好文!,正如:北客翩然,壮心偏感,年华将暮。