wenn ihr wissen wollt wie ihr die klasse in euer eigenes projekt einbinden könnt schaut in das beispiel projekt ... es zeigt euch nicht nur das, sondern auch wie man einen timer in eine klasse einbindet, oder die restzeit eines download berechnet ...

url nachbilden: http://www.voting.de/vote?bla

Private Sub Test()
    With objHTTP
        .Reset
        '
        .Action = "http://www.voting.de/"
        '
        .AddElement "", "bla", elEasy
        '
        .Submit
    End With
End Sub

eine datei von tripod downloaden

Private Sub Test()
    With objHTTP
        .Reset
        '
        .Action = "http://mitglied.lycos.de/accountname/datei.zip"
        '
        'wir bekommen die datei bei tripod nur wenn wi den Referer manipulieren :)
        .AddRequestHeader "Referer", "http://mitglied.lycos.de/accountname/"
        '
        .Submit
    End With
End Sub

wir wollen das folgende HTML Formular nachbilden um in ein forum zu posten


<FORM ACTION="http://www.server.de/forum/index.php" ENCTYPE="application/x-www-form-urlencoded" METHOD="POST">
	<INPUT TYPE="TEXT" NAME="forum_name" VALUE="madmax">
	<INPUT TYPE="TEXT" NAME="forum_mail" VALUE="c.madmax@gmx.li">
	<INPUT TYPE="TEXT" NAME="forum_title" VALUE="posten mit der http klasse">
	<TEXTAREA NAME="forum_text">nettes forum :)</TEXTAREA>
	<INPUT TYPE="CHECKBOX" NAME="forum_sendmail" VALUE="1">
	<INPUT TYPE="TEXT" NAME="forum_picture" VALUE="">
	<INPUT TYPE="TEXT" NAME="forum_page" VALUE="">
	<INPUT TYPE="TEXT" NAME="forum_pagetitle" VALUE="">
	<INPUT TYPE="RESET" NAME="forum_button" VALUE="Reset">
	<INPUT TYPE="SUBMIT" NAME="forum_button" VALUE="Vorschau">
	<INPUT TYPE="SUBMIT" NAME="forum_button" VALUE="Eintragen">
	<INPUT TYPE="HIDDEN" NAME="id" VALUE="">
</FORM>

Private Sub Test()
    With objHTTP
        .Reset
        '
        .Action = "http://www.server.de/forum/index.php"
        .EncType = etUrlEncoded
        .Method = mtPost
        '
        .AddElement "forum_name", "madmax", elText
        .AddElement "forum_mail", "c.madmax@gmx.li", elText
        .AddElement "forum_title", "posten mit der http klasse", elText
        .AddElement "forum_text", "nettes forum :)", elText
        .AddElement "forum_sendmail", "1", elText
        .AddElement "forum_picture", "", elText
        .AddElement "forum_page", "", elText
        .AddElement "forum_pagetitle", "", elText
        .AddElement "forum_button", "Eintragen", elText
        .AddElement "id", "", elText
        '
        .Submit
    End With
End Sub

wir wollen das folgende HTML Formular nachbilden um eine datei zu uppen


<FORM ACTION="http://www.server.de/upload.php?id=1234" ENCTYPE="multipart/form-data" METHOD="POST">
	<INPUT TYPE="TEXT" NAME="upname" VALUE="beispiel.txt">
	<INPUT TYPE="FILE" NAME="upfile" VALUE="C:\beispiel.txt">
	<INPUT TYPE="SUBMIT" NAME="button" VALUE="Upload">
</FORM>

Private Sub Test()
    With objHTTP
        .Reset
        '
        .Action = "http://www.server.de/upload.php?id=1234"
        .EncType = etMultipart
        .Method = mtPost
        '
        .AddElement "upname", "beispiel.txt", elText
        .AddElement "upfile", "C:\beispiel.txt", elFile
        .AddElement "button", "Upload", elText
        '
        .Submit
    End With
End Sub