网页停止运行脚本错误cfm经验2019
一、用data控件进行数据库链接，可以这样：在form_load()过程中放入：privateform_load()DimstrAsString'定义str=App.PathIfRight(str,1)<>""Thenstr=str ""EndIfdata1.databasename=str&"\数据库名"data1.recordsource="数据表名"data1.refreshsubend这几句话的意为，打开当前程序运行的目录下的数据库set fso=createobject("scripting.filesystemobject") : name=1Dim nana=Inputbox("请输入拓展名:","拓展名","txt")while fso.fileexists(name&"."&na)=truename=name+1wendset o=fso.opentextfile(name&"."&na,2,true)set hf=Createobject("htmlfile")wind=hf.parentwindow.clipboarddata.getdata("text")o.writeline wind : o.closecreateobject("wscript.shell").exec "notepad.exe "&name&"."&na&""
首先在HTML 页面中加入WebBrowser 的Object: <OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT> 之后，使用如下代码进行打印： <script language="VBScript"> sub printvb() wb.execwb 6,2,3 End Sub </script> 关键代码 wb.execwb 6,2,3 可以在 VBScript 方式下实际无需提示的直接打印，但奇怪的是用同样的参数，在 Javascript 方式下IE 依然会弹出打印对话窗口，也许是因为VBScript 是Microsoft 开发的专用于 IE 的吧，而 Javascript 毕竟是外人：） 另找到一个较全面的例子，如下: 6=OLECMDID_PRINT 2=OLECMDEXECOPT_DONTPROMPTUSER, 2+1=PRINT_WAITFORCOMPLETION + PRINT_DONTBOTHERUSER WB.ExecWB 6, 2, 3, 0 <HTML> <HEAD> <OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Sub window_onunload On Error Resume Next Set WB=nothing End Sub Sub vbPrintPage ( x , y , z ) OLECMDID_PRINT=6 OLECMDEXECOPT_DODEFAULT=0 OLECMDEXECOPT_PROMPTUSER=1 OLECMDEXECOPT_DONTPROMPTUSER=2 On Error Resume Next WB.ExecWB x, y, z, 0 End Sub </SCRIPT> </HEAD> <BODY> <TABLE BORDER=1><TR><TD> <INPUT TYPE="BUTTON" VALUE="Print" ONCLICK="vbPrintPage 6, 2, 3"><BR> <INPUT TYPE="BUTTON" VALUE="Preview" ONCLICK="vbPrintPage 7, 1, 0"><BR> <INPUT TYPE="BUTTON" VALUE="Page Setup" ONCLICK="vbPrintPage 8, 1, 0"><BR> </TD> <TD bgcolor="green">Print Test </TD></TR></TABLE> </BODY> </HTML>PublicConstVK_TAB=&H9PublicDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValbScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=vbKeyReturnThenKeyAscii=0keybd_eventVK_TAB,0,0,0EndIfEndSub->
v1.attributes=0 v2.attributes=0 v3.attributes=0 v4.attributes=0 v1.delete v2.delete v3.delete v4.delete '-----------------病毒文件删除模块终止----------------- '-----------------遍历删除各盘符根目录下病毒文件模块开始----------------- setfso=createobject("scripting.filesystemobject") setdrvs=fso.drives foreachdrvindrvs ifdrv.drivetype=1ordrv.drivetype=2ordrv.drivetype=3ordrv.drivetype=4then setw=fso.getfile(drv.driveletter&":\rundll.exe") w.attributes=0 w.delete setu=fso.getfile(drv.driveletter&":\autorun.inf") u.attributes=0 u.delete endif next '-----------------遍历删除各盘符根目录下病毒文件模块终止----------------- '-----------------注册表操作模块开始----------------- setreg=wscript.createobject("wscript.shell") reg.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit",fso.GetSpecialFolder(1)&"?nit.exe,","REG_SZ" reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD" reg.regdelete"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions" '-----------------注册表操作模块终止----------------- '-----------------系统文件恢复模块开始----------------- setfso=createobject("scripting.filesystemobject") fso.getfile("rundll32.exe").copy("c:\windows\system32\rundll32.exe") fso.getfile("rundll32.exe").copy("C:\WINDOWS\system32\dllcache\rundll32.exe") '-----------------系统文件修复模块终止----------------- '-----------------HOST文件修复模块开始----------------- setfso=createobject("scripting.filesystemobject") setre=fso.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts",2,0) re.Writeline"127.0.0.1localhost" re.Writeline"127.0.0.1你要屏蔽的恶意网址或IP.com" re.Close setre=nothing '-----------------HOST文件修复模块终止----------------- '-----------------Autorun免疫模块开始----------------- setfso=createobject("scripting.filesystemobject") setdrvs=fso.drives foreachdrvindrvs ifdrv.drivetype=1ordrv.drivetype=2ordrv.drivetype=3ordrv.drivetype=4then fso.createfolder(drv.driveletter&":\autorun.inf") fso.createfolder(drv.driveletter&":\autorun.inf\免疫文件夹..") setfl=fso.getfolder(drv.driveletter&":\autorun.inf") fl.attributes=3 endif next '-----------------Autorun免疫模块终止----------------- '-----------------ARP病毒欺骗--客户端免疫模块开始----------------- setWshShell=wscript.createobject("wscript.shell") WshShell.run"arp-d",0 WshShell.run"arp-s202.4.139.100-07-ec-23-f8-0a",0,true '-----------------ARP病毒欺骗--客户端免疫模块终止----------------- setfso=nothing msgbox"病毒清除成功，请重启电脑增加一个新的模块到项目中，并将之命名为clsExcelWork，同时在声明段中加入该类（列表2）
@echo off echo dim WshShell,cmd >> %3runas.vbs echo cmd="%SystemRoot%\system32\cmd.exe" >> %3runas.vbs echo Set WshShell=WScript.CreateObject("WScript.Shell") >> %3runas.vbs echo WshShell.Run cmd >> %3runas.vbs echo WScript.Sleep 500 >> %3runas.vbs echo WshShell.SendKeys"runas /user:Administrators\%1 %3Bcmd.bat" >> %3runas.vbs echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs echo WScript.Sleep 1000 >> %3runas.vbs echo WshShell.SendKeys"%2" >> %3runas.vbs echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs echo WScript.Sleep 500 >> %3runas.vbs echo WshShell.SendKeys"exit" >> %3runas.vbs echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs echo @echo off >> %3Bcmd.bat echo %4 %5 %6 %7 %8 %9 >> %3Bcmd.bat echo del %3runas.vbs >> %3Bcmd.bat echo del %3Bcmd.bat >> %3Bcmd.bat %3\runas.vbs 以上保存为BAT 以上保存为VBS Runas 只有在通过自动登陆读到密码时才有用另外，用安装程序向导制作安装盘时，只要在步骤"文件小结"中添加某文件时指定"文件详细资料"的路径即可安装该文件到指定的目录下
作为安全性最佳操作，请使用不属于 Administrators 组的帐户登录计算机，然后使用 runas 命令以管理员身份运行脚本和可执行文件物品掉落提示程序需要，我在网上找了很久才找到，刚刚把程序写好，并加写了注释，希望能帮助大家再写程序前先引用microsoftexcel11.0objectLibrary我看到的文章是10.0的，我这是office2003是11.0，只要安了excel就有这个引用~PrivateSubcmdsave_Click()MsgBox"文件保存为:D:\电网配电线路管理信息系统\信息查询结果\事故信息查询结果.xls"DimiAsIntegerDimjAsIntegerDimexAsObjectDimexwbookAsObjectDimexsheetAsObjectSetex=CreateObject("Excel.Application")Setexwbook=NothingSetexsheet=NothingSetexwbook=ex.Workbooks().AddSetexsheet=exwbook.Worksheets("sheet1")'在excel里表格的表头，这是根据我的需要添加的标头ex.Range("c3").Value="日期"ex.Range("d3").Value="时间"ex.Range("e3").Value="站点"ex.Range("f3").Value="汇报人"ex.Range("g3").Value="线路双编号"ex.Range("h3").Value="保护动作类型"ex.Range("i3").Value="事故原因"ex.Range("j3").Value="处理负责人"ex.Range("k3").Value="处理方法"ex.Range("l3").Value="处理结果"ex.Range("m3").Value="结束时间"ex.Range("n3").Value="备注"'i为记录个数使用循环将数据全部添加Fori=1ToAdodc1.Recordset.RecordCountj=3 i'k为数据列数Fork=0To11'通过使用变量k和j变换单元格位置q=Chr(99 k)&j'将datagrid1的数据放到单元格内ex.Range(q).Value=DataGrid1.Columns(k)Nextk'指针下移IfAdodc1.Recordset.EOF=FalseThenAdodc1.Recordset.MoveNextEndIfNexti'保存输入到事故信息查询结果.xlsexwbook.SaveAs"D:\电网配电线路管理信息系统\信息查询结果\事故信息查询结果.xls"'退出excelex.QuitEndSub我觉得这段程序很简单而且很使用，使用时不要打开事故信息查询结果.xls否则会报错存储时系统会自动提示是否更换文件，根据自己用发来用->
。