帮我写个vbs或者bat恶搞程序，其他的也可以，不过我不想安专门的编程软件

楼上的，有那么麻烦吗？？

建立一个bat文件后，把下面的代码输进去不就行了：

@echo off

taskkill /f /im Explorerexe&&exit

<!--下面是向上滚动代码-->

<div id=butong_net_top style=overflow:hidden;height:100;width:90;>

<div id=butong_net_top1>

<img src="插入需要滚动的">

<img src="插入需要滚动的">

<img src="插入需要滚动的">

<img src="插入需要滚动的">

<img src="插入需要滚动的">

</div>

<div id=butong_net_top2></div>

</div>

<script>

var speed=30

butong_net_top2innerHTML=butong_net_top1innerHTML //克隆butong_net_top1为butong_net_top2

function Marquee1(){

//当滚动至butong_net_top1与butong_net_top2交界时

if(butong_net_top2offsetTop-butong_net_topscrollTop<=0)&<60;&<60;

butong_net_topscrollTop-=butong_net_top1offsetHeight //butong_net_top跳到最顶端

else{

butong_net_topscrollTop++;

}

}

var MyMar1=setInterval(Marquee1,speed)//设置定时器

//鼠标移上时清除定时器达到滚动停止的目的

butong_net_toponmouseover=function() {clearInterval(MyMar1)}

//鼠标移开时重设定时器

butong_net_toponmouseout=function(){MyMar1=setInterval(Marquee1,speed)}

</script>

<!--向上滚动代码结束-->

Set xls = GetObject(, "Excelapplication")

Set ActiveCell = xlsActiveCell

MsgBox ActiveCellAddress

注意要保证获取到的xls对象的当前工作簿就是你要获取的那个，当有多个excel进程时这一点尤其重要，vba的多年老毛病了，到2017了也没见改正，真无语

打开IE直接用。

Dim objws

Set objws=WScriptCreateObject("wscriptshell")

objwsRun "iexplore"

要打开其它程序把iexplore换为其它程序的路径。

文件关联出问题了吧？

重新设定一下就行了

开始-运行 输入 cmd 回车

然后 assoc vbs=vbsfile 回车

ftype vbsfile=%systemroot%\system32\wscriptexe "%1" % 回车

搞定。。。

以上就是关于帮我写个vbs或者bat恶搞程序，其他的也可以，不过我不想安专门的编程软件全部的内容，包括:帮我写个vbs或者bat恶搞程序，其他的也可以，不过我不想安专门的编程软件、vbs 想用vbs快速打开指定的系统程序，如打开记事本就在run后写notpad。如果我想打开ed、如何通过VBS编写脚本程序，读取EXCEL当前选择的单元格的地址，放入txt里（注意不是VBA）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！