Busco alguna información para apreder a crack script en php, se le conoce en ingles Nulled Script, gracias
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
'1) Put this Sub in your Project.
'You need:
' PictureBox --> name = PictureBox1
' WebBrowser --> name = WebBrowser1
'getcaptcha()
'Code:
Public Sub getcaptcha()
Dim str As String = WebBrowser1.Document.GetElementById("recaptcha_image").InnerHtml 'Gets the html code for the recaptcha_image element
Dim img As String = str.Remove(0, 33).Replace(""" width=300 height=57>", "") 'Deletes all the info around the link because the height and width will never change
PictureBox1.ImageLocation = img 'Sets the ImageLocation to the URL of the ReCaptcha Image
End Sub
'Then find the WebBrowser1 Document Completed Sub (shown below)
'Code:
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
End Sub
'And Add this code below to the Sub Above ^^
'Code:
If WebBrowser1.DocumentTitle.Contains("Emk") Then
getcaptcha() 'Runs the sub getcaptcha()
End If
'So it would look like this
'Code:
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
getcaptcha() 'Runs the sub getcaptcha()
End Sub
'Read more: http://codertrick.blogspot.com/2011/07/get-captcha-image-in-picturebox-vbnet.html#ixzz1yo8AV2rM
Imports Word = Microsoft.Office.Interop.Word
Private Sub cmboton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdboton.Click
' Create Word Application
Dim oWord As Word.Application = CreateObject("Word.Application")
' Create new word document
Dim oDoc As Word.Document = oWord.Documents.Add()
oWord.Visible = False
'Creando la tabla
'lst1.items.count+1[/i] es la cantidad de filas a crear y el parametro de al lado son las columnas.
Dim oTable As Word.Table = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, lst1.Items.Count + 1, 6)
oTable.Range.ParagraphFormat.SpaceAfter = 3
''Creo las columnas
oTable.Cell(1, 1).Range.Text = "Primera"
oTable.Cell(1, 2).Range.Text = "Segunda"
oTable.Cell(1, 3).Range.Text = "Tercera"
oTable.Cell(1, 4).Range.Text = "Cuarta"
oTable.Cell(1, 5).Range.Text = "Quinta"
oTable.Cell(1, 6).Range.Text = "Sexta"
'Esto es para que comienza a partir de la 2da fila.
Dim cell As Integer = 2
For i As Integer = 0 To lst1.Items.Count - 1
If InStr(lst1.Items(i), "Segunda").ToString <> 0 Then
oTable.Cell(cell, 2).Range.Text = NameFile(lst1.Items(i).ToString)
ElseIf InStr(lst1.Items(i), "Tercera") <> 0 Then
oTable.Cell(cell, 3).Range.Text = NameFile(lst1.Items(i).ToString)
ElseIf InStr(lst1.Items(i), "Cuarta") <> 0 Then
oTable.Cell(cell, 4).Range.Text = lst1.Items(i).ToString
ElseIf InStr(lst1.Items(i), "Quinta") <> 0 Then
oTable.Cell(cell, 5).Range.Text = lst1.Items(i).ToString
ElseIf InStr(lst1.Items(i), "Sexta") <> 0 Then
oTable.Cell(cell, 6).Range.Text = lst1.Items(i).ToString
End If
oTable.Cell(cell, 1).Range.Text = "BlaBla"
cell = cell + 1
Next
'make the first row bold and italic
oTable.Rows.Item(1).Range.Font.Bold = True
oTable.Rows.Item(1).Range.Font.Italic = True
'Save this word document
oDoc.SaveAs("D:\Prueba.doc", True)
oDoc.Close()
oWord.Application.Quit()
Dim Videos() as String
Videos(cont) = lst1.Items(i).ToString & ","
Try
Dim oWeb As New System.Net.WebClient()
oWeb.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim bytArguments As Byte() = System.Text.Encoding.ASCII.GetBytes("q=InTheory")
Dim bytRetData As Byte() = oWeb.UploadData("http://www.google.com/search", "GET", bytArguments)
Debug.Write(System.Text.Encoding.ASCII.GetString(bytRetData))
Catch ex As Exception
MsgBox(ex.Message)
End Try