home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pc3270sa.zip / vbscript / display.mac next >
INI File  |  2002-02-28  |  11KB  |  182 lines
  1. [PCOMM SCRIPT HEADER]
  2. LANGUAGE=VBSCRIPT
  3. DESCRIPTION=Example accessing automation objects
  4. [PCOMM SCRIPT SOURCE]
  5.  
  6.  Dim number_of_connections, connection_choice, input_choice
  7.  autECLConnMgr.autECLConnList.Refresh
  8.  number_of_connections = autECLConnMgr.autECLConnList.Count
  9.  If number_of_connections > 1 Then
  10.    input_choice = InputBox("enter a connection number between 1 and " & number_of_connections)
  11.    If  input_choice = "" Then
  12.        MsgBox ("invalid input")
  13.    ElseIf IsNumeric(input_choice) then
  14.        connection_choice = CInt(input_choice)
  15.        Call display_info(connection_choice)
  16.    Else
  17.        MsgBox ("non numeric input" & input_choice)
  18.    End If
  19.  ElseIf number_of_connections = 1 Then
  20.    Call display_info(1)
  21.  Else
  22.    MsgBox(" no connections ")
  23.  End If
  24.  
  25.  Sub display_info(index)
  26.    Dim input_choice
  27.    If (index > 0 And index <= number_of_connections) Then
  28.       Call display_ConnList(autECLConnMgr.autECLConnList(index))
  29.       input_choice = MsgBox("Display Session Object? ", 3)
  30.       If  input_choice = 6 Then
  31.          Call display_Session(autECLConnMgr.autECLConnList(index).Handle)
  32.       Else
  33.       End IF
  34.    Else
  35.       MsgBox ("invalid input range " & connection_choice )
  36.    End If
  37.  End Sub
  38.  
  39.  Sub display_ConnList (dis_object)
  40.    Dim button_id
  41.    button_id = MsgBox (                                             _
  42.       "Name          " & dis_object.Name              & (Chr(13)) & _
  43.       "Handle        " & dis_object.Handle            & (Chr(13)) & _
  44.       "ConnType      " & dis_object.ConnType          & (Chr(13)) & _
  45.       "CodePage      " & dis_object.CodePage          & (Chr(13)) & _
  46.       "Started       " & dis_object.Started           & (Chr(13)) & _
  47.       "CommStarted   " & dis_object.CommStarted       & (Chr(13)) & _
  48.       "APIEnabled    " & dis_object.APIEnabled        & (Chr(13)) & _
  49.       "Ready         " & dis_object.Ready ,                         _
  50.       0 , "autECLConnMgr.autECLConnList")
  51.  End Sub
  52.  
  53.  
  54.  Sub display_Session (SessHandle)
  55.    Dim button_id
  56.     autECLSession.SetConnectionByHandle (SessHandle)
  57.    button_id = MsgBox (                                                       _
  58.             "Name "          & autECLSession.Name               & (Chr(13)) & _
  59.             "Handle "        & autECLSession.Handle             & (Chr(13)) & _
  60.             "ConnType "      & autECLSession.ConnType           & (Chr(13)) & _
  61.             "CodePage "      & autECLSession.CodePage           & (Chr(13)) & _
  62.             "Started "       & autECLSession.Started            & (Chr(13)) & _
  63.             "CommStarted "   & autECLSession.CommStarted        & (Chr(13)) & _
  64.             "APIEnabled "    & autECLSession.APIEnabled         & (Chr(13)) & _
  65.             "Ready "         & autECLSession.Ready ,                          _
  66.             0 , "autECLSession")
  67.    Call display_PS()
  68.    Call display_OIA()
  69.    Call display_Xfer()
  70.    Call display_WinMetrics()
  71.  End Sub
  72.  
  73.  Sub display_PS ()
  74.    Dim button_id
  75.    button_id = MsgBox (                                                               _
  76.         "NumRows "       & autECLSession.autECLPS.NumRows                  & (Chr(13)) & _
  77.         "NumCols "       & autECLSession.autECLPS.NumCols                  & (Chr(13)) & _
  78.         "CursorPosRow "  & autECLSession.autECLPS.CursorPosRow             & (Chr(13)) & _
  79.         "CursorPosCol "  & autECLSession.autECLPS.CursorPosCol             & (Chr(13)) & _
  80.         "Name "          & autECLSession.autECLPS.Name                     & (Chr(13)) & _
  81.         "Handle "        & autECLSession.autECLPS.Handle                   & (Chr(13)) & _
  82.         "ConnType "      & autECLSession.autECLPS.ConnType                 & (Chr(13)) & _
  83.         "CodePage "      & autECLSession.autECLPS.CodePage                 & (Chr(13)) & _
  84.         "Started "       & autECLSession.autECLPS.Started                  & (Chr(13)) & _
  85.         "CommStarted "   & autECLSession.autECLPS.CommStarted              & (Chr(13)) & _
  86.         "APIEnabled "    & autECLSession.autECLPS.APIEnabled               & (Chr(13)) & _
  87.         "Ready "         & autECLSession.autECLPS.Ready,                                 _
  88.             0 , "autECLSession.autECLPS")
  89.    Call display_FieldList ()
  90.  End Sub
  91.  
  92.  Sub display_FieldList ()
  93.    Dim button_id
  94.    Dim field_data
  95.    autECLSession.autECLPS.autECLFieldList.Refresh
  96.    If autECLSession.autECLPS.autECLFieldList.Count > 0 Then
  97.       Dim FieldText
  98.       FieldText =  autECLSession.autECLPS.autECLFieldList(1).GetText
  99.  
  100.       button_id = MsgBox (                                                                        _
  101.          "StartRow "       & autECLSession.autECLPS.autECLFieldList(1).StartRow        & (Chr(13)) & _
  102.          "StartCol "       & autECLSession.autECLPS.autECLFieldList(1).StartCol        & (Chr(13)) & _
  103.          "EndRow   "       & autECLSession.autECLPS.autECLFieldList(1).EndRow          & (Chr(13)) & _
  104.          "EndCol   "       & autECLSession.autECLPS.autECLFieldList(1).EndCol          & (Chr(13)) & _
  105.          "Length   "       & autECLSession.autECLPS.autECLFieldList(1).Length          & (Chr(13)) & _
  106.          "Modified "       & autECLSession.autECLPS.autECLFieldList(1).Modified        & (Chr(13)) & _
  107.          "Protected "      & autECLSession.autECLPS.autECLFieldList(1).Protected       & (Chr(13)) & _
  108.          "Numeric  "       & autECLSession.autECLPS.autECLFieldList(1).Numeric         & (Chr(13)) & _
  109.          "HighIntensity "  & autECLSession.autECLPS.autECLFieldList(1).HighIntensity   & (Chr(13)) & _
  110.          "PenDetectable "  & autECLSession.autECLPS.autECLFieldList(1).PenDetectable   & (Chr(13)) & _
  111.          "Display  "       & autECLSession.autECLPS.autECLFieldList(1).Display         & (Chr(13)) & _
  112.          "text of field "  & FieldText,                                                             _
  113.             0 , "autECLSession.autECLPS.autECLFieldList")
  114.    Else
  115.      MsgBox("No FieldList elements to display ")
  116.    End If
  117.  End Sub
  118.  
  119.  Sub display_OIA ()
  120.    Dim button_id
  121.    button_id = MsgBox (                                                                    _
  122.         "Alphanumeric "       & autECLSession.autECLOIA.Alphanumeric            & (Chr(13)) & _
  123.         "APL          "       & autECLSession.autECLOIA.APL                     & (Chr(13)) & _
  124.         "Katakana     "       & autECLSession.autECLOIA.Katakana                & (Chr(13)) & _
  125.         "Hiragana     "       & autECLSession.autECLOIA.Hiragana                & (Chr(13)) & _
  126.         "DBCS         "       & autECLSession.autECLOIA.DBCS                    & (Chr(13)) & _
  127.         "UpperShift   "       & autECLSession.autECLOIA.UpperShift              & (Chr(13)) & _
  128.         "NumLock      "       & autECLSession.autECLOIA.NumLock                 & (Chr(13)) & _
  129.         "CapsLock     "       & autECLSession.autECLOIA.CapsLock                & (Chr(13)) & _
  130.         "InsertMode   "       & autECLSession.autECLOIA.InsertMode              & (Chr(13)) & _
  131.         "CommErrorReminder "  & autECLSession.autECLOIA.CommErrorReminder       & (Chr(13)) & _
  132.         "MessageWaiting "     & autECLSession.autECLOIA.MessageWaiting          & (Chr(13)) & _
  133.         "InputInhibited "     & autECLSession.autECLOIA.InputInhibited          & (Chr(13)) & _
  134.         "Name         "       & autECLSession.autECLOIA.Name                    & (Chr(13)) & _
  135.         "Handle       "       & autECLSession.autECLOIA.Handle                  & (Chr(13)) & _
  136.         "ConnType     "       & autECLSession.autECLOIA.ConnType                & (Chr(13)) & _
  137.         "CodePage     "       & autECLSession.autECLOIA.CodePage                & (Chr(13)) & _
  138.         "Started      "       & autECLSession.autECLOIA.Started                 & (Chr(13)) & _
  139.         "CommStarted "        & autECLSession.autECLOIA.CommStarted             & (Chr(13)) & _
  140.         "APIEnabled "         & autECLSession.autECLOIA.APIEnabled              & (Chr(13)) & _
  141.         "Ready "              & autECLSession.autECLOIA.Ready,                                _
  142.             0 , "autECLSession.autECLOIA")
  143.  End Sub
  144.  
  145.  Sub display_Xfer ()
  146.    Dim button_id
  147.    button_id = MsgBox (                                                                _
  148.            "Name "          & autECLSession.autECLXfer.Name                 & (Chr(13)) & _
  149.            "Handle "        & autECLSession.autECLXfer.Handle               & (Chr(13)) & _
  150.            "ConnType "      & autECLSession.autECLXfer.ConnType             & (Chr(13)) & _
  151.            "CodePage "      & autECLSession.autECLXfer.CodePage             & (Chr(13)) & _
  152.            "Started "       & autECLSession.autECLXfer.Started              & (Chr(13)) & _
  153.            "CommStarted "   & autECLSession.autECLXfer.CommStarted          & (Chr(13)) & _
  154.            "APIEnabled "    & autECLSession.autECLXfer.APIEnabled           & (Chr(13)) & _
  155.            "Ready "         & autECLSession.autECLXfer.Ready,                             _
  156.             0 , "autECLSession.autECLXfer")
  157.  End Sub
  158.  
  159.  Sub display_WinMetrics ()
  160.    Dim button_id
  161.    button_id = MsgBox (                                                                      _
  162.          "WindowTitle "       & autECLSession.autECLWinMetrics.WindowTitle        & (Chr(13)) & _
  163.          "Xpos "              & autECLSession.autECLWinMetrics.Xpos               & (Chr(13)) & _
  164.          "Ypos "              & autECLSession.autECLWinMetrics.Ypos               & (Chr(13)) & _
  165.          "Width "             & autECLSession.autECLWinMetrics.Width              & (Chr(13)) & _
  166.          "Height "            & autECLSession.autECLWinMetrics.Height             & (Chr(13)) & _
  167.          "Visible "           & autECLSession.autECLWinMetrics.Visible            & (Chr(13)) & _
  168.          "Active "            & autECLSession.autECLWinMetrics.Active             & (Chr(13)) & _
  169.          "Minimized "         & autECLSession.autECLWinMetrics.Minimized          & (Chr(13)) & _
  170.          "Maximized "         & autECLSession.autECLWinMetrics.Maximized          & (Chr(13)) & _
  171.          "Restored "          & autECLSession.autECLWinMetrics.Restored           & (Chr(13)) & _
  172.          "Name "              & autECLSession.autECLWinMetrics.Name               & (Chr(13)) & _
  173.          "Handle "            & autECLSession.autECLWinMetrics.Handle             & (Chr(13)) & _
  174.          "ConnType "          & autECLSession.autECLWinMetrics.ConnType           & (Chr(13)) & _
  175.          "CodePage "          & autECLSession.autECLWinMetrics.CodePage           & (Chr(13)) & _
  176.          "Started "           & autECLSession.autECLWinMetrics.Started            & (Chr(13)) & _
  177.          "CommStarted "     & autECLSession.autECLWinMetrics.CommStarted      & (Chr(13)) & _
  178.          "APIEnabled "        & autECLSession.autECLWinMetrics.APIEnabled         & (Chr(13)) & _
  179.          "Ready "             & autECLSession.autECLWinMetrics.Ready,                           _
  180.             0 , "autECLSession.autECLWinMetrics")
  181.  End Sub
  182.