Verbinden mit Passwort

Die Syntax zum aufrufen ist /verb VERBINDUNGSNAME PASSWORT

#NewScriptBegin ProxyPassword
 
Dim Passw
Dim CName
 
Sub Load()
  MakeShortcut "", "verb", "/call ProxyPassword.Verb $1 $2", 2
End Sub
 
Sub Verb(ConnTitel, Password)
  Passw = Password
  if Len(Passw)=0 Then Passw = Input("Passwort:")
  CName = LCase(ConnTitel)
  Send "/open "+ConnTitel, FrontFrameID
End Sub
 
Sub Serv_Connected(ConnID)
  if LCase(GetVal(ConnID,4))=CName Then SendData "PASS " + Passw, ConnID
End Sub