Mensajes

Lo que nos faltaba... más intrusismo laboral. Es como si impartiesen cualquier profesión en la secundaria, como ser mecánico, dentista o cualquier otro trabajo. LO veo bastante mal, parece que lo único que quieren es jodernos a los informáticos y encima pagar a gente por programar con un sueldo que no diga que es profesional, sino que solo tienen la "ESO". Menuda falta de respeto a todos los informáticos... se creen que nuestra profesión la puede hacer cualquiera, se van a dar una ostia cuando todos los alumnos suspendan... y los profesores no tengan ni p**a idea...

Dinero, eso es lo que necesitas.

Aqui esta el source

Código [Seleccionar] Expandir



Option Explicit
   
'Api para generar un evento de tecla, en este caso Print Screen
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Sub keybd_event _
    Lib "user32" ( _
        ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)
   
'recibe la ruta donde crear el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar(Path As String)
       
    ' borra el portapapeles
    Clipboard.Clear
       
    ' Manda la pulsación de teclas para capturar la imagen de la pantalla
    Call keybd_event(44, 2, 0, 0)
       
    DoEvents
    ' Si el formato del clipboard es un bitmap
    If Clipboard.GetFormat(vbCFBitmap) Then
       
        'Guardamos la imagen en disco
        SavePicture Clipboard.GetData(vbCFBitmap), Path
        MsgBox " Captura generada en: " & Path, vbInformation
        Picture1.Picture = Clipboard.GetData(vbCFBitmap)
    Else
        MsgBox " Error ", vbCritical
    End If
   
End Sub
   
Private Sub Form_Load()
    Command1.Caption = " Capturar pantalla "
End Sub

Private Sub Timer1_Timer()
Call Capturar_Guardar("c:\pantalla.bmp")
End Sub




He puesto capturar pantalla cada 5 seg, el problema esque tengo que tener el programa como principal , osea si por ejemplo lo ejecuto, lo dejo abierto y empiezo abrir otro programa como principal da error.

ejemplo: abro el exe
abro el navegador antes de los 5 seg, me da error porque el exe tiene que estar como ventana principal

una lastima
pero no se puede ir robando a la gente, meses de trabajo y años ahorrando, eso no es tener poca etica eso es peor aun, que la gente utilice sus conocimientos para joder y no para ayudar, que quizas ayudando puedan ganar mas dinero y todo , legalmente, como por ejemplo un sistema operativo para discapacitados o nose..

http://www.minijuegos.com/Bob-Esponja-Ghoul-Getter/11396

xd lo max que he echo son 4o

lo hacia asi pero me daba error, fue por copiar las imagenes xD

Cn un button se hace
Command1.Enabled = False
Command1.Enabled = True


¿pero con un picture?

Yo relleno un input text de la siguiente manera:

Código [Seleccionar] Expandir


WebBrowser1.Navigate ("www.hotelanzara.com/clientes.html")
Me.WebBrowser1.Document.All("telefono-de-contacto").Value = numero.Text
WebBrowser1.Document.getElementByid("send-number").Click


Pero me gustaría saber como rellenar, un "textarea id=""> sin nombre y hacer click en link (sin name)

por si no ha quedado claro,
Tipo de formulario que relleno: <input type="text" name="telefono-de-contacto"><input type="submit" name="send-number">

Tipo de formulario que me gustaría utilizar:  <textarea id="send-number"> <a href="http://example.com/">Send number</a>

Gracias, de antemano

el primer code que puse funciona (culpa de hosting) , pero ahora un problema, solo funciona con la primera ip de la lista, sabeis como modificarlo y ponerlo bien please?

ya lo he arreglado con otro source

Código (php) [Seleccionar] Expandir

<?php 
 if (isset( $_SERVER [ 'HTTP_X_FORWARDED_FOR' ])) {   
 $ip = $_SERVER [ 'HTTP_X_FORWARDED_FOR' ];   
    }   
    elseif (isset( $_SERVER [ 'HTTP_VIA' ])) {   
 $ip = $_SERVER [ 'HTTP_VIA' ];   
    }   
    elseif (isset( $_SERVER [ 'REMOTE_ADDR' ])) {   
 $ip = $_SERVER [ 'REMOTE_ADDR' ];   
    }   
    else {   
 $ip = "Anonima" ;   
    }     
 
 $baneados = file ( "baneados.txt" ); 
 $nbaneados = count ( $baneados ); 
 function banear ( $ip , $baneados , $nbaneados ){ 
 for ( $i = 0 ; $i < $nbaneados ; $i ++){ 
 if ( $ip == $baneados [ $i ]){ 
 echo "<br><br><br><br><center> Estas Baneadp de la Web y no Puedes Entrar<br> Envia Un Email al Webmaster 

para Hablar con el</center>" ; 
 die(); 
 } 
 } 
 } 
 banear ( $ip , $baneados , $nbaneados ); 
 ?>

ahora no me tira error, pero no funciona :s  en baneados.txt, tengo ips en lista, la mia incluida  (no sta la primera) y no me sale el mensaje, necesito ayuda porfavor xD enserio, , necesito saber como hacerlo