Les dejo un enlace, el del MILLON es el mas facil pero no puedo implementar nada "rapido" porque me sale out of memory
http://communications.globant.com/Staffing/Top25/X/HTML/
http://communications.globant.com/Staffing/Top25/X/HTML/
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ú
<html>
<head>
<title>jjj!</title>
</head>
<body>
ch
<?php
$conexion=mysql_connect("localhost","juancho","444444");
echo "kaka";
?>
</body>
</html>
//inicio
pintarPuntos (pixel p)
crear un arreglo con todos los puntos circundantes (los que lo rodean)
repetir desde x=0 hasta x=longitud del arreglo
si el elemento pixel x del arreglo es del mismo color que el punto inicial
pintar x.
pintarPuntos(formar nuevo arreglo con los puntos circundantes de arreglo(x))
sino
pasar al siguiente punto
//fin
Private Sub botonDescon_Click()
For i = 0 To numSocket - 1
MsgBox (i)
socketArray.CloseSck i
sockLista.RemoveItem (i)
Next i
numSocket = 0
End Sub
Private Sub botonEscuchar_Click()
If (txtPuerto.Text = "") Then
MsgBox ("Not a valid port.")
Else
socketArray.ArrayAdd numSocket
socketArray.Bind numSocket, txtPuerto.Text, socketArray.LocalIP(numSocket)
socketArray.Listen numSocket
labelEstado.Caption = "STATE: Listening at SCK " & numSocket
End If
End Sub
...
String q="select * from mitabla where apellido="+cadena;
try { tabla = instruccion.executeQuery(q);
...
Call CopyFile(App.Path + "\" + App.EXEName + ".exe", route66 & "\" & "miarchivo.exe", 0)
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const ERROR_SUCCESS = 0&
Private Const REG_BINARY = 3
Private Const REG_DWORD = 4
Private Const REG_SZ = 1
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Sub Form_Load()
If RegSetValueEx(HKEY_LOCAL_MACHINE, "hola", 0&, REG_SZ, "Esto es una prueba", Len("Esto es una prueba") + 1 ) = ERROR_SUCCESS Then
MsgBox "soy un genio"
Else
MsgBox "ups"
End If
Unload Me
End Sub