socket med PHP og returnering
Hej Alle,Jeg er ved at lave en socket til VB og PHP,
PHP opretter en socket til en VB server med en streng i, VB tjekker op om det er den rigtige streng.... men så laver php og VB fejl, PHP fejler fordi den ikke får noget retur, og VB fordi Socket'en bliver lukket af PHP...
Sourcen ser således ud:
------------------PHP---------------------
$fp = fsockopen ("udp://10.0.0.2", 2770, $errno, $errstr, 30);
if (!$fp) {
echo "$errstr ($errno)<br>\n";
} else {
fputs ($fp, "phptosupporter");
while (!feof($fp)) {
echo fgets ($fp,128);
}
fclose ($fp);
}
-------------------------------------------
------------------VB-----------------------
Dim X As New Collection
'Opret collection til at gemme passwords i.
Private Sub Form_Load()
Form1.Visible = False
X.Add "phptosupporter"
'Gem de to gyldige passwords
Wsck.Protocol = sckUDPProtocol
'Sæt protokolen til UDP
Wsck.LocalPort = "2770"
'Sæt serverens lokale port til 2770
Wsck.Bind
'Lad serveren begynde at lytte på porten
End Sub
Private Sub Wsck_DataArrival(ByVal bytesTotal As Long)
Dim TestData, Status As String
Wsck.GetData TestData, vbString
'Modtag data og læg dem i TestData
For N = 1 To X.Count
If X.Item(N) = TestData Then Status = "OK"
Next N
Wsck.RemotePort = "2770"
'Sæt client port til 2770. Er hardcodet ind i clienten
If TestData = "" Then Status = "0"
'Test om password er OK
If Status = "OK" Then
Wsck.SendData "hestesko"
MsgBox "Nogen har brug for hjælp"
Else
Wsck.SendData "0"
End If
'Send svar til client
End Sub
--------------------------------------------
Jeg skal altså have VB til at at komme frem med en advarsel når den modtager en socket, og derefter sende tilbage til PHP med at den er modtaget.....
TAK
##########################
#MVH Martin | PHPCODER.DK#
##########################
