home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD142091262001.psc / addtask.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-12-23  |  23.4 KB  |  710 lines

  1. VERSION 5.00
  2. Begin VB.Form addtask 
  3.    BackColor       =   &H00BFBFBF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Add Task Wizard"
  6.    ClientHeight    =   4035
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   6120
  10.    Icon            =   "addtask.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4035
  15.    ScaleWidth      =   6120
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Frame Frame1 
  18.       BackColor       =   &H00BFBFBF&
  19.       Height          =   3975
  20.       Left            =   0
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   6135
  24.       Begin VB.Frame Frame7 
  25.          BackColor       =   &H00BFBFBF&
  26.          Caption         =   "Step 4"
  27.          Height          =   3615
  28.          Left            =   1560
  29.          TabIndex        =   41
  30.          Top             =   600
  31.          Visible         =   0   'False
  32.          Width           =   3855
  33.          Begin VB.TextBox Text5 
  34.             Height          =   285
  35.             Left            =   960
  36.             TabIndex        =   49
  37.             Top             =   1440
  38.             Width           =   1215
  39.          End
  40.          Begin VB.TextBox Text4 
  41.             Height          =   285
  42.             Left            =   960
  43.             TabIndex        =   47
  44.             Top             =   840
  45.             Width           =   1215
  46.          End
  47.          Begin VB.CommandButton Command19 
  48.             BackColor       =   &H00BFBFBF&
  49.             Caption         =   "Next"
  50.             Height          =   375
  51.             Left            =   2880
  52.             Style           =   1  'Graphical
  53.             TabIndex        =   44
  54.             Top             =   3120
  55.             Width           =   855
  56.          End
  57.          Begin VB.CommandButton Command18 
  58.             BackColor       =   &H00BFBFBF&
  59.             Caption         =   "Back"
  60.             Height          =   375
  61.             Left            =   1920
  62.             Style           =   1  'Graphical
  63.             TabIndex        =   43
  64.             Top             =   3120
  65.             Width           =   855
  66.          End
  67.          Begin VB.CommandButton Command17 
  68.             BackColor       =   &H00BFBFBF&
  69.             Caption         =   "Cancel"
  70.             Height          =   375
  71.             Left            =   120
  72.             Style           =   1  'Graphical
  73.             TabIndex        =   42
  74.             Top             =   3120
  75.             Width           =   855
  76.          End
  77.          Begin VB.Label Label15 
  78.             AutoSize        =   -1  'True
  79.             BackStyle       =   0  'Transparent
  80.             Caption         =   "To:"
  81.             Height          =   195
  82.             Left            =   240
  83.             TabIndex        =   48
  84.             Top             =   1440
  85.             Width           =   240
  86.          End
  87.          Begin VB.Label Label14 
  88.             AutoSize        =   -1  'True
  89.             BackStyle       =   0  'Transparent
  90.             Caption         =   "From:"
  91.             Height          =   195
  92.             Left            =   240
  93.             TabIndex        =   46
  94.             Top             =   840
  95.             Width           =   390
  96.          End
  97.          Begin VB.Label Label13 
  98.             AutoSize        =   -1  'True
  99.             BackStyle       =   0  'Transparent
  100.             Caption         =   "What Ports would you like to scan?"
  101.             Height          =   195
  102.             Left            =   240
  103.             TabIndex        =   45
  104.             Top             =   240
  105.             Width           =   2505
  106.          End
  107.       End
  108.       Begin VB.Frame Frame6 
  109.          BackColor       =   &H00BFBFBF&
  110.          Caption         =   "Step 3"
  111.          Height          =   3615
  112.          Left            =   4440
  113.          TabIndex        =   31
  114.          Top             =   360
  115.          Visible         =   0   'False
  116.          Width           =   3855
  117.          Begin VB.CommandButton Command16 
  118.             BackColor       =   &H00BFBFBF&
  119.             Caption         =   "RUN NOW"
  120.             Height          =   375
  121.             Left            =   1560
  122.             Style           =   1  'Graphical
  123.             TabIndex        =   40
  124.             Top             =   1200
  125.             Width           =   1215
  126.          End
  127.          Begin VB.TextBox Text3 
  128.             Height          =   285
  129.             Left            =   1560
  130.             MaxLength       =   11
  131.             TabIndex        =   36
  132.             Text            =   "10:34:00 PM"
  133.             Top             =   2280
  134.             Width           =   1095
  135.          End
  136.          Begin VB.CommandButton Command15 
  137.             BackColor       =   &H00BFBFBF&
  138.             Caption         =   "DONE"
  139.             Height          =   375
  140.             Left            =   2880
  141.             Style           =   1  'Graphical
  142.             TabIndex        =   34
  143.             Top             =   3120
  144.             Width           =   855
  145.          End
  146.          Begin VB.CommandButton Command14 
  147.             BackColor       =   &H00BFBFBF&
  148.             Caption         =   "Back"
  149.             Height          =   375
  150.             Left            =   1920
  151.             Style           =   1  'Graphical
  152.             TabIndex        =   33
  153.             Top             =   3120
  154.             Width           =   855
  155.          End
  156.          Begin VB.CommandButton Command13 
  157.             BackColor       =   &H00BFBFBF&
  158.             Caption         =   "Cancel"
  159.             Height          =   375
  160.             Left            =   120
  161.             Style           =   1  'Graphical
  162.             TabIndex        =   32
  163.             Top             =   3120
  164.             Width           =   855
  165.          End
  166.          Begin VB.Line Line1 
  167.             X1              =   120
  168.             X2              =   3720
  169.             Y1              =   720
  170.             Y2              =   720
  171.          End
  172.          Begin VB.Label Label12 
  173.             AutoSize        =   -1  'True
  174.             BackStyle       =   0  'Transparent
  175.             Caption         =   "Run This Task Immediately"
  176.             Height          =   195
  177.             Left            =   1200
  178.             TabIndex        =   39
  179.             Top             =   960
  180.             Width           =   1920
  181.          End
  182.          Begin VB.Label Label11 
  183.             AutoSize        =   -1  'True
  184.             BackStyle       =   0  'Transparent
  185.             Caption         =   "EG:  10:34:00 PM"
  186.             Height          =   195
  187.             Left            =   1440
  188.             TabIndex        =   38
  189.             Top             =   2640
  190.             Width           =   1275
  191.          End
  192.          Begin VB.Label Label10 
  193.             AutoSize        =   -1  'True
  194.             BackStyle       =   0  'Transparent
  195.             Caption         =   "Schedule this task for:"
  196.             Height          =   195
  197.             Left            =   1320
  198.             TabIndex        =   37
  199.             Top             =   2040
  200.             Width           =   1575
  201.          End
  202.          Begin VB.Label Label9 
  203.             AutoSize        =   -1  'True
  204.             BackStyle       =   0  'Transparent
  205.             Caption         =   "When would you like to run this task?"
  206.             Height          =   195
  207.             Left            =   240
  208.             TabIndex        =   35
  209.             Top             =   240
  210.             Width           =   2655
  211.          End
  212.       End
  213.       Begin VB.Frame Frame5 
  214.          BackColor       =   &H00BFBFBF&
  215.          Caption         =   "Step 3"
  216.          Height          =   3615
  217.          Left            =   480
  218.          TabIndex        =   23
  219.          Top             =   1560
  220.          Visible         =   0   'False
  221.          Width           =   3855
  222.          Begin VB.CheckBox Check3 
  223.             BackColor       =   &H00BFBFBF&
  224.             Caption         =   "View Incomming Server Messages"
  225.             Height          =   255
  226.             Left            =   600
  227.             TabIndex        =   30
  228.             Top             =   1920
  229.             Width           =   3135
  230.          End
  231.          Begin VB.CheckBox Check2 
  232.             BackColor       =   &H00BFBFBF&
  233.             Caption         =   "Scan for Proxy servers"
  234.             Height          =   255
  235.             Left            =   600
  236.             TabIndex        =   29
  237.             Top             =   1440
  238.             Width           =   2295
  239.          End
  240.          Begin VB.CheckBox Check1 
  241.             BackColor       =   &H00BFBFBF&
  242.             Caption         =   "Scan Ports for connectivety"
  243.             Height          =   375
  244.             Left            =   600
  245.             TabIndex        =   28
  246.             Top             =   840
  247.             Width           =   3015
  248.          End
  249.          Begin VB.CommandButton Command12 
  250.             BackColor       =   &H00BFBFBF&
  251.             Caption         =   "Cancel"
  252.             Height          =   375
  253.             Left            =   120
  254.             Style           =   1  'Graphical
  255.             TabIndex        =   26
  256.             Top             =   3120
  257.             Width           =   855
  258.          End
  259.          Begin VB.CommandButton Command11 
  260.             BackColor       =   &H00BFBFBF&
  261.             Caption         =   "Back"
  262.             Height          =   375
  263.             Left            =   1920
  264.             Style           =   1  'Graphical
  265.             TabIndex        =   25
  266.             Top             =   3120
  267.             Width           =   855
  268.          End
  269.          Begin VB.CommandButton Command10 
  270.             BackColor       =   &H00BFBFBF&
  271.             Caption         =   "Next"
  272.             Height          =   375
  273.             Left            =   2880
  274.             Style           =   1  'Graphical
  275.             TabIndex        =   24
  276.             Top             =   3120
  277.             Width           =   855
  278.          End
  279.          Begin VB.Label Label8 
  280.             AutoSize        =   -1  'True
  281.             BackStyle       =   0  'Transparent
  282.             Caption         =   "What would you like to do?"
  283.             Height          =   195
  284.             Left            =   240
  285.             TabIndex        =   27
  286.             Top             =   240
  287.             Width           =   1935
  288.          End
  289.       End
  290.       Begin VB.Frame Frame4 
  291.          BackColor       =   &H00BFBFBF&
  292.          Caption         =   "Step 2"
  293.          Height          =   3615
  294.          Left            =   6120
  295.          TabIndex        =   16
  296.          Top             =   -3480
  297.          Visible         =   0   'False
  298.          Width           =   3855
  299.          Begin VB.CommandButton Command9 
  300.             BackColor       =   &H00BFBFBF&
  301.             Caption         =   "Next"
  302.             Height          =   375
  303.             Left            =   2880
  304.             Style           =   1  'Graphical
  305.             TabIndex        =   20
  306.             Top             =   3120
  307.             Width           =   855
  308.          End
  309.          Begin VB.CommandButton Command8 
  310.             BackColor       =   &H00BFBFBF&
  311.             Caption         =   "Back"
  312.             Height          =   375
  313.             Left            =   1920
  314.             Style           =   1  'Graphical
  315.             TabIndex        =   19
  316.             Top             =   3120
  317.             Width           =   855
  318.          End
  319.          Begin VB.CommandButton Command7 
  320.             BackColor       =   &H00BFBFBF&
  321.             Caption         =   "Cancel"
  322.             Height          =   375
  323.             Left            =   120
  324.             Style           =   1  'Graphical
  325.             TabIndex        =   18
  326.             Top             =   3120
  327.             Width           =   855
  328.          End
  329.          Begin VB.TextBox Text2 
  330.             Height          =   375
  331.             Left            =   1080
  332.             MaxLength       =   15
  333.             ScrollBars      =   1  'Horizontal
  334.             TabIndex        =   17
  335.             Top             =   1320
  336.             Width           =   1455
  337.          End
  338.          Begin VB.Label Label7 
  339.             AutoSize        =   -1  'True
  340.             BackStyle       =   0  'Transparent
  341.             Caption         =   "Enter The IP you wish to taget"
  342.             Height          =   195
  343.             Left            =   240
  344.             TabIndex        =   22
  345.             Top             =   240
  346.             Width           =   2145
  347.          End
  348.          Begin VB.Label Label6 
  349.             AutoSize        =   -1  'True
  350.             BackStyle       =   0  'Transparent
  351.             Caption         =   "IP ADDRESS"
  352.             Height          =   195
  353.             Left            =   1320
  354.             TabIndex        =   21
  355.             Top             =   840
  356.             Width           =   975
  357.          End
  358.       End
  359.       Begin VB.Frame Frame2 
  360.          BackColor       =   &H00BFBFBF&
  361.          Caption         =   "Step 1"
  362.          Height          =   3615
  363.          Left            =   -3600
  364.          TabIndex        =   5
  365.          Top             =   -360
  366.          Visible         =   0   'False
  367.          Width           =   3855
  368.          Begin VB.ComboBox target_type 
  369.             Height          =   315
  370.             ItemData        =   "addtask.frx":0442
  371.             Left            =   240
  372.             List            =   "addtask.frx":044C
  373.             Style           =   2  'Dropdown List
  374.             TabIndex        =   9
  375.             Top             =   1560
  376.             Width           =   2895
  377.          End
  378.          Begin VB.CommandButton Command1 
  379.             BackColor       =   &H00BFBFBF&
  380.             Caption         =   "Next"
  381.             Height          =   375
  382.             Left            =   2880
  383.             Style           =   1  'Graphical
  384.             TabIndex        =   8
  385.             Top             =   3120
  386.             Width           =   855
  387.          End
  388.          Begin VB.CommandButton Command2 
  389.             BackColor       =   &H00BFBFBF&
  390.             Caption         =   "Back"
  391.             Height          =   375
  392.             Left            =   1920
  393.             Style           =   1  'Graphical
  394.             TabIndex        =   7
  395.             Top             =   3120
  396.             Width           =   855
  397.          End
  398.          Begin VB.CommandButton Command3 
  399.             BackColor       =   &H00BFBFBF&
  400.             Caption         =   "Cancel"
  401.             Height          =   375
  402.             Left            =   120
  403.             Style           =   1  'Graphical
  404.             TabIndex        =   6
  405.             Top             =   3120
  406.             Width           =   855
  407.          End
  408.          Begin VB.Label Label1 
  409.             AutoSize        =   -1  'True
  410.             BackStyle       =   0  'Transparent
  411.             Caption         =   "Please Select the type of target....."
  412.             Height          =   195
  413.             Left            =   120
  414.             TabIndex        =   12
  415.             Top             =   240
  416.             Width           =   2445
  417.          End
  418.          Begin VB.Label Label2 
  419.             AutoSize        =   -1  'True
  420.             BackStyle       =   0  'Transparent
  421.             Caption         =   "yahoo.com  -->  Domain"
  422.             Height          =   195
  423.             Left            =   120
  424.             TabIndex        =   11
  425.             Top             =   720
  426.             Width           =   1680
  427.          End
  428.          Begin VB.Label Label3 
  429.             AutoSize        =   -1  'True
  430.             BackStyle       =   0  'Transparent
  431.             Caption         =   "127.0.0.1    -->  IP ADDRESS"
  432.             Height          =   195
  433.             Left            =   120
  434.             TabIndex        =   10
  435.             Top             =   1080
  436.             Width           =   2100
  437.          End
  438.       End
  439.       Begin VB.Frame Frame3 
  440.          BackColor       =   &H00BFBFBF&
  441.          Caption         =   "Step 2"
  442.          Height          =   3615
  443.          Left            =   -3360
  444.          TabIndex        =   1
  445.          Top             =   0
  446.          Visible         =   0   'False
  447.          Width           =   3855
  448.          Begin VB.TextBox Text1 
  449.             Height          =   375
  450.             Left            =   240
  451.             ScrollBars      =   1  'Horizontal
  452.             TabIndex        =   15
  453.             Top             =   1080
  454.             Width           =   3375
  455.          End
  456.          Begin VB.CommandButton Command4 
  457.             BackColor       =   &H00BFBFBF&
  458.             Caption         =   "Cancel"
  459.             Height          =   375
  460.             Left            =   120
  461.             Style           =   1  'Graphical
  462.             TabIndex        =   4
  463.             Top             =   3120
  464.             Width           =   855
  465.          End
  466.          Begin VB.CommandButton Command5 
  467.             BackColor       =   &H00BFBFBF&
  468.             Caption         =   "Back"
  469.             Height          =   375
  470.             Left            =   1920
  471.             Style           =   1  'Graphical
  472.             TabIndex        =   3
  473.             Top             =   3120
  474.             Width           =   855
  475.          End
  476.          Begin VB.CommandButton Command6 
  477.             BackColor       =   &H00BFBFBF&
  478.             Caption         =   "Next"
  479.             Height          =   375
  480.             Left            =   2880
  481.             Style           =   1  'Graphical
  482.             TabIndex        =   2
  483.             Top             =   3120
  484.             Width           =   855
  485.          End
  486.          Begin VB.Label Label5 
  487.             AutoSize        =   -1  'True
  488.             BackStyle       =   0  'Transparent
  489.             Caption         =   "Domain Name"
  490.             Height          =   195
  491.             Left            =   1320
  492.             TabIndex        =   14
  493.             Top             =   840
  494.             Width           =   1005
  495.          End
  496.          Begin VB.Label Label4 
  497.             AutoSize        =   -1  'True
  498.             BackStyle       =   0  'Transparent
  499.             Caption         =   "Enter The Domain Name you wish to taget"
  500.             Height          =   195
  501.             Left            =   240
  502.             TabIndex        =   13
  503.             Top             =   240
  504.             Width           =   3000
  505.          End
  506.       End
  507.       Begin VB.Image Image1 
  508.          Height          =   3750
  509.          Left            =   120
  510.          Picture         =   "addtask.frx":0464
  511.          Top             =   120
  512.          Width           =   1950
  513.       End
  514.    End
  515. Attribute VB_Name = "addtask"
  516. Attribute VB_GlobalNameSpace = False
  517. Attribute VB_Creatable = False
  518. Attribute VB_PredeclaredId = True
  519. Attribute VB_Exposed = False
  520. Public runtime As String
  521. Public targettype As String
  522. Public target As String
  523. Public proxyscan As Boolean
  524. Public portscan As Boolean
  525. Public logindata As Boolean
  526. Public clear As Boolean
  527. Public portsc2 As Integer
  528. Public proxysc2 As Integer
  529. Public loginda2 As Integer
  530. Public startport
  531. Public stopport
  532. 'framlocs are
  533. 'Top 240
  534. 'Left 2160
  535. ' user passes first form   ->  target type
  536. Private Sub Command1_Click()
  537. If target_type.ListIndex = -1 Then
  538. MsgBox "You must select a target type to proceed", vbOKOnly, "Reminder"
  539. ElseIf target_type.ListIndex = 0 Then
  540. 'goto domain selector
  541. targettype = "domain"
  542. Frame2.Visible = False
  543. Frame3.Left = 2160
  544. Frame3.Top = 240
  545. Frame3.Visible = True
  546. ElseIf target_type.ListIndex = 1 Then
  547. ''goto ip selector
  548. targettype = "ip"
  549. Frame2.Visible = False
  550. Frame4.Left = 2160
  551. Frame4.Top = 240
  552. Frame4.Visible = True
  553. End If
  554. End Sub
  555. Private Sub Command10_Click()
  556. 'get options
  557. If Check1.Value = 1 Then portscan = True
  558. If Check2.Value = 1 Then proxyscan = True
  559. If Check3.Value = 1 Then logindata = True
  560. If portscan = False And proxyscan = False Then MsgBox "You must scan for something, you cant just log data", vbOKOnly, "Uh...huh..."
  561. Frame5.Visible = False
  562. If portscan = True Then
  563. Frame7.Left = 2160
  564. Frame7.Top = 240
  565. Frame7.Visible = True
  566. ElseIf portscan = False Then
  567. Frame6.Left = 2160
  568. Frame6.Top = 240
  569. Frame6.Visible = True
  570. End If
  571. End Sub
  572. Private Sub Command11_Click()
  573. If targettype = "domain" Then
  574. Frame5.Visible = False
  575. Frame3.Visible = True
  576. Frame5.Visible = False
  577. Frame4.Visible = True
  578. End If
  579. End Sub
  580. Private Sub Command12_Click()
  581. Unload addtask
  582. End Sub
  583. Private Sub Command13_Click()
  584. Unload addtask
  585. End Sub
  586. Private Sub Command14_Click()
  587. Frame5.Top = 240
  588. Frame5.Left = 2160
  589. Frame5.Visible = True
  590. Frame6.Visible = False
  591. End Sub
  592. Private Sub Command15_Click()
  593. runtime = Text3.Text
  594. finsihed target, mainform.itemno, targettype, portscan, proxyscan, logindata, runtime
  595. addtask.Visible = False
  596. End Sub
  597. Private Sub Command16_Click()
  598. runtime = "N/A"
  599. finsihed target, mainform.itemno, targettype, portscan, proxyscan, logindata, runtime
  600. addtask.Visible = False
  601. End Sub
  602. Private Sub Command17_Click()
  603. Unload addtask
  604. End Sub
  605. Private Sub Command18_Click()
  606. Frame7.Visible = False
  607. Frame5.Left = 2160
  608. Frame5.Top = 240
  609. Frame5.Visible = True
  610. End Sub
  611. Private Sub Command19_Click()
  612. If Text5.Text < Text4.Text Then MsgBox "Stop port must be larger than Start Port!", vbOKOnly, "ASS ALERT!"
  613. If Text5.Text = Text4.Text Then MsgBox "Start & Stop ports cannot be the same!", vbOKOnly, "Reminder"
  614. startport = Text4.Text
  615. stopport = Text5.Text
  616. Frame7.Visible = False
  617. Frame6.Left = 2160
  618. Frame6.Top = 240
  619. Frame6.Visible = True
  620. End Sub
  621. Private Sub Command3_Click()
  622. Unload addtask
  623. End Sub
  624. Private Sub Command4_Click()
  625. Unload addtask
  626. End Sub
  627. Private Sub Command5_Click()
  628. Frame3.Visible = False
  629. Frame2.Visible = True
  630. End Sub
  631. Private Sub Command6_Click()
  632. Dim comparison2
  633. comparison2 = Text1 Like "*.*"
  634. If Text1.Text = "" Then
  635. MsgBox "Enter Something!", vbOKOnly, "IDIOT!"
  636. ElseIf comparison2 = True Then
  637. target = Text1.Text
  638. Call ops
  639. MsgBox "Not a domain name!", vbOKOnly, "IDIOT!:"
  640. End If
  641. End Sub
  642. Private Sub Command7_Click()
  643. Unload addtask
  644. End Sub
  645. Private Sub Command8_Click()
  646. Frame4.Visible = False
  647. Frame2.Visible = True
  648. End Sub
  649. Private Sub Command9_Click()
  650. Dim comparison1 As Boolean
  651. comparison1 = Text2.Text Like "*.*.*"
  652. If comparison1 = False Then
  653. MsgBox "thats not an ip address", vbOKOnly, "Reminder"
  654. Else:
  655. target = Text2.Text
  656. Call ops
  657. End If
  658. End Sub
  659. Private Sub Form_Load()
  660. clear = False
  661. target = vbNullString
  662. targettype = vbNullString
  663. runtime = vbNullString
  664. portscan = False
  665. proxyscan = False
  666. logindata = False
  667. Text1.Text = ""
  668. Text3.Text = ""
  669. Text4.Text = ""
  670. Text5.Text = ""
  671. Text2.Text = ""
  672. Check1.Value = 0
  673. Check2.Value = 0
  674. Check3.Value = 0
  675. Frame3.Visible = False
  676. Frame4.Visible = False
  677. Frame5.Visible = False
  678. Frame6.Visible = False
  679. mainform.itemno = mainform.itemno + 1
  680. Command2.Visible = False
  681. Frame2.Top = 240
  682. Frame2.Left = 2160
  683. Frame2.Visible = True
  684. End Sub
  685. Sub ops()
  686. If targettype = "domain" Then
  687. Frame3.Visible = False
  688. Frame5.Top = 240
  689. Frame5.Left = 2160
  690. Frame5.Visible = True
  691. Text3.Text = Time
  692. ElseIf targettype = "ip" Then
  693. Frame4.Visible = False
  694. Frame5.Top = 240
  695. Frame5.Left = 2160
  696. Frame5.Visible = True
  697. Text3.Text = Time
  698. End If
  699. End Sub
  700. Sub finsihed(targetaddy As String, itemnos As Integer, targetty As String, portsc, proxysc, loginda, times As String)
  701. If portsc = True Then portsc2 = 1
  702. If proxysc = True Then proxysc2 = 1
  703. If loginda = True Then loginda2 = 1
  704. itemnos2 = mainform.tasktimes.ListCount
  705. mainform.tasks.AddItem targetaddy, itemnos2
  706. mainform.ops.AddItem portsc2 & proxysc2 & loginda2, itemnos2
  707. mainform.tasktimes.AddItem times, itemnos2
  708. Unload addtask
  709. End Sub
  710.