1. 首页
  2. 编程语言
  3. VB
  4. VB取超链接

VB取超链接

上传者: 2020-05-14 16:24:15上传 TXT文件 362B 热度 33次
DimvDoc,vTag DimiAsInteger SetvDoc=WebBrowser1.Document List1.Clear Fori=0TovDoc.All.length-1 IfUCase(vDoc.All(i).tagName)="A"Then SetvTag=vDoc.All(i) List1.AddItemvTag.innertex
下载地址
用户评论