Han får data inpostad, skall verifiera denna mot en server och skicka tillbaka det servern säger till en asp sida....

Hela koden:
<code>
'Form1 med en winsock control som heter "anslut"

Dim skicka As String
Dim svar As String
Dim connected As Integer


Private Sub anslut_Connect()
connected = 1
End Sub

Private Sub anslut_DataArrival(ByVal bytesTotal As Long)
connected = 0
anslut.GetData svar
End Sub


'Class module:

Dim skicka As String
Dim svar As String
Dim connected As Integer



Function anslut(ByVal skicka As String)
connected = 0
Form1.anslut.Connect "192.168.0.4", 614
anslut = payit(skicka)

End Function

Function payit(ByVal strPay As String)

Do Until connected = 1
DoEvents
Debug.Print "Väntar på anslutning..."
Loop

Form1.anslut.SendData strPay

Do Until connected = 0
Debug.Print "Väntar på svar..."
Loop

payit = svar

End Function

'ASP siten:

<%

Set link = Server.CreateObject("link.anslut")
transaktion = "test"

Response.write link.anslut(transaktion)

Set link = Nothing


%>

</code>

Lite väl overkill att använda ett formulär och en winsocet kontroll. Hittade en länk till en komponent skapad i VB som kan anvädas från vbscript:

http://www.15seconds.com/issue/990408.htm

kanon! tackar...


// Jompa