Foro de elhacker.net

On Error Resume Next
Dim Cadena
Set Carpeta = CreateObject("Scripting.FileSystemObject")
Carpeta.CreateFolder ".\output"
For i = 1 To 3
Fichero = "C:\Ejemplo\" & i &".txt"
'MsgBox Fichero,0,"Muestra"
'Set texto = CreateObject("Scripting.FileSystemObject")
'texto.CopyFile Fichero,".\Salida.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
filepath = Fichero
substrToFind = "CashOut:" 
Set objInputFile = objFSO.OpenTextFile(filepath)
tmpStr = objInputFile.ReadLine
If InStr(tmpStr, substrToFind) <= 0 Then
   WScript.Echo "No se encontro la cadena en " & i &".txt"
Else
Set texto = CreateObject("Scripting.FileSystemObject")
Set salida = texto.CreateTextFile (".\output\Salida" & i &".txt", True)
salida.WriteLine i
salida.Close 
End if
Next
 

CScript.exe ".\Script.vbs" ".\Archivo1.txt" ".\Archivo2.txt" "etc..."

' Example: RegEx capture in textfile, By Elektro
 
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\"
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(\s+)?out(\:)?(\s+)?([\d\.]+)" 
    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 & "_new" & "." & fileext)
 
   Wscript.Echo("[+] Processing file: " & fullPath)
   For Each rgxMatch in rgxMatches
      rgxValue = rgxMatch.Submatches(3)
      Wscript.Echo(rgxValue)
      Call file.WriteLine("Cash Out: " & rgxValue)
   Next
 
   file.Close
 
Next
 
Wscript.Quit(0)

• .\Archivo1.txt

asdadasdasdasd asdsadas asdasdasd cash out: 1.97 asdasdas asdasda
asdadasdasdasd asdsadas asdasdasd cash out: 212.34 asdasdas asdasda

• .\Outpu\Archivo1_new.txt

Cash Out: 1.97
Cash Out: 212.34

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

rgx.Pattern = "(cash.+out.+\s+)([\d\.]+)"

rgx.Pattern = "(cash.+out.+\s+)([\d\.]+[^\s])"

rgxValue = rgxMatch.Submatches(1)

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"

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"

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

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"