精华内容
下载资源
问答
  • vbs整人代码你是猪666

    2018-11-26 20:59:49
    vbs整人 windows弹窗你是猪
  • vbs微信信息轰炸

    2021-11-28 20:23:56
    On Error Resume Next Dim wsh,ye num=Msgbox(“请先将要发送的内容复制”,4096,“信息发送工具”) a=int(inputbox(“发送次数”,“信息发送工具”,“100”)) If a=0 Then wscript.quit End If ...

    On Error Resume Next
    Dim wsh,ye
    num=Msgbox(“请先将要发送的内容复制”,4096,“信息发送工具”)
    a=int(inputbox(“发送次数”,“信息发送工具”,“100”))
    If a=0 Then
    wscript.quit
    End If
    b=int(inputbox(“发送间隔(毫秒)”,“信息发送工具”,“在此输入非零自然数”))
    If b=0 Then
    wscript.quit
    End If
    c=Msgbox(“是否发送次数值”,4356,“信息发送工具”)
    set wsh=createobject(“wscript.shell”)
    wsh.AppActivate “聊天”
    d=Msgbox("!开始后请在三秒内点击聊天界面的发送框!准备好了吗",4145,“信息发送工具”)
    If Range(“d”)=1 Then
    If Range(“c”)=6 Then
    wscript.sleep 3000
    for i=1 to a
    wsh.sendKeys “^v”
    wsh.sendKeys i
    wsh.sendKeys “%s”
    wscript.sleep b
    next
    wscript.quit
    ElseIf Range(“c”)=7 Then
    wscript.sleep 3000
    for i=1 to a
    wsh.sendKeys “^v”
    wsh.sendKeys “%s”
    wscript.sleep b
    next
    wscript.quit
    End If
    ElseIf Range(“d”)=2 Then
    wscript.quit
    End If

    展开全文
  • 主要介绍了简单用VBS调用企业微信机器人发定时消息的方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧
  • 使用vbs代码实现多条消息快速发送

    万次阅读 多人点赞 2019-07-17 19:21:22
    带数字的提示的 set wshshell=wscript.createobject("wscript.shell") wshshell.AppActivate"要...把代码复制进去,后缀改为vbs,复制要发送的内容,然后点击聊天框,双击vbs文件即可,两个版本,一个带数字,一个不带

     

    带数字的提示的

    set wshshell=wscript.createobject("wscript.shell") 
    wshshell.AppActivate"要发送的人的名字" 
    for i=1 to 100     //循环次数
    wscript.sleep 100     //间隔时间,单位毫秒
    wshshell.sendKeys "^v" 
    wshshell.sendKeys i 
    wshshell.sendKeys "%s" 
    next
    

    不带数字的提示的

    set wshshell=wscript.createobject("wscript.shell") 
    wshshell.AppActivate"要发送的人的名字" 
    for i=1 to 100
    wscript.sleep 100 
    wshshell.sendKeys "^v" 
    wshshell.sendKeys "%s" 
    next
    

     

     创建一个text文本,把代码复制进去,后缀改为vbs,复制要发送的内容,然后点击聊天框,双击vbs文件即可,两个版本,一个带数字,一个不带

    展开全文
  • VBS错误代码分析

    2012-07-17 11:00:00
    455 800a01c7 代码源锁错误 457 800a01c9 这个键已经是本集合的一个元素关联 458 800a01ca 变量使用了一个 vbscript 中不支持的自动化(automation)类型 462 800a01ce 远程服务器不存在或不能访问 481 800a01e1 ...

     vbscript语法错误
    如果 vbscript 语句结构违反了一个或多个 vbscript 脚本语言语法规则,就会产生 vbscript 语法错误。
    错误通常在执行程序前,编译程序时产生。 以下是53个语法错误:
    错误编号 描述
    十进制 十六进制 说明
    1001 800a03e9 内存不足
    1002 800a03ea 语法错误
    1003 800a03eb 缺少“:”
    1005 800a03ed 需要 ’(’
    1006 800a03ee 需要 ’)’
    1007 800a03ef 缺少“]”
    1010 800a03f2 需要标识符
    1011 800a03f3 需要 ’=’
    1012 800a03f4 需要 ’if’
    1013 800a03f5 需要 ’to’
    1014 800a03f6 需要 ’end’
    1015 800a03f7 需要 ’function’
    1016 800a03f8 需要 ’sub’
    1017 800a03f9 需要 ’then’
    1018 800a03fa 需要 ’wend’
    1019 800a03fb 需要 ’loop’
    1020 800a03fc 需要 ’next’
    1021 800a03fd 需要 ’case’
    1022 800a03fe 需要 ’select’
    1023 800a03ff 需要表达式
    1024 800a0400 需要语句
    1025 800a0401 需要语句的结束
    1026 800a0402 需要整数常数
    1027 800a0403 需要 ’while’ 或 ’until’
    1028 800a0404 需要 ’while,’、 ’until,’ 或语句未结束
    1029 800a0405 需要 ’with’
    1030 800a0406 标识符太长
    1031 800a0407 无效的数
    1032 800a0408 无效的字符
    1033 800a0409 未结束的串常量
    1034 800a040a 未结束的注释
    1037 800a040d 无效使用关键字 ’me’
    1038 800a040e ’loop’ 没有 ’do’
    1039 800a040f 无效 ’exit’ 语句
    1040 800a0410 无效 ’for’ 循环控制变量
    1041 800a0411 名称重定义
    1042 800a0412 必须为行的第一个语句
    1043 800a0413 不能赋给非byval参数
    1044 800a0414 调用 sub 时不能使用圆括号
    1045 800a0415 需要文字常数
    1046 800a0416 需要 ’in’
    1047 800a0417 需要 ’class’
    1048 800a0418 必须在一个类的内部定义
    1049 800a0419 在属性声明中需要 let , set 或 get
    1050 800a041a 需要 ’property’
    1051 800a041b 参数数目必须与属性说明一致
    1052 800a041c 在类中不能有多个缺省的属性/方法
    1053 800a041d 类初始化或终止不能带参数
    1054 800a041e property let 或 set 至少应该有一个参数
    1055 800a041f 不需要的 ’next’
    1056 800a0420 只能在 ‘property’ 或 ’function’ 或 ’sub’ 上指定 ’default’
    1057 800a0421 说明 ’default’ 必须同时说明 ’public’ "
    1058 800a0422 只能在 property get 中指定 ’default’

    vbscript 运行时错误
    如果 vbscript 脚本执行系统无法实施的操作,则会产生 vbscript 运行时错误。只有在运行脚本、为变量表达式赋值或
    分配内存时,才会产生 vbscript 运行时错误。 以下是65个运行时错误:
    错误编号 描述
    十进制 十六进制 说明
    5 800a0005 无效过程调用或参数
    6 800a0006 溢出
    7 800a0007 内存不足
    9 800a0009 下标越界
    10 800a000a 该数组为定长的或临时被锁定
    11 800a000b 被零除
    13 800a000d 类型不匹配
    14 800a000e 字符串空间溢出
    17 800a0011 无法执行请求的操作
    28 800a001c 堆栈溢出
    35 800a0023 未定义 sub 或 function
    48 800a0030 加载 dll 错误
    51 800a0033 内部错误
    52 800a0034 坏文件名或数
    53 800a0035 文件未找到
    54 800a0036 坏文件模式
    55 800a0037 文件已经打开
    57 800a0039 设备i/o错误
    58 800a003a 文件已经存在
    61 800a003d 磁盘空间已满
    62 800a003e 输入超出文件尾
    67 800a0043 文件太多
    68 800a0044 设备不可用
    70 800a0046 权限禁用
    71 800a0047 磁盘未准备好
    74 800a004a 不能用不同的驱动器重新命名
    75 800a004b 路径/文件访问错误
    76 800a004c 路径未找到
    91 800a005b 未设置对象变量
    92 800a005c for 循环未初始化
    94 800a005e 非法使用 null
    322 800a0142 不能建立所需临时文件
    424 800a01a8 需要对象
    429 800a01ad activex 部件无法创建对象
    430 800a01ae 类不支持自动化
    432 800a01b0 在自动化操作中未找到文件名或类名
    438 800a01b6 对象不支持该属性或方法
    440 800a01b8 automation错误
    445 800a01bd 对象不支持此操作
    446 800a01be 对象不支持指定的参数
    447 800a01bf 对象不支持当前的区域设置
    448 800a01c0 未找到命名参数
    449 800a01c1 参数不可选
    450 800a01c2 错误的参数个数或无效的参数属性值
    451 800a01c3 对象不是一个集合
    453 800a01c5 指定的dll函数未找到
    455 800a01c7 代码源锁错误
    457 800a01c9 这个键已经是本集合的一个元素关联
    458 800a01ca 变量使用了一个 vbscript 中不支持的自动化(automation)类型
    462 800a01ce 远程服务器不存在或不能访问
    481 800a01e1 无效图片
    500 800a01f4 变量未定义
    501 800a01f5 违法的分配
    502 800a01f6 脚本对象不安全
    503 800a01f7 对象不能安全初始化
    504 800a01f8 对象不能安全创建
    505 800a01f9 无效的或不合格的引用
    506 800a01fa 类未被定义
    507 800a01fb 发生异常
    5016 800a1398 需要正则表达式对象
    5017 800a1399 正则表达式中的语法错误
    5018 800a139a 错误的数量词
    5019 800a139b 在正则表达式中需要 ’]’
    5020 800a139c 在正则表达式中需要 ’)’
    5021 800a139d 字符集越界
    32811 800a802b 元素未找到

     

    转载于:https://www.cnblogs.com/blueskywyf/archive/2012/07/17/2594878.html

    展开全文
  • 连发消息小代码vbs)

    千次阅读 2021-04-23 19:35:19
    整蛊小代码vbs) ────────────────────────────────────────────── set WshShell= WScript.CreateObject(“WScript.Shell”) WshShell.AppActivate"哈哈" for i=1 ...

    连发消息小代码(vbs)

    ──────────────────────────────────────────────
    set WshShell= WScript.CreateObject(“WScript.Shell”)
    WshShell.AppActivate"哈哈"
    for i=1 to 20
    WScript.Sleep 100
    WshShell.SendKeys “^v”
    WshShell.SendKeys i
    WshShell.SendKeys “%s”
    Next
    ──────────────────────────────────────────────
    有人如果想要连续给别人发10条以上的信息,你就可以用此代码代劳你的手。
    代码里面加粗的数字20你可以随你的意愿调节数字大小。微信,QQ都可以用(本人已经亲自试过了)
    用法
    在微或者QQ上面你先输入你要发的消息,然后点击右键复制,复制好后双击你写好的vbs,最后点一下你要发消息的消息框,就完成了。

    注意
    文本格式为vbs

    展开全文
  • 怎么制止qq刷屏代码-vbs

    千次阅读 2019-11-05 09:21:06
    最近有些人向小编反应QQ刷屏代码没办法关,小编认为有必要发布一下关程序的代码, 专门针对上次的QQ刷屏代码: set y=getobject("winmgmts:\\.\root\cimv2") set x=y.execquery("select * from win32_process where ...
  • vbs自动发送消息

    千次阅读 2015-09-25 11:42:50
    set ws=WScript.CreateObject("wscript.shell")wscript.Sleep 3000dowscript.Sleep 200ws.SendKeys "The wonderful game"wscript.Sleep 200ws.SendKeys "{enter}"wscript.Sleep 5000Loop 转载于:https:...
  • 以前一样的代码都不会,现在出错了。 为什么?   VBS中&H是16进制的开头字符 所以& H开头的变量,要在&后面加空格 <SCRIPT LANGUAGE="vbScript"> HelpUrl = "http://www.baidu.com" HelpTopic = "百度...
  • 遇到问题:运行VB代码脚本的时候提示:Microsoft VBScript 编译器错误 错误 ‘800a0409’ 未结束的字符串常量 原因是:编码错误 解决方法:另存为编码是ANSI的txt文档,修改后缀,重新运行
  • 2021-10-20

    2021-10-20 09:24:36
    vbs自动随机发送QQ、微信消息(傻瓜式)谁适合阅读本文?傻瓜式教程一、创建文件二、复制代码到文件中三、更改文件后缀名四、运行程序 谁适合阅读本文? 一、希望同恋人、基友、闺蜜QQ续火花、提升关系等级的人 二...
  • 整蛊

    千次阅读 2019-05-22 17:40:13
    新建txt文档,复制以下代码,放入文档: :start start cmd goto start 文档重命名为病毒.bat 双击运行。
  • 连续3周的时间,每天从早9点到晚上3点不停的写代码,调试代码,查询资料,讨论需求;极度厌烦了这样的生活,最后终于借口身体不好,仓惶逃离了这个地方,把工作交接给一位新来的同事,他又继续维护了6个月。我回去后...
  • 新手***

    2007-04-08 01:59:18
    用记事本建立一个名为login.bat文件,代码如下: @net use \\%1\ipc$ %3 /u:"%2" @echo 保存文件后,在cmd命令框里输入如下命令: login.bat x.x.x.x user/password 其中"x.x.x.x”为肉鸡IP地址,"user”为肉 小**...

空空如也

空空如也

1
收藏数 14
精华内容 5
关键字:

微信轰炸代码vbs