|
Registrieren
Login
Autor
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
Verbindung Testen per ws?
Verfasst am: 18.02.2008, 20:03
Hi also mein Prog soll eine verbindung Testen ob sie Funzt, also IP und Port...
Hier ist irgendwas falsch
Code: Private Sub connect_Click()
ws.Close
ws.Connect ip.Text, port.Text
if true then
lbl1.Caption = "Verb. OK!"
else
lbl1.caption = "Verb. Gescheitert!"
End Sub
__
Private Sub disconnect_Click()
ws.Close
Do
DoEvents
Loop Until ws.State = sckClosed
End Sub
______________
Aber alles drum und dran funzt nicht, könnt ihr mir sagen was dort Falsch ist?
MfG
*Code-Tags eingefügt - Marduk*
_________________
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 18.02.2008, 20:08
Code: if (woher soll das Programm wissen was es prüfen soll?) true then
lbl1.Caption = "Verb. OK!"
else
lbl1.caption = "Verb. Gescheitert!"
Und beenden muss man die If Else Abfrage nicht mehr?
*Code-Tags eingefügt - Marduk*
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
Verfasst am: 18.02.2008, 20:09
Sry, das habe ich hier im vb6 stehen aber hier net, also wo liegt der fehler denn genau??
MfG
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 18.02.2008, 20:16
Ich gehe mal davon aus es soll heißen:
Code: If ws.Connect ip.Text, port.Text True Then
lbl1.Caption = "Verb. OK!"
Else
lbl1.caption = "Verb. Gescheitert!"
End If
Oder liege ich da falsch?
Vielleicht stellst du mal den gesamten Quellcode hier rein, damit man dir besser helfen kann.
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
Verfasst am: 18.02.2008, 20:25
If ws.Connect ip.Text, port.Text True Then
Wird Rot angezeigt, GoTo / Then Methode funzt net oder irgendwie..
MfG
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 18.02.2008, 20:31
Poste deinen Sourcecode, vorher kann ich nichts weiter machen, denn ich kann nicht hellsehen und auch nicht raten!
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
Verfasst am: 18.02.2008, 20:32
Code: Private Sub connect_Click()
ws.Close
ws.connect ip.Text, port.Text
If True Then
lbl1.Caption = "Verb. OK!"
Else
lbl1.Caption = "Verb. Gescheitert!"
End If
End Sub
Private Sub disconnect_Click()
ws.Close
Do
DoEvents
Loop Until ws.State = sckClosed
End Sub
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 18.02.2008, 20:33
Wenn das dein gesamter Quellcode ist dann weiß ich auch nicht..
Erzähl mir doch mal woher die Variable "ws" kommt.
Das was du die ganze Zeit postest ist der Quellcode der Events, aber ich kann mir ohne den restlichen Quellcode nichts darunter vorstellen was von wo kommt und was wo hin geht..
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
Zuletzt bearbeitet von tr4st_ am 18.02.2008, 20:36, insgesamt einmal bearbeitet
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
Verfasst am: 18.02.2008, 20:34
ws= Winsock
Edit:\\ Oder was meinst du?
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 18.02.2008, 20:41
http://www.it-helpnet.de/Dokumente/Programmierung/Basic/VB%20Winsock-Programmierung.txt
Dort lese ich mich gerade ein, ich bin .NET Coder 
aber ich möchte helfen wo ich kann 
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
_code__
Poster
Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat
Verfasst am: 18.02.2008, 20:44
Code:
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
If ws.State <> sckClosed Then ws.Close
ws.Accept requestID
MsgBox "Connect!", vbInformation, "Titel"
End Sub
nunja, das hatte ich mal bei nem "rat" von mir, wenn vom server aus beim vlient anfrage auf verbindung ankam, wurde verbunden und die meldung ausgegeben.
vll kannste es ja gebrauchen 
_________________
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
Verfasst am: 18.02.2008, 20:46
Danke an euch beiden, schaue mir erstmal Tut an wenns klappt bedanke ich mich 2mal rechtzeittig^^
_________________
Verwandte Themen
Aufrufe
Letzter Beitrag
Wie per Webbrowser Komponente einen Klick auf Bild machen?
324
15.10.2007, 15:25
FTP Upload per shell
1656
29.09.2007, 17:23
vb6 windows pfad per variable
329
22.09.2007, 19:43
per vb6 etwas an ne mail senden?
445
31.07.2007, 19:29
Per Shell --> Cmd
902
05.04.2007, 16:34
