vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Re: Gästebücher 
Autor: Björn Mankel
Datum: 28.04.04 10:18

Ich habe mir da ein kleine sProg zusammen gebaut das geht abe rleider nicht.

Private Sub Command1_Click()

With Winsock1
.Close
.LocalPort = 0

' Verbinden mit allwhois.com (Port 80)
'Label1.Caption = "Verbinden mit www.onetwomax.de.."
.Connect "www.guestbook.onetwomax.de", 80
End With

End Sub

Private Sub Command2_Click()

Dim buf As String

Path = "/?id=385276"
PostData = "name=s&email=Sventke@yahoo.de&homepage=http://&herkunft=Deutschland&kommentar=s&eintragen=Eintragen"
buf = _
"POST " & Path & " HTTP/1.0" & vbCrLf & _
"HOST: " & Host & vbCrLf & _
"Accept: */*" & vbCrLf & _
"Referer: " & vbCrLf & _
"Connection: Close" & vbCrLf & _
"Content-Length: " & CStr(Len(PostData)) & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
vbCrLf & _
PostData
Winsock1.SendData buf
End Sub

Private Sub Winsock1_Connect()

Label1.Caption = "Verbunden mit www.onetwomax.de"
End Sub

Private Sub Winsock1_Close()
Select Case Mid$(Data, 10, 3)
Case "200": MsgBox "Anfrage erfolgreich"
Case Else: MsgBox "Anfrage fehlgeschlagen"
Winsock1.Close
Exit Sub
End Select
'Header von der Antwort "entfernen"
Data = Mid$(Data, InStr(Data, vbCrLf & vbCrLf) + 4)
'data enthält nun den html-Code der Serverantwort.
End Sub




Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim r As String
Winsock1.GetData r, vbString
Data = Data & r
End Sub

---
Sventke

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Gästebücher785Björn Mankel24.04.04 13:14
Re: Gästebücher505E724.04.04 15:13
Re: Gästebücher448Björn Mankel24.04.04 15:36
Re: Gästebücher520E724.04.04 16:29
Re: Gästebücher467Björn Mankel25.04.04 09:25
Re: Gästebücher463E725.04.04 11:40
Re: Gästebücher476Björn Mankel25.04.04 12:16
Re: Gästebücher479E725.04.04 12:30
Re: Gästebücher459Björn Mankel25.04.04 12:37
Re: Gästebücher434E725.04.04 13:04
Re: Gästebücher449Björn Mankel25.04.04 14:01
Re: Gästebücher460E725.04.04 14:43
Re: Gästebücher464Björn Mankel25.04.04 15:19
Re: Gästebücher490E725.04.04 16:06
Re: Gästebücher499Björn Mankel27.04.04 09:59
Re: Gästebücher482E727.04.04 17:52
Re: Gästebücher479Björn Mankel28.04.04 10:05
Re: Gästebücher487Björn Mankel28.04.04 10:18
Re: Gästebücher514E728.04.04 17:47
Re: Gästebücher480Björn Mankel29.04.04 10:50
Re: Gästebücher474Björn Mankel29.04.04 10:53
Re: Gästebücher454E729.04.04 12:02

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel