2020-02-16 标签:vbs,实现,excel,表格,保存为,txt,文本,希望,能够,找到,能给,另存为,代码,选择,需要,直接,执行,这一步,格式

希望能够找到个能给excel表另存为TXT的VBS代码，虽然另存为可以选择，但还是需要直接VBS执行这一步另存为TXT格式的，应该如何写代码呢？ 有装Excel的话，就会比较简单，下面的是通用的不装Office也可以运行的，如下: VBScript code: 实现代码如下： Set oShell

2020-02-16 标签:vbs,加密,14,你会,几种,浅谈,手机,打字,实在,麻烦,比较简单,复杂,代码,我就,直接,提供

手机打字实在在麻烦，所以一些比较简单或太复杂的代码我就不直接提供实例了。 1、不是方法的方法－－加注释 加一些规则无用不含特征码的注释。代码略 2、大小写混编 利用VBS忽略大小写 3、 分行与同行混用 利用冒号（:）连接多行代码为一行 4、一行分多行 使用续行符（_）将一行分多行写 5、利用exe

2020-02-16 标签:了解,vbe,则是,编译,加密,vbs,代码,vb,差不多,脚本,文件,也有,不同,明文,就是说,直接,使用,记事本,编辑,打开

一、vbe与vb 　　VBE跟VBS差不多，都是VB脚本代码文件，但他们也有不同： 　　VBS是明文代码，就是说可以直接使用记事本编辑； 　　VBE则是编译后（加密）的VBS代码，使用记事本打开不能直接看到源代码。（有些例外） 　　加密工具有很多，其中常用的是 Microsoft Script En

2020-02-16 标签:exe,bat,vbs,脚本,实现,代码,如下,fp,wscript,arguments,fn,right,len,instrrev,adodb,stream

exe2bat的脚本 实现代码如下： fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,"")) with createobject("adodb.stream") .type=1:.open:.loadfromfile fp:str=.

2020-02-16 标签:vb,简易,记事本,实现,代码,事件,如下,private,sub,mquit,click,text,end,mnew,form,caption,命名,mopen

事件实现代码： 实现代码如下： Private Sub mQuit_Click() Text1.Text = "" End End Sub Private Sub mNew_Click() Text1.Text = "" Form1.Caption = "未命名" End Sub Private S

2020-02-16 标签:vb,简易,计算器,源码,代码,如下,实现,author,heart,version,dim,intx,double,全局变量,用于,存储

代码如下： 实现代码如下： /** *Author:乌鸟heart *Version:1.0 */ Dim IntX As Double '全局变量，用于存储计算的数值 Dim IntOperation As Double '标记运算类型 Dim isBegin As Boolean '标记是否已经

2020-02-16 标签:vbscript,骨灰级,写法,计算,100,这篇,日志,完全是,看了,一篇,启发,原文,邪恶的,eval,n,ew,function,很少,使用

这篇日志完全是看了一篇日志后的启发，原文为：邪恶的eval和new Function。 很少使用new Array的方式来定义数组，没想到new Array有这么一个妙用，通过new Array(n)我们可以创建n个空元素，同时也就在n个元素中间存在n-1个空白，通过join,我们可以将一些东西放在

2020-02-16 标签:获取,外网,ip,并发,送到,指定,邮箱,vbs,代码,实现,如下,getip,set,http,microsoft,xmlhttp,ipp

实现代码如下：''getIP set http=createobject("Microsoft.XMLHTTP") ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR(Htt

2020-02-16 标签:批处理,vbs,实现,自动,设置,ip,默认,网关,dns,wins,ie,代理,公司,同事,负责,大连,沈阳,城市,经常

因为公司有同事负责大连、沈阳两个城市，经常在两地来回走动，到每个城市后，都要自己手动更改相应的网络配置，况且到外地时住的是酒店， 酒店上网是自动获得IP,又要将网络设置取消，真的很麻烦！于是想起写一个批处理！来解决这个问题！主要用到的命令是netsh. -、第一种方法是将两地的网络配置先进行本机设置

2020-02-16 标签:vbscript,压缩,单个,文件,zip,格式,实现,代码,如下,error,resume,next,dim,fso,fp,oapp,targetfile,set,scripting

实现代码如下： On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenText