---
title: "posta från program"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/88088-posta-från-program"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Jymdis"
published: "2003-10-09T15:34:53.000Z"
updated: "2003-10-10T23:02:34.000Z"
replies: 9
views: 287
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/88088-posta-från-program"
---

# posta från program

## #1 — Jymdis, 2003-10-09T15:34Z

Hejsan!

Om jag vill posta (ett formulär) ifrån ett VB.net hur gör jag då?

Permalänk: https://www.webforum.nu/p/88088

## #2 — Jymdis, 2003-10-09T16:35Z

Har letat upp lite kod  själv men förstår inte varför jag inte får med mig informationen i arrayn? (byte e lite nytt för mig)

```
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim web As New System.Net.WebClient()

        Dim strPostData As String
        Dim strHeader As String
        Dim varPostData As Object
        Dim bytPostData() As Byte

    

        'Make the Post Data String
        strPostData = "q=test"

        'Pack the post data into a byte array
        BuildPostData(bytPostData, strPostData)

        'Write the byte into a variant
        varPostData = bytpostdata

        web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")

        'Post the data
        web.UploadData("http://www.google.com", varPostData)

    End Sub

 Private Sub BuildPostData(ByVal ByteArray() As Byte, ByVal strPostData As String)
        Dim intNewBytes As Integer
        Dim strCH As String
        Dim i As Integer

        intNewBytes = Len(strPostData) - 1

        If intNewBytes < 0 Then
            Exit Sub
        End If

        ReDim ByteArray(intNewBytes)

        For i = 0 To intNewBytes
            strCH = Mid$(strPostData, i + 1, 1)

            If strCH = Space(1) Then
                strCH = "+"
            End If
            ByteArray(i) = Asc(strCH)
        Next

        Return

    End Sub
```

bytPostData blir alltså tom.

Permalänk: https://www.webforum.nu/p/1180873

## #3 — Engine^, 2003-10-09T16:51Z

Därför att du skickar Arrayen ByVal. Om du använder ByRef ska du se att det går bättre.

```
Private Sub BuildPostData(ByRef ByteArray() As Byte, ByVal strPostData As String)
```

Permalänk: https://www.webforum.nu/p/1180887

## #4 — Jymdis, 2003-10-09T17:11Z

Okej - nytt problem - jag vill ansluta till en https server med samma kod - what gives? =)

Permalänk: https://www.webforum.nu/p/1180910

## #5 — Engine^, 2003-10-09T17:14Z

Jag har då ingen aning - har aldrig sysslat med SSL. Men jag har läst om det och givetvis så kommer jag inte på länken, men jag vill minnas att det var någonstans på <https://www.codeproject.com>

Permalänk: https://www.webforum.nu/p/1180912

## #6 — Jymdis, 2003-10-10T11:17Z

Nån som vet cerfikat och SSL?
jag tror jag ska använda ICertificatePolicy men har ingen aning!

Permalänk: https://www.webforum.nu/p/1181404

## #7 — renholm, 2003-10-10T15:20Z

Har du testat att köra med samma kod fast med https? I VS.NET när man använder WebServices som ligger på https fungerar den koden som genereras utmärkt.

Permalänk: https://www.webforum.nu/p/1181639

## #8 — Jymdis, 2003-10-10T15:25Z

mm det har jag... får följande fel.. 

> An unhandled exception of type 'System.Net.WebException' occurred in system.dll
> 
> Additional information: The underlying connection was closed: Could not establish trust relationship with remote server.

Permalänk: https://www.webforum.nu/p/1181642

## #9 — Jymdis, 2003-10-10T15:45Z

postar modifierad kod:

```
        'Make the Post Data String
        strPostData = "login=" & login.Text & "&password=" & password.Text

        'Pack the post data into a byte array
        BuildPostData(bytPostData, strPostData)

        'Write the byte into a variant
        varPostData = bytPostData

        web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")

        'Post the data
        web.UploadData("https://10.1.1.1/cgi-bin/IP-login-cgi", varPostData)
```

Permalänk: https://www.webforum.nu/p/1181657

## #10 — Jymdis, 2003-10-10T23:02Z

Temporär lösning är att helt sonika installera cerfikatet via Internet Explorer en gång för att sen använda programmet å uppdatera inloggningen - MEN - det är ingen snygg lösning och om nån har nån bättre idé på hur det ska lösas så kom gärna med den.

Permalänk: https://www.webforum.nu/p/1181879

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/88088-posta-från-program