?? basmisc.bas
字號:
Attribute VB_Name = "basMisc"
Public Function NetSend(sName As String, sMessage As String) As Boolean
'This function will read machine names and send Message to teh corresponding Machine
Dim iPos As Integer
Dim iCount As Integer
Dim i As Integer
Dim iLen As Integer
Dim sMachine() As String
'
NetSend = False
If Trim(sName) = "" Then
Exit Function
End If
iLen = Len(Trim(sName))
iCount = 0
'Get number of sustem names
For i = 1 To iLen
If InStr(i, sName, ",") <> 0 Then
iCount = iCount + 1
i = InStr(i, sName, ",")
End If
Next i
If iCount = 0 Then
Shell ("net send " & sName & " " & sMessage)
Exit Function
Else
ReDim sMachine(iCount)
End If
sMachine = Split(sName, ",")
For i = 0 To iCount
Shell ("net send " & sMachine(i) & " " & sMessage)
Next i
NetSend = True
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -