IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Communication TCP via un script VBS


Sujet :

VBScript

  1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Août 2007
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Août 2007
    Messages : 1
    Points : 1
    Points
    1
    Par défaut Communication TCP via un script VBS
    Bonjour,
    Je souhaiterai développer un script VBS qui puisse dialoguer sur un port TCP avec un script bash que j'ai développé.
    Seulement je ne trouve aucune documentation sur ceci.
    Est-ce que quelqu'un à déjà effectuer quelque chose de similaire et pourrait quelque peu me guider
    Merci

  2. #2
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Points : 4 061
    Points
    4 061
    Par défaut
    Peut être en regardant icic tu trouveras ce que tu veux :
    http://www.activexperts.com/activmon...orking/client/

    J'ai recupéré aussi deux vbs qui permettent de faire un chat (en UDP) si cela peut t'aider :

    Send :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    On Error Resume Next
    '*********************************
    '*********************************
    '**
    '**  SCRIPT DEVELOPPE PAR K@ZUYA
    '**  ---------------------------
    '**  http://www.kazuya.chez.tiscali.fr/index.php
    '**  -------------------------------------------
    '**  Samedi 27 Décembre 2003
    '**  13 h 02
    '**
    '*********************************
    '*********************************
     
    Set Sock = CreateObject("MSWinsock.Winsock")
    Dim Login
    HOST = InputBox("Veuillez saisir l'adress IP ou le nom d'hôte de l'interlocuteur")
    If HOST <> VbNullString Then If Connect(HOST) Then If UserRegistration Then SendMessage
     
    Function Connect(HOST)
    Dim SckData
    Dim Result
    SckData = VbNullString
    Result = False
    Sock.Protocol = 1
    Sock.RemotePort = 32520
    Sock.RemoteHost = HOST
    Sock.SendData "HELLO"
    Cur_Time = Time
    Tempo = 5
    Do While Tempo > 0
       If Cur_Time <> Time Then
          Cur_Time = Time
          Tempo = Tempo - 1
       End If
       Sock.GetData SckData
       If SckData = "OK" Then
          MsgBox "Connection Etablie",vbokonly
          Result = True
          Exit Do
       End If
    Loop
    If Not Result Then MsgBox "Connection Impossible !"
    Connect = Result
    End Function
     
    Function UserRegistration()
    Login = InputBox("Veuillez Entrer votre Pseudo:" & VbCrlf & "Annuler = Quitter")
    If Login = VbNullString Then
       UserRegistration = False
    Else
       UserRegistration = True
    End If
    End Function
     
    Sub SendMessage()
    Do
       Message = InputBox("Veuillez Saisir le message a envoyer." & VbCrLf & "Le Message QUIT permet de quitter l'application")
       If Message = "QUIT" Then
          Sock.Close
          Sock.RemoteHost = "LocalHost"
          Sock.SendData "QUIT"
          Sock.Close
          SOck.RemoteHost = HOST
          Sock.SendData LoGin & Chr(0) & Chr(1)
          Exit Sub
       Else
          Sock.SendData Login & Chr(0) & Message
       End If
    Loop
    End Sub


    Receive :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    On Error Resume Next
    '*********************************
    '*********************************
    '**
    '**  SCRIPT DEVELOPPE PAR K@ZUYA
    '**  ---------------------------
    '**  http://www.kazuya.chez.tiscali.fr/index.php
    '**  -------------------------------------------
    '**  Samedi 27 Décembre 2003
    '**  13 h 02
    '**
    '*********************************
    '*********************************
     
    GetMessages()
    sub GetMessages()
    MsgBox "RECEPTION DES MESSAGES EN COURS"
    SckData = VbNullstring
    set UDP_SERVER = CreateObject("MSWinsock.Winsock")
    UDP_SERVER.Protocol = 1
    UDP_SERVER.LocalPort = 32520
    UDP_SERVER.Bind
    Do
       UDP_SERVER.Getdata SckData
       If SckData <> VbNullString Then
          Reply = Split(SckData,Chr(0))
          If Ubound(Reply) = 1 Then
             If Reply(1) = Chr(1) Then
                MsgBox Reply(0) & " S'est Déconnecté !"
                UDP_SERVER.Close
                UDP_SERVER.Bind
             Else
                MsgBox Reply(1),vbokonly,Reply(0)
             End If
          ElseIf SckData = "HELLO" Then
             UDP_SERVER.Senddata "OK"
          ElseIf SckData = "QUIT" Then
             Exit Do
          End If
          SckData = VbNullString
       End If
    Loop
    MsgBox "FIN DE RECEPTION DES MESSAGES"
    End Sub
    Pourquoi faire compliqué lorsque l'on peut faire encore plus compliqué.

Discussions similaires

  1. Communication TCP/IP via Modbus en C++
    Par Marsulu dans le forum C++
    Réponses: 2
    Dernier message: 16/06/2014, 12h30
  2. Script vbs mappage avec login via inputbox
    Par BntMICHEL dans le forum VBScript
    Réponses: 2
    Dernier message: 02/09/2010, 10h10
  3. création macro xls via script vbs
    Par avenGer59 dans le forum VBScript
    Réponses: 3
    Dernier message: 28/09/2009, 10h22
  4. Réponses: 1
    Dernier message: 20/05/2009, 18h33
  5. Execution d'une command via un script vbs
    Par Danagaz dans le forum VBScript
    Réponses: 1
    Dernier message: 20/03/2009, 17h02

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo