vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 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

Fortgeschrittene Programmierung
Re: mal ne andre Frage au zu dem Thema  
Autor: Acid Rain
Datum: 05.02.02 11:15

hab des mal so gemacht:


Private Sub cmdConnect_Click()
If Winsocke.State = sckOpen Then
Winsocke.Close
End If

If Winsocke.State <> sckError Then
Winsocke.Connect "www.acid-money.de", 80
Protokoll "Connect Versuch"
Else
Protokoll "Fehler"
End If

End Sub

Private Sub Winsocke_DataArrival(ByVal bytesTotal As Long)
Dim sDataRecieved As String
Text1.Text = "Erfolgreich"
Winsocke.GetData sDataRecieved, vbString

End Sub


Sub Protokoll(tmpNachricht As String)
IstProtokoll.AddItem Item:="Ereignis: " & tmpNachricht
End Sub

Private Sub Winsocke_Error(ByVal Number As Integer, Description As String, _
ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, _
ByVal HelpContext As Long, CancelDisplay As Boolean)
Protokoll "Error: " & Description
End Sub



da bringt der mir aber nen authorisierungsfehler
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Wichtig100Acid Rain05.02.02 08:15
Re: Wichtig315ModeratorDieter05.02.02 09:55
Re: Wichtig39Acid Rain05.02.02 10:00
Re: Wichtig304ModeratorDieter05.02.02 10:05
Re: Wichtig63Acid Rain05.02.02 10:08
mal ne andre Frage au zu dem Thema 44Acid Rain05.02.02 10:16
Re: mal ne andre Frage au zu dem Thema 270ModeratorDieter05.02.02 10:39
Re: mal ne andre Frage au zu dem Thema 43Acid Rain05.02.02 10:49
Re: mal ne andre Frage au zu dem Thema 262ModeratorDieter05.02.02 10:56
Re: mal ne andre Frage au zu dem Thema 43Acid Rain05.02.02 11:03
Re: mal ne andre Frage au zu dem Thema 45Acid Rain05.02.02 11:15
Re: mal ne andre Frage au zu dem Thema 35quci06.02.02 14:47

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