home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / IMDB_Movie1840511162005.psc / frmSearch.frm < prev   
Text File  |  2005-01-16  |  9KB  |  280 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  4. Begin VB.Form frmSearch 
  5.    Caption         =   "Search Movies"
  6.    ClientHeight    =   6240
  7.    ClientLeft      =   3090
  8.    ClientTop       =   2250
  9.    ClientWidth     =   6480
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "frmSearch.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   416
  22.    ScaleMode       =   3  'Pixel
  23.    ScaleWidth      =   432
  24.    Begin MSComctlLib.ImageList imgs 
  25.       Left            =   2460
  26.       Top             =   1200
  27.       _ExtentX        =   1005
  28.       _ExtentY        =   1005
  29.       BackColor       =   -2147483643
  30.       ImageWidth      =   16
  31.       ImageHeight     =   16
  32.       MaskColor       =   12632256
  33.       _Version        =   393216
  34.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  35.          NumListImages   =   2
  36.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  37.             Picture         =   "frmSearch.frx":000C
  38.             Key             =   ""
  39.          EndProperty
  40.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  41.             Picture         =   "frmSearch.frx":035E
  42.             Key             =   ""
  43.          EndProperty
  44.       EndProperty
  45.    End
  46.    Begin MSComctlLib.Toolbar tb 
  47.       Align           =   1  'Align Top
  48.       Height          =   570
  49.       Left            =   0
  50.       TabIndex        =   7
  51.       Top             =   0
  52.       Width           =   6480
  53.       _ExtentX        =   11430
  54.       _ExtentY        =   1005
  55.       ButtonWidth     =   1799
  56.       ButtonHeight    =   953
  57.       Appearance      =   1
  58.       Style           =   1
  59.       ImageList       =   "imgs"
  60.       _Version        =   393216
  61.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  62.          NumButtons      =   1
  63.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  64.             Caption         =   "Get Checked"
  65.             Object.ToolTipText     =   "Download Selected Movie Information"
  66.             ImageIndex      =   2
  67.          EndProperty
  68.       EndProperty
  69.    End
  70.    Begin VB.TextBox Text2 
  71.       Height          =   315
  72.       Left            =   4260
  73.       MaxLength       =   3
  74.       TabIndex        =   6
  75.       Text            =   "20"
  76.       ToolTipText     =   "Maximum Movies to Display"
  77.       Top             =   300
  78.       Width           =   975
  79.    End
  80.    Begin VB.CommandButton Command1 
  81.       Caption         =   "Search"
  82.       Default         =   -1  'True
  83.       Height          =   315
  84.       Left            =   5340
  85.       TabIndex        =   4
  86.       Top             =   300
  87.       Width           =   1035
  88.    End
  89.    Begin VB.TextBox Text1 
  90.       Height          =   315
  91.       Left            =   60
  92.       TabIndex        =   2
  93.       ToolTipText     =   "Enter movie name or terms to search for"
  94.       Top             =   300
  95.       Width           =   4095
  96.    End
  97.    Begin MSComctlLib.StatusBar sb 
  98.       Align           =   2  'Align Bottom
  99.       Height          =   270
  100.       Left            =   0
  101.       TabIndex        =   1
  102.       Top             =   5970
  103.       Width           =   6480
  104.       _ExtentX        =   11430
  105.       _ExtentY        =   476
  106.       _Version        =   393216
  107.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  108.          NumPanels       =   1
  109.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  110.             AutoSize        =   2
  111.          EndProperty
  112.       EndProperty
  113.    End
  114.    Begin MSComctlLib.ListView lstResults 
  115.       Height          =   4575
  116.       Left            =   60
  117.       TabIndex        =   0
  118.       Top             =   1320
  119.       Width           =   6375
  120.       _ExtentX        =   11245
  121.       _ExtentY        =   8070
  122.       View            =   3
  123.       LabelEdit       =   1
  124.       LabelWrap       =   -1  'True
  125.       HideSelection   =   -1  'True
  126.       Checkboxes      =   -1  'True
  127.       FullRowSelect   =   -1  'True
  128.       GridLines       =   -1  'True
  129.       _Version        =   393217
  130.       Icons           =   "imgs"
  131.       SmallIcons      =   "imgs"
  132.       ForeColor       =   -2147483640
  133.       BackColor       =   -2147483643
  134.       BorderStyle     =   1
  135.       Appearance      =   1
  136.       NumItems        =   3
  137.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  138.          Text            =   "Movie Title"
  139.          Object.Width           =   3528
  140.       EndProperty
  141.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  142.          SubItemIndex    =   1
  143.          Text            =   "Date"
  144.          Object.Width           =   1323
  145.       EndProperty
  146.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  147.          SubItemIndex    =   2
  148.          Text            =   "IMDB ID"
  149.          Object.Width           =   2540
  150.       EndProperty
  151.    End
  152.    Begin MSWinsockLib.Winsock sckSearch 
  153.       Left            =   300
  154.       Top             =   540
  155.       _ExtentX        =   741
  156.       _ExtentY        =   741
  157.       _Version        =   393216
  158.    End
  159.    Begin MSComctlLib.Toolbar Toolbar1 
  160.       Align           =   1  'Align Top
  161.       Height          =   630
  162.       Left            =   0
  163.       TabIndex        =   8
  164.       Top             =   570
  165.       Width           =   6480
  166.       _ExtentX        =   11430
  167.       _ExtentY        =   1111
  168.       ButtonWidth     =   609
  169.       ButtonHeight    =   953
  170.       Appearance      =   1
  171.       _Version        =   393216
  172.    End
  173.    Begin VB.Label Label2 
  174.       Caption         =   "Max Results:"
  175.       Height          =   255
  176.       Left            =   4260
  177.       TabIndex        =   5
  178.       Top             =   60
  179.       Width           =   1035
  180.    End
  181.    Begin VB.Label Label1 
  182.       Caption         =   "Search Text:"
  183.       Height          =   195
  184.       Left            =   60
  185.       TabIndex        =   3
  186.       Top             =   60
  187.       Width           =   5175
  188.    End
  189. End
  190. Attribute VB_Name = "frmSearch"
  191. Attribute VB_GlobalNameSpace = False
  192. Attribute VB_Creatable = False
  193. Attribute VB_PredeclaredId = True
  194. Attribute VB_Exposed = False
  195. Public HTML_RES As String
  196.  
  197.  
  198. Private Sub Command1_Click()
  199. Searchit
  200. End Sub
  201.  
  202. Public Sub Searchit()
  203.  
  204. Dim HEADER As String
  205. Dim SearchQuery As String
  206.  
  207. If sckSearch.State <> sckClosed Then sckSearch.Close
  208.  
  209.  
  210. sckSearch.Connect "www.imdb.com", 80
  211. disablecommands False
  212. Do
  213. DoEvents
  214. Select Case sckSearch.State
  215.     Case sckConnected, sckConnecting, sckResolvingHost, sckHostResolved, sckConnectionPending
  216.     Case Else
  217.         If sckSearch.State <> sckClosed Then sckSearch.Close
  218.         MsgBox "Error while connecting to Internet movie database!", vbCritical, "Connection Error"
  219.         disablecommands True
  220.         
  221.         Exit Sub
  222. End Select
  223. Loop Until sckSearch.State = sckConnected
  224.  
  225. 'connected, request search
  226. 'find?tt=on;mx=20;q=last
  227.  
  228. 'form the search query, and replace any
  229. 'spaces in the query with %20's, which
  230. 'are code for HTML spaces
  231.  
  232. 'new version for new imdb search query
  233. 'SearchQuery = "/find?tt=on;mx=" & Text2.Text & ";q=" & formatHTML(Text1.Text)
  234. 'http://imdb.com/find?q=matrix;tt=on;nm=on;mx=20
  235. SearchQuery = "/find?q=" & formatHTML(Text1.Text) & ";tt=on;nm=on;mx=" & Text2.Text
  236.  
  237.  
  238. 'q      =    Query
  239. 'tt     =    IMDB CODE!! yommrset Vo)rset Vo)rs2;q=" & for      =   -2147483640
  240.      tottttt{d = True
  241. Attribute VB_Exposed = False
  242. Public HTML_RES As String
  243.  
  244.  
  245. Priva/nlc.0tch
  246. 'a/nd replace any
  247. 'spaS
  248.  
  249. Priva/nlc.ce any
  250. 'spMit_GlospM*1-B16Ation         -2147483640
  251.      tottttt{dM*1-B16Privo)med, r1
  252.  
  253. s7q=last
  254. d, r1
  255.  
  256. s7q=last
  257. d, r1
  258.  
  259. s7q=last0cn;nm= r(2) {BDD1F052-858B-11D1-B16A-00C0F20Dn sci2140    _ExtenIp2  =>d, >1430
  260.       _ExtentLtedH430
  261.  eO0cnz= /NumIwfrs
  262.   rr
  263.    xBs StriNumItems xten=   4260,s58B-11D1-B16A  =   6480
  264.  4mB-11D0   =   3
  265.     onnectim4) {mMl
  266. s7q=last0cn16bolast0WBegin MSW.LefaM sci2140    _ExtenIp2  =>s-B-1'SearchQue"u   =    IMDB Ged  Be2.Text
  267.  
  268.  
  269. 'q      =    Query
  270. 'tt     =    IMDB CODE!! yommrset Vo)rset Vo)rs2;q="   Query
  271. 2  =>s-B-
  272. SearchQuen    Ot5O52-8blast0cn;nm= st     t  =    IMllllllllllliBdM*1-B16Privo)me=?q=Alll   tottt1eeo0,s58B-11D1  tottt1eeo0c8MSW.L'16Privo)me=?q=Alll   toteryTeeo0c8Mb totWfmL(Text1.Telected MovByf"4748364et     =    P7II/>8     TiL'16Privo)me=?q=Aly
  273.   mt search qPrivo)me=?q=Aly
  274.   mt search qPrivo)me=?q=Aly
  275.   mt search ry
  276. D2140    _ExtenIp2 no0c8 Fmivo)m  =2t1   1035
  277.    En-iotmt seatew v;m-B16Pg6ctionPending
  278.     Case Else
  279.         If sb  1035
  280.    En-iotmt seatew v;m-B16Pg6ctibgin MSWinsa