Aprire Visual Basic 6 .
2
Seleziona " EXE standard " dal nuovo elenco di progetti . Si dovrebbe avere una forma principale di default sullo schermo per iniziare ad aggiungere i controlli .
3
Click " del progetto , e quindi fare clic su " Riferimenti ". Scorrere verso il basso e selezionare la " ActiveSocket 3.1 " controllo dalla lista .
4
Fare doppio clic sul modulo principale per entrare in suo evento Form_Load .
5
Copia e incolla il seguente blocco di codice in codice del form modulo :
Option Explicit Dim
objSocket Come ASOCKETLib.Tcp
private Sub BTN_Connect_Click ( ) per
objSocket.Connect TXT_Host , 23
TXT_Result = " CONNECT : " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "
End Sub private Sub
BTN_Disconnect_Click ( ) per
objSocket.Disconnect
TXT_Result = " DISCONNECT : " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "
End Sub
Programmazione © www.354353.com