?? client.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""/> <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=""Connect"" /></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
Dim ip
Dim port
Set winh = ie.Document.Parentwindow
Set eid = ie.Document.all
eid.states.innertext = "未與Server連接!"
eid.con.onclick = GetRef ("conn")
eid.send.onclick = GetRef ("sendstr")
'WScript.Echo ip&"---"&port
'如果連上發送OK"""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub win_connect ()
sock.SendData "#"&eid.user.value&" Cnnection OK!"
eid.states.innerText = "Connection OK!"
End Sub
'消息流"""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub win_DataArrival (bytestr)
Getstr = ""
sock.GetData Getstr
Getstr = Getstr & Chr (13)
eid.getstr.insertAdjacentText "beforeEnd",Getstr
End Sub
'連接過程"""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub conn ()
If eid.user.value <> "" Then
user = eid.user.value
Else
user = "Client"
End If
ip = eid.ip.value
port = eid.port.value
Do
WScript.Sleep 1000
If sock.state <> "7" Then
eid.states.innertext = "請求中,請稍候...."
sock.close
sock.Connect ip,port
Else
Exit Do
End If
Loop
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 ()
WScript.quit
End sub
' 無限循環以接收事件
Do
Wsh.sleep 3000
Err.Clear
If sock.state <> "7" Then
eid.states.innertext = "未與Server連接!"
End If
Loop?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -