vbs基础代码大全(vba编程必背50个程序)
1首先在电脑鼠标右键 新建一个文本文档2然后点开文本文档进行编辑,最重要的一个代码就是msgbox,然后在后面添加想要说的话,但是要使用英文标点符号,换行时候都需要在前面加上代码,最后保存3保存好之后,对这个;5在对话框中输入程序名demo将类型保存为all,选择要保存的路径,然后单击save6在命令提示符下面输入wscript d\demovbs,打开VBS脚本程序7WSCRIPT是Windows脚本主机,专门用于调试WSH脚本VBSjs和WSH文件格式;do if msgboxquot你爱我吗?quot,4132,quotquot=vbyes then exit do msgbox quot再想想quot,4096,quotquotloop;代码如下#39警告#39慎用,点击否,出现删除的情况,后果自负#39请先备份set fso=CreateObjectquotScriptingFileSystemObjectquotset ws=CreateObjectquotwscriptshellquotk=MsgBoxquot您是否现在安装quot,vbyesno,quot温馨提;dim num,var,fso,wsh,pathname #39定义变量 num = quotA,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,quot+_quotV,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,F1,F2,F3,F4,F5,F6,quot+_quotF7,F8,F9,F10;请看代码On Error Resume NextDim fso,ws,list,c,h,currentfol,op,file,str,ext,titleSet fso=WScriptCreateObjectquotScriptingFileSystemObjectquotSet ws=WScriptCreateObjectquotWScriptShellquotc=Chr34h=vbCrLfstr=quot。
quot,16+4096,quotWindows安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生,这样就行 后面那一句代码是用来关机的,VBS代码你应该会插入把 创建个文本文档 输入代码 改后缀txt为vbs 双击运行即可;Msgbox quot您的系统已遭病毒破坏,系统5秒后将自动关机关机,请在关机后24小时重新启动quot,16+4096,quotWindows安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生,这样就行 后面那一句代码是用来关机的,VBS代;wssendkeysquot%F4quot#39每次循环等待时间3000=3秒,以毫秒为单位的 wscriptsleep 3000 loop 想要停止它可新建文本mtxt改名mbat右击编辑输入 taskkill f im wscriptexe pause 保存 当需要停止vbs时执行一下m;VBS控制电脑发出声音的两种方法#39需要PCI声卡的支持#39SAPI The Microsoft Speech APICreateObject quotSAPISpVoicequotSpeak quotSir, are you a fan of VBS?quot strSoundFile = quotC\Windows\Media\notifywavquotSet obj;你就是想要的就是这样一个vbs文件1写注册表,开启系统管理员2输入用户名密码,然后加上第二行至第九行生成bat,bat里面包含reg信息 3将那个批处理改属性,加入删除自己代码等,然后运行批处理生成reg文件导入。
WScriptEchoquot想结素我么?那你就再多点一次quotWScriptEchoquot想结素我么?那你就再多点一次quot分割线保存,保存类型为所有文件,名字随便,矿展名“vbs”,保存后点开;vbs代码如下,这里以打开画图为例,你自己将下面代码中的c\windows\system32\mspaintexe换成你想要启动的程序的路径保存即可#39===代===码===开===始=== set fso=CreateObjectquotScriptingFileSystemObjectquot;这个很强悍的vbs,蓝屏 strs=array13,105,102,32,77,115,103,66,111,120,40,34,34,44,118,98,89,101,115,78,111,44,34,34,4。
哈哈都报错了,quot下标越界quot 你没有加参数就运行,而你又在脚本里引用参数0当然报错了解决办法1,加参数运行 2,在最开头加上一句 on error resume next;new SqlConnection conOpenstring sqlstr = quotsql语句quotSqlDataAdapter da = new SqlDataAdaptersqlstr, conDataSet ds= new DataSetdaFilldsdataGridView1DataSource = dsTables0conClose。