home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / smfdoor / frmsearc.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-11  |  25.5 KB  |  653 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  4. Begin VB.Form frmSmfSearchEngine 
  5.    BackColor       =   &H00000000&
  6.    Caption         =   "SMF Search Engine"
  7.    ClientHeight    =   8535
  8.    ClientLeft      =   60
  9.    ClientTop       =   405
  10.    ClientWidth     =   10530
  11.    Icon            =   "frmSearchengine.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   8535
  15.    ScaleWidth      =   10530
  16.    Begin VB.CommandButton Command5 
  17.       Caption         =   "Print Page"
  18.       Height          =   255
  19.       Left            =   9480
  20.       TabIndex        =   24
  21.       Top             =   120
  22.       Width           =   975
  23.    End
  24.    Begin VB.TextBox txtlocation 
  25.       Height          =   285
  26.       Left            =   3480
  27.       TabIndex        =   23
  28.       Top             =   120
  29.       Width           =   4575
  30.    End
  31.    Begin VB.TextBox txtaddress 
  32.       Height          =   285
  33.       Left            =   7560
  34.       TabIndex        =   21
  35.       Top             =   120
  36.       Visible         =   0   'False
  37.       Width           =   495
  38.    End
  39.    Begin VB.CommandButton Command4 
  40.       Caption         =   "Add To Favorites"
  41.       Height          =   255
  42.       Left            =   1320
  43.       TabIndex        =   20
  44.       Top             =   120
  45.       Width           =   1335
  46.    End
  47.    Begin VB.CommandButton Command3 
  48.       Caption         =   "Stop"
  49.       Height          =   255
  50.       Left            =   8160
  51.       TabIndex        =   19
  52.       Top             =   120
  53.       Width           =   495
  54.    End
  55.    Begin VB.CommandButton Command2 
  56.       Caption         =   ">"
  57.       Height          =   255
  58.       Left            =   9120
  59.       TabIndex        =   18
  60.       Top             =   120
  61.       Width           =   285
  62.    End
  63.    Begin VB.CommandButton Command1 
  64.       Caption         =   "<"
  65.       Height          =   255
  66.       Left            =   8760
  67.       TabIndex        =   17
  68.       Top             =   120
  69.       Width           =   285
  70.    End
  71.    Begin VB.Timer Timer1 
  72.       Interval        =   100
  73.       Left            =   10440
  74.       Top             =   0
  75.    End
  76.    Begin VB.TextBox Text1 
  77.       Height          =   285
  78.       Left            =   10560
  79.       TabIndex        =   16
  80.       Text            =   "Text1"
  81.       Top             =   120
  82.       Visible         =   0   'False
  83.       Width           =   255
  84.    End
  85.    Begin VB.CommandButton cmdSearch 
  86.       Caption         =   "Search Again"
  87.       Height          =   255
  88.       Left            =   120
  89.       TabIndex        =   14
  90.       Top             =   120
  91.       Width           =   1095
  92.    End
  93.    Begin VB.TextBox txtSearch 
  94.       Height          =   195
  95.       Left            =   -840
  96.       TabIndex        =   12
  97.       Top             =   -240
  98.       Width           =   855
  99.    End
  100.    Begin TabDlg.SSTab SSTab1 
  101.       Height          =   8055
  102.       Left            =   240
  103.       TabIndex        =   0
  104.       Top             =   480
  105.       Width           =   10455
  106.       _ExtentX        =   18441
  107.       _ExtentY        =   14208
  108.       _Version        =   393216
  109.       Tabs            =   12
  110.       Tab             =   6
  111.       TabsPerRow      =   6
  112.       TabHeight       =   520
  113.       BackColor       =   0
  114.       TabCaption(0)   =   "Yahoo"
  115.       TabPicture(0)   =   "frmSearchengine.frx":08CA
  116.       Tab(0).ControlEnabled=   0   'False
  117.       Tab(0).Control(0)=   "YahooBrowser"
  118.       Tab(0).ControlCount=   1
  119.       TabCaption(1)   =   "Excite"
  120.       TabPicture(1)   =   "frmSearchengine.frx":08E6
  121.       Tab(1).ControlEnabled=   0   'False
  122.       Tab(1).Control(0)=   "exciteBrowser"
  123.       Tab(1).ControlCount=   1
  124.       TabCaption(2)   =   "Alta Vista"
  125.       TabPicture(2)   =   "frmSearchengine.frx":0902
  126.       Tab(2).ControlEnabled=   0   'False
  127.       Tab(2).Control(0)=   "AltaVistaBrowser"
  128.       Tab(2).ControlCount=   1
  129.       TabCaption(3)   =   "Lycos"
  130.       TabPicture(3)   =   "frmSearchengine.frx":091E
  131.       Tab(3).ControlEnabled=   0   'False
  132.       Tab(3).Control(0)=   "LycosBrowser"
  133.       Tab(3).ControlCount=   1
  134.       TabCaption(4)   =   "Dog Pile"
  135.       TabPicture(4)   =   "frmSearchengine.frx":093A
  136.       Tab(4).ControlEnabled=   0   'False
  137.       Tab(4).Control(0)=   "DogPileBrowser"
  138.       Tab(4).ControlCount=   1
  139.       TabCaption(5)   =   "Look Smart"
  140.       TabPicture(5)   =   "frmSearchengine.frx":0956
  141.       Tab(5).ControlEnabled=   0   'False
  142.       Tab(5).Control(0)=   "LookSmartBrowser"
  143.       Tab(5).ControlCount=   1
  144.       TabCaption(6)   =   "Direct Hit"
  145.       TabPicture(6)   =   "frmSearchengine.frx":0972
  146.       Tab(6).ControlEnabled=   -1  'True
  147.       Tab(6).Control(0)=   "DirectHitBrowser"
  148.       Tab(6).Control(0).Enabled=   0   'False
  149.       Tab(6).ControlCount=   1
  150.       TabCaption(7)   =   "ThunderStone"
  151.       TabPicture(7)   =   "frmSearchengine.frx":098E
  152.       Tab(7).ControlEnabled=   0   'False
  153.       Tab(7).Control(0)=   "ThunderStoneBrowser"
  154.       Tab(7).ControlCount=   1
  155.       TabCaption(8)   =   "Hot Bot"
  156.       TabPicture(8)   =   "frmSearchengine.frx":09AA
  157.       Tab(8).ControlEnabled=   0   'False
  158.       Tab(8).Control(0)=   "HotBotBrowser"
  159.       Tab(8).ControlCount=   1
  160.       TabCaption(9)   =   "Ask Jeeves"
  161.       TabPicture(9)   =   "frmSearchengine.frx":09C6
  162.       Tab(9).ControlEnabled=   0   'False
  163.       Tab(9).Control(0)=   "AskJeevesBrowser"
  164.       Tab(9).ControlCount=   1
  165.       TabCaption(10)  =   "Netscape"
  166.       TabPicture(10)  =   "frmSearchengine.frx":09E2
  167.       Tab(10).ControlEnabled=   0   'False
  168.       Tab(10).Control(0)=   "NetScapeBrowser"
  169.       Tab(10).ControlCount=   1
  170.       TabCaption(11)  =   "Info Seek"
  171.       TabPicture(11)  =   "frmSearchengine.frx":09FE
  172.       Tab(11).ControlEnabled=   0   'False
  173.       Tab(11).Control(0)=   "InfoSeekBrowser"
  174.       Tab(11).ControlCount=   1
  175.       Begin SHDocVwCtl.WebBrowser HotBotBrowser 
  176.          Height          =   7215
  177.          Left            =   -74880
  178.          TabIndex        =   1
  179.          Top             =   720
  180.          Width           =   10095
  181.          ExtentX         =   17806
  182.          ExtentY         =   12726
  183.          ViewMode        =   0
  184.          Offline         =   0
  185.          Silent          =   0
  186.          RegisterAsBrowser=   0
  187.          RegisterAsDropTarget=   1
  188.          AutoArrange     =   0   'False
  189.          NoClientEdge    =   0   'False
  190.          AlignLeft       =   0   'False
  191.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  192.          Location        =   ""
  193.       End
  194.       Begin SHDocVwCtl.WebBrowser AskJeevesBrowser 
  195.          Height          =   7215
  196.          Left            =   -74880
  197.          TabIndex        =   2
  198.          Top             =   720
  199.          Width           =   10095
  200.          ExtentX         =   17806
  201.          ExtentY         =   12726
  202.          ViewMode        =   0
  203.          Offline         =   0
  204.          Silent          =   0
  205.          RegisterAsBrowser=   0
  206.          RegisterAsDropTarget=   1
  207.          AutoArrange     =   0   'False
  208.          NoClientEdge    =   0   'False
  209.          AlignLeft       =   0   'False
  210.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  211.          Location        =   ""
  212.       End
  213.       Begin SHDocVwCtl.WebBrowser NetScapeBrowser 
  214.          Height          =   7215
  215.          Left            =   -74880
  216.          TabIndex        =   3
  217.          Top             =   720
  218.          Width           =   10095
  219.          ExtentX         =   17806
  220.          ExtentY         =   12726
  221.          ViewMode        =   0
  222.          Offline         =   0
  223.          Silent          =   0
  224.          RegisterAsBrowser=   0
  225.          RegisterAsDropTarget=   1
  226.          AutoArrange     =   0   'False
  227.          NoClientEdge    =   0   'False
  228.          AlignLeft       =   0   'False
  229.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  230.          Location        =   ""
  231.       End
  232.       Begin SHDocVwCtl.WebBrowser InfoSeekBrowser 
  233.          Height          =   7215
  234.          Left            =   -74880
  235.          TabIndex        =   4
  236.          Top             =   720
  237.          Width           =   10095
  238.          ExtentX         =   17806
  239.          ExtentY         =   12726
  240.          ViewMode        =   0
  241.          Offline         =   0
  242.          Silent          =   0
  243.          RegisterAsBrowser=   0
  244.          RegisterAsDropTarget=   1
  245.          AutoArrange     =   0   'False
  246.          NoClientEdge    =   0   'False
  247.          AlignLeft       =   0   'False
  248.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  249.          Location        =   ""
  250.       End
  251.       Begin SHDocVwCtl.WebBrowser YahooBrowser 
  252.          Height          =   7215
  253.          Left            =   -74880
  254.          TabIndex        =   5
  255.          Top             =   720
  256.          Width           =   10095
  257.          ExtentX         =   17806
  258.          ExtentY         =   12726
  259.          ViewMode        =   0
  260.          Offline         =   0
  261.          Silent          =   0
  262.          RegisterAsBrowser=   0
  263.          RegisterAsDropTarget=   1
  264.          AutoArrange     =   0   'False
  265.          NoClientEdge    =   0   'False
  266.          AlignLeft       =   0   'False
  267.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  268.          Location        =   ""
  269.       End
  270.       Begin SHDocVwCtl.WebBrowser AltaVistaBrowser 
  271.          Height          =   7215
  272.          Left            =   -74880
  273.          TabIndex        =   6
  274.          Top             =   720
  275.          Width           =   10095
  276.          ExtentX         =   17806
  277.          ExtentY         =   12726
  278.          ViewMode        =   0
  279.          Offline         =   0
  280.          Silent          =   0
  281.          RegisterAsBrowser=   0
  282.          RegisterAsDropTarget=   1
  283.          AutoArrange     =   0   'False
  284.          NoClientEdge    =   0   'False
  285.          AlignLeft       =   0   'False
  286.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  287.          Location        =   ""
  288.       End
  289.       Begin SHDocVwCtl.WebBrowser LycosBrowser 
  290.          Height          =   7215
  291.          Left            =   -74880
  292.          TabIndex        =   7
  293.          Top             =   720
  294.          Width           =   10095
  295.          ExtentX         =   17806
  296.          ExtentY         =   12726
  297.          ViewMode        =   0
  298.          Offline         =   0
  299.          Silent          =   0
  300.          RegisterAsBrowser=   0
  301.          RegisterAsDropTarget=   1
  302.          AutoArrange     =   0   'False
  303.          NoClientEdge    =   0   'False
  304.          AlignLeft       =   0   'False
  305.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  306.          Location        =   ""
  307.       End
  308.       Begin SHDocVwCtl.WebBrowser DogPileBrowser 
  309.          Height          =   7215
  310.          Left            =   -74880
  311.          TabIndex        =   8
  312.          Top             =   720
  313.          Width           =   10095
  314.          ExtentX         =   17806
  315.          ExtentY         =   12726
  316.          ViewMode        =   0
  317.          Offline         =   0
  318.          Silent          =   0
  319.          RegisterAsBrowser=   0
  320.          RegisterAsDropTarget=   1
  321.          AutoArrange     =   0   'False
  322.          NoClientEdge    =   0   'False
  323.          AlignLeft       =   0   'False
  324.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  325.          Location        =   ""
  326.       End
  327.       Begin SHDocVwCtl.WebBrowser LookSmartBrowser 
  328.          Height          =   7215
  329.          Left            =   -74880
  330.          TabIndex        =   9
  331.          Top             =   720
  332.          Width           =   10095
  333.          ExtentX         =   17806
  334.          ExtentY         =   12726
  335.          ViewMode        =   0
  336.          Offline         =   0
  337.          Silent          =   0
  338.          RegisterAsBrowser=   0
  339.          RegisterAsDropTarget=   1
  340.          AutoArrange     =   0   'False
  341.          NoClientEdge    =   0   'False
  342.          AlignLeft       =   0   'False
  343.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  344.          Location        =   ""
  345.       End
  346.       Begin SHDocVwCtl.WebBrowser DirectHitBrowser 
  347.          Height          =   7215
  348.          Left            =   120
  349.          TabIndex        =   10
  350.          Top             =   720
  351.          Width           =   10095
  352.          ExtentX         =   17806
  353.          ExtentY         =   12726
  354.          ViewMode        =   0
  355.          Offline         =   0
  356.          Silent          =   0
  357.          RegisterAsBrowser=   0
  358.          RegisterAsDropTarget=   1
  359.          AutoArrange     =   0   'False
  360.          NoClientEdge    =   0   'False
  361.          AlignLeft       =   0   'False
  362.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  363.          Location        =   ""
  364.       End
  365.       Begin SHDocVwCtl.WebBrowser ThunderStoneBrowser 
  366.          Height          =   7215
  367.          Left            =   -74880
  368.          TabIndex        =   11
  369.          Top             =   720
  370.          Width           =   10095
  371.          ExtentX         =   17806
  372.          ExtentY         =   12726
  373.          ViewMode        =   0
  374.          Offline         =   0
  375.          Silent          =   0
  376.          RegisterAsBrowser=   0
  377.          RegisterAsDropTarget=   1
  378.          AutoArrange     =   0   'False
  379.          NoClientEdge    =   0   'False
  380.          AlignLeft       =   0   'False
  381.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  382.          Location        =   ""
  383.       End
  384.       Begin SHDocVwCtl.WebBrowser exciteBrowser 
  385.          Height          =   7215
  386.          Left            =   -74880
  387.          TabIndex        =   15
  388.          Top             =   720
  389.          Width           =   10095
  390.          ExtentX         =   17806
  391.          ExtentY         =   12726
  392.          ViewMode        =   0
  393.          Offline         =   0
  394.          Silent          =   0
  395.          RegisterAsBrowser=   0
  396.          RegisterAsDropTarget=   1
  397.          AutoArrange     =   0   'False
  398.          NoClientEdge    =   0   'False
  399.          AlignLeft       =   0   'False
  400.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  401.          Location        =   ""
  402.       End
  403.    End
  404.    Begin VB.Label Label1 
  405.       BackColor       =   &H00000000&
  406.       Caption         =   "Address:"
  407.       ForeColor       =   &H000000FF&
  408.       Height          =   255
  409.       Left            =   2760
  410.       TabIndex        =   22
  411.       Top             =   120
  412.       Width           =   615
  413.    End
  414.    Begin VB.Label lblSearchFor 
  415.       BackColor       =   &H00000000&
  416.       Caption         =   "Search For:"
  417.       ForeColor       =   &H000000FF&
  418.       Height          =   255
  419.       Left            =   -1725
  420.       TabIndex        =   13
  421.       Top             =   -240
  422.       Width           =   975
  423.    End
  424. Attribute VB_Name = "frmSmfSearchEngine"
  425. Attribute VB_GlobalNameSpace = False
  426. Attribute VB_Creatable = False
  427. Attribute VB_PredeclaredId = True
  428. Attribute VB_Exposed = False
  429. Private Sub cmdSearch_Click()
  430. frmSmfSearchload.Show
  431. Unload frmSmfSearchEngine
  432. searchnetscape = "http://search.netscape.com/cgi-bin/search?search=" + txtSearch.Text
  433. searchyahoo = "http://ink.yahoo.com/bin/query?p=" & txtSearch.Text & "&hc=0&hs=0"
  434. searchDogpile = "http://www.dogpile.com/texis/search?q=" + txtSearch.Text + "&fs=web&to=thirly"
  435. searchHotBot = "http://www.hotbot.com/?MT=" + txtSearch + "&SM=MC&DV=0&lg=any&DC=10&DE=2&BT=H"
  436. searchInfoSeek = "http://infoseek.go.com/titles?qt=" + txtSearch + "&col=WW&pns=l&lk=noframes"
  437. searchaskjeeves = "http://www.askjeeves.com/main/askjeeves.asp?ask=" + txtSearch.Text + "&origin=&qsource=0&site_name=Jeeves&metssearch=tes"
  438. searchgoto = "http://www.goto.com/d/search/;$sessionid$AQWZ5ZIAAFSV3QFIEEWQPUQ?type=home&Keywords=" + txtSearch.Text
  439. searchthunderstone = "http://search.thunderstone.com/texis/websearch/?q=" + txtSearch.Text + "&may=20&dsbu=1"
  440. searchabout = "http://search.about.com/scripts/query70.asp?terms=" + txtSearch.Text
  441. searchexcite = "http://search.excite.com/search.gw?search=" + txtSearch.Text
  442. searchlooksmart = "http://www.looksmart.com/r_search?look=&searck=&key=" + txtSearch.Text
  443. searchAltavista = "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&style=stext&q=" + txtSearch.Text
  444. searchDirecthit = "http://www.directhit.com/fcgi-bin/TopTenDemo.fcg?cmd=demo_qry&oose=1&qry=" + txtSearch.Text
  445. searchlycos = "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=" + txtSearch.Text
  446. YahooBrowser.Navigate searchyahoo
  447. exciteBrowser1.Navigate searchexcite
  448. AltaVistaBrowser.Navigate searchAltavista
  449. LycosBrowser.Navigate searchlycos
  450. DogPileBrowser.Navigate searchDogpile
  451. LookSmartBrowser.Navigate searchlooksmart
  452. ThunderStoneBrowser.Navigate searchthunderstone
  453. HotBotBrowser.Navigate searchHotBot
  454. AskJeevesBrowser.Navigate searchaskjeeves
  455. NetScapeBrowser.Navigate searchnetscape
  456. InfoSeekBrowser.Navigate searchInfoSeek
  457. DirectHitBrowser.Navigate searchDirecthit
  458. End Sub
  459. Private Sub Command1_Click()
  460. On Error Resume Next
  461. If SSTab1.Tab = 0 Then YahooBrowser.GoBack
  462. On Error Resume Next
  463. If SSTab1.Tab = 10 Then NetScapeBrowser.GoBack
  464. On Error Resume Next
  465. If SSTab1.Tab = 4 Then DogPileBrowser.GoBack
  466. On Error Resume Next
  467. If SSTab1.Tab = 8 Then HotBotBrowser.GoBack
  468. On Error Resume Next
  469. If SSTab1.Tab = 3 Then LycosBrowser.GoBack
  470. On Error Resume Next
  471. If SSTab1.Tab = 11 Then InfoSeekBrowser.GoBack
  472. On Error Resume Next
  473. If SSTab1.Tab = 7 Then ThunderStoneBrowser.GoBack
  474. On Error Resume Next
  475. If SSTab1.Tab = 9 Then AskJeevesBrowser.GoBack
  476. On Error Resume Next
  477. If SSTab1.Tab = 6 Then DirectHitBrowser.GoBack
  478. On Error Resume Next
  479. If SSTab1.Tab = 5 Then LookSmartBrowser.GoBack
  480. On Error Resume Next
  481. If SSTab1.Tab = 2 Then AltaVistaBrowser.GoBack
  482. On Error Resume Next
  483. If SSTab1.Tab = 1 Then exciteBrowser.GoBack
  484. End Sub
  485. Private Sub Command2_Click()
  486. On Error Resume Next
  487. If SSTab1.Tab = 0 Then YahooBrowser.GoForward
  488. On Error Resume Next
  489. If SSTab1.Tab = 10 Then NetScapeBrowser.GoForward
  490. On Error Resume Next
  491. If SSTab1.Tab = 4 Then DogPileBrowser.GoForward
  492. On Error Resume Next
  493. If SSTab1.Tab = 8 Then HotBotBrowser.GoForward
  494. On Error Resume Next
  495. If SSTab1.Tab = 3 Then LycosBrowser.GoForward
  496. On Error Resume Next
  497. If SSTab1.Tab = 11 Then InfoSeekBrowser.GoForward
  498. On Error Resume Next
  499. If SSTab1.Tab = 7 Then ThunderStoneBrowser.GoForward
  500. On Error Resume Next
  501. If SSTab1.Tab = 9 Then AskJeevesBrowser.GoForward
  502. On Error Resume Next
  503. If SSTab1.Tab = 6 Then DirectHitBrowser.GoForward
  504. On Error Resume Next
  505. If SSTab1.Tab = 5 Then LookSmartBrowser.GoForward
  506. On Error Resume Next
  507. If SSTab1.Tab = 2 Then AltaVistaBrowser.GoForward
  508. On Error Resume Next
  509. If SSTab1.Tab = 1 Then exciteBrowser.GoForward
  510. End Sub
  511. Private Sub Command3_Click()
  512. On Error Resume Next
  513. If SSTab1.Tab = 0 Then YahooBrowser.Stop
  514. If SSTab1.Tab = 10 Then NetScapeBrowser.Stop
  515. If SSTab1.Tab = 4 Then DogPileBrowser.Stop
  516. If SSTab1.Tab = 8 Then HotBotBrowser.Stop
  517. If SSTab1.Tab = 3 Then LycosBrowser.Stop
  518. If SSTab1.Tab = 11 Then InfoSeekBrowser.Stop
  519. If SSTab1.Tab = 7 Then ThunderStoneBrowser.Stop
  520. If SSTab1.Tab = 9 Then AskJeevesBrowser.Stop
  521. If SSTab1.Tab = 6 Then DirectHitBrowser.Stop
  522. If SSTab1.Tab = 5 Then LookSmartBrowser.Stop
  523. If SSTab1.Tab = 2 Then AltaVistaBrowser.Stop
  524. If SSTab1.Tab = 1 Then exciteBrowser.Stop
  525. End Sub
  526. Private Sub Command4_Click()
  527. FavoriteAddress = txtlocation.Text
  528. Open App.Path + "\Favorites" For Append As #1
  529. Write #1, FavoriteAddress
  530. Close #1
  531. End Sub
  532. Private Sub exciteBrowser1_StatusTextChange(ByVal Text As String)
  533. End Sub
  534. Private Sub Command5_Click()
  535.         On Error GoTo handler
  536.     If SSTab1.Tab = 0 Then YahooBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  537.     If SSTab1.Tab = 1 Then exciteBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  538.     If SSTab1.Tab = 2 Then AltaVistaBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  539.     If SSTab1.Tab = 3 Then LycosBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  540.     If SSTab1.Tab = 4 Then DogPileBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  541.     If SSTab1.Tab = 5 Then LookSmartBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  542.     If SSTab1.Tab = 6 Then DirectHitBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  543.     If SSTab1.Tab = 7 Then ThunderStoneBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  544.     If SSTab1.Tab = 8 Then HotBotBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  545.     If SSTab1.Tab = 9 Then AskJeevesBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  546.     If SSTab1.Tab = 10 Then NetScapeBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  547.     If SSTab1.Tab = 11 Then InfoSeekBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  548.     Exit Sub
  549. handler:
  550.     Exit Sub
  551.  End Sub
  552. Private Sub SSTab1_Mouseup(Button As Integer, Shift As Integer, x As Single, y As Single)
  553. If SSTab1.Tab = 0 Then txtlocation.Text = YahooBrowser.LocationURL
  554. If SSTab1.Tab = 10 Then txtlocation.Text = NetScapeBrowser.LocationURL
  555. If SSTab1.Tab = 4 Then txtlocation.Text = DogPileBrowser.LocationURL
  556. If SSTab1.Tab = 8 Then txtlocation.Text = HotBotBrowser.LocationURL
  557. If SSTab1.Tab = 3 Then txtlocation.Text = LycosBrowser.LocationURL
  558. If SSTab1.Tab = 11 Then txtlocation.Text = InfoSeekBrowser.LocationURL
  559. If SSTab1.Tab = 7 Then txtlocation.Text = ThunderStoneBrowser.LocationURL
  560. If SSTab1.Tab = 9 Then txtlocation.Text = AskJeevesBrowser.LocationURL
  561. If SSTab1.Tab = 6 Then txtlocation.Text = DirectHitBrowser.LocationURL
  562. If SSTab1.Tab = 5 Then txtlocation.Text = LookSmartBrowser.LocationURL
  563. If SSTab1.Tab = 2 Then txtlocation.Text = AltaVistaBrowser.LocationURL
  564. If SSTab1.Tab = 1 Then txtlocation.Text = exciteBrowser.LocationURL
  565. End Sub
  566. Private Sub Timer1_Timer()
  567. Timer1.Enabled = False
  568. searchnetscape = "http://search.netscape.com/cgi-bin/search?search=" + txtSearch.Text
  569. searchyahoo = "http://ink.yahoo.com/bin/query?p=" & txtSearch.Text & "&hc=0&hs=0"
  570. searchDogpile = "http://www.dogpile.com/texis/search?q=" + txtSearch.Text + "&fs=web&to=thirly"
  571. searchHotBot = "http://www.hotbot.com/?MT=" + txtSearch + "&SM=MC&DV=0&lg=any&DC=10&DE=2&BT=H"
  572. searchInfoSeek = "http://infoseek.go.com/titles?qt=" + txtSearch '+ "&col=WW&pns=l&lk=noframes"
  573. searchaskjeeves = "http://www.askjeeves.com/main/askjeeves.asp?ask=" + txtSearch.Text + "&origin=&qsource=0&site_name=Jeeves&metssearch=tes"
  574. searchgoto = "http://www.goto.com/d/search/;$sessionid$AQWZ5ZIAAFSV3QFIEEWQPUQ?type=home&Keywords=" + txtSearch.Text
  575. searchthunderstone = "http://search.thunderstone.com/texis/websearch/?q=" + txtSearch.Text + "&may=20&dsbu=1"
  576. searchabout = "http://search.about.com/scripts/query70.asp?terms=" + txtSearch.Text + "&trail=&Site=home&SUName=home&COB=home&TopNode=%2F"
  577. searchexcite = "http://search.excite.com/search.gw?search=" + txtSearch.Text
  578. searchlooksmart = "http://www.looksmart.com/r_search?look=&searck=&key=" + txtSearch.Text
  579. searchAltavista = "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&style=stext&q=" + txtSearch.Text
  580. searchDirecthit = "http://www.directhit.com/fcgi-bin/TopTenDemo.fcg?cmd=demo_qry&oose=1&qry=" + txtSearch.Text
  581. searchlycos = "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=" + txtSearch.Text
  582. YahooBrowser.Navigate searchyahoo
  583. exciteBrowser.Navigate searchexcite
  584. AltaVistaBrowser.Navigate searchAltavista
  585. LycosBrowser.Navigate searchlycos
  586. DogPileBrowser.Navigate searchDogpile
  587. LookSmartBrowser.Navigate searchlooksmart
  588. ThunderStoneBrowser.Navigate searchthunderstone
  589. HotBotBrowser.Navigate searchHotBot
  590. AskJeevesBrowser.Navigate searchaskjeeves
  591. NetScapeBrowser.Navigate searchnetscape
  592. InfoSeekBrowser.Navigate searchInfoSeek
  593. DirectHitBrowser.Navigate searchDirecthit
  594. End Sub
  595. Private Sub txtsearch_KeyPress(KeyAscii As Integer)
  596.     Const Numbers$ = " "
  597.     If KeyAscii <> 8 Then
  598.         If InStr(Numbers, Chr(KeyAscii)) = 1 Then
  599.             'txtSearch.text = txtSearch.text + "+"
  600.             KeyAscii = 43
  601.             Exit Sub
  602.         End If
  603.     End If
  604. End Sub
  605. Private Sub YahooBrowser_StatusTextChange(ByVal Text As String)
  606. txtaddress.Text = Text
  607. txtlocation = YahooBrowser.LocationURL
  608. End Sub
  609. Private Sub exciteBrowser_StatusTextChange(ByVal Text As String)
  610. txtaddress.Text = Text
  611. txtlocation = exciteBrowser.LocationURL
  612. End Sub
  613. Private Sub AltaVistaBrowser_StatusTextChange(ByVal Text As String)
  614. txtaddress.Text = Text
  615. txtlocation = AltaVistaBrowser.LocationURL
  616. End Sub
  617. Private Sub LycosBrowser_StatusTextChange(ByVal Text As String)
  618. txtaddress.Text = Text
  619. txtlocation = LycosBrowser.LocationURL
  620. End Sub
  621. Private Sub DogPileBrowser_StatusTextChange(ByVal Text As String)
  622. txtaddress.Text = Text
  623. txtlocation = DogPileBrowser.LocationURL
  624. End Sub
  625. Private Sub LookSmartBrowser_StatusTextChange(ByVal Text As String)
  626. txtaddress.Text = Text
  627. txtlocation = LookSmartBrowser.LocationURL
  628. End Sub
  629. Private Sub ThunderStoneBrowser_StatusTextChange(ByVal Text As String)
  630. txtaddress.Text = Text
  631. txtlocation = ThunderStoneBrowser.LocationURL
  632. End Sub
  633. Private Sub HotBotBrowser_StatusTextChange(ByVal Text As String)
  634. txtaddress.Text = Text
  635. txtlocation = HotBotBrowser.LocationURL
  636. End Sub
  637. Private Sub AskJeevesBrowser_StatusTextChange(ByVal Text As String)
  638. txtaddress.Text = Text
  639. txtlocation = AskJeevesBrowser.LocationURL
  640. End Sub
  641. Private Sub NetScapeBrowser_StatusTextChange(ByVal Text As String)
  642. txtaddress.Text = Text
  643. txtlocation = NetScapeBrowser.LocationURL
  644. End Sub
  645. Private Sub InfoSeekBrowser_StatusTextChange(ByVal Text As String)
  646. txtaddress.Text = Text
  647. txtlocation = InfoSeekBrowser.LocationURL
  648. End Sub
  649. Private Sub DirectHitBrowser_StatusTextChange(ByVal Text As String)
  650. txtaddress.Text = Text
  651. txtlocation = DirectHitBrowser.LocationURL
  652. End Sub
  653.