标签: vbscript

我试图杀死一个名为"AetherBS.exe"的进程的所有实例,但以下VBscript无法正常工作.我不确定这是失败的原因/原因.

那么如何杀死"AetherBS.exe"的所有进程呢？

CloseAPP "AetherBS.exe"

Function CloseAPP(Appname)
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery( _
        "SELECT * FROM Win32_Process", , 48)
    For Each objItem In colItems
        If InStr(1,Ucase(objItem.Name),Appname) >= 1 Then
            objItem.Terminate
        End If
    Next
End Function

目标:获取与B列同名的图像:

我目前将A列中的图像本地存储为JPEGS.我还有一个excel文档,其中包含需要重命名的文件.我想要:

1. 从文件夹复制图像(即BEVBB48GSY1B.jpg)
2. 将文件重命名为行文本中的下一个单元格(即BEV-BB48GSY1B.jpg)
3. 自动移动到下一行以执行相同操作(即BEVBB48GSY1B复制并重命名为BEV-BB48GSY1B27)

关于我需要使用哪种编程或从哪里开始的想法？提前致谢.

我有这个代码,当我运行它时发生了一些奇怪的事情.

我有101512到101520之间的字段编号.我使用LEFT函数去掉后两位数并保留1015.当我为第一个运行循环函数时它给了我1015但是其余的它给了我101它会像这样消除最后一位数字:

d = Split(Request("field"),",")  
For i = 1 To UBound(d)  
  Responce.Write(Left(d(i),4))  
Next

结果

1015  
101  
101  
101  
...

有谁知道发生了什么事？

如何将其从vb转换为c#？

 Call WshShell.Run( "API_CALLBACK.exe", 0, True )  
 WScript.Sleep(10000)  

 WshShell.SendKeys("{ENTER}")  
 WScript.Sleep(3000)  
 WshShell.SendKeys("%S")  
 WScript.Sleep(3000)  
 WshShell.SendKeys("%Y")  

THX
是的Process.Start( "API_CALLBACK");? 如何处理.sendkey？

我有一个2D数组,其中填充了数据库中的数据,然后在while循环中使用另一个sql查询.对于while循环中的每个项目,我使用for循环检查2d数组中的某些项目.

我如何加快速度,因为while循环中的项目在1000 - 2000项内,加载网页需要3-4秒.

这是我的2D阵列 -

'MultiDimensional Array
Dim permissionsArray()
Dim permissionsCount  
connectionstring = obj_ADO.getconnectionstring  
Increment = 1             

set c = CreateObject("ADODB.Connection")
set r = CreateObject("ADODB.Recordset")
c.open connectionstring
SQL = "select Count(P_Name) as permissionsCount from l_objectpermission inner join A_Permission on op_permissionID = P_permissionID"
r.open SQL, c
permissionsCount = r("permissionsCount")

r.close
c.close


Set objCon = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")
objCon.Open connectionstring

SQL = "select OP_ObjectID, P_Name from l_objectpermission inner join A_Permission on op_permissionID = P_permissionID order by P_Name"

objRS.open SQL, …

我制作了一个将Excel文件读入Dictionary对象的vbs脚本.当我运行脚本时它不会做任何事情.没有错误消息.

这是代码:

Set objWords = CreateObject("Scripting.Dictionary")
objWords.CompareMode = 1

CurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(CurPath & "/RE Glossary.xls")
Set objWorksheet = objExcel.ActiveWorkBook.WorkSheets("MG")


intRow = 1

Do Until (objExcel.Cells(intRow, 1).Value) = ""
    Value1 = (objExcel.Cells(intRow, 1).Value)
    Value2 = (objExcel.Cells(intRow, 2).Value)
    objWords.item(Value1) = Value2
Loop

objExcel.Quit

msgbox "There are " & objWords.Count & " words in the glossary."

word = inputbox("word")
if objWords.exists(word) then
    msgbox word & vbnewline & "------------" & vbnewline & objWords.item(word)
else
    msgbox word …

我是正则表达式的新手,我很难获得我在网上找到的模式在VBScript/VBA中工作.这个应该返回一个字符串中找到的日期,但它找不到任何日期.VBScript/VBA与其他RegEx引擎的不同之处是什么使得它无法返回匹配？

Edit1
我从我的模式中删除了^和$.问题依然存在.

Private Sub TestDate()
    MsgBox RegExDate("cancel on 12/21/2010 ")
End Sub

Private Function RegExDate(s As String) As String
    Dim re, match
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "(((0[1-9]|[12]\d|3[01])\/(0[13578]|1[02])\/((19|[2-9]\d)\d{2}))|((0[1-9]|[12]\d|30)\/(0[13456789]|1[012])\/((19|[2-9]\d)\d{2}))|((0[1-9]|1\d|2[0-8])\/02\/((19|[2-9]\d)\d{2}))|(29\/02\/((1[6-9]|[2-9]\d)(0[48]|[2468][048]|[13579][26])|((16|[2468][048]|[3579][26])00))))"
    re.Global = True

    For Each match In re.Execute(s)
        MsgBox match.value
        RegExDate = match.value
        Exit For
    Next
    Set re = Nothing
End Function

我在asp中创建了一个类,想知道是否可以创建一个名为"END"的函数或子函数.即使作为子或函数,这是否可行.我想为我的类实例或像MyClass.End这样的类模块调用它的原因是然后调用response.end？

或者是否可以覆盖response.end函数以在结束前首先检查某些内容？

class Myclass

sub write(dim str)
      response.write(str)
end write

' Is this "END" possible?
sub end
   response.end
end sub

End class

我正在创建一个VBScript,通过DOSBox自动执行我最喜欢的DOS游戏.由于DOS只支持8个字符的文件名,当我尝试挂载目录"C:\ Users\jordanh\Documents\DOS\Roms\INDIAN~3\INDY264"时,VBScript发送回车键而不是"~3\INDY264" ,如在VBS"〜"= {ENTER}.

任何想法如何发送"〜"字符而不是输入？

我在以下函数中收到标题中的错误:

function ExtractOptions(value)
  dim index

  index = InStr(1, value, ":")
  ExtractOptions = CStr(Mid(value, index + 1, value.length - 1))

end function

但是,当我将监视放在"值"上时,它表明它在ExtractOptions赋值语句中使用时包含一个字符串值,该语句是发生错误的位置.

这是调用代码,以防它提供任何见解:

<%
  if not isnumeric(dictCart(Key)) then 
%>
  <TR>
    <TD id="cart_item_options" class=<%=TextCCSStyle%> ALIGN="left"><%= ExtractOptions(dictCart(Key)) %></TD>
  </TR>    
<% end if %>