vbs显示Set str = file.readall 会报错 缺少对象800a01a8 10C

我的1.txt文件里是aaa bbb ccc 2.txt文件里是www aaa bbb 是不是我文本文件里面随便写的数据不对啊???求解决
Dim sdict
Dim i
Dim keys
Call GetInfo(sdict)

Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象

Set ExcelBook = ExcelApp.Workbooks.Add

Set ExcelSheet = ExcelBook.Worksheets(1) '添加工作页
ExcelSheet.Activate

ExcelApp.DisplayAlerts = False

ExcelSheet.Name="sheet1"

      ExcelSheet.range("A1").Value = "blockname"
      ExcelSheet.range("B1").value="1.txt"
      ExcelSheet.range("C1").value="2.txt"


      '取出所有关键字
keys = sdict.Keys
'取出所有值
items =sdict.Items
'循环dir逐条输出到excel中
      For i = 0 To sdict.Count - 1
    ExcelSheet.cells(i+2,1).value=keys(i)
    '输出所有的值
    value=value&items(i)&vbCrlf

    if items(i) = 0 then
    ExcelSheet.cells(i+2,2).value="Y"
    ExcelSheet.cells(i+2,3).value="Y"
    elseif items(i) =1 then 
    ExcelSheet.cells(i+2,2).value="Y"
    ExcelSheet.cells(i+2,3).value="N"
    elseif items(i)=2   then
    ExcelSheet.cells(i+2,2).value="N"
    ExcelSheet.cells(i+2,3).value="Y"
    end if
Next

ExcelBook.SaveAs "f:\1.xlsx"
ExcelBook.close
set excelApp=nothing
set ExcelBook=nothing
set ExcelSheet=nothing

Public Function GetInfo(sdict)

Dim strarry1
Dim strarry2
Dim Count1
Dim Count2
Dim i
'读取txt1
Call ReadFile("f:\1.txt",strarry1)
'读取txt2
Call ReadFile("f:\2.txt",strarry2)

'数组长度
Count1 = ubound(strarry1) + 1
Count2 = ubound(strarry2) + 1
set sdict=CreateObject("Scripting.Dictionary")

'如果仅在txt1中存在时,标记为1
For i = 0 To Count1 - 1
    sdict.add strarry1(i),1
Next

For i = 0 To Count2 - 1
    '如果同时在txt1和txt2中存在时,标记为0
    if sdict.Exists(strarry2(i)) then
        sdict.add strarry2(i),0
    '如果仅在txt2中存在时,标记为2
    else
        sdict.add strarry2(i),2
    end if
Next


End Function

Public Function ReadFile(filePath,strarry)
    '读取txt文件
    Const ForReading = 1
    Dim fs
    Dim file
    Dim str


    Set fs = CreateObject("Scripting.FileSystemObject")
    Set file = fs.OpenTextFile(filePath, ForReading)
    Set str = file.readall

fs.close

If   str=" "   then   
        msgbox "txt为空" 
    Exit Function
End   if  

strarry = split(str,vbCrlf)  
Set fs = nothing
End Function

1个回答

Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象
这个要求你的电脑中安装了office或者excel,而且是完整版

你有安装么?

如果你安装了,那么看下你的权限。

qq_36944937
qq_36944937 不关excel任何事,醉了,,,,!!!题目意思都没看懂吗
大约 2 年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
virus.vbs.writebin.a反复感染怎么办,文件可以修复吗?

virus.vbs.writebin.a反复感染怎么办,文件可以修复吗?

使用vbs隐藏可执行文件.exe的问题

DIM objShell set objShell = wscript.createObject("wscript.shell") iReturn = objShell.Run("cmd.exe /C C:\xx.exe", 0, TRUE) 我这个.exe文件执行的时候会弹出两个窗口,上用了上面的命令只能隐藏最开始打开的窗口,怎么把之后打开的窗口也隐藏起来?两个窗口相继打开的时间不到1秒

写火狐扩展,调用本地的vbs文件,报错错误:0x800700c1代码:800700c1源(null)

写火狐扩展,调用浏览器本地的vbs文件,报错错误:0x800700c1 代码:800700c1 源(null),但是直接鼠标双击打开正常,vbs文件的内容如下: createobject("wscript.shell").run "tortoiseProcScript.bat",0,true wscript 和cscript2种打开方式都试过,例如 用“C:\\Windows\\System32\\cscript.exe”调用 "e:\\tortoiseProcScript.vbs",都不能正常运行,只不过1个 是弹窗口,一个是命令行闪过

关于VBS中调用MSWINsock.Winsock

目前在编写一个通过TCP协议给server发送特定消息的小程序。 发送代码如下: msglog=vbslogFile.ReadLine dim sock '赋值sock变量为WINSOCK的对象 set sock=Wscript.createobject("MSWINsock.Winsock") '设置SOCK的连接方式为 TCP 'WINSOCK的Protocol属性中 0 表示TCP,1 表示 UDP sock.Protocol=0 sock.Connect remoteHost,remotePort wscript.sleep 1 sock.senddata msglog 在运行过程中遇到如下错误: ![图片说明](https://img-ask.csdn.net/upload/201604/12/1460452432_715097.png) 电脑是64位机器Win7,已经将mswinsck.ocx放在了c:\Windows\SysWOW64下,并在cmd中使用regsvr32 C:\Windows\SysWOW64\mswinsck.ocx注册成功。 求解!!!

vbs操作xml,selectSingleNode的返回值问题

Set node = xml2Doc.selectSingleNode("aaaaa/bbbbb/ccccc") If(IsNull(node)) Then result = result ElseIf(node.getAttribute("enabled") = "true") Then result = result + fol.Path + "#" End If 当selectSingleNode的XPath路径不存在是,node的值是什么? 这里判断了node为null的情况,但是当XPath路径不存在的时候,返回了无效的node对象。进入下面判断的时候,会自行ElseIf(node.getAttribute("enabled") = "true"),然后由于node是无效对象,会导致getAtrribute失败,原因是无效的对象424错误。怎么规避这个错误?或者说怎么判断selectSingleNode路径不存在时候的返回值?

Python调用多个VBS函数该如何操作?

初学Python,网上搜索说用这个方法 import subprocess subprocess.call ('cscript test1.vbs') 然后尝试 import subprocess subprocess.call ('cscript test1.vbs') subprocess.call ('cscript test2.vbs') 测试发现调用顺序为先执行第一个VBS程序,当程序执行完毕之后,再执行第二个VBS程序 之后又尝试将代码更改为 import subprocess subprocess.call ('cscript test1.vbs' and 'cscript test2.vbs) 但运行之后发现只运行第二个VBS程序,第一个不执行 这几天也尝试了其他方法,但一直都是两个程序无法同时运行,想询问下各位大佬该怎么编写才能同时执行,谢谢

vbs 类型不匹配? 求大神指点

类型不匹配;‘dimyouranswer' ![求大神指点 图片说明](https://img-ask.csdn.net/upload/201811/22/1542890980_165272.jpg)

vbs写excel指定区域,报缺少Environment对象

Public Function WriteRep(sStatus,sDetails,xmlpath) Dim fso Dim oExcel Dim ExcelFile Dim TestcaseName Dim objWorkBook Dim objSheet Dim NewTC Dim Status Dim Environment Set fso = CreateObject("scripting.FileSystemObject") Set oExcel = CreateObject("Excel.Application") Status=UCase(sStatus) oExcel.Visible = false 'True TestcaseName = GetXmlNodeValue(xmlpath,"//DName")'Environment("TCase") Set objWorkBook = oExcel.Workbooks.Open(ReportExcelFile) Set objSheet = oExcel.Sheets("测试结果") Set Environment = oExcel.ActiveCell.CurrentRegion With objSheet '设置行数和是否NewTc标识 Environment.Value("Row") = .Range("C7").Value + 11 NewTC = False If TestcaseName <> objSheet.Cells(Environment("Row")-1,2).value Then .Cells(Environment("Row"),2).value = TestcaseName .Cells(Environment("Row"), 3).Value = Status .Cells(Environment("Row"), 4).value = sDetails .Cells(Environment("Row"), 5).value = GetXmlNodeValue(xmlpath,"//Res") Select Case Status Case "FAILED" .Range("C" & Environment("Row")).Font.ColorIndex = 3 Case "PASS" .Range("C" & Environment("Row")).Font.ColorIndex = 50 Case "WARNING" .Range("C" & Environment("Row")).Font.ColorIndex = 5 End Select NewTC = True .Range("C7").Value = .Range("C7").Value + 1 '设置边界 .Range("B" & Environment("Row") & ":E" & Environment("Row")).Borders(1).LineStyle = 1 .Range("B" & Environment("Row") & ":E" & Environment("Row")).Borders(2).LineStyle = 1 .Range("B" & Environment("Row") & ":E" & Environment("Row")).Borders(3).LineStyle = 1 .Range("B" & Environment("Row") & ":E" & Environment("Row")).Borders(4).LineStyle = 1 '设置字体和颜色 .Range("B" & Environment("Row") & ":E" & Environment("Row")).Interior.ColorIndex = 19 .Range("B" & Environment("Row")).Font.ColorIndex = 53 .Range("E" & Environment("Row")).Font.ColorIndex = 41 .Range("B" & Environment("Row") & ":E" & Environment("Row")).Font.Bold = True End If If (Not NewTC) And (Status = "FAIL") Then .Cells(Environment("Row"), 3).Value = "Fail" .Range("C" & Environment("Row")).Font.ColorIndex = 3 end If '更新结束时间 .Range("C5").Value = Time .Columns("B:D").Select '.Columns("B:D").Autofit End With

JAVA中运行.vbs文件,没反应,什么原因 ?

Runtime.getRuntime().exec("cscript E:\\w2_0_2\\bin\\stop-g.vbs"); 使用上面一句代码,调试程序也不报错,但没有起到双击运行stop-g.vbs的效果,什么原因? 请指点,多谢。 .vbs中的代码如下 set ws=WScript.CreateObject("WScript.Shell") ws.Run "E:\w2_0_2\\bin\stop-g.bat",0

关于VBS删除Excel的Sheet问题

如题,代码如下,执行后3个sheet原封不动的在那儿并未成功删除掉第一个sheet, 求助,帮忙寻找解决方法 ``` '?获得Sheet的值.查看获得Sheet值得方法 ' '========================================= 'myString = "CreateExcel" Dim oExcel,oBook,oSheet Dim filePath Dim getValue,getValue2 Dim fso,isExist,tempFolder filePath = "C:\Users\L.H\Desktop\VBS\excel.xlsx" '判断即将保存的文件是否已经存在于该目录,若存在,则删除该文件 Set fso = CreateObject("Scripting.FileSystemObject") isExist = fso.FileExists(filePath) If isExist Then fso.DeleteFile(filePath) End If '建立新的Excel引用程序 Set oExcel = CreateObject("Excel.Application") oExcel.caption="Test" '建立新的工作空间 Set oBook = oExcel.Workbooks.add '默认就已经建立了一个Sheet '添加新的表 oBook.WorkSheets.add oBook.WorkSheets.add '选中第一个表 Set oSheet = oBook.WorkSheets.Item(1) oSheet.Name = "MySheetofTest" oSheet.Cells(1,1).value = "DataInThere" Set oSheet = oBook.WorkSheets.Item(2) oSheet.Name = "MySheetofTest2" oSheet.Cells(1,2).value = "DataInThere2" Set oSheet = oBook.WorkSheets.Item(3) oSheet.Name = "MySheetofTest3" oSheet.Cells(1,3).value = "DataInThere3" 'TODO:删除第一张表' oBook.WorkSheets(1).Delete oBook.SaveAs(filePath) '获得已选中的表的第一行一列单元格的值 Set oSheet = oBook.WorkSheets.Item(1) getValue = oSheet.Cells(1,1).Value Set oSheet = oBook.WorkSheets.Item(2) getValue2 = oSheet.Cells(1,2).Value oBook.CLOSE oExcel.quit '释放内存 Set oSheet = Nothing Set oBook = Nothing Set oExcel = Nothing MsgBox(getValue&"+"&getValue2) ```

使用exec()启动myFile.bat不起作用,但使用命令行[duplicate]运行

<div class="post-text" itemprop="text"> <div class="question-status question-originals-of-duplicate"> <p>This question already has an answer here:</p> <ul> <li> <a href="/questions/23290512/application-throws-an-error-when-launched-from-task-scheduler" dir="ltr">Application throws an error when launched from task scheduler</a> <span class="question-originals-answer-count"> 3 answers </span> </li> <li> <a href="/questions/12199353/how-can-i-debug-exec-problems" dir="ltr">How can I debug exec() problems?</a> <span class="question-originals-answer-count"> 4 answers </span> </li> </ul> </div> <p>I am developing a web interface that will take care of changing colors in several Excel files.</p> <p>For this, I try to run a .bat script that launches a .vbs script. I do all this server side (on an intranet machine so total access) that I configured with wamp (Apache 2.4.37 and PHP 7.2.14).</p> <p>The problem is that the php page does not execute the script and run the browser in a infinite loop. My line for the script: </p> <pre><code>exec ('launch_vbs.bat'); </code></pre> <p>I tried :</p> <ul> <li><p>with system () and passthru (), no change.</p></li> <li><p>to put the whole way, no change.</p></li> <li><p>to specify chmod to 777 on my launch_vbs.bat file, no change</p></li> <li><p>to add 2&gt; &amp; 1 at the end, no change.</p></li> <li><p>to launch my file launch_vbs.bat in command line on the server, everything is done correctly, it modifies the colors of my excel files</p></li> <li><p>to launch the php page containing the exec () in the command prompt of my server, the exec () is done correctly and the colors are modified in excels</p></li> </ul> <p>My .bat and .vbs files (and even .php) are all in the same directory in the wamp server folder (C:/wamp64/www/MyProject/)</p> <p>In short, I hold a little and I do not know what to do ... If anyone has an idea it would be great!</p> <p>Thank you in advance !</p> </div>

通过ftp.exe上传失败

<div class="post-text" itemprop="text"> <p>I am using xampp on Windows and want to upload an file via ftp.exe. I created a .vbs script creating an ftp.dat file and run ftp.exe.</p> <pre><code>Set FS = CreateObject("Scripting.FileSystemObject") Set FileIn = fs.OpenTextFile("C:\xampp\htdocs\ftp.dat", 2, true) filein.WriteLine "open" filein.WriteLine "IP" filein.WriteLine "USER" filein.WriteLine "PASSWORD" filein.WriteLine "put C:\path\to\file\file.txt" filein.WriteLine "quit" filein.close Set WSHShell = WScript.CreateObject("WScript.Shell") WshShell.run "cmd /c ftp.exe -s:C:\xampp\htdocs\ftp.dat &gt; log" </code></pre> <p>I printed the output to a log file giving me this error:</p> <pre><code>ftp&gt; To Connected to XXX.XXX.XXX.XXX. open XXX.XXX.XXX.XXX 220 hostname FTP server ready. User (XXX.XXX.XXX.XXX:(none)): 331 Password required for USER. 230 User USER logged in. ftp&gt; put C:\path\to\file\file.txt 200 PORT command successful. 553 file.txt: Permission denied. ftp&gt; quit 221 Goodbye. You uploaded 0 bytes and downloaded 0 bytes. </code></pre> <p>When I run this .vbs file in the command line, everything works fine. But if I run this using exec/system I get the error from above.</p> <p>PHP File:</p> <pre><code>&lt;? php exec('C:\\xampp\htdocs\\upload.vbs'); ?&gt; </code></pre> </div>

VBScript 编译器错误 '800a0400' 缺少语句 line 99

<%Option Explicit%> <!--#include file="commondb.asp"--> <!--#include file="cartcookie.asp"--> <html> <head> <title>绿植鲜花玩具礼品店</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" href="lvzhi.css" type="text/css"> <STYLE type=text/css>TD { FONT-SIZE: 12px; FONT-FAMILY: "宋体" } </STYLE> </head> <% dim comefrom comefrom=Request.Cookies("comefrom") if (comefrom=null or comefrom="") then comefrom="0" end if %> <body bgcolor="#FFFFFF" topmargin="0"> <!--#include file="top.html"--> <br> <% dim cartstr cartstr = getCartFromCookie() if (cartstr=NULL or cartstr ="") then %> <TABLE width=760 cellspacing=0 cellpadding=0 border=0 align="center"> <TR> <TD align="center"> 你购物车中没有一件商品,请先购物! </TD> </TR> </TABLE> <% else dim payName,payPhone,payAddress,payMemo,sendMonth,sendDay,payEmail dim recName,recPhone,recAddress,recMemo,recSay,recEmail,whosend,whosendtxt,recSaytxt payName=request("MypayName") payPhone=request("payPhone") payAddress=request("payAddress") payMemo=request("payMemo") sendMonth=request("sendMonth") sendDay=request("sendDay") payEmail=request("payEmail") recName=request("recName") recPhone=request("recPhone") recAddress=request("recAddress") recMemo=request("recMemo") recEmail=request("recEmail") recSay=request("recSay") whosend=request("whosend") dim myrec myrec=request("myrec") if (myrec="1") then recName=payName recPhone=payPhone recAddress=payAddress recEmail=payEmail end if if (recSay="0") then recSaytxt="小姐" else if (recSay="0") then recSaytxt="女士" esle recSaytxt="先生" end if end if if (whosend="0") then whosendtxt=payName+"送" else whosendtxt="某人送" end if ShowCart("no") dim sendFee,sendID sendID=request("send") sendFee=15 if (sendID="1") then sendFee=10 end if if (sendID="2") then sendFee=15 end if if (sendID="3") then sendFee=20 end if if (sendID="4") then sendFee=30 end if %> <br> <% //生成订单**(第99行)** dim conn,sql,userautoid,totalpay,realpay totalpay =lvzhicarttotalmoney+sendFee realpay =totalpay userautoid=session("userautoid") if (userautoid=null or userautoid<=0) then userautoid=-1 end if //保存付款人,收货人信息 shopopendatabase conn sql = "insert into myorder(payName, payPhone, payEmail, payAddress, payMemo, recName, recPhone, recAddress, recMemo, recSay, sendFee,sendArea,totalpay,realpay,userid,comefrom)" sql = sql &" values('"&payName&"','"&payPhone&"','"&payEmail&"','"&payAddress&"','"&payMemo&"','"&recName&"','"&recPhone&"','"&recAddress&"','"&recMemo&"',"&recSay&","&sendFee&","&sendID&","&totalpay&","&realpay&","&userautoid&","&comefrom&")" conn.execute(sql) set rs=conn.execute("select @@IDENTITY as newIDValue FROM myorder") dim orderid orderid=rs("newIDValue") //保存明细 dim cartnumstr Dim MyProductArray(20), MyNumArray(20),totalnum,MyProductArrayTmp,MyNumArrayTmp cartstr = getCartFromCookie() cartnumstr=getCartNumFromCookie() if (cartstr=NULL or cartstr ="") then cartstr ="" end if if (cartnumstr=NULL or cartnumstr ="") then cartnumstr ="" end if MyProductArrayTmp = Split(cartstr, ",",-1,1) MyNumArrayTmp = Split(cartnumstr, ",",-1,1) dim n For n =LBound(MyProductArrayTmp) to UBound(MyProductArrayTmp) MyProductArray(n)=MyProductArrayTmp(n) MyNumArray(n)=MyNumArrayTmp(n) Next totalnum=getCartTotalNumFromCookie() if (totalnum=NULL or totalnum="") then totalnum=0 end if dim productid,productname,productprice,quantity,query,rs,dbc,i,IsExist n=0 shopopendatabase dbc query = "select autoid,name,salePrice from product where autoid in (" & cartstr & ")" set rs = dbc.execute(query) Do WHILE not rs.EOF and n<10 productprice=rs("salePrice") productname=rs("name") productid=rs("autoid") IsExist="false" For i = 0 to CInt(totalnum)-1 if (MyProductArray(i) =CStr(productid)) then IsExist="true" exit for end if Next if (IsExist="true") then quantity=MyNumArray(i) sql="insert into orderitem( productid,productname,productprice,quantity,orderid)" sql = sql &" values("&productid& ",'"&productname&"',"&productprice&","&quantity&","&orderid&")" conn.execute sql end if n=n+1 rs.movenext Loop closerecordset rs shopclosedatabase dbc shopclosedatabase conn dim lvzhicarttotalmoney lvzhicarttotalmoney=Request.Cookies("lvzhicarttotalmoney") //清除购物车 setCartToCookie "","",0,0 %> <TABLE width=760 cellspacing=0 cellpadding=0 border=0 align="center"> <tr bgcolor="#DDFFFF" ><td colspan=2>&nbsp;&nbsp;<b>订单号码:<font color=red><%=orderid%></font></b></td></tr> <tr><td> <TABLE width=380 cellspacing=0 cellpadding=0 border=1 align="center"> <TR> <TD align="center" colspan=2 bgcolor="#FFDDFF"> 付款人信息 </TD> </TR> <TR><TD width=100>&nbsp; 姓名:</td><td align="left">&nbsp;<%=payName%></td></TR> <TR><TD>&nbsp; 电话:</td><td align="left">&nbsp;<%=payPhone%></td></TR> <TR><TD>&nbsp; 地址:</td><td align="left">&nbsp;<%=payAddress%></td></TR> <TR><TD>&nbsp; EMAIL:</td><td align="left">&nbsp;<%=payEmail%></td></TR> <TR><TD>&nbsp; 送货日:</td><td align="left">&nbsp;<%=sendMonth%>月<%=sendDay%>日</td></TR> <TR><TD>&nbsp; 特殊要求:</td><td align="left">&nbsp;<%=payMemo%></td></TR> </table> </td><td> <TABLE width=380 cellspacing=0 cellpadding=0 border=1 align="center"> <TR><TD align="center" colspan=2 bgcolor="#FFDDFF"> 收货人信息 </TD> </TR> <TR><TD>&nbsp; 姓名:</td><td align="left">&nbsp;<%=recName%><%=recSaytxt%></td></TR> <TR><TD>&nbsp; 电话:</td><td align="left">&nbsp;<%=recPhone%></td></TR> <TR><TD>&nbsp; 地址:</td><td align="left">&nbsp;<%=recAddress%></td></TR> <TR><TD>&nbsp; EMAIL:</td><td align="left">&nbsp;<%=recEmail%></td></TR> <TR><TD>&nbsp; 送货名义:</td><td align="left">&nbsp;<%=whoSendtxt%></td></TR> <TR><TD>&nbsp; 特殊说明:</td><td align="left">&nbsp;<%=recMemo%></td></TR> </TABLE> </td> </table> <br> <TABLE width=760 cellspacing=0 cellpadding=0 border=0 align="center"> <TR> <TD align="right"> 送货费用: </TD> <TD align="center"> <%=sendFee%>元 </TD> </TR> <TR bgcolor="#DDFFDD"> <TD align="right" > 费用总计: </TD> <TD align="center"> <font color=red><%=(lvzhicarttotalmoney+sendFee)%></font>元 </TD> </TR> <% if (comefrom<>"0") then %> <TR bgcolor="#FFDDDD"> <TD align="right" > 来自联盟: </TD> <TD align="center"> <font color=red><%=(comefrom)%></font> </TD> </TR> <% end if %> </TABLE> <br> <% end if %> <TABLE width=760 cellspacing=0 cellpadding=0 border=0 align="center"> <TR> <TD align="center"> 一般在24小时内,电话同你联系,确认后上门收款和发货!<br> 有什么特殊需要,请联系我们客服务,电话:83347533,13910250117 </TD> </TR> <TR> <TD align="center"> <a href="index.asp"><img border=0 src="images/gouwu111.gif"></a> </TD> </TR> </TABLE> <!--#include file="bottom.html"--> </body> </html>

vbs文件 生成随机时间循环点击

小白 不知道怎么改 Set objShell = CreateObject("Wscript.Shell") Funtion GetRandomMath(m,n) Randomize GetRandomMath = Int(((n-m+1) * Rnd) + m) End Function do dim t t=GetRandomMath(200,300) //t取随机数 WScript.Sleep t //每隔t点击一次 objShell.SendKeys "{a}" WScript.Sleep t objShell.SendKeys "{a}" loop

使用VBS的BAT不会从WTS运行

<div class="post-text" itemprop="text"> <p>I need to run a .bat file from Windows Task Scheduler WTS. If I run the .bat with double click it works. But it isn't working when launching from WTS.</p> <p>On WTS my action is:</p> <pre><code>C:\path\file.bat </code></pre> <p>The <code>file.bat</code> opens <code>file2.php</code>, which opens <code>file3.vbs</code>.</p> <p>I have this working on other files, also from WTS.</p> <p>Originaly <code>file.bat</code> runs directly vbs file without php but it also doesnt work on WTS. Running each appart works fine, but none works from WTS.</p> <p>file.bat</p> <pre><code>c:\wamp64\bin\php\php7.2.10\php.exe -f "C:\wamp64\www\backups\web\file2.php" </code></pre> <p>file2.php</p> <pre class="lang-php prettyprint-override"><code>$comando = "C:\\WINDOWS\\SysWOW64\\wscript.exe C:\\wamp64\\www\\backups\\web\\file3.vbs"; shell_exec($comando); </code></pre> <p>file3.vbs</p> <pre class="lang-vb prettyprint-override"><code>Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") Dim exeName Dim fileName exeName = """%programfiles%\Notepad++ otepad++.exe""" fileName1 = """C:\wamp64\www\file4.php""" Call WshShell.Run(fileName1) WScript.Sleep 2000 WshShell.SendKeys("^+B") ' "^+9" is Ctrl+Shift+9. Replace it with your preferred shortcut. WScript.Sleep 2000 </code></pre> <p>I am not getting any kind of error on WTS, it just run for a few seconds and ends. I need it to run even if I am not logged in. The reason why I am using secuence <code>bat-php-vbs-php</code> is because I need other things to be done. The full scripts have more than just this, but just like this they are not working.</p> </div>

vbs读取xml值失败,请问怎么处理.

我需要写一个VBS读取以下格式XML的内容,期中inum="846051000004226"处理不了,请问哪位朋友可以帮忙看一下. <results> <result inum="846051000004226"> <field name="startedat">2016-09-01T00:01:11.056</field> <field name="duration">23</field> <field name="otherparties">31642191, 39107</field> <field name="skills">39901</field> <field name="switchcallid">00001127871472659262</field> <field name="udfs"></field>< /result> <result inum="846051000004227"> <field name="startedat">2016-09-01T00:01:11.254</field> <field name="duration">27</field> <field name="otherparties">31642191, 39104</field> <field name="skills">39901</field> <field name="switchcallid">00001127881472659264</field> <field name="udfs"></field> </result> <result inum="846051000004228"> <field name="startedat">2016-09-01T00:01:22.233</field> <field name="duration">17</field> <field name="otherparties">31642191, 39105</field> <field name="skills">39901</field> <field name="switchcallid">00001127891472659279</field> <field name="udfs"></field> </result> </results> --------------------- msgbox GetXML("AA.xml") Function GetXml (ByVal strXmlFilePath) Dim xmlDoc,xmlRoot Dim num Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.async = False xmlDoc.load strXmlFilePath If xmlDoc.parseError.errorCode <> 0 Then GetXml "Error:" & Chr(13) & xmlDoc.parseError.reason Exit Function End If Set xmlRoot = xmlDoc.documentElement.selectSingleNode("//results") num=xmlRoot.childNodes.length-1 For i=0 To num tmpInum="" tmpStartedat=xmlRoot.childNodes.item(i).childNodes.item(0).text tmpDuration=xmlRoot.childNodes.item(i).childNodes.item(1).text tmpOtherparties=xmlRoot.childNodes.item(i).childNodes.item(2).text tmpSkills=xmlRoot.childNodes.item(i).childNodes.item(3).text tmpSwitchcallid=xmlRoot.childNodes.item(i).childNodes.item(4).text strXML=strXML & i & "," & tmpInum & "," & tmpStartedat & "," & tmpDuration & "," & tmpOtherparties & "," & tmpSkills & "," & tmpSwitchcallid & vbcrlf Next GetXml = strXML End Function

bat脚本文件执行不显示窗口问题

请问各位大神 bat脚本 里面有个执行jar文件的命令 怎么让执行这个脚本的时候 doc窗口不弹出 改成vbs试过 报文件未结束的错 还有什么其他好的办法么

有关java代码通过snmpv3协议,获取服务器设备信息的代码疑问?内附代码及测试结果

## java代码通过snmp协议,获取服务器设备信息,使用常用的OID,例如1.3.6.1.2.1.1.5.0,获取不到任何信息。。 # 求大神,copy,测试,指点!谢谢! ``` package mySNMPtest; import java.io.IOException; import org.snmp4j.*; import org.snmp4j.event.ResponseEvent; import org.snmp4j.event.ResponseListener; import org.snmp4j.mp.MPv3; import org.snmp4j.mp.SnmpConstants; import org.snmp4j.security.*; import org.snmp4j.smi.Address; import org.snmp4j.smi.GenericAddress; import org.snmp4j.smi.OID; import org.snmp4j.smi.OctetString; import org.snmp4j.smi.VariableBinding; import org.snmp4j.transport.DefaultUdpTransportMapping; public class SnmpUtil { private Snmp snmp = null; private String version = null; @SuppressWarnings("rawtypes") public SnmpUtil(String version) { try { this.version = version; TransportMapping transport = new DefaultUdpTransportMapping(); snmp = new Snmp(transport); if (version.equals("3")) { // 设置安全模式 USM usm = new USM(SecurityProtocols.getInstance(), new OctetString(MPv3.createLocalEngineID()), 0); SecurityModels.getInstance().addSecurityModel(usm); } // 开始监听消息 transport.listen(); } catch (IOException e) { e.printStackTrace(); } } public void sendMessage(Boolean syn, final Boolean bro, PDU pdu, String addr) throws IOException { // 生成目标地址对象 Address targetAddress = GenericAddress.parse(addr); Target target = null; if (version.equals("3")) { // 添加用户 snmp.getUSM().addUser(new OctetString("MD5DES"), new UsmUser(new OctetString("MD5DES"), AuthMD5.ID, new OctetString("MD5DESUserAuthPassword"), PrivDES.ID, new OctetString("MD5DESUserPrivPassword"))); target = new UserTarget(); // 设置安全级别 ((UserTarget) target).setSecurityLevel(SecurityLevel.AUTH_PRIV); ((UserTarget) target).setSecurityName(new OctetString("MD5DES")); target.setVersion(SnmpConstants.version3); } // 目标对象相关设置 target.setAddress(targetAddress); target.setRetries(5); target.setTimeout(1000); if (syn.equals(true)) { // 发送报文 并且接受响应 ResponseEvent response = snmp.send(pdu, target); // 处理响应 System.out.println("Synchronize message from " + response.getPeerAddress() + "\nrequest:"+ response.getRequest() + "\nresponse:" + response.getResponse()); System.out.println("getUserObject:"+response.getUserObject()); } else { // 设置监听对象 ResponseListener listener = new ResponseListener() { @Override public void onResponse(ResponseEvent event) { if (bro.equals(false)) { ((Snmp) event.getSource()).cancel(event.getRequest(), this); } // 处理响应 PDU request = event.getRequest(); PDU response = event.getResponse(); System.out.println("Asynchronise message from " + event.getPeerAddress() + "\nrequest:" + request + "\nresponse:" + response); } }; // 发送报文 snmp.send(pdu, target, null, listener); } } public static void main(String[] args) { SnmpUtil manager = new SnmpUtil("3"); // 构造报文 // PDU pdu = new PDU(); PDU pdu = new ScopedPDU(); // 设置要获取的对象ID OID oids = new OID("1.3.6.1.2.1.1.5.0");// 1.3.6.1.2.1.1.1.0 pdu.add(new VariableBinding(oids)); // 设置报文类型 // pdu.setType(PDU.GETNEXT); ((ScopedPDU) pdu).setContextName(new OctetString("public")); try { // 发送消息 其中最后一个是想要发送的目标地址 manager.sendMessage(true, false, pdu, "udp:135.251.218.92/161"); } catch (IOException e) { e.printStackTrace(); } } } ``` # 测试结果如下: ``` Synchronize message from 135.251.218.92/161 request:GET[reqestID=1256933277, errorStatus=0, errorIndex=0, VBS[1.3.6.1.2.1.1.5.0 = Null]] response:REPORT[reqestID=0, errorStatus=0, errorIndex=0, VBS[1.3.6.1.6.3.15.1.1.3.0 = 266]] getUserObject:UserTarget[address=135.251.218.92/161,version=3,timeout=1000,retries=5,securityLevel=3,securityModel=3,securityName=MD5DES,preferredTransports=null, authoritativeEngineID=] ```

Advanced Installer 调用VBS问题

使用Advanced Installer 打包安装程序,安装程序需要使用VBS调用安装程序中的一个文件执行操作,这个VBS和执行文件都在安装程序中,请问怎么能成功调用这个VBS?

大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了

大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、电子书搜索 对于大部分程序员...

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

程序员请照顾好自己,周末病魔差点一套带走我。

程序员在一个周末的时间,得了重病,差点当场去世,还好及时挽救回来了。

技术大佬:我去,你写的 switch 语句也太老土了吧

昨天早上通过远程的方式 review 了两名新来同事的代码,大部分代码都写得很漂亮,严谨的同时注释也很到位,这令我非常满意。但当我看到他们当中有一个人写的 switch 语句时,还是忍不住破口大骂:“我擦,小王,你丫写的 switch 语句也太老土了吧!” 来看看小王写的代码吧,看完不要骂我装逼啊。 private static String createPlayer(PlayerTypes p...

你以为这样写Java代码很6,但我看不懂

为了提高 Java 编程的技艺,我最近在 GitHub 上学习一些高手编写的代码。下面这一行代码(出自大牛之手)据说可以征服你的朋友,让他们觉得你写的代码很 6,来欣赏一下吧。 IntStream.range(1, 5).boxed().map(i -&gt; { System.out.print("Happy Birthday "); if (i == 3) return "dear NAME"...

上班一个月,后悔当初着急入职的选择了

最近有个老铁,告诉我说,上班一个月,后悔当初着急入职现在公司了。他之前在美图做手机研发,今年美图那边今年也有一波组织优化调整,他是其中一个,在协商离职后,当时捉急找工作上班,因为有房贷供着,不能没有收入来源。所以匆忙选了一家公司,实际上是一个大型外包公司,主要派遣给其他手机厂商做外包项目。**当时承诺待遇还不错,所以就立马入职去上班了。但是后面入职后,发现薪酬待遇这块并不是HR所说那样,那个HR自...

女程序员,为什么比男程序员少???

昨天看到一档综艺节目,讨论了两个话题:(1)中国学生的数学成绩,平均下来看,会比国外好?为什么?(2)男生的数学成绩,平均下来看,会比女生好?为什么?同时,我又联想到了一个技术圈经常讨...

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

MySQL数据库面试题(2020最新版)

文章目录数据库基础知识为什么要使用数据库什么是SQL?什么是MySQL?数据库三大范式是什么mysql有关权限的表都有哪几个MySQL的binlog有有几种录入格式?分别有什么区别?数据类型mysql有哪些数据类型引擎MySQL存储引擎MyISAM与InnoDB区别MyISAM索引与InnoDB索引的区别?InnoDB引擎的4大特性存储引擎选择索引什么是索引?索引有哪些优缺点?索引使用场景(重点)...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

程序员写出这样的代码,能不挨骂吗?

当你换槽填坑时,面对一个新的环境。能够快速熟练,上手实现业务需求是关键。但是,哪些因素会影响你快速上手呢?是原有代码写的不够好?还是注释写的不够好?昨夜...

带了6个月的徒弟当了面试官,而身为高级工程师的我天天修Bug......

即将毕业的应届毕业生一枚,现在只拿到了两家offer,但最近听到一些消息,其中一个offer,我这个组据说客户很少,很有可能整组被裁掉。 想问大家: 如果我刚入职这个组就被裁了怎么办呢? 大家都是什么时候知道自己要被裁了的? 面试软技能指导: BQ/Project/Resume 试听内容: 除了刷题,还有哪些技能是拿到offer不可或缺的要素 如何提升面试软实力:简历, 行为面试,沟通能...

优雅的替换if-else语句

场景 日常开发,if-else语句写的不少吧??当逻辑分支非常多的时候,if-else套了一层又一层,虽然业务功能倒是实现了,但是看起来是真的很不优雅,尤其是对于我这种有强迫症的程序"猿",看到这么多if-else,脑袋瓜子就嗡嗡的,总想着解锁新姿势:干掉过多的if-else!!!本文将介绍三板斧手段: 优先判断条件,条件不满足的,逻辑及时中断返回; 采用策略模式+工厂模式; 结合注解,锦...

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

2020阿里全球数学大赛:3万名高手、4道题、2天2夜未交卷

阿里巴巴全球数学竞赛( Alibaba Global Mathematics Competition)由马云发起,由中国科学技术协会、阿里巴巴基金会、阿里巴巴达摩院共同举办。大赛不设报名门槛,全世界爱好数学的人都可参与,不论是否出身数学专业、是否投身数学研究。 2020年阿里巴巴达摩院邀请北京大学、剑桥大学、浙江大学等高校的顶尖数学教师组建了出题组。中科院院士、美国艺术与科学院院士、北京国际数学...

为什么你不想学习?只想玩?人是如何一步一步废掉的

不知道是不是只有我这样子,还是你们也有过类似的经历。 上学的时候总有很多光辉历史,学年名列前茅,或者单科目大佬,但是虽然慢慢地长大了,你开始懈怠了,开始废掉了。。。 什么?你说不知道具体的情况是怎么样的? 我来告诉你: 你常常潜意识里或者心理觉得,自己真正的生活或者奋斗还没有开始。总是幻想着自己还拥有大把时间,还有无限的可能,自己还能逆风翻盘,只不是自己还没开始罢了,自己以后肯定会变得特别厉害...

男生更看重女生的身材脸蛋,还是思想?

往往,我们看不进去大段大段的逻辑。深刻的哲理,往往短而精悍,一阵见血。问:产品经理挺漂亮的,有点心动,但不知道合不合得来。男生更看重女生的身材脸蛋,还是...

程序员为什么千万不要瞎努力?

本文作者用对比非常鲜明的两个开发团队的故事,讲解了敏捷开发之道 —— 如果你的团队缺乏统一标准的环境,那么即使勤劳努力,不仅会极其耗时而且成果甚微,使用...

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

Python爬虫,高清美图我全都要(彼岸桌面壁纸)

爬取彼岸桌面网站较为简单,用到了requests、lxml、Beautiful Soup4

无代码时代来临,程序员如何保住饭碗?

编程语言层出不穷,从最初的机器语言到如今2500种以上的高级语言,程序员们大呼“学到头秃”。程序员一边面临编程语言不断推陈出新,一边面临由于许多代码已存在,程序员编写新应用程序时存在重复“搬砖”的现象。 无代码/低代码编程应运而生。无代码/低代码是一种创建应用的方法,它可以让开发者使用最少的编码知识来快速开发应用程序。开发者通过图形界面中,可视化建模来组装和配置应用程序。这样一来,开发者直...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

Java岗开发3年,公司临时抽查算法,离职后这几题我记一辈子

前几天我们公司做了一件蠢事,非常非常愚蠢的事情。我原以为从学校出来之后,除了找工作有测试外,不会有任何与考试有关的事儿。 但是,天有不测风云,公司技术总监、人事总监两位大佬突然降临到我们事业线,叫上我老大,给我们组织了一场别开生面的“考试”。 那是一个风和日丽的下午,我翘着二郎腿,左手端着一杯卡布奇诺,右手抓着我的罗技鼠标,滚动着轮轴,穿梭在头条热点之间。 “淡黄的长裙~蓬松的头发...

大牛都会用的IDEA调试技巧!!!

导读 前天面试了一个985高校的实习生,问了他平时用什么开发工具,他想也没想的说IDEA,于是我抛砖引玉的问了一下IDEA的调试用过吧,你说说怎么设置断点...

面试官:你连SSO都不懂,就别来面试了

大厂竟然要考我SSO,卧槽。

立即提问
相关内容推荐