home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pc3270sa.zip / vbdde / fsesexkb.frm < prev    next >
Text File  |  2002-02-28  |  7KB  |  247 lines
  1. VERSION 4.00
  2. Begin VB.Form FormSessExMacroKeyboard 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Keyboard "
  5.    ClientHeight    =   2292
  6.    ClientLeft      =   4668
  7.    ClientTop       =   3960
  8.    ClientWidth     =   2664
  9.    ControlBox      =   0   'False
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   7.8
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   2616
  21.    Left            =   4620
  22.    LinkMode        =   1  'Source
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   2292
  27.    ScaleWidth      =   2664
  28.    ShowInTaskbar   =   0   'False
  29.    Top             =   3684
  30.    Width           =   2760
  31.    Begin VB.ComboBox SessionIdList 
  32.       BackColor       =   &H00FFFFC0&
  33.       ForeColor       =   &H00000000&
  34.       Height          =   288
  35.       ItemData        =   "FSESEXKB.frx":0000
  36.       Left            =   1320
  37.       List            =   "FSESEXKB.frx":0052
  38.       Sorted          =   -1  'True
  39.       Style           =   2  'Dropdown List
  40.       TabIndex        =   2
  41.       Top             =   360
  42.       Width           =   492
  43.    End
  44.    Begin VB.CommandButton ExitDlg 
  45.       Cancel          =   -1  'True
  46.       Caption         =   "E&xit"
  47.       Height          =   372
  48.       Left            =   1560
  49.       TabIndex        =   7
  50.       Top             =   1800
  51.       Width           =   852
  52.    End
  53.    Begin VB.CommandButton Execute 
  54.       Caption         =   "&Execute"
  55.       Default         =   -1  'True
  56.       Height          =   372
  57.       Left            =   240
  58.       TabIndex        =   6
  59.       Top             =   1800
  60.       Width           =   876
  61.    End
  62.    Begin VB.Frame Frame1 
  63.       Caption         =   "Key Status"
  64.       ForeColor       =   &H80000008&
  65.       Height          =   732
  66.       Left            =   312
  67.       TabIndex        =   3
  68.       Top             =   840
  69.       Width           =   2028
  70.       Begin VB.OptionButton KeyUnlockOption 
  71.          Caption         =   "&Unlock"
  72.          ForeColor       =   &H80000008&
  73.          Height          =   252
  74.          Left            =   960
  75.          TabIndex        =   5
  76.          Top             =   360
  77.          Width           =   972
  78.       End
  79.       Begin VB.OptionButton KeyLockOption 
  80.          Caption         =   "&Lock"
  81.          ForeColor       =   &H80000008&
  82.          Height          =   252
  83.          Left            =   96
  84.          TabIndex        =   4
  85.          Top             =   360
  86.          Value           =   -1  'True
  87.          Width           =   876
  88.       End
  89.    End
  90.    Begin VB.TextBox DataText 
  91.       BackColor       =   &H00C0FFFF&
  92.       Height          =   372
  93.       Left            =   2136
  94.       TabIndex        =   8
  95.       Text            =   "Text2"
  96.       Top             =   360
  97.       Visible         =   0   'False
  98.       Width           =   204
  99.    End
  100.    Begin VB.Frame Frame2 
  101.       Caption         =   "Input Parameters"
  102.       Height          =   1572
  103.       Left            =   120
  104.       TabIndex        =   0
  105.       Top             =   120
  106.       Width           =   2412
  107.       Begin VB.Label Label1 
  108.          Caption         =   "Session &Id"
  109.          Height          =   252
  110.          Left            =   120
  111.          TabIndex        =   1
  112.          Top             =   240
  113.          Width           =   1092
  114.       End
  115.    End
  116. End
  117. Attribute VB_Name = "FormSessExMacroKeyboard"
  118. Attribute VB_Creatable = False
  119. Attribute VB_Exposed = False
  120. Private Sub Execute_Click()
  121. On Error GoTo ErrHandler
  122.    FunctionComp = True
  123.    
  124.    OldMousePointer = MousePointer
  125.    MousePointer = 11 ' Hour Glass Mouse Pointer
  126.    
  127.    DisplayType$ = GetDisplayType$(SessionIdList.Text)
  128.    
  129.    If DisplayType$ = "NONE" Then
  130.       MousePointer = OldMousePointer
  131.       MsgBox MSG_INVALID_PSID + SessionIdList.Text, 48, MSG_SAMPLE_PROG
  132.       Exit Sub
  133.    End If
  134.  
  135.    temp$ = LTrim$(RTrim$(SessionIdList.Text))
  136.    If Len(temp$) > 0 Then
  137.       Topic$ = "Session" + SessionIdList.Text
  138.    Else
  139.       MousePointer = OldMousePointer
  140.       MsgBox MSG_PARA_ERROR, 48, MSG_SAMPLE_PROG
  141.       Exit Sub
  142.    End If
  143.  
  144.    If (ExitDlg.Enabled = False) And (KeyLockOption.Value = True) Then
  145.       MousePointer = OldMousePointer
  146.       Exit Sub
  147.    End If
  148.    
  149.    DataText.LinkMode = NONE
  150.    CommandString$ = GetSessExKeyData()
  151.  
  152.    rc = DoEvents()           'If you use VisualBasic V2.0, call
  153.                              'DoEvents function each time before
  154.                              'starting DDE conversation.
  155.    If (KeyLockOption.Value = True) Then
  156.      DataText.LinkTimeout = -1
  157.      DataText.LinkTopic = APPLICATION_NAME + "|" + Topic$
  158.      DataText.LinkMode = COLD
  159.      DataText.LinkExecute CommandString$
  160.    Else
  161.      DataText.LinkMode = NONE
  162.    End If
  163.    
  164.    MousePointer = OldMousePointer
  165.    If FunctionComp = True Then
  166.       MsgBox MSG_FUNCTION_COMP, 64, MSG_SAMPLE_PROG
  167.       EndStatus$ = MSG_OK
  168.       If KeyLockOption.Value = True Then
  169.          ExitDlg.Enabled = False
  170.       Else
  171.          ExitDlg.Enabled = True
  172.       End If
  173.    Else
  174.       MsgBox MSG_DDE_ERROR, 48, MSG_SAMPLE_PROG
  175.       EndStatus$ = MSG_NG
  176.    End If
  177.    TempLogData$ = Time$ + ":Session Execute Macro : " + EndStatus$ + Chr$(13) + Chr$(10) + Chr$(9)
  178.    TempLogData$ = TempLogData$ + MSG_APPLICATION + APPLICATION_NAME + """""" + Chr$(13) + Chr$(10) + Chr$(9)
  179.    TempLogData$ = TempLogData$ + MSG_TOPIC + """" + Topic$ + """" + Chr$(13) + Chr$(10) + Chr$(9)
  180.    TempLogData$ = TempLogData$ + "Command = " + """" + CommandString$ + """" + Chr$(13) + Chr$(10)
  181.    LogData$(LogEnd) = TempLogData$
  182.    UpdateLogPointer
  183.    UpdateLog
  184. '   Loged = True
  185.    Exit Sub
  186.  
  187. ErrHandler:
  188.    FunctionComp = False
  189.    Resume Next
  190. End Sub
  191.  
  192. Private Sub ExitDlg_Click()
  193.    DataText.LinkMode = NONE
  194. '   Hide
  195.    
  196.    Unload FormSessExMacroKeyboard
  197. End Sub
  198.  
  199. Private Function GetSessExKeyData() As String
  200.    If KeyLockOption.Value = True Then
  201.       temp$ = "LOCK"
  202.    Else
  203.       temp$ = "UNLOCK"
  204.    End If
  205.    GetSessExKeyData = "[KEYBOARD(" + temp$ + ")]"
  206. End Function
  207.  
  208. Private Sub UpdateLog()
  209.     temp$ = " "
  210.     If LogTop > LogEnd Then
  211.        For i% = LogTop To MAXLOGNUM
  212.           temp$ = temp$ + LogData$(i%)
  213.        Next
  214.        For i% = 0 To LogEnd
  215.           temp$ = temp$ + LogData$(i%)
  216.        Next
  217.     ElseIf LogTop < LogEnd Then
  218.        For i% = LogTop To LogEnd
  219.           temp$ = temp$ + LogData(i%)
  220.        Next
  221.     Else
  222.        temp$ = LogData(i%)
  223.     End If
  224.     MainForm.FunctionLog.Text = temp$
  225.     Loged = False
  226. End Sub
  227.  
  228. Private Sub UpdateLogPointer()
  229.     LogEnd = LogEnd + 1
  230.     If LogEnd = MAXLOGNUM + 1 Then
  231.        LogEnd = 0
  232.     End If
  233.  
  234.     If LogTop = LogEnd Then
  235.        LogTop = LogTop + 1
  236.        If LogTop = MAXLOGNUM + 1 Then
  237.           LogTop = 0
  238.        End If
  239.     End If
  240. End Sub
  241.  
  242. Private Sub Form_Load()
  243.   SessionIdList.ListIndex = 0
  244. End Sub
  245.  
  246.  
  247.