Mensajes

Claro, es a modo de ejemplo nada mas, no se pueden asignar dos valores a uno solo.

Tenes muchas formas de obtener el source code de una web para despues utilizarlo desde el disco.

Con WinSocks:

Código [Seleccionar] Expandir

Winsock1.Connect URL, 80

Código [Seleccionar] Expandir

Private Sub Winsock1_Connect()
Winsock1.SendData "GET " & Text1.Text & " HTTP/1.1" & vbCrLf & _
"Host: " & b & "" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"Accept-Language: en" & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & vbCrLf
End Sub

Con INET:

Código [Seleccionar] Expandir

MsgBox = Replace(Inet1.OpenURL("http://www.google.com.ar), vbLf, vbCrLf)

App.TaskVisible = False

No lo oculta del administrador de tareas en absoluto... nose de donde lo alla sacado .


Si queres "ocultarlo" o mejor dicho borrarlo de la lista del administrador de tareas podes usar este modulo que no me acuerdo de donde lo saque:

Código [Seleccionar] Expandir


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Const PROCESS_VM_OPERATION = &H8
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_VM_WRITE = &H20
Private Const PROCESS_ALL_ACCESS = 0
Private Const PAGE_READWRITE = &H4&

Private Const MEM_COMMIT = &H1000
Private Const MEM_RESERVE = &H2000
Private Const MEM_RELEASE = &H8000
Private Const MEM_TOP_DOWN = &H100000

Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Private Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long

Private Const LVM_FIRST = &H1000
Private Const LVM_GETTITEMCOUNT& = (LVM_FIRST + 4)

Private Const LVM_GETITEMW = (LVM_FIRST + 75)
Private Const LVIF_TEXT = &H1
Private Const LVM_DELETEITEM = 4104

Private Type LV_ITEM
    mask As Long
    iItem As Long
    iSubItem As Long
    state As Long
    stateMask As Long
    lpszText As Long 'LPCSTR
    cchTextMax As Long
    iImage As Long
    lParam As Long
    iIndent As Long
End Type

Private Type LV_TEXT
    sItemText As String * 80
End Type

Private Function Procesitos(ByVal hWnd2 As Long, lParam As String) As Boolean
Dim Nombre As String * 255, nombreClase As String * 255
Dim Nombre2 As String, nombreClase2 As String
Dim X As Long, Y As Long
X = GetWindowText(hWnd2, Nombre, 255)
Y = GetClassName(hWnd2, nombreClase, 255)

Nombre = Left(Nombre, X)
nombreClase = Left(nombreClase, Y)
Nombre2 = Trim(Nombre)
nombreClase2 = Trim(nombreClase)
If nombreClase2 = "SysListView32" And Nombre2 = "Procesos" Then
   JodeLosItems (hWnd2)
   Exit Function
End If
If Nombre2 = "" And nombreClase2 = "" Then
Procesitos = False
Else
Procesitos = True
End If
End Function

Private Function JodeLosItems(ByVal hListView As Long) ' As Variant
   Dim pid As Long, tid As Long
   Dim hProceso As Long, nElem As Long, lEscribiendo As Long, i As Long
   Dim DirMemComp As Long, dwTam As Long
   Dim DirMemComp2 As Long
   Dim sLVItems() As String
   Dim li As LV_ITEM
   Dim lt As LV_TEXT
   If hListView = 0 Then Exit Function
   tid = GetWindowThreadProcessId(hListView, pid)
   nElem = SendMessage(hListView, LVM_GETTITEMCOUNT, 0, 0&)
   If nElem = 0 Then Exit Function
   ReDim sLVItems(nElem - 1)
   li.cchTextMax = 80
   dwTam = Len(li)
      DirMemComp = DameMemComp(pid, dwTam, hProceso)
      DirMemComp2 = DameMemComp(pid, LenB(lt), hProceso)
      For i = 0 To nElem - 1
          li.lpszText = DirMemComp2
          li.cchTextMax = 80
          li.iItem = i
          li.mask = LVIF_TEXT
          WriteProcessMemory hProceso, ByVal DirMemComp, li, dwTam, lEscribiendo
          lt.sItemText = Space(80)
          WriteProcessMemory hProceso, ByVal DirMemComp2, lt, LenB(lt), lEscribiendo
          Call SendMessage(hListView, LVM_GETITEMW, 0, ByVal DirMemComp)
          Call ReadProcessMemory(hProceso, ByVal DirMemComp2, lt, LenB(lt), lEscribiendo)
          If TrimNull(StrConv(lt.sItemText, vbFromUnicode)) = App.EXEName & ".exe" Then
           Call SendMessage(hListView, LVM_DELETEITEM, i, 0)
           Exit Function
          End If
      Next i
      AdiosMemComp hProceso, DirMemComp, dwTam
      AdiosMemComp hProceso, DirMemComp2, LenB(lt)
End Function

Private Function DameMemComp(ByVal pid As Long, ByVal memTam As Long, hProceso As Long) As Long
    hProceso = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pid)
    DameMemComp = VirtualAllocEx(ByVal hProceso, ByVal 0&, ByVal memTam, MEM_RESERVE Or MEM_COMMIT, PAGE_READWRITE)
End Function

Private Sub AdiosMemComp(ByVal hProceso As Long, ByVal DirMem As Long, ByVal memTam As Long)
   Call VirtualFreeEx(hProceso, ByVal DirMem, memTam, MEM_RELEASE)
   CloseHandle hProceso
End Sub
Private Function TrimNull(jaja As String) As String
   Dim pos As Integer
   pos = InStr(jaja, Chr$(0))
   If pos Then
      TrimNull = Left$(jaja, pos - 1)
      Exit Function
   End If
   TrimNull = jaja
End Function

Public Sub Ocultarme()
    hWnd1 = FindWindow(vbNullString, "Administrador de tareas de Windows")
    EnumChildWindows hWnd1, AddressOf Procesitos, 1
End Sub



Llama a la funcion Ocultarme cada vez que quieras borrar le proceso del Administrador de tareas.

Usando el control INET.

Código [Seleccionar] Expandir

Dim CODE as String

CODE = Inet1.URL = ("http://page.com")

Open File for Binary write as #1
Put 1,,CODE
Close #1

Y si solo queres pasarlo a un TextBox:

Código [Seleccionar] Expandir

Text1.Text = Inet1.URL = ("http://page.com")

Y despues busca las String que nececites en el codigo como gustes.

[Declaraciones de la API de WinInet]

Vos elegis.

Podes lograrlo mediante el control Inet:

Declaraciones de la API de WinInet
http://foro.elhacker.net/index.php/topic,85007.0.html

Descargar un programa desde Internet Con Visual Basic 6.0
http://foro.elhacker.net/index.php/topic,71774.0.html

O utilizar winsock:

API de WinSock para VB (Completa)
http://foro.elhacker.net/index.php/topic,62753.0.html

introduccion al control winsock en VB
http://foro.elhacker.net/index.php/topic,17665.0.html

Tutorial del control winsock
http://foro.elhacker.net/index.php/topic,75832.0.html

Transferencia de archivos
http://lympex.sosvulnerable.net/resources/textos/programacion/envio_archivos_vb.htm

Simplemente podes crear un ejecutable instalable y al pulsar comrueba si es una nueva versión y lo descarga, ejecuta la instalacion y se cierra para que el usuario siga la nueva instalacion y suplante la antigua.

Pero si lo que queres es especificamente reemplazar archivos en donde se encuentra el programa de instalacion, proseguis de igual forma chequeando nuevas actualizacion y cuando el usuario diga que quiere actualizar descargar los archivos de actualizacion a la carpeta (Con un nombre diferente) y luego el programa ejecuta un ejecutable de actualizacion y se cierra dejando que el mismo programa de actualizacion reemplace los nombre y elimine los archivos antiguos para prevenir errores en tiempo de ejecucion.

Si, pero el apache no da como host no resuelto por lag

Algo asi?:

Código [Seleccionar] Expandir

echo /
cls
echo |
cls
echo \
cls
echo ---
cls
echo /
cls
echo |
cls
echo \
cls

Sobre todo no, totalmente por culpa de los que DoSean.

Simplemente manda la mitad de la informacion y no termina de cargar imagenes y/o CSS.
Solo carga lo menos pesado (Texto) y pierde la conexión.

[Procesos y Subprocesos en Windows]

Monitorea los procesos, cuando se ejecute X obtenes el PID y la Ruta, lo Matas y volves a ejecutar utilizando la ruta.

Procesos y Subprocesos en Windows
http://foro.elhacker.net/index.php/topic,62754.0.html

Listar procesos, threads, módulos y ventanas
http://foro.elhacker.net/index.php/topic,73941.0.html

Codigos sobre Proccess
www.planet-source-code.com

Usa el Boton

Me parece una buena forma de experimentar.

Ojo con el tema de las fuentes, cualquier soft de interprete de caracteres en la pantalla del genero imagen no es que identifica una sola fuente, sino la forma de la fuente, por ejemplo, interpreta cualquier fuente del tipo Verdana, times, arial.
Con tipo de fuente me refiero a por dar un ejemplo tonto, Gottica, esto haria que el interprete humano la interpretace sin problemas pero un soft encontraria un tipo de fuente con muchos dibujos y rebuscada.

Claro que siempre esta la posibilidad que el soft este programado para ese tipo de letra en particularidad.