谷歌浏览器如何加脚本11位导演分镜手稿对比

发布时间:2019-11-01 来源:脚本之家 点击:

然后重启一下系统,就修改了系统的远程桌面的默认的3389端口

'#####################
'VBS修改远程桌面的默认端口,并添加至Windows防火墙
'作者51windows.Net
'56868为要设置的端口
'#####################

SetWshShell=WScript.CreateObject("WScript.Shell")
WshShell.RegWrite"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp\PortNumber",56868,"REG_DWORD"
WshShell.RegWrite"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp\PortNumber",56868,"REG_DWORD"


FunctionAddfirewall(name,port,state)
SetobjFirewall=CreateObject("HNetCfg.FwMgr")
SetobjPolicy=objFirewall.LocalPolicy.CurrentProfile

SetobjPort=CreateObject("HNetCfg.FwOpenPort")
objPort.Port=port
objPort.Name=name
objPort.Enabled=state
SetcolPorts=objPolicy.GloballyOpenPorts
errReturn=colPorts.Add(objPort)
EndFunction

callAddfirewall("远程桌面56868",56868,1)
setWshShell=nothing

msgbox"设置成功"

应急演练脚本范例
OnErrorResumeNext
dtmTargetDate="20020301000000.000000-420"
strComputer="."
SetobjWMIService=GetObject_
("winmgmts:"&"!\"&strComputer&"\root\cimv2")
SetcolFolders=objWMIService.ExecQuery_
("Select*fromWin32_DirectoryWhereCreationDate>'"&_
dtmtargetDate&"'")
ForEachobjFolderincolFolders
Wscript.EchoobjFolder.Name
Next

按M打开地图,地图也是可以切换页面的,QE切换页面

处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本)

setws=createobject("wscript.shell")
setfso=createobject("scripting.filesystemobject")
SetobjIE=CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
s=objIE.document.parentwindow.clipboardData.GetData("text")
objie.quit
setfile=fso.createtextfile("tmp.txt")
file.writes
file.close
ws.run"cmd/cmoretmp.txt>test.txt",0,true
fso.deletefile"tmp.txt"
ws.run"notepad.exetest.txt"

游戏中怎么才看到自己获得了道德点呢?


'======================================
' VBS 中 SendKeys 模拟键盘击键
' 2009-07-26
' 刘林
'======================================
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd"
' 让脚本等待1000毫秒,也就是1秒再执行下一条语句
WScript.Sleep 1000
' -- 发送字符时,输入法一定要在英文件状态下
' 发送分号
WshShell.SendKeys ";"
WScript.Sleep 1000
' 发送冒号
WshShell.SendKeys ":"
WScript.Sleep 1000
' 发送双引号 -- 利用chr把双引号转换出来
WshShell.SendKeys Chr(34)
WScript.Sleep 1000
' 发送带有双引号的字符串
WshShell.SendKeys Chr(34)&"this is a string"&Chr(34)
WScript.Sleep 1000
' -- 切记,这里是模拟的击键操作,所以不能发送中文
'WshShell.SendKeys Chr(34)&"这是一个字符串"&Chr(34)
WScript.Sleep 1000
'================================================
' -- 如何模拟回车,上档键,Alt键喃?
'================================================
' -- 如何模拟回车, -- {enter}这就代表是发送回车
WshShell.SendKeys "this is a enter!{enter}"
WScript.Sleep 1000
' -- 如何模拟上档键Shift, -- +这就代表是发送shift
WshShell.SendKeys "this is +a" ' 结果为 this is A
WScript.Sleep 1000
' -- 如何模拟Alt, -- %这就代表是发送Alt
WshShell.SendKeys "this is %{TAB}" ' 结果为 切换窗口
WScript.Sleep 1000
'===========================================================
' -- 那么如何发送%, + ^ 喃
WshShell.SendKeys "this is {+}{^}{%}" ' 结果为 切换窗口
WScript.Sleep 1000
' -- 这里你可能已经明白了,发送送特殊字符时,请放到 {} 中
'===========================================================
'======================================
' 更多信息请看VBS帮助文档 2009-07-26
'======================================


word复杂吗


OnErrorResumeNext
SetArg=Wscript.arguments
IfArg.count=0thenWscript.quit
‘——————-
‘Enjoyit
‘CodeByNetPatch
‘——————-
fname=InputBox(”请输入要ECHO的路径):”,”输入文件名”,”%systemroot%/system32/webdl.vbs”)

SetFso=CreateObject(”Scripting.FileSystemObject”)
SetWshShell=Wscript.CreateObject(”Wscript.Shell”)
SetFile=Fso.OpenTextFile(Arg(0),1,False,-2)

Wscript.echo“点确定后5秒开始”
WshShell.AppActivate“命令提示符”
Wscript.Sleep5000
WshShell.AppActivate“命令提示符”

DoWhileFile.AtEndOfStream<>True
Data=File.readline
IfData=”"thenData=”.”
Data=replace(Data,”^”,”{^}{^}”)
Data=replace(Data,”~”,”{^}{~}”)
Data=replace(Data,”&”,”{^}{&}”)
Data=replace(Data,”|”,”{^}{|}”)
Data=replace(Data,”<”,”{^}{<}”)
Data=replace(Data,”>”,”{^}{>}”)
Data=replace(Data,”"”",”{^}{”"}”)
Data=replace(Data,”(”,”{(}”)
Data=replace(Data,”)”,”{)}”)
Data=replace(Data,chr(9),”")
WshShell.SendKeys“echo“&Data&”>>”&fname
Wscript.Sleep300
WshShell.SendKeys“{ENTER}”
Wscript.Sleep1000
Loop
File.close
SetFso=nothing

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号