I più cliccati

Trucchi Farmville

Farmville Toolbar [GRATIS]

Vinci Farm Cash $FV[GRATIS]

Farmville Extreme Manager [5€]

Scrivere sottosopra [GRATIS]

Speed Downloading [GRATIS]

Avatarize Facebook [GRATIS]

Personalizza Facebook [GRATIS]

CONSOLIDAMENTO PARETI ROCCIOSE

Trucchi Giochi Facebook

coming soon

Aggiungimi su Facebook

martedì 31 marzo 2009

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!!!!

1 commenti:

gabry96 on 12 agosto 2010 17:13 ha detto...

puoi esprimerti meglio nn ho capito

Posta un commento

Archive

 

juni0r. Copyright 2008 All Rights Reserved Revolution Two Church theme by Brian Gardner Converted into Blogger Template by Bloganol dot com