Código: Seleccionar todo

webbrowser1.document.getElementById("id").value="valor"

Código: Seleccionar todo

webbrowser1.document.getElementById("id").value="valor"

Código: Seleccionar todo

Option Explicit
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Const IF_FROM_CACHE = &H1000000
Public Const IF_MAKE_PERSISTENT = &H2000000
Public Const IF_NO_CACHE_WRITE = &H4000000
     
Private Const BUFFER_LEN = 256


Public Function GetUrlSource(sURL As String) As String
    Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
    Dim hInternet As Long, hSession As Long, lReturn As Long
    hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
    If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
    If hInternet Then
        iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
        sData = sBuffer
        Do While lReturn <> 0
            iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
            sData = sData + Mid(sBuffer, 1, lReturn)
        Loop
    End If
 

    iResult = InternetCloseHandle(hInternet)

    GetUrlSource = sData
End Function

Código: Seleccionar todo

POST /foro/posting.php?mode=reply&f=13&t=26633 HTTP/1.1
Host: indetectables.net
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.9.2.9) Gecko/20100824 Firefox/3.6.9
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 115
Connection: keep-alive
Referer: http://indetectables.net/foro/viewtopic.php?f=13&t=26633
Cookie: __utma=1793385.2101266348.1284322520.1284343349.1284399965.4; __utmz=1793385.1284322520.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); DSR-Captcha=c16aaaf0e4e7a3a18f133ad1d848b663ab5603db; exxocet_ind_u=42842; exxocet_ind_k=; exxocet_ind_sid=350e0f5eb5e3e585817ce616a5c5fd63; 7ec0f88b6e2d46a404fd92eb6cbf640a=8d11eaa873d72754a9fb46a30d822b77; 6c5a92b34d56d4f9eea56f29fd62d853=3a4fd8c3860dabfdfb21362e6853609c
Content-Type: application/x-www-form-urlencoded
Content-Length: 616
subject=Re%3A+Interactuar+con+una+p%C3%A1gina+web%2C+desde+VB&message=lo+mejor+que+puedes+hacer+es+instalarte+el+%22HTTP+LIVE+HEADER%22+%28+https%3A%2F%2Faddons.mozilla.org%2Fen-US%2Ffirefox%2Faddon%2F3829%2F+%29+%2C+y+revisar+como+envia+el+navegador+las+peticiones+a+las+paginas%2C+es+mucho+mejor+hacer+eso+ya+que+aprendes+sobre+peticiones+HTTP+%2C+y+luego+emular+la+peticion+HTTP+enviando+los+datos+con+winsock+hacia+la+pagina.%0D%0A%0D%0A&post=Submit&creation_time=1284401124&form_token=7859db4905e70b3186af9d430defc83a5bebd6c7&topic_cur_post_id=230421&lastclick=1284401124&topic_id=26633&forum_id=13&attach_sig=1

Código: Seleccionar todo

Private Sub Form_Load()
WebBrowser1.Navigate ("http://indetectables.net/foro/ucp.php?mode=login")
End Sub


Private Sub Command1_Click()
Me.WebBrowser1.Document.All("username").Value = Text1.Text
Me.WebBrowser1.Document.All("password").Value = Text2.Text
 Dim HTML
 Dim HTMLI
     
 Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
     If HTMLI.Value = "Identificarse" Then
       HTMLI.Click
       Exit Sub
     End If
   Next
End Sub