autentication to the server

[mnaboud76]

I want in my Program to connect to the polarion server and when I don't have Permetion close the program

so how can i make it

1:

WinWaitActive("","\\polarion-mainserver","120")
If WinExists("","\\polarion-mainserver") Then
   MsgBox(0,"","the autentecation is ok")
   Example()
Else
   MsgBox(0,"","you don't have the autentecation to the server")
   Exit
EndIf

or 2:

Func ConnectTestFunc()
   TCPStartup() ; Start the TCP service.
     
   Local $sIPAddress = "\\polarion-mainserver" ; This IP Address
   Local $iPort =           ; Port used for the connection.

   Local $iSocket = TCPConnect($sIPAddress, $iPort)

   
   If @error Then
      Local $iError = @error
      ;MsgBox(0,"","Could not connect, Error code: " & $iError)
      MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), "", "Could not connect, Error code: " & $iError)
      Exit
   Else
      MsgBox(0, "", "Connection successful")
   EndIf
    TCPCloseSocket($iSocket)
EndFunc  

 

Edited September 15, 2017 by Jos
Please use the codebox as shown. :)

[Melba23]

mnaboud76,

You have started 2 threads - both in the "AutoIt Projects and Collaboration" section which is intended for multi-member collaboration when developing complex scripts. In future, please post your questions in the more appropriate "General Help & Support" section to where I have now moved them. Thanks in advance for your cooperation.

M23

Edit: And now a third - stop it!

Edited September 15, 2017 by Melba23