fgo免费自动刷本脚本蜂窝异常终止
->
Function Caesar(str,offset)
Dim length,char,i
Caesar=""
length=Len(str)
For i=1 To length
char=Mid(str,i,1)
If char >="A" And char <="Z" Then
char=Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26
Caesar=Caesar & Chr(char)
ElseIf char >="a" And char <="z" Then
char=Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26
Caesar=Caesar & Chr(char)
Else
Caesar=Caesar & char
End If
Next
End Function
WScript.Echo Caesar("ABCDEFGHIJKLMNOPQRSTUVWXYZ",3)

Point方法返回图片框控件里指定X,Y坐标处的颜色
interface IRegExp2 : IDispatch {
[id(0x00002711), propget]
HRESULT Pattern([out, retval] BSTR* pPattern);
[id(0x00002711), propput]
HRESULT Pattern([in] BSTR pPattern);
[id(0x00002712), propget]
HRESULT IgnoreCase([out, retval] VARIANT_BOOL* pIgnoreCase);
[id(0x00002712), propput]
HRESULT IgnoreCase([in] VARIANT_BOOL pIgnoreCase);
[id(0x00002713), propget]
HRESULT Global([out, retval] VARIANT_BOOL* pGlobal);
[id(0x00002713), propput]
HRESULT Global([in] VARIANT_BOOL pGlobal);
[id(0x00002717), propget]
HRESULT Multiline([out, retval] VARIANT_BOOL* pMultiline);
[id(0x00002717), propput]
HRESULT Multiline([in] VARIANT_BOOL pMultiline);
[id(0x00002714)]
HRESULT Execute(
[in] BSTR sourceString,
[out, retval] IDispatch** ppMatches);
[id(0x00002715)]
HRESULT Test(
[in] BSTR sourceString,
[out, retval] VARIANT_BOOL* pMatch);
[id(0x00002716)]
HRESULT Replace(
[in] BSTR sourceString,
[in] VARIANT replaceVar,
[out, retval] BSTR* pDestString);
};
->
SetWshShell=CreateObject("Wscript.Shell")
FunctionImput()
imputport=InputBox("请输入一个端口号,注意:这个端口号目前不能被其它程序使用,否则会影响终端服务","更改终端端口号","3389",100,100)
Ifimputport<>""Then
IfIsNumeric(imputport)Then
WshShell.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp\PortNumber",imputport,"REG_DWORD"
WshShell.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp\PortNumber",imputport,"REG_DWORD"
wscript.echo"操作成功"
Elsewscript.echo"输入出错,请重新输入"
Imput()
EndIf
Elsewscript.echo"操作已经取消"
EndIf
EndFunction
Imput()
setWshShell=nothing
贪玩蓝月设置
x=999999999
e=(1+1/x)^x
wscript.echo e。
- cs15一键盲狙脚本(cs16自动瞄准
- 影视广告脚本模板(广告影视脚本
- 房地产宣传片脚本文案(房地产公
- 脚本防封(地铁脚本防封)
- 手机游戏脚本怎么写(手机游戏脚
- shell脚本expect(shell脚本执行i
- 停止运行此脚本吗(停止运行此脚
- 破解叉叉助手收费脚本(叉叉助手
- 脚本定制定做吧(定制脚本去哪个
- 剑灵自动打怪脚本(剑灵自动打怪
- 魔兽世界脚本打怪封角色还是战网
- 剑侠情缘苹果脚本软件(剑侠情缘
- 写游戏脚本需要学什么步骤(写游
- 自动阅读脚本怎么写(自动阅读脚
- 征途手机版脚本(征途手机版脚本
- 包含叉叉助手脚本无限试用苹果系
- 征途手游抓随宠脚本(征途手游抓
- 源码怎么做成脚本(源码怎么做成
- 抖音短视频脚本模板(抖音短视频
- 呛奶应急预案演练脚本(新生儿呛