VB实现的《QQ美女找茬游戏》实例
本文实例讲述了VB实现的《QQ美女找茬游戏》。分享给大家供大家参考。具体如下：
比较无聊哈，原理很简单，用VB速度比较慢，但是实现很容易。
Option Explicit
Private Type sPOINT
x As Long
y As Long
End Type
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ...
vbs 双引号转义示例详解
目录vbs 双引号转义双引号的转义方法示例代码总结vbs脚本命令：把英文双引号转换成中文双引号的左引号VBS中的转义符vbs 双引号转义
在 Visual Basic Script (VBS) 中，处理字符串时有时需要包含双引号 (")。由于双引号本身用于定义字符串的开始和结束，因此需要在字符串内部使用它们时进行转义。
双引号的转义方法
在 VBS ...
slmgr-命令详解(Windows软件授权管理工具)
slmgr是Software LicenseManger的简称，是Windows软件授权管理工具。slmgr是管理系统激活和密钥、证书的主要组件。slmgr的所有功能都是通过slmgr.vbs提供的，采用VBScript命令行方式执行。图形界面中许多与该命令行相关的激活行为，比如系统属性等，都是通过调用slmgr.vbs脚本来执行授权操作。即使你在COMMAND下使用slmgr命 ...
Windows系统中通过vbs实现循环运行.bat/.exe等文件
在VBScript中，你可以使用一个无限循环，并在每次迭代中使用 WScript.Sleep 方法暂停一段时间，然后后续继续执行。
一、创建循环运行的run-everySecond.vbs文件【双击次文件即可启动运行】
dim a
set a=CreateObject("Wscript.Shell")
Do
##运行xxx.exe文件,后面的0表示：不弹出运行黑窗口
a.run "E:/xxx.exe",0
Wscript.Sl ...
使用vbs脚本来监控windows服务器上的应用程序(不存在就启动)
这个vbs代码主要实现的功能就是运行该程序，就会在进程中出现一个wscript.exe 它会每隔10s扫面一次进程中是否存在notepad.exe这个程序,不存在就启动。这个启动程序可能跟进程名不一样，好比tomcat应用，启动的是startup.bat，后台进程名为java.exe,这样就需要调整代码proname="java.exe"
关于如果关掉监控 可以在运行下执行 ...
VB中判断空的几种方法(Null, Missing, Empty, Nothing, vbNullString)
目录1、Null1.1 ISNull函数1.2 使用Null的三种情况2、Missing2.1 IsMissing函数3、Empty3.1 ISEmpty函数4、Nothing4.1 IsNothing 与 Is Nothing的区别5、vbNullString6、 零长度字符、空字符、vbNull、vbNullChar、vbNullString的区别vb6中存在几个虚幻的值：Null、Missing、Empty、Nothing、vbNullString。除了最后一个之 ...
vbs 文件操作集合代码
下面是我写的一个 vbs 文件：
rename.vbs
rename.vbs
'关键字配置文件地址
Const config = "E:\cleandata\key.txt"
'要检查的文件夹
Const dir = "D:\Log\html\"
'日志保存路径
Const LogDir = "E:\cleandata\Log\"
'全局对象
set fso=createobject("scripting.filesystemobject")
Dim keywordList(10000)
Rem ...
vbs ShellExecute运行外部程序时如何判断外部程序执行成功与否
需要vbs执行一些命令,比如 ""uwfmgr filter enable"" (统一写入筛选器), 但是这个uwfmgr.exe需要管理员权限才能运行相关命令目前我是这么写的
Set sst = CreateObject("Shell.Application")
Call sst.ShellExecute("uwfmgr","filter enable", ,"runas",0)
这样可以以管理员身份运行命令, 但是我怎么才能判断uwfmgr执行是成 ...
Windows 10 x64 安装 Visual Basic 6.0 SP6注意事项
原文是E文，E文好的可以直接看这里：http://www.fortypoundhead.com/showcontent.asp?artid=23993
原则上Windows 7 x64, Windows 8 x64 都可以顺利安装。
其实这家伙说了这么多，我觉得重要的只有一点：
1.在安装的时候一定要选“自定义安装”，然后不要勾选“数据访问”，忽略它的提示，就可安装成功 ...
VBS Shell.Application中ShellExecute的使用方法详解
最近在项目中偶然用到了使用VBS调用“shell.application”中的ShellExecute方法。在百度搜索一圈后发现很难找到关于这个方法的详细的中文教程。最后是在微软的官方文档中才找到了这个指令的详细英文教程。现将该方法的详细描述用中文分享给各位码友。
首先，VBS中调用该方法可以用Set Shell=CreateObject("Shell. ...
VBS字符串编码转换函数代码
因为业务需要将一些字符串转换为指定编码方便后期操作
核心代码
Const adTypeBinary = 1
Const adTypeText = 2
' accept a string and convert it to Bytes array in the selected Charset
Function StringToBytes(Str,Charset)
Dim Stream : Set Stream = CreateObject("ADODB.Stream")
Stream.Type = adTypeText
S ...
VB十七种可用一行代码完成判断的技巧代码
1、下列代码，则是对逻辑运算不清楚造成
If A=true Then
C= Not B
Else
C= B
End If
可以：C=A XOR B
2、如果加上下列代码：
If C=true then
D=28
Else
D=29
End IF
D=Iif((A XOR B),28,29)
3、布尔赋值，常被人忽略,如：
If A= 13 then
B=True
Else
B=False
End If
可以：B = A = 13 或者：B = (A = 13) 我更喜欢用后 ...
VBS 批量Ping的项目实现
本文用vb编写的 ping程序实现，具体如下：
'判断当前VBS脚本是否由CScript执行
If InStr(LCase(WScript.FullName), "cscript.exe") = 0 Then
'若不是由CScript执行，则使用CScript重新执行当前脚本
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "cscript.exe", """" & ...
教你用vbs实现微信自动发送消息功能
目录前言1、微信自动回复消息2、vbs脚本运行方式总结前言
最近对电脑或手机自动进行某些操作很感兴趣，于是去看了一下有关手机电脑微信自动回复消息相关的东西，发现很多恶搞代码不仅可以通过实现病毒的方式，同时用vb就可以实现一个常见的恶搞脚本。
1、微信自动回复消息
微信，作为日前最热最火的社交软件，应该是家喻户 ...
抖音很火的vbs表白代码(简单实用!)
好玩的循环表白代码
1，右键->新建文本文件
2，右键->编辑
3，粘贴下面代码
MsgBox " 十年相遇"
MsgBox " 百年回眸"
MsgBox " 千年同船渡"
MsgBox " 我愿以万年的等待"
MsgBox " 百世的轮回"
MsgBox " 换你今朝一世情缘"
MsgBox " 可否"
dim a(5)
a(0 ...
vbs实现web自动登录网站的方法
目录一，编写vbs二，配置为开机自启背景：我们的电脑需要开机登录一个网址输入信息才能够上网，这样对远程的话，很不友好。因此查了查vbs可以进行开机在网页上自动登录，实现开机联网。（不同的网页使用的登录方法是不同的，下面的仅作参考）环境：window10专业版
一，编写vbs
网页其中DDDDD是账号的位置，upass为密码，我 ...
VBS入门篇之带你领略脚本语言的快乐
目录前言一、VBS简介二、为什么要学VBS三、第一个VBS脚本四、实现简单的交互功能五、注意点：结束语前言
小弟初来乍到，自诩高中时曾自学过一点VBS脚本语言基础，感觉不错，想把学习到的东西记录下来，和大家分享一下，由于小弟我学艺不精，有误的地方还请多多指教。
入门篇是给电脑小白做的（大佬们可以直接无视），因为我 ...
VBS脚本基础语法实例讲解
目录引言一、编辑VBS的相关软件二、变量的定义三、输入与输出1、输入2、输出四、判断语句五、循环语句1、do – loop 循环2、for – next 循环总结引言
最近在学习VBS语言的时候，搜索了不少资料，但是往往只是介绍一下什么整人代码、表白代码之类的，很少有基础的语法讲解，因此，我在这里写一篇博文来进行一下VB ...
vbs脚本和windows定时任务实现qq消息表情包定时发送功能
目标
在某个时间唤醒电脑屏幕后，自动发送qq信息，并附带表情包，发送完毕后关闭电脑屏幕。整个过程不用过多的程序运行，我们借助vbs脚本和windows定时任务去实现这一功能。
准备
vbs代码qq信息txt文本qq文件表情包文件发送联系人的快捷方式3个windows任务
具体操作
信息和快捷方式准备
qq信息txt文本和表情包文件
桌面新建 ...
使用VBS创建快捷方式的代码
在网吧维护过程中经常要发送桌面快捷方式，有什么批处理的方式能便捷发送桌面快捷方式呢，就拿我这边网吧steam下发为例给大家一个参考，如果要使用直接复制下面代码改下具体参数就行了。代码如下：
@echo off
::设置程序或文件的路径（必选）
set Program=D:\Program Files\Microvirt\MEmu\MEmu.exe
::设置启动参数（可 ...
