vbs更改3389远程桌面端口的脚本
Set WshShell=CreateObject("Wscript.Shell") Function Imput() imputport=InputBox("请输入一个端口号,注意:这个端口号目前不能被其它程序使用,否则会影响终端服务"," 更改终端端口号", "3389", 100, 100)
Set WshShell=CreateObject("Wscript.Shell") Function Imput() imputport=InputBox("请输入一个端口号,注意:这个端口号目前不能被其它程序使用,否则会影响终端服务"," 更改终端端口号", "3389", 100, 100)
右键菜单中添加CMD HERE 实现代码如下:Set WshShell=CreateObject("Wscript.Shell")WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmd here\",""WshS
Option Explicit dim ServerPath,onlyone,notfinddel,WorkPath,arrWorwpath,strWorkPath,fso,wsh,WshNetwork,cName,exectime,fnum,donum,totalsize,t1,t2,tm fnu
关于这个过程,可以参考我的另一篇文章《没有电脑的日子》之东搞搞西搞搞--搞中。 很多还不懂怎么学习编程的人问应该学什么语言? 都会和他说:先提高境界,再学习技能;先了解自己的兴趣或者以后想做的事,才选择语言。如果学校教 C 和 Java,您就只在这两个里选择,那么很抱歉,我只能说您是一坨屎!选择
实现代码如下:set WshShell = WScript.CreateObject("WScript.Shell") '对话框标题 alerttitle = "定时提醒" '提醒内容,vbnewline为换行符 alerttext =vbnewline & vbnewline &
示例批处理:test.bat 实现代码如下::On Error Resume NextSub batecho off & clsecho Batching_codez_here_following_vbs_rules & pausestart wscript -e:vbs "%~f0
实现代码如下:do while trueset WshShell = WScript.CreateObject("WScript.Shell")IF WshShell.AppActivate("D:\") ThenMsgBox "ok"wscript.quitEnd Ifloop 试都不要试,就知道
Dim WshSHell,FSO On Error Resume Next Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set Ar
使用方法:讲以下代码保存为QQ.vbs,然后复制你要发送的东西,双击QQ.vbs就可以自动刷屏拉! 注意:本代码仅作为技术研究之用,请勿非法使用!Set WshShell= WScript.CreateObject("WScript.Shell") WshShell.AppActivate "群 -
简单的服务器文件备份办法压缩文件名自动按日期命名 dim FileName,WshShell,fs,MyCommandFileName=cstr(now)+".RAR" MyCommand="rar a "+FileName+" 要压缩的文件名或目录名" Set WshShell = WScript