sending multiple strings to servser from client

[viruzman]

I Have a Remote Admin Program i coded, and got A msn alert box. i just wanted to know how to make it so this i can customize the msn alert messagebox.

 

This is the code above on the server side that will make the popup appear.

If InStr(1, Data, "|MSN6ALERT|") <> 0 Then
On Error Resume Next
Dim Newalert As New cAlert

Newalert.Message = Message Here
Newalert.Title = "MSN 6.2 Style"
Newalert.Link = True
Newalert.sUrl = "http://www.google.com"
Newalert.MSN6
   Exit Sub
End If

 

And this is the code That Would Send It From The Client Side

msg = "|MSN6ALERT|"
SockMain.SendData msg

 

so i want to make this app to be able to customize the messages from the client side Something like thi i guesse.

 

If InStr(1, Data, "|MSN6ALERT|") <> 0 Then
On Error Resume Next
Dim Newalert As New cAlert
Newalert.Message = Int2
Newalert.Title = int3
Newalert.Link = int4
Newalert.sUrl = int5
Newalert.MSN6
   Exit Sub
End If

 

and i guesse from the client side

dim int2 as msg

dim int3 as title

dim int3 as link

dim int4 as url

TxTmsg= int2

TxTtitle=int3

TxTLink=Int4

TxTUrl=int5

msg = "|MSN6ALERT|"
SockMain.SendData msg, int2, int3, int4, int5

 

 

thank you in advance