在做自动化调试的时候，有时候需要关闭已打开的应用程序，保证当前测试的程序只打开了一个，否则可能会报多对象错误。 这时候 set y=getobject("winmgmts:\\.\root\cimv2")
set x=y.execquery("select * from win32_process where name='flight4a.exe'")
If x.count>0 T
转载
2023-05-31 00:34:55
214阅读
sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts://./root/cimv2:win32_process").instances_ '循环进程
if Ucase(ps.name)=Ucase(ProcessName) then '关闭Q
转载
2023-07-11 14:45:39
66阅读
每次下班的时候，都要关闭一大堆软件，虽然说也就两三分钟的事儿，但能用代码思想去搞定这两三分钟也是极好的。在参考了网上一些方法后汇总了一下，将其保存为.vbs文件，修改里面的参数，然后下班的时候点一下就OK了。'提升为管理员权限，否则无法干掉SYSTEM进程
Set WshShell = WScript.CreateObject("WScript.Shell")
If WScript.Argume
转载
2023-07-03 15:13:20
259阅读
批量关闭进程（bat方式）1、创建endTask.txt（需要关闭进程的名字）例如：关闭向日葵控制端、notepadSunloginRemote.exe
notepad++.exe2、 创建bat批处理PS:如果报错说没有访问权限，对bat右键-管理者权限运行就可以解决@echo off
for /f "delims=, " %%i in (C:\Users\Administrator\Deskt
转载
2023-07-11 15:13:30
1007阅读
按照提示存为t.vbs文件，在cmd窗口中输入cscript t.vbs [参数]就可以了。
如果想移植到vb下，把wscript.echo替换成debug.pring或者其他的输出函数就可以了
'function:
' list all process or kill one of them
'parameter:
转载
2023-05-31 00:37:47
431阅读
VB.NET 等待 延时函数
Threading.Thread.Sleep(3000)
Application.DoEvents()
Sleep(3000)也就是说3秒内什么也不能做。
（不知道多线程可以不）。
Windows.Forms.Application.DoEvents()这个函数是是放弃程序的控制权。一般在循环中加入DoEvents，目的
转载
2023-07-07 17:16:37
251阅读
Public Class Form1
'************ini文件内容为*************************
'*[send] *
'*send1=1
转载
2023-07-20 16:19:40
157阅读
goto Num语句格式：goto 标号1..................标号1：..................Gosub 语句格式：gosub 标号2语句1..................标号2：..................Return两者的相同处，都可以实现转移；区别在于，Gusub语句可以带有 Return，而GOTO不能带。当执行Gusub ...... Return
转载
2023-07-03 15:20:47
115阅读
说起来稍微复杂一点，VB.net不像java或者c那样，只要在源代码中指定包含的命名空间或者头文件，编译器就会自动载入相关的组件。VB.net工程中，你必须手动在编译器中载入，也就是“添加引用”。在Tools->Reference中我们可以看到当前工程已经添加的引用： 在SnippetCompiler中，缺省情况下工程中已经添加了下列引用： System
转载
2023-07-20 12:37:57
107阅读
VB.NET启动外部程序在启动外部应用程序时，我们通常使用Win32应用编程接口或者VB的Shell函数解决。现在，在.NET框架中有个System.Diagnostics.Process类，通过这个类进行这个操作，你会发现方便了很多。
在传统VB程序中，你可以使用Shell函数启动一个应用程序。当你传送一个数据文件名
转载
2023-07-03 15:13:15
332阅读
数据集DataSet主要用做一个非连接的数据缓存，从数据源检索的数据都存放在这个缓存中，然后由程序的其他部分使用。数据集是ADO.NET体系结构的核心部分，ADO.NET的非连接性正式通过它实现的。数据集独立于数据源，它的结构与关系数据库相似，也是由表、行和列等对象构成的层次结构，在数据集中还可以包含约束和关系。在.NET框架中，数据集使用类DataSet表示，它位于命名空间Syste
转载
2023-06-09 22:41:11
123阅读
事件在VB.NET中，继承是完全支持事件的。如果一个基类定义了一个Public事件，那么这个事件可以通过基类的代码或者任何由基类继承而来的子类所触发。举个例子吧，我们可以先定义一个基类，代码如下：Public Class Parent
Public Event ParentEvent()
Public Sub DoEvent()
RaiseEvent ParentEvent()
End
转载
2023-06-14 21:34:12
200阅读
'VB.net 自定义事件使用方法
'1.先定义包含事件的类（如下）Public Class TestEvent
Public Event MyEvent(ByVal s As String) '自定义事件
Public Sub StartEvent(ByVal value As String) '触发事件函数
RaiseEvent MyEvent
转载
2023-07-11 15:17:46
100阅读
历史菜单在很多软件中都有用到，如果你现在还不知道什么是历史菜单的话，就请你打开你的word中的"文件"菜单你会发现文件菜单里面有许多使用过的文件名。这些就是被称作历史菜单，他记录了你使用过的一些文件包括文件名，文件地址。但是它不会保存所有使用过的文件，而是只保存一部分，每当有新文件被打开后就会自动更新最早的一个文件。它的好处是可以快速打开上次或上几次没有编辑完的或还需要接着使用的文件。知道了什么是
转载
2023-07-03 15:32:07
8阅读
下面先简单介绍记录集对象的常用方法。 1.AddNew方法 AddNew方法为可更新的Recordset对象创建一个新记录。AddNew方法将添加一条新的空记录，并且定位在该记录上，用户可以在被绑定的数据感知控件中输入修改数据。新增加的记录的值为指定的默认值，如果没有指定值，则为Null.例如：输入完新记录后，要使用I.1pdate方法才能将数据保存到数据库中，在使用Update方法前，数据库
转载
2023-07-08 12:43:04
89阅读
vb.net 使用 linq 筛选 xdoument vb.net动态组合where条件 Dim LqGb As IEnumerable(Of XElement) = From Ele As XElement In ResponseXml.Descendants("uInfo") Sele
转载
2023-07-03 15:45:48
93阅读
最近做了一项小功能，功能要求是这样的使用CMD启动一款win32程序（VB程序），执行完win32程序后，将结果打印到控制台。问题一第一次尝试，查找到可以使用PostMessaage或者SendMessage 根据句柄参数 向窗口发送内容。CMD_hWnd=Find Widow（“窗口名”）返回需要的窗口句柄 这是一种不安全的操作，因为，窗口会变滴，也可能会存在多个窗口，所
转载
2023-06-12 18:52:23
239阅读
暂时挂起当前任务，转而完成队列中等待的任务后，再返回当前任务
比如: 如果不用此语句，在你的循环中可能导致你离开窗口处理其它任务(程序)会非常的慢，而用此语句之后，会根据队列中等待的任务状态进行处理，尽可能不影响你程序运行中做其它的工作。 转移到下一个控件进行事件响应时,例如,窗体卸载,即将打印,即将CSV,在对记录集进行操作时对其他 处理其它事件
转载
2023-08-03 23:59:03
105阅读
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Sys Dim plist() As Process Dim ppo As System.Diagnosti
原创
2023-05-15 01:13:11
77阅读
以下是一小段杀死指定进程名字的小vbs，希望对大家有帮助。Function KillProc(strProcName)
On Error Resume Next
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\.ootcimv2")
Set arrProcesses = objWMIService.
转载
2023-08-03 23:56:18
134阅读
