📄 server.vbs
字号:
On Error Resume Next
Set ie = WScript.CreateObject ("internetexplorer.application","IE_")
Set sock = WScript.CreateObject ("mswinsock.winsock","win_")
With ie
.Width=475
.Height=460
.ToolBar = 0
.StatusBar = 0
.Navigate "about:blank"
.Visible = 1
End With
With ie.Document
.writeln "<html><herd><style>*{margin:0;}"
.writeln "#d1 {idth:420px; border:#000000 1px outset; padding:12px;}"
.writeln "#body { background:#FFCC99;filter:progid:DXImageTransform.Microsoft.gradient(enabled=true,startColorstr=#550000FF, endColorstr=#FFCC99,gradientstyle:1);}"
.writeln "#sendstr,#getstr {border:#FF99CC 1px outset; background:#FCE0FE; display:block; width:420px;}"
.writeln "#d1 *{padding:0; margin:0px; vertical-align:middle;}"
.writeln "#ip {width:100px; height:15px; background:#DAF8D6; color:#293AD1; border:#CCCCCC 1px solid; padding:0;}"
.writeln "#port,#user {width:60px; height:15px; background:#FBE3F0; color:#293AD1; border:#CCCCCC 1px solid; padding:0;}"
.writeln "#d2 font { font:icon;}"
.writeln "#d2 { border:#4DADD7 1px ridge; padding-left:8px; vertical-align:middle;}"
.writeln "#send,#con { height:20px; font:icon;</style>"
.writeln "<title><VBS 域内聊天 By--Joyn></title></head>"
.writeln "<body id=body>"
.writeln "<div id=d1><form id=""f1"" name=""f1"" method=""POST"" action=""12.asp"">"
.writeln "<table width=""0%""border=""0"" cellspacing=""0"" cellpadding=""0""><tr> <td width=""16%""><div align=""left""></div></td>"
.writeln "<td width=""84%""><div align=""left"" id=""d2""> <font>I P :</font>"
.writeln "<input type=""text"" name=""ip"" id=ip value=""192.168.1.5"" readonly=""readonly""/> <font> Port:</font>"
.writeln "<input type=""text"" name=""port"" id=port value=""1001""/> <font>昵称:</font><input value=""Joyn"" type=""text"" name=""user"" id=""user"" /> "
.writeln "<input type=""button"" name=""con"" id=""con"" value=""Listen"" /></div></td><td> </td></tr>"
.writeln "<tr><td><div align=""left""></div></td><td><div align=""left""></div></td></tr>"
.writeln "<tr><td><div align=""left""></div></td><td><div align=""left""></div></td></tr><tr>"
.writeln "<td rowspan=""4""><div align=""left""></div></td><td><div align=""left"">"
.writeln "<textarea name=""getstr"" id=""getstr"" cols=""60"" rows=""15"" readonly=""readonly""></textarea></div></td></tr><tr>"
.writeln "<td><div align=""center"" id=""states""><font> </font></div></td></tr><tr>"
.writeln "<td><div align=""left""><textarea name=""sendstr"" id=""sendstr"" cols=""60"" rows=""5""></textarea></div></td></tr><tr>"
.writeln "<td><div align=""center""><input type=""button"" value=""Send"" name=""send"" id=""send"" /></div><div align=""left""></div>"
.writeln "<div align=""left""></div></td></tr></table></form></div></body></html>"
End With
Dim user
Set winh = ie.Document.Parentwindow
Set eid = ie.Document.all
eid.con.onclick = GetRef ("listens")
eid.ip.value = sock.localip
eid.states.innertext = "未与Client连接!"
eid.send.onclick = GetRef ("sendstr")
'接受拒有RequestID的连接请求
Sub win_ConnectionRequest (RequestID)
sock.Close
sock.Accept RequestID
eid.states.innertext = "Connection OK!"
sock.SendData "#"&eid.user.value&" Connection OK!"
End Sub
'消息流"""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub win_DataArrival (bytestr)
Getstr = ""
sock.GetData Getstr
Getstr = Getstr & Chr (13)
eid.getstr.insertAdjacentText "beforeEnd",Getstr
End Sub
'发送信息"""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub sendstr ()
str = user &" Say:"&eid.sendstr.value
eid.getstr.insertAdjacentText "beforeEnd",str&Chr (13)
eid.sendstr.value=""
sock.senddata str
End Sub
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub IE_onquit ()
wSH.quit
End Sub
Do
WSH.sleep 3000
If sock.state <>7 Then
Err.Clear
eid.states.innertext = "未与Client连接!"
Call listens
End If
Loop
'监听端口""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub listens ()
If eid.user.value <> "" Then
user = eid.user.value
Else
user = "Server"
End If
sock.close
eid.ip.value = sock.localip
sock.localport = eid.port.value
sock.listen
End Sub⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -