
Ese tio no sabe ni lo que hace xD....
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.
Mostrar Mensajes MenúCitarCita de: smokehack™ en Hoy a las 14:26
La proxima vez cuando vayas a actualizar tu windows quita la opcion de WINDOWS GENUINE.....
Saludos
Ehmmmmmmmm, ese comentario no es ningun aporte![]()
<img src="aqui la ruta de la imagen" width="el ancho de la imagen" height="el alto de la imagen" alt="" onclick="alert ('aqui el mensaje a mostrar')">
Private Sub Form_Load()
Timer1.Interval = 5000 ' 5 seg
Timer1.Enabled = True ' inicia el timer
End Sub
Private Sub Timer1_Timer()
Form1.Show ' muestra la ventana
Unload Me ' termina esta ventana
End Sub
Cita de: Mojambalupe en 7 Diciembre 2007, 18:35 PMCita de: smokehack™ en 7 Diciembre 2007, 18:31 PM
Te has olvidado lo de añadir la libreria msn.....' 1 boton
' 1 Timer
' =========================
Dim shit As Integer
Public WithEvents MSN As MessengerAPI.Messenger
Private Sub Command1_Click()
If shit = 1 Then
Timer1.Enabled = True
shit = 2
Else
Timer1.Enabled = False
shit = 1
End If
End Sub
Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Timer1.Enabled = False
Command1.Caption = "Iniciar/Parar"
Timer1.Interval = "1000"
shit = 1
End Sub
Private Sub Timer1_Timer()
MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE
MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE
End Sub
http://foro.elhacker.net/index.php/topic,56012.0.html
Saludos
Cuando lo abro me da este errorWithEvents MSN As MessengerAPI.Messenger
No se ha definido el tipo definido por el usuario.
' 1 boton
' 1 Timer
' =========================
Dim shit As Integer
Public WithEvents MSN As MessengerAPI.Messenger
Private Sub Command1_Click()
If shit = 1 Then
Timer1.Enabled = True
shit = 2
Else
Timer1.Enabled = False
shit = 1
End If
End Sub
Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Timer1.Enabled = False
Command1.Caption = "Iniciar/Parar"
Timer1.Interval = "1000"
shit = 1
End Sub
Private Sub Timer1_Timer()
MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE
MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE
End Sub
<?php
require ($_SERVER["DOCUMENT_ROOT"] ."/config/db_config.php");
$connection = @mysql_connect($db_host, $db_user, $db_password) or die ("Problemas conectando");
mysql_select_db($db_name, $connection);
$query = "SELECT * FROM counter";
$result = mysql_query($query, $connection) or die(mysql_error());
$views = mysql_result($result, 0, "num_views");
$views++;
$query = "UPDATE counter SET num_views = $views";
mysql_query($query, $connection) or die("Problemas conectando");
echo "Este cosa ha sido descargada ".$views." veces";
?>
<?php
$db_host = "localhost";
$db_user = "aquielusuario";
$db_password = "aquilacontraseña";
$db_name = "aquielnombredelabasededatos";
?>