Miksi valittaa kokoajan, ettei tunnusta ja salasanaa ole?
tmpData = "" tmpData = tmpData & "POST /sisaan.php HTTP/1.1" & vbCrLf tmpData = tmpData & "Referer: https://www.ohjelmointiputka.net" & vbCrLf tmpData = tmpData & "Connection: Keep-Alive" & vbCrLf tmpData = tmpData & "User-Agent: Mozilla/4.0 (compatible; My VB App; Windows 98)" & vbCrLf tmpData = tmpData & "Content-Length: " & Int(Len(tunnus) + Len(salasana) + 32) tmpData = tmpData & "Content-Type: application/x-www-form-urlencoded" tmpData = tmpData & "Accept-Encoding: gzip, deflate" & vbCrLf tmpData = tmpData & vbCrLf tmpData = tmpData & "k_rss=" & salasana & "&k_rnimi=" & tunnus & vbCrLf tmpData = tmpData & vbCrLf & vbCrLf WebBrowser1.Navigate2 "https://www.ohjelmointiputka.net/sisaan.php", 0, "", tmpData
Tunnus ja salasana muuttujat sisältävät tietenkin tunnuksen ja salasanan... :)
Aihe on jo aika vanha, joten et voi enää vastata siihen.