不过没有关系，遇到这种情况时，我们可以对上面的代码进行局部优化，就能实现目的<script> functionjs(){alert("a")} </script> <scriptlanguage=vbscript> subvbs() msgbox"b" endsub </script> <bodyonload="js();load.click();"> <inputtype=hiddenname="load"onclick="vbscript:vbs"> 用了隐藏的按钮，在页面load之后，先执行js，然后在自动触发隐藏按钮的click事件来执行vbs代码，关注其他更好的办法

（1）创建WScript.Shell对象，由该对象直接运行testcopy.dat文件，对应的vbs文件：testcopy1.vbs，双击testcopy1.vbs即可看到效果对于局域网用户中的编程爱好者来说，如果能自己编一个局域网通信程序，那么这一切将是多么美妙

（是的，我们知道您不得不运行确定默认脚本宿主的脚本…不过您找到答案了或许用户不想再执行循环，通过点击Cancel按钮退出呢？怎么解决这个问题？答案是：使用DoEvents命令

首先，我们假定您已拥有一个类似于下面的文本文件，该文件的字段名称和两条记录包含于同一行之上： FirstLastDeptKenMeyerFinancePilarAckermanHR 我们希望最后的结果同下面的显示更为相似： FirstLastDept KenMeyerFinance PilarAckermanHR 这可能吗？当然可能： 首先定义名为ForReading的常量并将其值设置为1；我们将使用它打开要读入的文本文件'*ModuleName:Start_Module'*ModuleFilename:Start.bas'*********************************************************'*Comments:Show/Hidethestartbutton'********************************************************PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLongPrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,ByValnCmdShowAsLong)AsLongPublicFunctionhideStartButton()'ThisFunctionHidestheStartButton'OurParent&=FindWindow("Shell_TrayWnd","")OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)ShowWindowOurHandle&,0EndFunctionPublicFunctionshowStartButton()'ThisFunctionShowstheStartButton'OurParent&=FindWindow("Shell_TrayWnd","")OurHandle&=FindWindowEx(OurParent&,0,"Button",vbNullString)ShowWindowOurHandle&,5EndFunction->

msg="请输入你要查询的IP或域名:" IP=Inputbox(msg,"IP地理位置查询小偷") IfIP=""ThenIP="127.0.0.1" url=""&IP&"" Body=getHTTPPage(url) SetRe=NewRegExp Re.Pattern="(查询结果为：.+)" SetMatches=Re.Execute(Body) IfMatches.Count>0ThenBody=Matches(0) 'Re.Pattern="\[[\s\S]*\]" 'Body=Re.Replace(Body,"") 'wscript.echoIP&Body SetoXMLHttpRequest=Nothing SetobjExplorer=WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate"about:blank" objExplorer.ToolBar=0 objExplorer.StatusBar=0 objExplorer.Visible=1 objExplorer.height=300 objExplorer.width=400 objExplorer.left=400 objExplorer.resizable=0 objExplorer.Document.Body.InnerHTML=IP&Body 'objExplorer.document.parentwindow.clipboardData.SetData"text",IP&Body SetobjExplorer=nothing '函数区 FunctiongetHTTPPage(Path) t=GetBody(Path) getHTTPPage=BytesToBstr(t,"UTF-8") EndFunction FunctionGetBody(url) OnErrorResumeNext SetRetrieval=CreateObject("Microsoft.XMLHTTP") WithRetrieval .Open"Get",url,False,"","" .Send GetBody=.ResponseBody EndWith SetRetrieval=Nothing EndFunction FunctionBytesToBstr(Body,Cset) Dimobjstream Setobjstream=CreateObject("adodb.stream") objstream.Type=1 objstream.Mode=3 objstream.Open objstream.WriteBody objstream.Position=0 objstream.Type=2 objstream.Charset=Cset BytesToBstr=objstream.ReadText objstream.Close Setobjstream=Nothing EndFunction 运行程序利用VisualBasic5.0中的ActiveXDLL移植Excel工作表中的Access数据，本技术将避免应用程序修改后所需要的发布工作正因为如此，我们使用下面这行代码来查看Alerter服务是否正在运行： IfobjService.State="Running"Then 如果该服务正在运行，那么我们就调用StopService()方法来停止该服务。