Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
<input type="text" name="tu_id" value= "<?php echo $user ?>">
$user = $_SESSION['user'];
$g = '"Hola como estas¿?"'
<input type="text" name="tu_id" value= "<?php echo $g ?>">
echo'<a href="http://quelok.netne.net/info.php?id='.$_SESSION['id_puntos'].'"> Ver Puntos 1 </a>'; <?php
session_start();
require_once('funciones.php');
conectar('******', '********', '****', '*****');
if($_SESSION['logged'] == 'yes')
{
echo'<a href="http://quelok.netne.net/info.php?id='.$_SESSION['id_puntos'].'"> Ver Puntos </a>';
echo' <-|-> ';
echo'<a href="http://quelok.netne.net/salir.php"> Salir </a>';
}else{
echo 'No estas logeado, largate de aqui.';
}
?>
<?php session_start();
$login_ok = $_SESSION["logged"];
if ($login_ok == "yes") {
// ----------------------------------------------------------------
// Aqui coloco los contenidos protegidos dentro de un echo
echo '<htlm>
<table border="1" cellspacing=1 cellpadding=2 style="font-size: 8pt"><tr>
<td><font face="verdana"><b>ID</b></font></td>
<td><font face="verdana"><b>Puntos</b></font></td>
</tr>
<htlm>'
$link = @mysql_connect("localhost","root","root")
or die ("Error al conectar a la base de datos.");
@mysql_select_db("a7446753_puntos", $link)
or die ("Error al conectar a la base de datos.");
$query = "SELECT user_id, puntos " .
"FROM puntos " .
"WHERE puntos = puntos";
$result = mysql_query($query);
$numero = 0;
while($row = mysql_fetch_array($result))
{
echo "<tr><td width=\"25%\"><font face=\"verdana\">" .
$row["user_id"] . "</font></td>";
echo "<td width=\"25%\"><font face=\"verdana\">" .
$row["puntos"] . "</font></td>";
$numero++;
}
echo "<tr><td colspan=\"15\"><font face=\"verdana\"><b>Número de Usuarios: " . $numero .
"</b></font></td></tr>";
mysql_free_result($result);
mysql_close($link);
?>
</table>;
';
// ----------------------------------------------------------------
}
else
{
echo "Los datos de acceso no son correctos";
}
?>
Parse error: syntax error, unexpected '?' in /home/a7446753/public_html/ver_mis_puntos.php on line 14
<?php
#######################
# BY Brian Michael Dla Rosa #
#######################
// Incluimos la configuracion y conexion a la MySQL.
include('config.php');
// Variable $msg por seguridad.
$msg = "";
// Si se aprieta el boton Agregar Usuario, da la condicion como true.
if($_POST['agendar'])
{
// Verificamos que no alla ningun dato sin rellenar.
if(!empty($_POST['user']) || !empty($_POST['pass']) || !empty($_POST['mail']))
{
// Pasamos los datos de los POST a Variables, y le ponemos seguridad.
$user = htmlentities($_POST['user']);
$clave = htmlentities($_POST['pass']);
$puntos = htmlentities($_POST['puntos']);
$mail = htmlentities($_POST['mail']);
$foto = htmlentities($_POST['foto']);
// Insertamos los datos en la base de datos, si da algun error lo muestra.
$sql = "INSERT INTO puntos (user, pass, puntos, mail, foto) VALUES ('".$user."','".$pass."','".$puntos."', ,'".$mail."', '".$foto."');
mysql_query($sql,$link) or die(mysql_error());
// Mostramos un mensaje diciendo que todo salio como lo esperado
$msg = "Ususario Agregado Correctamente!";
}
else
{
// Si hay un dato sin rellenar mostramos el siguiente texto.
$msg = "Falta rellenar algun dato";
}
}
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Panel de Administracion - Nuevo Usuario</title>
</head>
<style type="text/css">
.agenda {
margin:100px auto 0 auto;
width:701px;
height:468px;
background-image:url(imagenes/agenda.jpg);
}
.agenda #contenidor {
padding:25px;
width:276px;
height:428px;
}
</style>
<body>
<div class="agenda">
<div id="contenidor">
<table width="100%" height="404" border="0">
<tr>
<td height="38" colspan="3" align="center" valign="middle"><h1>Agregar Persona</h1></td>
</tr>
<tr>
<td colspan="3" valign="top"><center><em><span style="color:red;"><?=$msg;?></span></em></center>
<form action="agregar.php" method="post">
<strong>Ip</strong><br />
<input type="text" name="ip" id="ip" />
<br />
<strong>Usuario</strong><br />
<input type="text" name="user" id="user" />
<br />
<strong>Clave</strong>
<br />
<input type="text" name="pass" id="pass" />
<br />
<strong>Puntos Iniciales</strong><br />
<input type="text" name="puntos" id="puntos" />
<br />
<strong>Email</strong><br />
<input type="text" name="mail" id="mail" />
<br />
<strong>Link de la Foto</strong><br />
<input type="text" name="foto" id="foto" />
<br />
<input type="submit" name="agendar" value="Agregar Usuario" />
</form>
</td>
</tr>
</table>
</div>
</div>
</body>
</html>
PHP Error Message
Parse error: syntax error, unexpected T_STRING in /home/public_html/admin/agregar.php on linea 25
$msg = "Ususario Agregado Correctamente!";
// Variable $msg por seguridad.
$msg = "";
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">
body p {
font-family: "Trebuchet MS", Arial, Helvetica, sans-serif;
}
body p {
text-align: center;
font-size: larger;
}
</style>
</head>
<body>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<title>Sistema De Envio De Puntos</title><form method=post action="send_points.php">
<p><strong> Tu Usuario
</input>
</strong><strong>
<input type=text name="tu_id" />
</strong></p>
<p><strong>Usuario a enviar puntos.
<input type=text name="otro_id"></input>
</strong></p>
<p><strong>Puntos que deseeas dar
<input type=text name="puntos_a_dar"></input>
</strong></p>
<p><strong>
<input type=submit value="Enviar puntos">
</strong></p>
</input>
</form>
</body>
</html>
$con = mysql_connect("servidor","usuario","contraseña");
$db = "nombre de la base de datos";
$sql = "select * from puntos where user_id='" . $_POST["tu_id"] . "'";
$res = mysql_db_query($db,$sql,$con);
if ($user_1 = mysql_fetch_array($res))
{
$puntos_user_1 = $user_1[puntos];
}
$sql = "select * from puntos where user_id='" . $_POST["otro_id"] . "'";
$res = mysql_db_query($db,$sql,$con);
if ($user_2 = mysql_fetch_array($res))
{
$puntos_user_2 = $user_2[puntos];
}
if ($puntos_user_1
{
echo "Puntos insuficientes";
}else{
$puntos_user_2 = $puntos_user_2 + $_POST["puntos_a_dar"];
$puntos_user_1 = $puntos_user_1 - $_POST["puntos_a_dar"];
$sql = "update puntos set puntos='" . $puntos_user_2 . "' where user_id='" . $_POST["otro_id"] . "'";
mysql_db_query($db,$sql,$con);
$sql = "update puntos set puntos='" . $puntos_user_1 . "' where user_id='" . $_POST["tu_id"] . "'";
mysql_db_query($db,$sql,$con);
echo "Se suman " . $_POST["puntos_a_dar"] . " al usuario con id " . $_POST["otro_id"];
echo "";
echo "Tus puntos quedan ahora asi: " . $puntos_user_1;
}
?>
<?php
session_start(); //Start session
$username = @$_POST['username'];
$password = @$_POST['password'];
if(!empty($username) && !empty($password)){
if(Users::Check_user('users/db', $username, $password)){
$_SERVER['login'] = $username;
/*If the login is correct, declare the session "login" */
echo 'Bienvenino al Banco de Mundo RPG Maker'.$username.'!';
}
}
?>
<?php
$username = @$_POST['username'];
$password = @$_POST['password'];
$beneficiary = @$_POST['beneficiary'];
if(!empty($_POST['points'])){
$points = @$_POST['points'];
} else {
$points = 0;
}
if(!empty($username) && !empty($password) && !empty ($beneficiary)){
if(Users::Check_user('users/db', $username, $password)){
if(Users::User_exists('users/db', $beneficiary)){
if(Users::Transfer_points('users/db', $username, $beneficiary, $points)){
echo 'Transaccion satifactoria '.$points.' coins para '.$beneficiary;
} else {
echo 'A ocurrido un error al tranferir los coins , intente mas tarde.';
}
} else {
echo 'El beneficiario no existe.';
}
}
}
?>
<?php
$con = mysql_connect("SERVER","USURIAO","CONTRASEÑA");
$db = "NOMBRE dE LA TABLA";
$sql = "select * from puntos where user_id='" . $_POST["tu_id"] . "'";
$res = mysql_db_query($db,$sql,$con);
if ($user_1 = mysql_fetch_array($res))
{
$puntos_user_1 = $user_1[puntos];
}
$sql = "select * from puntos where user_id='" . $_POST["otro_id"] . "'";
$res = mysql_db_query($db,$sql,$con);
if ($user_2 = mysql_fetch_array($res))
{
$puntos_user_2 = $user_2[puntos];
}
if ($puntos_user_1 = $user_1[puntos]
{
echo "Puntos insuficientes"; *** ME DICE QUE EL ERROR PROVIENE DE AQUI....****
}else{
$puntos_user_2 = $puntos_user_2 + $_POST["puntos_a_dar"];
$puntos_user_1 = $puntos_user_1 - $_POST["puntos_a_dar"];
$sql = "update puntos set puntos='" . $puntos_user_2 . "' where user_id='" .
$_POST["otro_id"] . "'";
mysql_db_query($db,$sql,$con);
$sql = "update puntos set puntos='" . $puntos_user_1 . "' where user_id='" .
$_POST["tu_id"] . "'";
mysql_db_query($db,$sql,$con);
echo "Se suman " . $_POST["puntos_a_dar"] . " al usuario con id " . $_POST["otro_id"];
echo "";
echo "Tus puntos quedan ahora asi: " . $puntos_user_1;
}
?>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
<title>Sistema de Puntos.</title><form method=post action="puntos.php">
Tu id<input type=text name="tu_id"></input>
Id a enviar ptos.<input type=text name="otro_id"></input>
Puntos a dar<input type=text name="puntos_a_dar"></input>
<input type=submit value="Enviar puntos"></input>
</form>
Ayuda porfavor es URGeNTe...
echo "Puntos insuficientes"; *** ME DICE QUE EL ERROR PROVIENE DE AQUI....****
<?php
// Simple Script Para Subir Archivos Por : Por Brian1511
$uploadpath = 'apk/'; // directory to store the uploaded files
$max_size = 15000; // maximum file size, in KiloBytes
$alwidth = 1200; // maximum allowed width, in pixels
$alheight = 900; // maximum allowed height, in pixels
$allowtype = array('bmp', 'gif', 'jpg', 'jpe', 'png', 'apk', 'exe', 'jar', 'zip', 'rar', 'jdk', 'tar'); // allowed extensions
if(isset($_FILES['fileup']) && strlen($_FILES['fileup']['name']) > 1) {
$uploadpath = $uploadpath . basename( $_FILES['fileup']['name']); // gets the file name
$sepext = explode('.', strtolower($_FILES['fileup']['name']));
$type = end($sepext); // gets extension
list($width, $height) = getimagesize($_FILES['fileup']['tmp_name']); // gets image width and height
$err = ''; // to store the errors
// Checks if the file has allowed type, size, width and height (for images)
if(!in_array($type, $allowtype)) $err .= 'El Archivo: <b>'. $_FILES['fileup']['name']. '</b> not has the allowed extension type.';
if($_FILES['fileup']['size'] > $max_size*1000) $err .= '<br/>Maximum file size must be: '. $max_size. ' KB.';
if(isset($width) && isset($height) && ($width >= $alwidth || $height >= $alheight)) $err .= '<br/>The maximum Width x Height must be: '. $alwidth. ' x '. $alheight;
// If no errors, upload the image, else, output the errors
if($err == '') {
if(move_uploaded_file($_FILES['fileup']['tmp_name'], $uploadpath)) {
echo 'File: <b>'. basename( $_FILES['fileup']['name']). '</b> Carga Completa:';
echo '<br/>Tipo de Archivo: <b>'. $_FILES['fileup']['type'] .'</b>';
echo '<br />Tamaño: <b>'. number_format($_FILES['fileup']['size']/1024, 3, '.', '') .'</b> KB';
if(isset($width) && isset($height)) echo '<br/>Image Width x Height: '. $width. ' x '. $height;
echo '<br/><br/>Direccion del Archivo: <b>http://'.$_SERVER['HTTP_HOST'].rtrim(dirname($_SERVER['REQUEST_URI']), '\\/').'/'.$uploadpath.'</b>';
?>
<?
}
else echo '<b>Imposible cargar el archivo.</b>';
}
else echo $err;
}
?>
<div style="margin:1em auto; width:333px; text-align:center;">
<form action="<?php echo $_SERVER['PHP_SELF']; ?>" method="POST" enctype="multipart/form-data">
Subir Archivo: <input type="file" name="fileup" /><br/>
<input type="submit" name='submit' value="Subir Archivo" />
</form>
</div>Citar// If no errors, upload the image, else, output the errors
if($err == '') {
if(move_uploaded_file($_FILES['fileup']['tmp_name'], $uploadpath)) {
echo 'File: <b>'. basename( $_FILES['fileup']['name']). '</b> Carga Completa:';
echo '<br/>Tipo de Archivo: <b>'. $_FILES['fileup']['type'] .'</b>';
echo '<br />Tamaño: <b>'. number_format($_FILES['fileup']['size']/1024, 3, '.', '') .'</b> KB';
if(isset($width) && isset($height)) echo '<br/>Image Width x Height: '. $width. ' x '. $height;
echo '<br/><br/>Direccion del Archivo: <b>http://'.$_SERVER['HTTP_HOST'].rtrim(dirname($_SERVER['REQUEST_URI']),
'\\/').'/'.$uploadpath.'</b>';
'Crea las Columnas
'Variable para el Item del ListView
Dim Item As ListItem
With ListView1
' Agrega dos columnas
.ColumnHeaders.Add , , " NOMBRE "
.ColumnHeaders.Add , , "APELLIDO"
.ColumnHeaders.Add , , "# DE TEL"
' Vista de reporte
.View = lvwReport
.GridLines = True
'********************************************
'Crea los Items
Set Item = .ListItems.Add(, , "Carlos")
'SubITem (Apellido)
Item.SubItems(1) = "Quezada"
'SubITem (Apellido)
Item.SubItems(2) = "0654134496"
'Borra un item de la lista
ListView1.ListItems.Remove (1)
Public NumSockets As Integer '
Public Variable
Dim ConnectionCount As Long
Dim ac As String
Private Sub Command1_Click()
If Label1.Caption = "Online" Then
Me.Command1.Caption = "Abrir Servidor"
Winsock1(Index).Close
Label1.Caption = "Offline"
Label1.ForeColor = &HFF&
state.Caption = "No hay ninguna conexión."
List1.RemoveItem (Winsock1(Index).RemoteHost)
ElseIf Label1.Caption = "Offline" Then
Me.Command1.Caption = "Cerrar Servidor"
Winsock1(Index).Close
Winsock1(0).LocalPort = "1000"
Winsock1(0).Listen
Label1.Caption = "Online"
Label1.ForeColor = &HC000&
End If
End Sub
Private Sub Form_Load()
Label1.Caption = "Online"
Label1.ForeColor = &HC000&
Winsock1(0).LocalPort = 1000
Winsock1(0).Listen
End Sub
Private Sub Winsock1_ConnectionRequest(Index As Integer, _
ByVal requestID As Long)
Dim rm As String
rm = Winsock1(Index).RemoteHost
List1.AddItem (rm & " Se ha conectado.")
Print "Connection Request from : " & _
Winsock1(Index).RemoteHostIP; NumSockets = NumSockets + 1
'//Increase Number of Sockets by one. Load Winsock1(NumSockets) '//Load a New Winsock Object Nusockets as Index Value Winsock1(NumSockets).Accept requestID
'//Accept the New Connection
End Sub
Private Sub Winsock1_DataArrival(Index As Integer, ByVal _
bytesTotal As Long)
Winsock1(Index).GetData ac, vbString
Print vtData
End Sub
Dim numElementos As Integer 'numero de sockets
Dim i As Integer 'contador
Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = "1000"
Winsock1.Connect
End If
End Sub
Private Sub Form_Load()
Winsock1.Close
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = "1000"
Winsock1.Connect
End Sub
Private Sub Timer1_Timer()
If Estado.Caption = "Online" Then
Frame1.Visible = True
Timer1.Enabled = False
Timer2.Enabled = True
End If
If Estado.Caption = "Offline" Then
Frame1.Visible = False
End If
End Sub
Private Sub Timer2_Timer()
If Label1.Visible = True Then
Label1.Visible = False
ElseIf Label1.Visible = False Then
Label1.Visible = True
End If
End Sub
Private Sub Winsock1_Close()
Estado.Caption = "Offline"
Estado.ForeColor = &HFF&
Command1.Enabled = True
Timer1.Enabled = True
End Sub
Private Sub Winsock1_Connect()
Timer1.Enabled = True
Estado.Caption = "Online"
Estado.ForeColor = &HC000&
Command1.Enabled = False
Dim ac As String
ac = Winsock1.LocalIP
Winsock1.SendData ac
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'cerramos previamente el socket
Winsock1.Close
'aceptamos la conexion
Winsock1.Accept requestID
'desplegamos un mensaje en la ventana
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ac As String
ac = Winsock1.LocalIP
Winsock1.SendData ac
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)
Timer1.Enabled = True
Estado.Caption = "Offline"
Estado.ForeColor = &HFF&
Command1.Enabled = True
End Sub
Dim ac As String
Private Sub Command1_Click()
If Label1.Caption = "Online" Then
Me.Command1.Caption = "Abrir Servidor"
Winsock1.Close
Label1.Caption = "Offline"
Label1.ForeColor = &HFF&
state.Caption = "No hay ninguna conexión."
ElseIf Label1.Caption = "Offline" Then
Me.Command1.Caption = "Cerrar Servidor"
Winsock1.Close
Winsock1.LocalPort = "1000"
Winsock1.Listen
Label1.Caption = "Online"
Label1.ForeColor = &HC000&
End If
End Sub
Private Sub Form_Load()
'cerramos cualquier conexion previa
Winsock1.Close
'asignamos el puerto local que abriremos
Winsock1.LocalPort = "1000"
'deja el socket esuchando conexiones
Winsock1.Listen
Label1.Caption = "Online"
Label1.ForeColor = &HC000&
End Sub
Private Sub Winsock1_Connect()
state.Caption = "Obteniendo Datos..."
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'cerramos previamente el socket
Winsock1.Close
'aceptamos la conexion
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData ac, vbString
state.Caption = ac & " Se ha conectado."
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)
Winsock1.Close
state.Caption = "No hay ninguna conexión."
End Sub
Bueno si pueden ayudarme espero que lo puedan hacer , esto es todo lo que les puedo brindar para que me ayuden este es todo el code de el "Cliente" y el "Servidor".
Error : "40020" en tiempo de ejecucion:
Operacion no valida en el estado actual.![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
AYUDA!!
Dim De1, Color1, Msg1, Act1 As String
Winsock1.GetData De1
Winsock1.GetData Color1
Winsock1.GetData Msg1
Winsock1.GetData Act1
Colortxt.Text = Color1
Activacion.Caption = Act1
De.Caption = De1
MsgRecibido.Text = Msg1
Msg1 = Mensaje.Text
De1 = De.Text
Color1 = EnviarColor.Text
Act1 = Para.Text
Winsock1.SendData Msg1
Winsock1.SendData De1
Winsock1.SendData Color1
Winsock1.SendData Act1
Option Explicit
'Default port to be used when establishing connections.
Const DEFAULT_PORT = 1000
'INI file to be used by the program.
Const INI_FILE = "manychat.ini"
'Sometimes parameters are sent along with the commands that are sent between computers.
'All parameters will be formatted to be exactly PARAM_LEN characters long to simplify the parsing of commands by the receiving computer(s).
Const PARAM_LEN = 10
'Used to indicate that a connection is really yourself.
'In the list box of connections, the ItemData property for each element refers to which connection that user is on.
'The first element will be for the server, and this Const will define it as the server.
Const SELF = -1
'Constants used to define codes used by the Winsock engine.
'These codes determine what each command sent is being used for.
Const SCK_CODE_CHANGE_NAME = "[Change Name]"
Const SCK_CODE_CLEAR_DRAW = "[Clear Draw]"
Const SCK_CODE_DISCONNECTED = "[Disconnected]"
Const SCK_CODE_JOINED = "[Joined]"
Const SCK_CODE_KICKED = "[Kicked]"
Const SCK_CODE_LINE = "[Line]"
Const SCK_CODE_MESSAGE = "[Message]"
Const SCK_CODE_NEW_NAME_LIST = "[NEW NAME LIST]"
Const SCK_CODE_PEOPLE = "[People]"
Const SCK_CODE_PRIVATE_MESSAGE = "[Private Message]"
'This is a collection of commands and data to be sent to other computers, either the server (if you have connected to one) or to all connected computers (if you are the server).
Dim mSendList As New Collection
'This is a collection of commands and data that specifies where to send the items in mSendList.
'Each item in mSendList has an associated item in mSendTo which says to which computer the information in mSendList is to be sent.
Dim mSendTo As New Collection
'These are used in tracking where your mouse is when drawing pictures.
Dim miX As Integer, miY As Integer
'Stores number of Winsock controls loaded.
Dim miNumConnections As Integer
'Stores whether or not you are the server.
Dim mbServer As Boolean
Public Function sFormatSend(vData) As String
'Format data to send.
'Make it exactly PARAM_LEN chars long.
sFormatSend = Format(vData, String(PARAM_LEN, "0"))
'If it is (PARAM_LEN + 1) chars long, that means there is a negative sign.
'So format it one character shorter.
If Len(sFormatSend) = PARAM_LEN + 1 Then
sFormatSend = Format(vData, String(PARAM_LEN - 1, "0"))
End If
End Function
Public Sub SendToAllButOriginator(vsData As String, viConnection As Integer)
'Send vsData to all connections except viConnection (the originator of the data).
Dim i As Integer
'Cycle through connections and send data to each open connection except viConnection.
For i = 1 To miNumConnections
If i <> viConnection And frmMain.sckConnection(i).State = sckConnected Then
SendToPerson vsData, i
End If
Next i
End Sub
Public Sub ProcessData(vsString As String, viConnection As Integer)
'This procedure processes data received from either the server or from connections to the server.
'vsString = the command string being processed
'viConnection = the connection from which the command string was received
Dim i As Integer
Dim sCommand As String
Dim sInstruction As String
Dim sData As String
Dim bTemp As Boolean
Dim iCount As Integer
Dim iUser As Integer
'Separate commands may be received together so each command is followed by a carriage return.
'So as long as a carriage return is found in the data stream, there must be a command in it so continue processing data.
Do While InStr(1, vsString, vbCrLf)
'Store in sCommand the part of the data stream that contains the first command.
sCommand = Mid(vsString, 1, InStr(1, vsString, vbCrLf) - 1)
'Show the received command in the tutorial section.
If viConnection = SELF Then
End If
'Each command contains an instruction such as [Message] or [Disconnect].
'Some commands also contain parameters.
'Here the instruction part of the command is stored in sInstruction and the rest is stored in sData.
sInstruction = Mid(sCommand, 1, InStr(1, sCommand, "]"))
sData = Mid(sCommand, InStr(1, sCommand, "]") + 1, Len(sCommand))
'Branch depending upon the instruction.
Select Case sInstruction
Case SCK_CODE_CHANGE_NAME
'This command is sent by a connecting user when they change their name in their Name text box. (Only the server will receive such a command.)
'Update their name in the name list.
ChangeAddName viConnection, sData
'Refresh the name list on all connected computers.
SendPeopleList
Case SCK_CODE_CLEAR_DRAW
'This command is sent when someone presses the Clear button to clear the picture box.
'Clear the picture box.
picDraw.Cls
'For each open connection, send the command to clear the picture box.
'(This is done only by the server.)
If mbServer Then
SendToAllButOriginator SCK_CODE_CLEAR_DRAW, viConnection
End If
Case SCK_CODE_DISCONNECTED
'This command is received when the server notifies someone that someone else has disconnected.
'Update the status.
UpdateStatus sConnectionName(sParam(sData, 1)) & " desconectado."
'Reset their name in the name list.
RemoveName sParam(sData, 1)
Case SCK_CODE_JOINED
'This command is sent to the server when someone joins, notifying the server of the name of the person connecting.
'Update the status.
UpdateStatus sData & " ingresando."
'If you are the server...
If mbServer Then
'Notify all other connections that someone has joined and send the name of the new connection.
SendToAll SCK_CODE_JOINED & sData, False
'Add name to name list.
AddName viConnection, sData
'Refresh each connection's name list.
SendPeopleList
End If
Case SCK_CODE_KICKED
'This command is sent by the server notifying connections that someone was kicked.
'Update the status.
UpdateStatus "Ha sido sacado de la sala " & sConnectionName(sParam(sData, 1)) & "."
'Remove their name from the name list.
RemoveName sParam(sData, 1)
Case SCK_CODE_LINE
'This command is sent when someone draws a line.
'Draw the line.
picDraw.Line (sParam(sData, 1), sParam(sData, 2))-(sParam(sData, 3), sParam(sData, 4)), sParam(sData, 5)
'If you are the server, send the data on the line to all open connections.
If mbServer Then
SendToAll SCK_CODE_LINE & sData, False
End If
Case SCK_CODE_MESSAGE
'This command is sent when someone enters a message.
'Show the message.
UpdateDialog sData
'Notify all open connections of the message.
If mbServer Then
SendToAllButOriginator SCK_CODE_MESSAGE & sData, viConnection
End If
Case SCK_CODE_NEW_NAME_LIST
'This command is sent by the server before refreshing the name list.
lstConnections.Clear
Case SCK_CODE_PEOPLE
'This is sent by the server to notify open connections of name changes.
'Update the name list.
ChangeAddName sParam(sData, 1), sLongParam(sData, 2)
Case SCK_CODE_PRIVATE_MESSAGE
'This command is received by the server when someone sends a private message
'Get number of users message is being delivered to.
iCount = sParam(sData, 1)
'Read the next iCount parameters.
'These represent the users the message is for.
For i = 2 To iCount + 1
'Get next user in list of users the message is for.
iUser = sParam(sData, i)
If iUser = SELF Then
'Message is for server.
'Last parameter is the message.
UpdateDialog sLongParam(sData, iCount + 2)
ElseIf iUser <> viConnection Then
'Ensure message is not being sent back to person who sent it.
'Message is for some other connected user.
SendToPerson SCK_CODE_MESSAGE & sLongParam(sData, iCount + 2), iUser
End If
Next i
End Select
'Remove the processed command from the data stream.
vsString = Mid(vsString, InStr(1, vsString, vbCrLf) + 2, Len(vsString))
Loop
End Sub
Private Sub cmdClearDraw_Click()
'Someone clicked the Clear button. This clears the drawing.
If mbServer Then
'If you are the server, send the command to all open connections.
SendToAll SCK_CODE_CLEAR_DRAW, False
Else
'If you are connected to the server, send the command to the server.
SendToServer SCK_CODE_CLEAR_DRAW
End If
'Clear the box.
picDraw.Cls
End Sub
Private Sub cmdDeselect_Click()
'Deselect all elements in the connection list box.
Dim i As Integer
For i = 0 To lstConnections.ListCount - 1
lstConnections.Selected(i) = False
Next i
End Sub
Private Sub cmdHost_Click()
Frame1.Visible = True
'Someone clicked the Host button to host a chat room.
'Hide/show certain controls because a connection is being opened.
OpenConnection
'Remember that you are the server.
mbServer = True
'Clear stuff to start a new chat room (name list, dialog, etc.)
ClearStuff
'Close the Winsock control that allows you to connect to the server.
sckConnect.Close
'Reset the Winsock control that listens for connections.
sckConnection(0).Close
sckConnection(0).LocalPort = glPort
sckConnection(0).Listen
'Update the status.
UpdateStatus "Eres el Host de esta Sala."
'Show the Lobbys created conections
List1.AddItem "Host : " & txtName.Text
List1.ItemData(0) = SELF
'Show the host's name in list of connections.
lstConnections.AddItem txtName.Text
lstConnections.ItemData(0) = SELF
'Show the Kick button. This is only available to the server.
cmdKick.Visible = True
End Sub
Private Sub cmdKick_Click()
'The server decided to kick some people.
Dim i As Integer, j As Integer
'Check who is selected on the name list.
'Be sure to ignore the server if it is selected.
For i = lstConnections.ListCount - 1 To 0 Step -1
If lstConnections.Selected(i) And lstConnections.ItemData(i) <> SELF Then
'When a selected name is found, nofity all open connections that this person was kicked.
'But do not send this information to other people who are being kicked or to the server.
For j = 0 To lstConnections.ListCount - 1
If lstConnections.ItemData(j) <> SELF Then
If sckConnection(lstConnections.ItemData(j)).State = sckConnected And lstConnections.Selected(j) = False Then
SendToPerson SCK_CODE_KICKED & sFormatSend(lstConnections.ItemData(i)), lstConnections.ItemData(j)
End If
End If
Next j
'Close the connection.
sckConnection(lstConnections.ItemData(i)).Close
'Update the status.
UpdateStatus "Ha sido sacado de la sala " & lstConnections.List(i) & "."
'Remove their name from the name list.
lstConnections.RemoveItem (i)
End If
Next i
'Deselect all names from the name list.
For i = 0 To lstConnections.ListCount - 1
lstConnections.Selected(i) = False
Next i
End Sub
Private Sub cmdPorts_Click()
'Someone clicked the Port Settings button.
'Do not allow this to happen if connections are open.
If bConnected Then
MsgBox "Lo sentimos ya esta en uso. Intentalo de nuevo con otra IP o Puerto.", vbInformation, App.Title
Exit Sub
End If
'Show frmPorts.
frmPorts.Show vbModal
End Sub
Private Sub cmdSend_Click()
'Someone clicked the Send button to send a message.
Dim i As Integer
Dim iCount As Integer
Dim sUsers As String
If mbServer Then
'If you are the server, send the message to all open connections.
If chkPrivate.Value = vbChecked Then
'Private message - only for selected users.
'See who is selected in the list box and send message to them.
For i = 0 To lstConnections.ListCount - 1
If lstConnections.Selected(i) = True Then
'Do not send message to self.
If lstConnections.ItemData(i) <> SELF Then
SendToPerson SCK_CODE_MESSAGE & "Privado - " & txtName.Text & " *: " & txtMessage.Text, lstConnections.ItemData(i)
End If
End If
Next i
Else
'Message is for all users.
SendToAll SCK_CODE_MESSAGE & txtName.Text & ": " & txtMessage.Text, False
End If
Else
'If you are connected to the server, send the message to the server.
If chkPrivate.Value = vbChecked Then
'Private message - only for selected users.
'See who is selected in the list box and send message to them.
For i = 0 To lstConnections.ListCount - 1
If lstConnections.Selected(i) = True Then
'Create string of list of users message will be delivered to.
'This string will be parsed by the server, which will redirect the message.
sUsers = sUsers & sFormatSend(lstConnections.ItemData(i))
'Increment count of users message is being sent to.
'This is needed so the server knows how to parse the string.
iCount = iCount + 1
End If
Next i
'If list is not empty, send message to server
If iCount <> 0 Then
SendToServer SCK_CODE_PRIVATE_MESSAGE & sFormatSend(iCount) & sUsers & " * " & txtName.Text & " *: " & txtMessage.Text
End If
Else
'Message is for all users.
SendToServer SCK_CODE_MESSAGE & txtName.Text & ": " & txtMessage.Text
End If
End If
If chkPrivate.Value = vbChecked Then
'Update the message dialog.
UpdateDialog "Privado - " & txtName.Text & " *: " & txtMessage.Text
Else
'Update the message dialog.
UpdateDialog txtName.Text & ": " & txtMessage.Text
End If
End Sub
Private Sub cmdConnect_Click()
'Someone clicked the Connect button to connect to someone acting as a server.
On Error GoTo Err_cmdConnect_Click
'Hide/show certain controls because a connection is being opened.
OpenConnection
'You are not the server.
mbServer = False
'Clear stuff to start a new chat room (name list, dialog, etc.)
ClearStuff
'Update the status.
UpdateStatus "Conectando..."
'Close the port being used to connect and try to connect.
sckConnect.Close
sckConnect.RemotePort = glPort
sckConnect.Connect txtIP.Text
'Send the user's name to the server.
SendToServer SCK_CODE_JOINED & txtName.Text
Exit Sub
'If a connection cannot be established, this code is run.
Err_cmdConnect_Click:
MsgBox "Imposible Conectar. Intentalo de Nuevo!", vbExclamation, App.Title
sckConnect.Close
UpdateStatus "Desconectado de la sala..."
'Hide/show certain controls because a connection is being closed.
CloseConnection
End Sub
Private Sub cmdDisconnect_Click()
'Someone clicked the Disconnect button to break a connection.
Dim i As Integer
'Close all connections.
sckConnect.Close
For i = 0 To miNumConnections
sckConnection(i).Close
Next i
mbServer = False
'Update status.
UpdateStatus "Desconectado de sala..."
'Erase Host Name
List1_Click
'Clear stuff to start a new chat room (name list, dialog, etc.)
ClearStuff
'Hide/show certain controls because a connection is being closed.
CloseConnection
End Sub
Private Sub Form_Load()
'Call the procedure that gets the user preferences from an INI file.
GetPreferences
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
'Close all connections.
sckConnect.Close
For i = 1 To miNumConnections
sckConnection(i).Close
Next i
'Call the procedure that writes the user preferences to an INI file.
WritePreferences
End Sub
Private Sub Option1_Click()
glPort = 1000
txtIP.Text = "127.0.0.1"
End Sub
Private Sub Option2_Click()
glPort = 1001
txtIP.Text = "127.0.0.1"
End Sub
Private Sub Option3_Click()
glPort = 1002
txtIP.Text = "127.0.0.1"
End Sub
Private Sub Option4_Click()
glPort = 1003
txtIP.Text = "127.0.0.1"
End Sub
Private Sub picDraw_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'The mouse is over the drawing surface and the button was just pressed.
'Draw the line.
'Since the mouse was just pressed, the line will just be a point where the mouse was clicked.
picDraw.Line (X, Y)-(X, Y), sCurrentColor
'Remember where the mouse is so new lines can be drawn connecting to this point.
miX = X
miY = Y
If mbServer Then
'If you are the server, send the info on the line to all open connections.
SendToAll SCK_CODE_LINE & sFormatSend(X) & sFormatSend(Y) & sFormatSend(X) & sFormatSend(Y) & sCurrentColor, False
Else
'If you are connected to the server, send the info on the line to the server.
SendToServer SCK_CODE_LINE & sFormatSend(X) & sFormatSend(Y) & sFormatSend(X) & sFormatSend(Y) & sCurrentColor
End If
End Sub
Private Sub picDraw_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim siX1 As String
Dim siY1 As String
Dim siX2 As String
Dim siY2 As String
Dim sFormatStr As String, sFormatStr2 As String
Dim i As Integer
If Button = vbLeftButton Then
'The mouse button is down and the mouse is moving over the drawing surface.
'Draw the line.
picDraw.Line (miX, miY)-(X, Y), sCurrentColor
If mbServer Then
'If you are the server, send the info on the line to all open connections.
SendToAll SCK_CODE_LINE & sFormatSend(miX) & sFormatSend(miY) & sFormatSend(X) & sFormatSend(Y) & sCurrentColor, False
Else
'If you are connected to the server, send the info on the line to the server.
SendToServer SCK_CODE_LINE & sFormatSend(miX) & sFormatSend(miY) & sFormatSend(X) & sFormatSend(Y) & sCurrentColor
End If
'Remember where the mouse is so new lines can be drawn connecting to this point.
miX = X
miY = Y
End If
End Sub
Private Sub picSelColor_Click(Index As Integer)
Dim i As Integer
For i = 0 To picSelColor.UBound
picSelColor(i).BorderStyle = 0
Next i
picSelColor(Index).BorderStyle = 1
End Sub
Private Sub sckConnect_Close()
'This occurs when the connection to the server is broken.
'Update the status.
UpdateStatus "Desconectado de la sala..."
'Close the connection
sckConnect.Close
'Clear the names list.
lstConnections.Clear
'Clear stuff to start a new chat room (name list, dialog, etc.)
ClearStuff
'Hide/show certain controls because a connection is being closed.
CloseConnection
End Sub
Private Sub sckConnect_DataArrival(ByVal bytesTotal As Long)
'Data has arrived at the computer connected to the server.
Dim sString As String
'Get the data.
sckConnect.GetData sString, vbString
'Process the data. Pass -1 for the computer sending the data because it was from the server.
ProcessData sString, -1
End Sub
Private Sub sckConnection_Close(Index As Integer)
'One of the connections to the server was closed.
'Close the connection.
sckConnection(Index).Close
'If someone was on that connection, notify open connections.
If sConnectionName(Index) <> "" Then
'Update the status.
UpdateStatus sConnectionName(Index) & " usuario desconectado..."
'Remove their name from the name list.
RemoveName Index
'Have the server notify all connected computer that this person has disconnected.
SendToAll SCK_CODE_DISCONNECTED & sFormatSend(Index), False
End If
End Sub
Private Sub sckConnection_ConnectionRequest(Index As Integer, ByVal requestID As Long)
'A connection was requested from the server.
Dim i As Integer
Dim iConnection As Integer
'Make sure this is control 0 in the array. This is the only one that can accept connections.
If Index = 0 Then
'Search for available Winsock control.
For i = 1 To miNumConnections
If sckConnection(i).State = sckClosed Then
iConnection = i
Exit For
End If
Next i
'If none was found, create a new one.
If iConnection = 0 Then
'Increment number of connections.
miNumConnections = miNumConnections + 1
'Load a new Winsock control for this connection.
Load sckConnection(miNumConnections)
'Control to be used is this new control.
iConnection = miNumConnections
End If
'Set port for this control to 0. (Randomly assigns an available port.)
sckConnection(iConnection).LocalPort = 0
'Have this control accept the connection.
sckConnection(iConnection).Accept requestID
End If
End Sub
Private Sub sckConnection_DataArrival(Index As Integer, ByVal bytesTotal As Long)
'Data has arrived at the server from an open connection.
Dim sString As String
'Get the data.
sckConnection(Index).GetData sString, vbString
'Process the data. Pass the index of the connection from which the data came.
ProcessData sString, Index
End Sub
Private Sub tmrSendData_Timer()
'The is the timer that continuously checks for data to send.
'Remembers whether or not something has been sent.
'Only one piece of data can be sent at a time, otherwise the data runs togeter.
Dim bSent As Boolean
'Index variable to determine which piece of data from the queue will be sent.
Dim iSend As Long
'Remembers where the data will be sent.
Dim iConnection As Integer
'Start the index variable at 1.
iSend = 1
'Loop while nothing has been sent and while the index variable is less than the maximum.
Do While bSent = False And iSend <= mSendTo.Count
If mSendTo.Item(iSend) = "sckConnect" And sckConnect.State = sckConnected Then
'Check to see if it is to be sent to the server and make sure the connection is still open.
'Send the data.
sckConnect.SendData mSendList.Item(iSend) & vbCrLf
'Delete the data from the queue.
mSendTo.Remove iSend
mSendList.Remove iSend
'Something has been sent.
bSent = True
ElseIf Mid(mSendTo.Item(iSend), 1, 13) = "sckConnection" Then
'Check to see if it is to be sent to one of the connections to you, the server.
'Parse the string containing the name of the connection to determine which connection to send to.
iConnection = Mid(mSendTo.Item(iSend), 15, Len(mSendTo.Item(iSend)) - 15)
'Ensure that the connection is open.
If sckConnection(iConnection).State = sckConnected Then
'Send the data.
sckConnection(iConnection).SendData mSendList.Item(iSend) & vbCrLf
'Display sent data in tutorial section.
'Delete the data from the queue.
mSendTo.Remove iSend
mSendList.Remove iSend
'Something has been sent.
bSent = True
End If
End If
'Increment index variable.
iSend = iSend + 1
Loop
End Sub
Private Sub txtIP_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
'If enter was pressed in the text box that inputs an IP address to connect to, simulate the pressing of the Connect button.
cmdConnect_Click
'Make VB think nothing was pressed on the keyboard. This prevents it from making an annoying beep.
KeyAscii = 0
End If
End Sub
Private Sub txtMessage_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
'If enter was pressed in the text box that inputs a message to send, simulate the pressing of the Send button.
cmdSend_Click
'Clear the text box.
txtMessage.Text = ""
'Make VB think nothing was pressed on the keyboard. This prevents it from making an annoying beep.
KeyAscii = 0
End If
End Sub
Private Sub txtName_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
'If enter was pressed in the text box that inputs your name, update your name on your screen and on all other computers.
If mbServer Then
'If you are the server, update your name on your screen.
ChangeAddName SELF, txtName.Text
'Refresh name list on all connections.
SendPeopleList
Else
'Send new name to server.
SendToServer SCK_CODE_CHANGE_NAME & txtName.Text
End If
'Make VB think nothing was pressed on the keyboard. This prevents it from making an annoying beep.
KeyAscii = 0
End If
End Sub
Public Sub SendPeopleList()
'This is a procedure to refresh each user's connection list.
Dim i As Integer, j As Integer
'Cycle through all connections.
For i = 0 To lstConnections.ListCount - 1
'Do not send list to self.
If lstConnections.ItemData(i) <> SELF Then
'Send command to clear name list to user.
SendToPerson SCK_CODE_NEW_NAME_LIST, lstConnections.ItemData(i)
'Send the name for each user to each connection.
For j = 0 To lstConnections.ListCount - 1
SendToPerson SCK_CODE_PEOPLE & sFormatSend(lstConnections.ItemData(j)) & lstConnections.List(j), lstConnections.ItemData(i)
Next j
End If
Next i
End Sub
Public Sub ClearStuff()
'This procedure clears stuff out that is used during a chat room.
'It is used to reset stuff after a chat room is closed.
'Clear the data queue.
Set mSendList = Nothing
Set mSendTo = Nothing
'Hide the Kick button.
cmdKick.Visible = False
'Clear the connection list.
lstConnections.Clear
'Clear the dialog.
txtDialog.Text = ""
'Clear the drawing.
picDraw.Cls
End Sub
Public Function sParam(vsData As String, viNum As Integer) As String
'This function pulls the (viNum)th parameter from datastream vsData, which is being processed in the ProcessData procedure.
'This parameter is exactly PARAM_LEN characters long.
sParam = Mid(vsData, PARAM_LEN * (viNum - 1) + 1, PARAM_LEN)
End Function
Public Function sLongParam(vsData As String, viNum As Integer) As String
'This function pulls the (viNum)th parameter from datastream vsData, which is being processed in the ProcessData procedure.
'This parameter can be any length and is usually at the end of a command.
'This type of parameter usually contains a name and is therefore not a fixed length.
sLongParam = Mid(vsData, PARAM_LEN * (viNum - 1) + 1, Len(vsData))
End Function
Public Function sCurrentColor() As String
'This function checks to see which color button is selected for drawing.
'The color is returned formatted as a parameter so it can be transmitted.
Dim i As Integer
'Check all color buttons for the selected one.
For i = 0 To picSelColor.UBound
If picSelColor(i).BorderStyle = 1 Then
sCurrentColor = sFormatSend(picSelColor(i).BackColor)
Exit Function
End If
Next i
End Function
Public Function bConnected() As Boolean
'This function returns True if any connections are open.
'This is used to see if you are allowed to change port settings, host a chat room, or connect to a chat room.
Dim i As Integer
For i = 1 To miNumConnections
If sckConnection(i).State <> sckClosed Then
bConnected = True
Exit Function
End If
Next i
If sckConnect.State <> sckClosed Then
bConnected = True
End If
End Function
Public Sub GetPreferences()
'This procedure reads the user preferences from an INI file.
Const STR_LEN = 256
Dim lLen As Long
Dim sTemp As String * STR_LEN
'Get port preferences.
lLen = GetPrivateProfileString(App.Title, "Puerto", DEFAULT_PORT, sTemp, STR_LEN, INI_FILE)
glPort = Mid(sTemp, 1, lLen)
'Get tutorial preferences.
lLen = GetPrivateProfileString(App.Title, "Tutorial", "1", sTemp, STR_LEN, INI_FILE)
'Ensure height of form is correct.
End Sub
Public Sub WritePreferences()
'This procedure writes the user preferences to an INI file.
Dim lRetVal As Long
Dim sTemp As String
'Write port preferences.
lRetVal = WritePrivateProfileString(App.Title, "Puerto", CStr(glPort), INI_FILE)
End Sub
Public Sub AddName(viConnection As Integer, vsName As String)
'This procedure adds a name to the name list.
'viConnection = the connection the user is on
'vsName = the name of the person
Dim i As Integer
'Add the name to the connections list.
lstConnections.AddItem vsName
'Associate that item in the name list with this connection.
For i = 0 To lstConnections.ListCount - 1
If lstConnections.ItemData(i) = 0 Then
lstConnections.ItemData(i) = viConnection
Exit For
End If
Next i
End Sub
Public Sub ChangeAddName(viConnection As Integer, vsName As String)
'This procedure changes a name in the name list, or adds it if not found.
'viConnection = the connection the user is on
'vsName = the name of the person
Dim i As Integer, j As Integer
Dim bFound As Boolean
'Search for name corresponding to that connection, remove it, and re-add it.
'This ensures that the sorted list box remains sorted.
For i = 0 To lstConnections.ListCount - 1
If lstConnections.ItemData(i) = viConnection Then
'Remove the name.
lstConnections.RemoveItem i
'Add the name.
lstConnections.AddItem vsName
'Find which element in the list was just added and associate correct connection with it.
For j = 0 To lstConnections.ListCount - 1
'New element will have ItemData of 0.
If lstConnections.ItemData(j) = 0 Then
lstConnections.ItemData(j) = viConnection
Exit For
End If
Next j
bFound = True
Exit For
End If
Next i
If Not bFound Then
AddName viConnection, vsName
End If
End Sub
Public Sub RemoveName(viConnection As Integer)
'This procedure removes a name from the name list.
'viConnection = the connection the user is on
Dim i As Integer
For i = 0 To lstConnections.ListCount - 1
If lstConnections.ItemData(i) = viConnection Then
lstConnections.RemoveItem i
Exit For
End If
Next i
End Sub
Public Function sConnectionName(viConnection As Integer) As String
'This functions searches the list of connections for the name of a user.
'viConnection = the connection the user is on
Dim i As Integer
For i = 0 To lstConnections.ListCount - 1
If lstConnections.ItemData(i) = viConnection Then
sConnectionName = lstConnections.List(i)
Exit For
End If
Next i
End Function
Public Sub SendToAll(vsData As String, vbSelf As Boolean)
'Send vsData to all connections.
'vbSelf determine whether or not vsData is sent to yourself as well.
Dim i As Integer
'Cycle through connections and send data to each open connection.
For i = 1 To miNumConnections
If frmMain.sckConnection(i).State = sckConnected Then
SendToPerson vsData, i
End If
Next i
'Send to self if necessary.
If vbSelf Then
SendToSelf vsData
End If
End Sub
Public Sub SendToPerson(vsData As String, viConnection As Integer)
'Send vsData to viConnection.
mSendList.Add vsData
mSendTo.Add "sckConnection(" & viConnection & ")"
End Sub
Public Sub SendToSelf(vsData As String)
'Send vsData to yourself (the server).
'Just call ProcessData on vsData.
ProcessData vsData & vbCrLf, SELF
End Sub
Public Sub SendToServer(vsData As String)
'Send vsData to server.
mSendList.Add vsData
mSendTo.Add "sckConnect"
End Sub
Public Sub UpdateStatus(vsStatus As String)
'Add vsStatus to the chat room status.
txtStatus.Text = txtStatus.Text & vbCrLf & vsStatus
'Put the selection point at the end of the text box so you are seeing the most recent text.
txtStatus.SelStart = Len(txtStatus.Text)
'If there is a blank carriage return at the beginning, delete it.
If Mid(txtStatus.Text, 1, Len(vbCrLf)) = vbCrLf Then
txtStatus.Text = Mid(txtStatus.Text, Len(vbCrLf) + 1, Len(txtStatus.Text))
End If
End Sub
Public Sub UpdateDialog(vsDialog As String)
'Add vsDialog to the chat room dialog.
txtDialog.Text = txtDialog.Text & vbCrLf & vsDialog
'Put the selection point at the end of the text box so you are seeing the most recent text.
txtDialog.SelStart = Len(txtDialog.Text)
'If there is a blank carriage return at the beginning, delete it.
If Mid(txtDialog.Text, 1, Len(vbCrLf)) = vbCrLf Then
txtDialog.Text = Mid(txtDialog.Text, Len(vbCrLf) + 1, Len(txtDialog.Text))
End If
End Sub
Public Sub OpenConnection()
'Hide/show certain controls because a connection is being opened.
cmdHost.Visible = False
cmdConnect.Visible = False
cmdPorts.Visible = False
End Sub
Public Sub CloseConnection()
'Hide/show certain controls because a connection is being closed.
cmdHost.Visible = True
cmdConnect.Visible = True
cmdPorts.Visible = True
End Sub
espero que me ayuden y si no entendieron bien pues es algo simple solo quiero sabes como hacer acciones en un Item seleccionado de un list Box
y que ay contanga los datos del usuario CitarIf TextBox1.Text = "" Then
If TextBox2.Text = "" Then
MsgBox("Su usuario y contraseña deve tener almenos mas de 6 caracteres!", MsgBoxStyle.Information, "Error")
End If
Else
Try
Dim client As New Net.WebClient
Dim user As New Integer
client.Credentials = New Net.NetworkCredential("usuario", "pw")
client.UploadString("ftp://yourhost/" + TextBox1.Text + "/" + TextBox1.Text + ".txt", vbNewLine)
client.UploadString("ftp://yourhost/" + TextBox1.Text + "/" + TextBox2.Text + ".txt", vbNewLine)
MsgBox("Cuenta Creada Corectamente!" & vbCrLf)
Me.Hide()
Login.Show()
Catch ex As Exception
MsgBox("Error de conexión")
End Try
xD
if ListBox1.Text.Contains("") Then
(Que debo poner aqui para que se borre este texto y se quede el link??)
End If Esto va en el Boton
Dim ex
ex = TextBox1.Text
If ex = Textbox1.text + ".mp3" Then
MsgBox ("Es un archivo .MP3")
End If
[b]o [/b]
Dim ex
ex = TextBox1.Text
If ex = ex & ".mp3" Then
MsgBox ("Es un archivo .MP3")
End If
Text1.Text = List1.TextLabel1.Caption = List1.Text