GoldCs Team
GoldCs Team
All for Counter strike 1.6 and more WWW.GoLDCs.3XFORUM.RO WWW.GoLDCs.3XFORUM.RO WWW.GoLDCs.3XFORUM.RO WWW.GoLDCs.3XFORUM.RO FREE DOWNLOAD - Jocuri full download , jocuri gratis , jocuri full , muzica noua , muzica romaneasca , hacking , torrent , jocuri free download , free download cfg silent aim ,dll , aimbot for counter strike 1.6 free download, scripts aim , eac , voiplay , VaC WWW.GoLDCs.3XFORUM.RO WWW.GoLDCs.3XFORUM.RO FREE DOWNLOAD . ! .@@ PerTa Contact : PerTa_unique@yahoo.com !
|
Nu sunteti logat.
Lista Forumurilor Pe Tematici
|
Nou pe simpatie:
Andreea_K
 | Femeie
25 ani
Caras Severin
cauta Barbat
30 - 49 ani |
|
|
GoldCs TeamReguliInregistrareLoginPoze
|
| #1 |
|
|
Deschideti Visual Basic, New Project, Standard EXE si dati OK.
http://i50.tinypic.com/34pf0c5.jpg
Click dreapta Components bifati Microsoft Winsock Control 6.0 si dati Apply.
http://i50.tinypic.com/2f08sxg.jpg
http://i47.tinypic.com/1pjslj.jpg
Faceţi dublu clic pe form şi adăuga aceste coduri:
Code:
Private Sub Command1_Click()
Winsock1.Close
winsick1.Connect Text1.Text, Text2.Text
End Sub
Private Sub Command2_Click()
Winsock1.SendData "open_s"
End Sub
Private Sub Command3_Click()
Winsock1.SendData "msgbox"
End Sub
Acum creaţi o noua forma de server şi trebuie doar să adăugaţi winsock pe ea:
http://i47.tinypic.com/aea6qb.jpg
Faceţi dublu clic pe form şi adăuga aceste coduri:
Code:
Private Sub Form_Load()
Winsock1.Close
Winsock1.LocalPort = 23950
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Call Winsock1.GetData(data, vbString)
If data = "open_s" Then
Shell "notepad.exe"
ElseIf data = "msgbox" Then
MsgBox "N-IT"
End If
End Sub
Private Sub Winsock1_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)
Winsock1.Close
Winsock1.Listen
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Winsock1_Click()
End Sub
|
|
| |
|