VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form Throw 
   BorderStyle     =   3  'Œ޲۸
   Caption         =   "ޮޓ"
   ClientHeight    =   4575
   ClientLeft      =   1140
   ClientTop       =   1665
   ClientWidth     =   6780
   LinkTopic       =   "Throw"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'Z ް
   ScaleHeight     =   4575
   ScaleWidth      =   6780
   ShowInTaskbar   =   0   'False
   Begin VB.ComboBox ExecType 
      Height          =   300
      ItemData        =   "Throw.frx":0000
      Left            =   1920
      List            =   "Throw.frx":000D
      Style           =   2  'ۯ޳ ؽ
      TabIndex        =   25
      Top             =   3120
      Width           =   3950
   End
   Begin VB.TextBox MaxElapseTime 
      Height          =   315
      Left            =   1920
      TabIndex        =   24
      Top             =   2760
      Width           =   3950
   End
   Begin VB.TextBox StdoutFile 
      Height          =   315
      Left            =   1920
      TabIndex        =   22
      Top             =   2400
      Width           =   3950
   End
   Begin VB.TextBox TimeOut 
      Alignment       =   1  'E
      Enabled         =   0   'False
      Height          =   270
      Left            =   3900
      TabIndex        =   19
      Top             =   3600
      Width           =   615
   End
   Begin VB.CheckBox TimeOutCheck 
      Caption         =   "I҂"
      Height          =   255
      Left            =   1860
      TabIndex        =   18
      Top             =   3600
      Width           =   1095
   End
   Begin VB.CommandButton QueueRef 
      Caption         =   "Q..."
      Height          =   315
      Left            =   5880
      TabIndex        =   7
      Top             =   1725
      Width           =   840
   End
   Begin VB.CommandButton DirRef 
      Caption         =   "Q..."
      Height          =   315
      Left            =   5880
      TabIndex        =   5
      Top             =   1350
      Width           =   840
   End
   Begin VB.CommandButton PathRef 
      Caption         =   "Q..."
      Height          =   315
      Left            =   5880
      TabIndex        =   2
      Top             =   600
      Width           =   840
   End
   Begin VB.ComboBox Priority 
      Height          =   300
      ItemData        =   "Throw.frx":0043
      Left            =   1920
      List            =   "Throw.frx":0053
      Style           =   2  'ۯ޳ ؽ
      TabIndex        =   8
      Top             =   2040
      Width           =   1935
   End
   Begin VB.CommandButton CancelBtn 
      Caption         =   "ݾ"
      Height          =   390
      Left            =   3600
      TabIndex        =   11
      Top             =   4080
      Width           =   1365
   End
   Begin VB.CommandButton ThrowBtn 
      Caption         =   ""
      Height          =   390
      Left            =   2160
      TabIndex        =   10
      Top             =   4080
      Width           =   1365
   End
   Begin VB.TextBox QueueName 
      Height          =   315
      Left            =   1920
      TabIndex        =   6
      Top             =   1680
      Width           =   3950
   End
   Begin VB.TextBox ExecDir 
      Height          =   315
      Left            =   1920
      TabIndex        =   4
      Top             =   1320
      Width           =   3950
   End
   Begin VB.TextBox JobParam 
      Height          =   315
      Left            =   1920
      TabIndex        =   3
      Top             =   960
      Width           =   3950
   End
   Begin VB.TextBox JobPath 
      Height          =   315
      Left            =   1920
      TabIndex        =   1
      Top             =   600
      Width           =   3950
   End
   Begin VB.TextBox JobName 
      Height          =   315
      Left            =   1920
      TabIndex        =   0
      Top             =   240
      Width           =   3950
   End
   Begin VB.CheckBox WatchStdout 
      Caption         =   "Wo̧"
      Height          =   250
      Left            =   360
      TabIndex        =   9
      Top             =   2430
      Width           =   1455
   End
   Begin MSComDlg.CommonDialog FilePath 
      Left            =   6240
      Top             =   900
      _ExtentX        =   688
      _ExtentY        =   688
      _Version        =   393216
      DialogTitle     =   "ޖ"
      InitDir         =   "."
   End
   Begin VB.Label Label8 
      Alignment       =   1  'E
      AutoSize        =   -1  'True
      Caption         =   "ޮދN"
      Height          =   180
      Left            =   720
      TabIndex        =   26
      Top             =   3180
      Width           =   1095
   End
   Begin VB.Label Label7 
      Alignment       =   1  'E
      Caption         =   "soߎѱ"
      Height          =   250
      Left            =   0
      TabIndex        =   23
      Top             =   2820
      Width           =   1815
   End
   Begin VB.Label TimeOutLbl 
      Caption         =   "ѱ"
      Enabled         =   0   'False
      Height          =   315
      Left            =   3180
      TabIndex        =   21
      Top             =   3660
      Width           =   675
   End
   Begin VB.Label TimeOutSec 
      Caption         =   "b"
      Enabled         =   0   'False
      Height          =   255
      Left            =   4560
      TabIndex        =   20
      Top             =   3660
      Width           =   315
   End
   Begin VB.Label Label6 
      Alignment       =   1  'E
      Caption         =   "D揇"
      Height          =   250
      Left            =   120
      TabIndex        =   17
      Top             =   2100
      Width           =   1695
   End
   Begin VB.Label Label5 
      Alignment       =   1  'E
      Caption         =   "ޮ޷"
      Height          =   250
      Left            =   120
      TabIndex        =   16
      Top             =   1740
      Width           =   1695
   End
   Begin VB.Label Label4 
      Alignment       =   1  'E
      Caption         =   "sިڸ"
      Height          =   250
      Left            =   120
      TabIndex        =   15
      Top             =   1380
      Width           =   1695
   End
   Begin VB.Label Label3 
      Alignment       =   1  'E
      Caption         =   "Ұ"
      Height          =   250
      Left            =   120
      TabIndex        =   14
      Top             =   1020
      Width           =   1695
   End
   Begin VB.Label Label2 
      Alignment       =   1  'E
      Caption         =   "ޖ"
      Height          =   250
      Left            =   120
      TabIndex        =   13
      Top             =   660
      Width           =   1695
   End
   Begin VB.Label Label1 
      Alignment       =   1  'E
      Caption         =   "Ɩ"
      Height          =   250
      Left            =   120
      TabIndex        =   12
      Top             =   300
      Width           =   1695
   End
End
Attribute VB_Name = "Throw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' JAPI Wu API(JmssThrowJob֐),
'      WuI҂ API(JmssWaitJobExit֐) TvvO
'   (C)NEC Corporation/NEC Software,Ltd. 1995,1996
'
'         1996.6.28 Created by NEC Software
'
' Wu_CAOW[
'
'   FWu𓊓AWuI҂ݒ肳Ă΃WȕI҂
'

'[LZ{^]NbN
'
'   FWu_CAOI
'
Private Sub CancelBtn_Click()
    '_CAO
    Unload Throw
End Sub


'sfBNg[Qƃ{^]NbN
'
'   Ft@C_CAO\AfBNg擾
'
Private Sub DirRef_Click()
    'sfBNgQƗpt@C_CAO\
    Dialog.Show (modal)
    
    'ExecDir.Text = Dialog.Dir1.path
End Sub

'[Wu_CAO]\
'
'   FD揇ʃR{{bNX̏l[Normal]ɐݒ肷
'
Private Sub Form_Load()
    'D揇ʂ[Normal]ɐݒ
    Priority.ListIndex = 2
    'ޮދN"wȂ"ɐݒ
    ExecType.ListIndex = 0
End Sub


'R}h[Qƃ{^]NbN
'
'   Ft@C_CAO\AWuR}h擾
'
Private Sub PathRef_Click()
    'R}h擾pt@C_CAO\
    FilePath.Filter = "ޯ̧(*.bat;*.cmd)|*.bat;*.cmd|ş(*.exe;*.com)|*.exe;*.com|ޮȯ̧(*.jnt)|*.jnt"
    FilePath.Flags = cdlFileMustExist + cdlPathMustExist
    FilePath.DialogTitle = "ޖ"
    FilePath.ShowOpen
    
    't@C_CAOt@C擾
    JobPath.Text = FilePath.FileName
End Sub

'L[[Qƃ{^]NbN
'
'   FL[_CAO\AL[擾
'
Private Sub QueueRef_Click()
    Dim caQueueName As String * 16
    
    '*** L[_CAO\ ***
    lRet& = JmssDispQueueDialog(vbNullString, Throw.hWnd, caQueueName, "JAPIү")
    If (lRet& <> 0) Then
        ErrorMsg lRet&
    End If
    QueueName = caQueueName
End Sub


'[{^]NbN
'
'   Fw肳ꂽŃWu𓊓Aw肳Ă΃WȕI҂
'
Private Sub ThrowBtn_Click()
    Dim JobThrowInfo As JMSSJOBTHROWINFOEX    'Wu  'Upd for Ver7.1 2008.05.12
    
    'Wu쐬
    JobThrowInfo.dwSize = 1128  'K1128ݒ     'Upd for Ver7.1 2008.05.12
    Select Case Priority.Text
        Case "REAL"
            JobThrowInfo.dwPriority = JMSS_PRIORITY_REAL
        Case "HIGH"
            JobThrowInfo.dwPriority = JMSS_PRIORITY_HIGH
        Case "NORMAL"
            JobThrowInfo.dwPriority = JMSS_PRIORITY_NORMAL
        Case "IDLE"
            JobThrowInfo.dwPriority = JMSS_PRIORITY_IDLE
    End Select
    
    'ޮދNݒ     'Add for Ver7.1 2008.05.12
    Select Case ExecType.Text
        Case "wȂ"
            JobThrowInfo.wExecType = 0
        Case "޽ĂŋN"
            JobThrowInfo.wExecType = 1
        Case "۸޵հޱĂŋN"
            JobThrowInfo.wExecType = 2
    End Select
        
    JobThrowInfo.fWatchStdout = WatchStdout.Value
    JobThrowInfo.hStdin = 0
    JobThrowInfo.hStdout = 0
    JobThrowInfo.hStderr = 0
    JobThrowInfo.caQueueName = QueueName.Text + Chr$(0)
    JobThrowInfo.caJobName = JobName.Text + Chr$(0)
    JobThrowInfo.caJobPath = JobPath.Text + Chr$(0)
    JobThrowInfo.caJobParam = JobParam.Text + Chr$(0)
    JobThrowInfo.caExecDir = ExecDir.Text + Chr$(0)
    JobThrowInfo.dwRepeatLastCount = 0
    If (MaxElapseTime.Text <> "") Then
        JobThrowInfo.dwMaxElapseTime = Val(MaxElapseTime.Text)
    End If
    JobThrowInfo.dwTermReport = 0
    
    If (JobThrowInfo.fWatchStdout <> 0) Then
        JobThrowInfo.caStdoutFile = StdoutFile.Text + Chr$(0)
    End If
    
    'Wu𓊓
    '*** Wu ***
    lRet& = JmssThrowJobEx(vbNullString, JobThrowInfo, lJobNo)
    If (lRet& <> 0) Then
        ErrorMsg lRet&
    Else
        JAPI_SMP.JobList.AddItem lJobNo & Chr$(9) & JobThrowInfo.caJobName, 0
        JAPI_SMP.JobList.ItemData(0) = lJobNo
        JAPI_SMP.StatusBar.Panels.Item(2).Text = "Count:  " & JAPI_SMP.JobList.ListCount
    End If
    
    'I҂`FbNĂI҂
    If (TimeOutCheck.Value = 1) Then
        '^CAEglݒ肳ĂȂ疳
        If (TimeOut.Text = "") Then
            dwTimeOut& = &HFFFF
        Else
            dwTimeOut& = TimeOut.Text * 1000
        End If
        
        '*** WuI҂ ***
        lRet& = JmssWaitJobExit(vbNullString, lJobNo, Null, dwTimeOut&)
        If (lRet& <> 0) Then
            ErrorMsg lRet&
        End If
    End If
    
    '_CAO
    Unload Throw
End Sub

'[I҂^CAEg`FbN{bNX]NbN
'
'   FI҂̗Lɂ^CAEgԂL/ɂ
'
Private Sub TimeOutCheck_Click()
    'I҂`FbNOFFȂ̂ŁA^CAEgԂ𖳌ɂ
    If (TimeOutCheck.Value = 0) Then
        TimeOutLbl.Enabled = False
        TimeOut.Enabled = False
        TimeOutSec.Enabled = False
    
    'I҂`FbNONȂ̂ŁA^CAEgԂLɂ
    ElseIf (TimeOutCheck.Value = 1) Then
        TimeOutLbl.Enabled = True
        TimeOut.Enabled = True
        TimeOutSec.Enabled = True
    End If
End Sub


