Mensajes

Quizás no me explico bien WHK, pero aqui voy gracias a todos tus escritos y ayudas para no llegar al año que viene en esto
Usando WindowsXpSp3 con una sola interface de red cableada fisica, acceder a cualquier sitio que nos da nuestra ip como por ejemplo http://norfipc.com/test/ipimagen.php y al hacerlo sin necesidad de estar cambiando constantemente la MAC que es lo que hace el ISP mediante DHCP me asigne otro ip. Cual seria la forma mas practica para abrir varios navegadores web y que cada uno tenga una ip diferente al visitar sitios como http://norfipc.com/test/ipimagen.php. Ojo no me sirven los proxies y tampoco busco anonimato. Las listas de proxies al final se conocen y puedes terminar siendo banneado por cualquier sitio.

Varios navegadores con diferente ip es simple desde VirtualBox si se pone la interfase de red en modo puente en cada pc virtual, claro la potencia de la maquina determina cuantos simultáneos. De igual forma soy viejo acá aunque no el mas brillante siempre es bueno leer ideas diferentes.No he probado aun con sandboxie. Bueno, lo de los túneles ssh pero igual mucha carga. Actualmente con mi pc no logro mas de 7 navegadores con ip distintas por eso me decidí a escuchar los talentos q hay por acá. Leeré mas sobre bouncers.

Bien interesante eso de las métricas. Pero parece que ambas preguntas no han dado con lectores con ideas de solución a la incógnita.
De todas maneras sigo pendiente y buscando info.

Saludos

Usando Windows XP Sp3 y navegadores x (chrome, opera, firefox, etc) de que manera se puede lograr que cada navegador abierto tenga una ip distinta es decir:

Todas bajo una misma PC con un solo dispositivo de red cableado 212.1.101.1
chrome 212.1.101.1
chrome 212.1.200.2
chrome 212.1.11.3
chrome 212.1.100.4
chrome 212.1.99.5

Otra duda en un ordenador con wifi + ethernet ambos conectados a internet, como se puede determinar el camino que toman las aplicaciones de red, es decir:

chrome 212.1.101.1 ethernet
chrome 192.168.0.1 wifi

Muchas gracias a todos aquellos que lean asi como a cualquiera que pueda dar una pista sobre temas relacionados, posibles soluciones o recomendaciones, etc.

resolvi todo con esta macro, gracias a todos aquellos que al menos leyeron la pregunta

Código [Seleccionar] Expandir

Function MaxLessThanTwoTier() As Integer
   Dim tierLength As Integer, result As Integer
   result = 0
   tierLength = 0
   For i = 1 To 100000
       Set curCell = Worksheets(1).Cells(i, 2)
           If curCell.Value < 2 Then
           curCell.Interior.Color = RGB(255, 244, 233)
           tierLength = tierLength + 1
       Else
           If tierLength > result Then result = tierLength
           tierLength = 0
       End If
   Next i
   
   MaxLessThanTwoTier = result
End Function


Sub Botón1_Haga_clic_en()
   MsgBox MaxLessThanTwoTier
End Sub

El script presenta problemas para tipos:

16,002x
160,989.4x
1,900x

Excelente decididamente eres un duro en el tema funciona a la perfección. No pensé que creara tantos obstáculos desde el principio no dar el ejemplo del fichero en cuestión así como no hice mucho casos a que fuera txt o html pero ya veo cuan equivocado estaba.

Ok te voy diciendo como queda todo:
Asi descargo el 1000000 de resultados separados en carpetas de 100000.

Código (vb) [Seleccionar] Expandir

On Error Resume Next
For i = 1 To 100000
Set crack = CreateObject("WScript.Shell")
crack.Run "wget -r -nd -P 100000 -A .html -e robots=off --no-check-certificate https://www.xxxxx.com/game/"&i&".html",vbhide
wscript.sleep 500
next
MsgBox "Tarea Finalizada",0,"Download"

Asi paso tu script de ayuda a los 100000 resultados

Código (vb) [Seleccionar] Expandir

On Error Resume Next
For i = 1 To 100000
Set cmd = CreateObject("WScript.Shell")
cmd.Run "cscript.exe .\Script.vbs .\game\100000\"&i&".html",vbhide
wscript.sleep 500
next
MsgBox "Tarea Finalizada",0,"Valor"

Tu script

Código (vb) [Seleccionar] Expandir

' Example: RegEx capture in textfile, By Elektro
'CScript.exe ".\Script.vbs" ".\1.html" ".\2.html" "etc...

Option Explicit

Dim args, arg, _
   outPath, fullpath, fileName, fileExt, _
   fso, file, fileContent, _
   rgx, rgxMatches, rgxMatch, rgxValue
Set args = WScript.Arguments
If args.Count = 0 Then
  Wscript.Echo("Any filepath specified.")
  Wscript.Quit(1)
End If

outPath = ".\Output\100000\"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(outPath) Then
  Call fso.CreateFolder(outPath)
End If

' El primer grupo de esta expresión captura el string "cash out:" plus el valor decimal.
' El cuarto grupo de esta expresión captura el valor decimal.
Set rgx = New RegExp
    rgx.Pattern = "Cash.+Out.+\s+<\/\w+>\s+([\w\.]+)"
   rgx.IgnoreCase = True
   rgx.Global     = True
   
For Each arg in args

  fullPath    = fso.GetAbsolutePathName(arg)
  fileName    = fso.GetBaseName(fullPath)
  fileExt     = fso.GetExtensionName(fullPath)
  fileContent = fso.OpenTextFile(fullPath, 1).ReadAll

  Set rgxMatches = rgx.Execute(fileContent)
  Set file       = fso.CreateTextFile(outPath & "\" & fileName & ".txt")

  Wscript.Echo("[+] Processing file: " & fullPath)
  For Each rgxMatch in rgxMatches
     rgxValue = rgxMatch.Submatches(0)
     Wscript.Echo(rgxValue)
     Call file.WriteLine("Cash Out: " & rgxValue)
  Next

  file.Close

Next

Wscript.Quit(0)

Así uno todas las salidas de tu script en un solo fichero con 100000 lineas

Código (vb) [Seleccionar] Expandir

On Error Resume Next
For i = 1 To 100000
Fichero = "C:\Play\output\100000\" & i &".txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
filepath = Fichero
Set objInputFile = objFSO.OpenTextFile(filepath)
tmpStr = objInputFile.ReadLine
Set texto = CreateObject("Scripting.FileSystemObject")
Set salida = texto.CreateTextFile (".\Salida100000.txt", True)
salida.WriteLine (Mid(tmpStr,1,50)) & n
Next
MsgBox "Tarea Finalizada",0,"Play"

Y después puedo realizar el análisis importando Salida100000.txt  a excel pero realmente todo es para ver esto que pregunte aqui http://foro.elhacker.net/scripting/ayuda_con_excel-t430543.0.html, ya que puedo ver mas cosas pero la que mas me interesa aun no se jajajajajajaj.


Que tengo un script en python que lo hace pero me gustaría ver igual como se soluciona en excel .

Aquí la versión en español de lo que pasaste para los que no dominen mucho el ingles: http://es.wikipedia.org/wiki/Expresi%C3%B3n_regular
Gracias por todo.

Creo que esto ayuda full a entender la parte mas compleja de tu codigo al menos para mi

http://www.tutorialspoint.com/vbscript/vbscript_reg_expressions.htm
https://www.addedbytes.com/blog/code/vbscript-regular-expressions/

Moderador disculpe por el doble post pero cada vez que le daba eliminar en la cruz me decía que no se podía porque alguien lo estaba viendo, de todas maneras aceptada por mi parte la alerta de que no se acepta doble post.

Increíble funciona a la perfección para con x y sin x

Código [Seleccionar] Expandir

<b>Cash Out: </b> 1.97x </p>
<b>Cash Out: </b> 212.34x </p>

Pero al pasarselo a 1.html no funciona alguna idea:

Código [Seleccionar] Expandir

<!DOCTYPE html><html> <head> <title>Play Info -- xxxxxx.com</title> <link rel="shortcut icon" href="/img/favicon.ico" type="image/x-icon"> <link rel="icon" href="/img/favicon.ico" type="image/x-icon"> <meta charset="utf-8" /> <meta name="format-detection" content="telephone=no" /> <meta name="viewport" content="user-scalable=no, initial-scale=1, maximum-scale=1, minimum-scale=1, width=device-width, height=device-height"/>  <link rel="stylesheet" href="/css/cb42743da.css" /> </head><body><div class="wrap"> <header> <nav class="nav-top-bar"> <div class="title"> <a href="/"> <img src="/img/logo.png" alt="logo" width="40px" /> <h1 class="hide-for-small-only">xxxxxx.com</h1> </a> </div>  <div class="show-for-small-up user-login">  <a href="/register">Register</a> <a href="/login">Log in</a>  </div> </nav> </header>  <div class="content">  <div class="row panel radius"> <h4>Game #<strong>1</strong> information</h4> <p> <b>Cash Out: </b> 2.46x </p> <p> <b>Played: </b>Sat Ene 12 2015 00:20:13 GMT+0000 (UTC) <small>7 months ago</small> </p> <hr> <h6>Players</h6> <table class="user-table"> <thead> <tr> <td>Player</td> <td>Bet</td> <td>Cash Out</td> <td>Bonus</td> <td>Profit</td> </tr> </thead> <tbody>  </tbody> </table> <h6><b>Hash:</b> <a href="/faq#fair">null</a></h6> </div> </div> <script> (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){ (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o), m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m) })(window,document,'script','//www.google-analytics.com/analytics.js','ga'); ga('create', 'UA-54064423-1', 'auto');  ga('send', 'pageview'); </script></div></body></html>

No se si esto va aquí pero no encuentro un mejor lugar para ponerlo:
Se tiene:

ColumnA ColumnB
1             1,2
2             1,3
3             4,0
4             3,0
5             5,1
6             0,0
7             1,5
8             1,7
9             1,2
10           1,5

Se desea conocer la mayor salida de números consecutivos inferiores a < 2


La Respuesta seria 4 ya que:

7             1,5
8             1,7
9             1,2
10           1,5

4>2 para la tirada que antecede:

ColumnA ColumnB
1             1,2
2             1,3

Estoy leyendo =CONTAR.SI(B2:B1000;"<2") pero daria una cuenta de todos los valores menors que 2.
Cualquier recomendacion es bienvenida siguo en google y con la ayuda de Excel.

Gracias.