últimos mensajes de: asdexiva

Mostrar Mensajes
Páginas: 1 2 [3] 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ... 22

21	Programación / Scripting / agente viajero python itertols	en: 12 Octubre 2015, 00:45 am
asdasdasd

Programación / Programación Visual Basic / Re: Ayuda Por Favor VB6 Con Base De Datos?

en: 19 Julio 2015, 23:17 pm

haber utiliza esto y me dices

Código

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

23	Programación / Scripting / encotrar numero en pagina mechanize regular expresion	en: 18 Junio 2015, 20:05 pm
Código: 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

24	Programación / Scripting / Re: asociación de archivos	en: 17 Junio 2015, 20:40 pm
creo que tienes que ejecutar como administrador el bat los operadores estos Código: >,>> en windows 7 necesita que los ejecutes como administrador

Programación / Scripting / python diccionario atack multithread bug

en: 16 Junio 2015, 00:42 am

Código

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

Programación / Scripting / auto it scrapper

en: 13 Junio 2015, 19:55 pm

Código:

#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:

 $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

27	Programación / Programación General / generar codigo atravez de un lenguaje	en: 19 Mayo 2015, 03:40 am
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

28	Foros Generales / Dudas Generales / Re: duda formula excel	en: 26 Febrero 2015, 00:38 am
gracias gracias gracias gracias gracias gracias

29	Foros Generales / Dudas Generales / Re: duda formula excel	en: 26 Febrero 2015, 00:03 am
no mira pon un numero mayor en la celda i12 o menor el texto no cambia en la celda l2

30	Foros Generales / Dudas Generales / duda formula excel	en: 25 Febrero 2015, 22:31 pm
por que no puedo usar operaciones en resultados de formulas Código: =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

Páginas: 1 2 [3] 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ... 22