社区
下载资源悬赏专区
帖子详情
VBS 大全.txt下载
weixin_39820780
2019-08-14 05:00:15
VBS 大全.txt
相关下载链接:
//download.csdn.net/download/a1_a1a/4882282?utm_source=bbsseo
...全文
21
回复
打赏
收藏
VBS 大全.txt下载
VBS 大全.txt 相关下载链接://download.csdn.net/download/a1_a1a/4882282?utm_source=bbsseo
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
vbs
代码
大全
.
txt
vbs
代码
大全
.
txt
vbs
实例3.
txt
vbs
实例.
txt
wps的
vbs
安装文件.rar
WPS默认安装以后可能不能运行宏,需要安装VBA 宏模块,只需要
下载
以后点击双击安装即可
IIS_clusweb_
vbs
.rar
IIS_clusweb_
vbs
.rar
用
VBS
获取网页源代码.
vbs
用
VBS
获取网页源代码.
vbs
set http=createobject("Microsoft.XMLHTTP") '\\调用XMLHTTP对象 url="http://www.119880.com/qq.
txt
" '\\赋予变量URL值 Set hhh = createObject("Microsoft.XMLHTTP") hhh.open "get",url,false '\\定义打开URL方式 hhh.send '\\发送数据 zhi=zhuanghuan(Http.responsebody) '\\变量zhi等于网页内容 Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '声明 Set f = fso.CreateTextFile("
txt
x.
txt
") '创建文件,其中f可任意,包含缩略名 f.WriteLine(zhi) '写文件内容,该命令功能太简单,目前看来只能用于
TXT
文件 f.Close Function zhuanghuan(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80; Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100; + CInt(NextCharCode)) i = i + 1 End If Next zhuanghuan = strReturn End Function
下载资源悬赏专区
13,655
社区成员
12,654,265
社区内容
发帖
与我相关
我的任务
下载资源悬赏专区
CSDN 下载资源悬赏专区
复制链接
扫一扫
分享
社区描述
CSDN 下载资源悬赏专区
其他
技术论坛(原bbs)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章