home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / PSC_Expres1788088312004.psc / Form1.frm < prev    next >
Text File  |  2004-08-31  |  16KB  |  442 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "PSC Express Login SE"
  6.    ClientHeight    =   4515
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   4350
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4515
  15.    ScaleWidth      =   4350
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.TextBox Text3 
  18.       Alignment       =   2  'Center
  19.       Appearance      =   0  'Flat
  20.       BeginProperty Font 
  21.          Name            =   "Arial"
  22.          Size            =   9
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   285
  30.       Left            =   735
  31.       TabIndex        =   21
  32.       Top             =   1305
  33.       Width           =   2880
  34.    End
  35.    Begin VB.CommandButton Command3 
  36.       Caption         =   "Go To My Code"
  37.       BeginProperty Font 
  38.          Name            =   "Arial"
  39.          Size            =   9.75
  40.          Charset         =   0
  41.          Weight          =   700
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   300
  47.       Left            =   675
  48.       TabIndex        =   20
  49.       Top             =   3615
  50.       Width           =   3000
  51.    End
  52.    Begin VB.CommandButton Command1 
  53.       Caption         =   "Log Into Desired PSC Section"
  54.       BeginProperty Font 
  55.          Name            =   "Arial"
  56.          Size            =   9.75
  57.          Charset         =   0
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   315
  64.       Left            =   675
  65.       TabIndex        =   19
  66.       Top             =   2865
  67.       Width           =   3000
  68.    End
  69.    Begin VB.CommandButton Command2 
  70.       Caption         =   "Log In And Upload Code"
  71.       BeginProperty Font 
  72.          Name            =   "Arial"
  73.          Size            =   9.75
  74.          Charset         =   0
  75.          Weight          =   700
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       Height          =   300
  81.       Left            =   675
  82.       TabIndex        =   18
  83.       Top             =   3240
  84.       Width           =   3000
  85.    End
  86.    Begin VB.Frame Frame1 
  87.       Caption         =   "Frame1"
  88.       Height          =   1065
  89.       Left            =   158
  90.       TabIndex        =   5
  91.       Top             =   1740
  92.       Width           =   4035
  93.       Begin VB.OptionButton Option1 
  94.          Caption         =   "LISP"
  95.          Height          =   195
  96.          Index           =   11
  97.          Left            =   2550
  98.          TabIndex        =   17
  99.          Top             =   735
  100.          Width           =   660
  101.       End
  102.       Begin VB.OptionButton Option1 
  103.          Caption         =   ".Net"
  104.          Height          =   195
  105.          Index           =   10
  106.          Left            =   1920
  107.          TabIndex        =   16
  108.          Top             =   720
  109.          Width           =   660
  110.       End
  111.       Begin VB.OptionButton Option1 
  112.          Caption         =   "Cold Fusion"
  113.          Height          =   195
  114.          Index           =   9
  115.          Left            =   780
  116.          TabIndex        =   15
  117.          Top             =   705
  118.          Width           =   1185
  119.       End
  120.       Begin VB.OptionButton Option1 
  121.          Caption         =   "PHP"
  122.          Height          =   195
  123.          Index           =   8
  124.          Left            =   135
  125.          TabIndex        =   14
  126.          Top             =   705
  127.          Width           =   690
  128.       End
  129.       Begin VB.OptionButton Option1 
  130.          Caption         =   "Front Door"
  131.          Height          =   195
  132.          Index           =   0
  133.          Left            =   135
  134.          TabIndex        =   13
  135.          Top             =   195
  136.          Value           =   -1  'True
  137.          Width           =   1080
  138.       End
  139.       Begin VB.OptionButton Option1 
  140.          Caption         =   "Visual Basic"
  141.          Height          =   195
  142.          Index           =   1
  143.          Left            =   1260
  144.          TabIndex        =   12
  145.          Top             =   195
  146.          Width           =   1200
  147.       End
  148.       Begin VB.OptionButton Option1 
  149.          Caption         =   "Java/Javascript"
  150.          Height          =   195
  151.          Index           =   2
  152.          Left            =   2460
  153.          TabIndex        =   11
  154.          Top             =   195
  155.          Width           =   1485
  156.       End
  157.       Begin VB.OptionButton Option1 
  158.          Caption         =   "C/C++"
  159.          Height          =   195
  160.          Index           =   3
  161.          Left            =   135
  162.          TabIndex        =   10
  163.          Top             =   450
  164.          Width           =   810
  165.       End
  166.       Begin VB.OptionButton Option1 
  167.          Caption         =   "ASP"
  168.          Height          =   195
  169.          Index           =   4
  170.          Left            =   960
  171.          TabIndex        =   9
  172.          Top             =   450
  173.          Width           =   675
  174.       End
  175.       Begin VB.OptionButton Option1 
  176.          Caption         =   "SQL"
  177.          Height          =   195
  178.          Index           =   5
  179.          Left            =   1620
  180.          TabIndex        =   8
  181.          Top             =   450
  182.          Width           =   675
  183.       End
  184.       Begin VB.OptionButton Option1 
  185.          Caption         =   "Perl"
  186.          Height          =   195
  187.          Index           =   6
  188.          Left            =   2295
  189.          TabIndex        =   7
  190.          Top             =   450
  191.          Width           =   615
  192.       End
  193.       Begin VB.OptionButton Option1 
  194.          Caption         =   "Delphi"
  195.          Height          =   195
  196.          Index           =   7
  197.          Left            =   2910
  198.          TabIndex        =   6
  199.          Top             =   450
  200.          Width           =   780
  201.       End
  202.    End
  203.    Begin MSComctlLib.StatusBar StatusBar1 
  204.       Height          =   525
  205.       Left            =   0
  206.       TabIndex        =   4
  207.       Top             =   3975
  208.       Width           =   4350
  209.       _ExtentX        =   7673
  210.       _ExtentY        =   926
  211.       _Version        =   393216
  212.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  213.          NumPanels       =   4
  214.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  215.             Alignment       =   1
  216.             Object.Width           =   2646
  217.             MinWidth        =   2646
  218.             Picture         =   "Form1.frx":08CA
  219.          EndProperty
  220.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  221.             Object.Width           =   1413
  222.             MinWidth        =   1413
  223.          EndProperty
  224.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  225.             Style           =   6
  226.             Alignment       =   1
  227.             AutoSize        =   2
  228.             Object.Width           =   2011
  229.             MinWidth        =   2011
  230.             TextSave        =   "8/31/2004"
  231.          EndProperty
  232.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  233.             Style           =   5
  234.             Alignment       =   1
  235.             Object.Width           =   1657
  236.             MinWidth        =   1657
  237.             TextSave        =   "3:38 PM"
  238.          EndProperty
  239.       EndProperty
  240.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  241.          Name            =   "Trebuchet MS"
  242.          Size            =   9
  243.          Charset         =   0
  244.          Weight          =   700
  245.          Underline       =   0   'False
  246.          Italic          =   0   'False
  247.          Strikethrough   =   0   'False
  248.       EndProperty
  249.    End
  250.    Begin VB.TextBox Text1 
  251.       Alignment       =   2  'Center
  252.       Appearance      =   0  'Flat
  253.       BeginProperty Font 
  254.          Name            =   "Arial"
  255.          Size            =   9
  256.          Charset         =   0
  257.          Weight          =   700
  258.          Underline       =   0   'False
  259.          Italic          =   0   'False
  260.          Strikethrough   =   0   'False
  261.       EndProperty
  262.       Height          =   285
  263.       Left            =   750
  264.       TabIndex        =   0
  265.       Top             =   240
  266.       Width           =   2790
  267.    End
  268.    Begin VB.TextBox Text2 
  269.       Alignment       =   2  'Center
  270.       Appearance      =   0  'Flat
  271.       BeginProperty Font 
  272.          Name            =   "Arial"
  273.          Size            =   9
  274.          Charset         =   0
  275.          Weight          =   700
  276.          Underline       =   0   'False
  277.          Italic          =   0   'False
  278.          Strikethrough   =   0   'False
  279.       EndProperty
  280.       Height          =   285
  281.       IMEMode         =   3  'DISABLE
  282.       Left            =   735
  283.       PasswordChar    =   "X"
  284.       TabIndex        =   1
  285.       Top             =   780
  286.       Width           =   2880
  287.    End
  288.    Begin VB.Label Label1 
  289.       Alignment       =   2  'Center
  290.       BackStyle       =   0  'Transparent
  291.       Caption         =   "Name"
  292.       BeginProperty Font 
  293.          Name            =   "Arial"
  294.          Size            =   9.75
  295.          Charset         =   0
  296.          Weight          =   700
  297.          Underline       =   0   'False
  298.          Italic          =   0   'False
  299.          Strikethrough   =   0   'False
  300.       EndProperty
  301.       Height          =   300
  302.       Left            =   1815
  303.       TabIndex        =   22
  304.       Top             =   1095
  305.       Width           =   690
  306.    End
  307.    Begin VB.Label Label2 
  308.       Alignment       =   2  'Center
  309.       Caption         =   "Email Address"
  310.       BeginProperty Font 
  311.          Name            =   "Arial"
  312.          Size            =   9.75
  313.          Charset         =   0
  314.          Weight          =   700
  315.          Underline       =   0   'False
  316.          Italic          =   0   'False
  317.          Strikethrough   =   0   'False
  318.       EndProperty
  319.       Height          =   225
  320.       Left            =   1373
  321.       TabIndex        =   3
  322.       Top             =   30
  323.       Width           =   1545
  324.    End
  325.    Begin VB.Label Label3 
  326.       Alignment       =   2  'Center
  327.       Caption         =   "Password"
  328.       BeginProperty Font 
  329.          Name            =   "Arial"
  330.          Size            =   9.75
  331.          Charset         =   0
  332.          Weight          =   700
  333.          Underline       =   0   'False
  334.          Italic          =   0   'False
  335.          Strikethrough   =   0   'False
  336.       EndProperty
  337.       Height          =   225
  338.       Left            =   1635
  339.       TabIndex        =   2
  340.       Top             =   570
  341.       Width           =   1065
  342.    End
  343. End
  344. Attribute VB_Name = "Form1"
  345. Attribute VB_GlobalNameSpace = False
  346. Attribute VB_Creatable = False
  347. Attribute VB_PredeclaredId = True
  348. Attribute VB_Exposed = False
  349. Option Explicit
  350. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  351. Private Const BS_FLAT = &H8000&
  352. Private Const GWL_STYLE = (-16)
  353. Private Const WS_CHILD = &H40000000
  354. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  355. Private MyIndex As Integer
  356. Private Sub Command1_Click()
  357. Text1.SetFocus
  358. If Text1.Text = "" Or Text2.Text = "" Or Text2.Text = "" Then MsgBox "You havent filled in all the required feilds !": Exit Sub
  359. If MyIndex = 0 Then
  360. ShellExecute Me.hwnd, "open", "https://www.rentacoder.com/ads/authentication/LoginAction.asp?txtReturnURL=http://planet-source-code.com/vb/authentication/Login.asp?txtReturnURL=http://planet-source-code.com&txtEmailAddress=" & Text1.Text & "&txtPassword=" & Text2.Text, vbNullString, vbNullString, 1
  361. Else
  362. ShellExecute Me.hwnd, "open", "https://www.rentacoder.com/ads/authentication/LoginAction.asp?txtReturnURL=http://planet-source-code.com/vb/authentication/Login.asp?txtReturnURL=http://planet-source-code.com/vb/default.asp%26lngWId%3D" & MyIndex & "&lngWId=1&blnOutsideOfVBSubWeb=False&txtEmailAddress=" & Text1.Text & "&txtPassword=" & Text2.Text, vbNullString, vbNullString, 1
  363. End If
  364. Call SaveSettings
  365. End
  366. End Sub
  367. Private Sub Command2_Click()
  368. Text1.SetFocus
  369. If Text1.Text = "" Or Text2.Text = "" Or Text2.Text = "" Then MsgBox "You havent filled in all the required feilds !": Exit Sub
  370. ShellExecute Me.hwnd, "open", "https://www.rentacoder.com/ads/authentication/LoginAction.asp?txtReturnURL=http://www.planet-source-code.com/vb/authors/determine_author_type.asp?lngWId=1&lngWId=1&blnOutsideOfVBSubWeb=False&strPassKey=&txtEmailAddress=" & Text1.Text & "&txtPassword=" & Text2.Text, vbNullString, vbNullString, 1
  371. Call SaveSettings
  372. End
  373. End Sub
  374. Private Sub Command3_Click()
  375. Text1.SetFocus
  376. If Text1.Text = "" Or Text2.Text = "" Or Text2.Text = "" Then MsgBox "You havent filled in all the required feilds !": Exit Sub
  377. ShellExecute Me.hwnd, "open", "http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=50&blnResetAllVariables=TRUE&txtCriteria=" & fConvert(Text3.Text) & "&lngWId=1&B1=Quick+Search", vbNullString, vbNullString, 1
  378. Call SaveSettings
  379. End
  380. End Sub
  381. Private Sub Form_Load()
  382. If App.PrevInstance Then End
  383. btnFlat Command1
  384. btnFlat Command2
  385. btnFlat Command3
  386. Text1.Text = GetSetting("PSC Express Login", "Settings", "User ID", "")
  387. Text2.Text = GetSetting("PSC Express Login", "Settings", "Password", "")
  388. Text3.Text = GetSetting("PSC Express Login", "Settings", "Name", "")
  389. End Sub
  390. Private Sub Form_Unload(Cancel As Integer)
  391. Unload Me
  392. End Sub
  393. Private Sub SaveSettings()
  394. SaveSetting "PSC Express Login", "Settings", "User ID", Text1.Text
  395. SaveSetting "PSC Express Login", "Settings", "Password", Text2.Text
  396. SaveSetting "PSC Express Login", "Settings", "Name", Text3.Text
  397. End Sub
  398. Function btnFlat(Button As CommandButton)
  399. SetWindowLong Button.hwnd, GWL_STYLE, WS_CHILD Or BS_FLAT
  400. Button.Visible = True 'Make the button visible (its automaticly hidden when the SetWindowLong call is executed because we reset the button's Attributes)
  401. End Function
  402. Private Sub Option1_Click(Index As Integer)
  403. Text1.SetFocus
  404. On Error Resume Next
  405. Dim GetMyIndex As Integer
  406. Dim x As Integer
  407. For x = 0 To 13
  408. If Option1(x).Value = True Then
  409. If x = 11 Then x = 13
  410. MyIndex = x
  411. Exit Sub
  412. End If
  413. Next x
  414. End Sub
  415. Public Function fConvert(ByVal sStr As String) As String
  416.     Dim I As Integer
  417.     Dim sBadChar As String
  418.     Dim sNewChar As String
  419.     Dim NewString As String
  420.     Dim NewString2 As String
  421.     'List all illegal / unwanted characters
  422.     sBadChar = Chr(32)
  423.     'Loop through all the characters of the
  424.     '     string
  425.     'checking whether each is an illegal cha
  426.     '     racter
  427.     sNewChar = "+"
  428.     Dim m As Integer
  429.     Dim GetChr0 As String
  430.     Dim GetChr1 As String
  431.     For m = 1 To Len(sStr)
  432.         GetChr0 = Left(sStr, m)
  433.         GetChr1 = Right(GetChr0, 1)
  434.         If GetChr1 = sBadChar Then
  435.         fConvert = fConvert & sNewChar
  436.         Else
  437.         fConvert = fConvert & GetChr1
  438.         End If
  439.     Next m
  440.  
  441. End Function
  442.