home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD78117152000.psc / Update-Program / Auto Update / AutoUpdate.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-07-15  |  9.6 KB  |  308 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAutoUpdate 
  3.    Caption         =   "Auto Update Deluxe"
  4.    ClientHeight    =   4575
  5.    ClientLeft      =   60
  6.    ClientTop       =   630
  7.    ClientWidth     =   6660
  8.    Icon            =   "AutoUpdate.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    Moveable        =   0   'False
  11.    ScaleHeight     =   4575
  12.    ScaleWidth      =   6660
  13.    StartUpPosition =   2  'CenterScreen
  14.    Begin VB.TextBox txtKeyFile 
  15.       Enabled         =   0   'False
  16.       Height          =   285
  17.       Left            =   1440
  18.       TabIndex        =   18
  19.       Text            =   "Text2"
  20.       Top             =   1440
  21.       Width           =   255
  22.       Visible         =   0   'False
  23.    End
  24.    Begin VB.TextBox txtKeyPhrase 
  25.       Enabled         =   0   'False
  26.       Height          =   285
  27.       Left            =   1080
  28.       TabIndex        =   17
  29.       Text            =   "Text2"
  30.       Top             =   1440
  31.       Width           =   255
  32.       Visible         =   0   'False
  33.    End
  34.    Begin VB.Frame Frame2 
  35.       Height          =   855
  36.       Left            =   5160
  37.       TabIndex        =   14
  38.       Top             =   0
  39.       Width           =   1215
  40.       Begin VB.Label lblmail 
  41.          Caption         =   "Email"
  42.          BeginProperty Font 
  43.             Name            =   "Times New Roman"
  44.             Size            =   8.25
  45.             Charset         =   0
  46.             Weight          =   400
  47.             Underline       =   -1  'True
  48.             Italic          =   0   'False
  49.             Strikethrough   =   0   'False
  50.          EndProperty
  51.          ForeColor       =   &H00C00000&
  52.          Height          =   255
  53.          Left            =   360
  54.          MousePointer    =   2  'Cross
  55.          TabIndex        =   16
  56.          Top             =   480
  57.          Width           =   495
  58.       End
  59.       Begin VB.Label lblwww 
  60.          Caption         =   "Homepage"
  61.          BeginProperty Font 
  62.             Name            =   "Times New Roman"
  63.             Size            =   8.25
  64.             Charset         =   0
  65.             Weight          =   400
  66.             Underline       =   -1  'True
  67.             Italic          =   0   'False
  68.             Strikethrough   =   0   'False
  69.          EndProperty
  70.          ForeColor       =   &H00C00000&
  71.          Height          =   255
  72.          Left            =   240
  73.          MousePointer    =   2  'Cross
  74.          TabIndex        =   15
  75.          Top             =   120
  76.          Width           =   855
  77.       End
  78.    End
  79.    Begin VB.TextBox Text1 
  80.       Height          =   285
  81.       Left            =   1080
  82.       TabIndex        =   12
  83.       Text            =   "Text1"
  84.       Top             =   1080
  85.       Width           =   1095
  86.       Visible         =   0   'False
  87.    End
  88.    Begin VB.TextBox txtepost 
  89.       Height          =   285
  90.       Left            =   240
  91.       TabIndex        =   11
  92.       Text            =   "txtepost"
  93.       Top             =   1440
  94.       Width           =   735
  95.       Visible         =   0   'False
  96.    End
  97.    Begin VB.TextBox txtwww 
  98.       Enabled         =   0   'False
  99.       Height          =   285
  100.       Left            =   240
  101.       TabIndex        =   10
  102.       Text            =   "txtwww"
  103.       Top             =   1080
  104.       Width           =   735
  105.       Visible         =   0   'False
  106.    End
  107.    Begin VB.Frame Frame1 
  108.       Caption         =   "Programinformation"
  109.       Height          =   1575
  110.       Left            =   120
  111.       TabIndex        =   3
  112.       Top             =   1920
  113.       Width           =   6255
  114.       Begin VB.CommandButton cmdNext1 
  115.          Caption         =   "Next  >"
  116.          Height          =   375
  117.          Left            =   4800
  118.          TabIndex        =   13
  119.          Top             =   1080
  120.          Width           =   1095
  121.       End
  122.       Begin VB.Label lblProgram 
  123.          Caption         =   "Label5"
  124.          Height          =   255
  125.          Left            =   1440
  126.          TabIndex        =   9
  127.          Top             =   360
  128.          Width           =   4575
  129.       End
  130.       Begin VB.Label lblVersion 
  131.          Caption         =   "Label6"
  132.          Height          =   255
  133.          Left            =   1440
  134.          TabIndex        =   8
  135.          Top             =   720
  136.          Width           =   1455
  137.       End
  138.       Begin VB.Label Label1 
  139.          Caption         =   "Program name:"
  140.          Height          =   255
  141.          Left            =   120
  142.          TabIndex        =   7
  143.          Top             =   360
  144.          Width           =   1215
  145.       End
  146.       Begin VB.Label Label2 
  147.          Caption         =   "Current Version:"
  148.          Height          =   255
  149.          Left            =   120
  150.          TabIndex        =   6
  151.          Top             =   720
  152.          Width           =   1215
  153.       End
  154.       Begin VB.Label Label3 
  155.          Caption         =   "Date of this program:"
  156.          Height          =   255
  157.          Left            =   120
  158.          TabIndex        =   5
  159.          Top             =   1080
  160.          Width           =   1575
  161.       End
  162.       Begin VB.Label lbldate 
  163.          Caption         =   "Label4"
  164.          BeginProperty Font 
  165.             Name            =   "Times New Roman"
  166.             Size            =   9
  167.             Charset         =   0
  168.             Weight          =   400
  169.             Underline       =   0   'False
  170.             Italic          =   0   'False
  171.             Strikethrough   =   0   'False
  172.          EndProperty
  173.          ForeColor       =   &H00000000&
  174.          Height          =   255
  175.          Left            =   1920
  176.          TabIndex        =   4
  177.          Top             =   1080
  178.          Width           =   1695
  179.       End
  180.    End
  181.    Begin VB.Image Image2 
  182.       Height          =   1080
  183.       Left            =   4920
  184.       Picture         =   "AutoUpdate.frx":27A2
  185.       Top             =   3840
  186.       Width           =   1860
  187.    End
  188.    Begin VB.Line Line3 
  189.       BorderColor     =   &H00FFFFFF&
  190.       X1              =   360
  191.       X2              =   6240
  192.       Y1              =   960
  193.       Y2              =   960
  194.    End
  195.    Begin VB.Line Line2 
  196.       X1              =   1080
  197.       X2              =   6360
  198.       Y1              =   4080
  199.       Y2              =   4080
  200.    End
  201.    Begin VB.Image Image1 
  202.       Height          =   480
  203.       Left            =   240
  204.       Picture         =   "AutoUpdate.frx":298E
  205.       Top             =   4080
  206.       Width           =   480
  207.    End
  208.    Begin VB.Label lblcopyright 
  209.       BackStyle       =   0  'Transparent
  210.       Caption         =   "AutoUpdate Deluxe Copyright 
  211.  ITson 1999-2000"
  212.       BeginProperty Font 
  213.          Name            =   "Times New Roman"
  214.          Size            =   6.75
  215.          Charset         =   0
  216.          Weight          =   400
  217.          Underline       =   0   'False
  218.          Italic          =   0   'False
  219.          Strikethrough   =   0   'False
  220.       EndProperty
  221.       Height          =   255
  222.       Left            =   840
  223.       TabIndex        =   2
  224.       Top             =   4320
  225.       Width           =   3735
  226.    End
  227.    Begin VB.Label lblwelcome 
  228.       Caption         =   "Welcome. This guide will help you Update your software. Confirm the information below is correct."
  229.       Height          =   615
  230.       Left            =   2880
  231.       TabIndex        =   1
  232.       Top             =   1200
  233.       Width           =   3375
  234.    End
  235.    Begin VB.Label lblforetag 
  236.       Caption         =   "Companyname"
  237.       BeginProperty Font 
  238.          Name            =   "MS Sans Serif"
  239.          Size            =   24
  240.          Charset         =   0
  241.          Weight          =   400
  242.          Underline       =   0   'False
  243.          Italic          =   0   'False
  244.          Strikethrough   =   0   'False
  245.       EndProperty
  246.       Height          =   555
  247.       Left            =   360
  248.       TabIndex        =   0
  249.       Top             =   120
  250.       Width           =   4680
  251.    End
  252.    Begin VB.Line Line1 
  253.       BorderColor     =   &H00C00000&
  254.       BorderWidth     =   2
  255.       X1              =   6240
  256.       X2              =   360
  257.       Y1              =   960
  258.       Y2              =   960
  259.    End
  260.    Begin VB.Menu Aboutmenu 
  261.       Caption         =   "&About"
  262.       Begin VB.Menu mnuabout 
  263.          Caption         =   "About &this program"
  264.       End
  265.    End
  266. Attribute VB_Name = "frmAutoUpdate"
  267. Attribute VB_GlobalNameSpace = False
  268. Attribute VB_Creatable = False
  269. Attribute VB_PredeclaredId = True
  270. Attribute VB_Exposed = False
  271. Private Sub cmdNext1_Click()
  272. Unload Me
  273. frmUpdate.Show
  274. End Sub
  275. Private Sub Form_Load()
  276. Dim www
  277. Dim epost
  278. mta in info fr
  279. n inifilen :)
  280. TheKey = "123456789"
  281. mta in info fr
  282. n inifilen :)
  283.  txtKeyPhrase.Text = TheKey
  284.  txtKeyFile.Text = App.Path & "\remoteversion.ini"
  285. x = decrypt(txtKeyPhrase.Text, GetIni(txtKeyFile.Text, "data", "Foretag"))
  286. lblforetag.Caption = x
  287. x = decrypt(txtKeyPhrase.Text, GetIni(txtKeyFile.Text, "data", "ProgNamn"))
  288. lblProgram.Caption = x
  289. x = decrypt(txtKeyPhrase.Text, GetIni(txtKeyFile.Text, "data", "Version"))
  290. lblVersion.Caption = x
  291. x = decrypt(txtKeyPhrase.Text, GetIni(txtKeyFile.Text, "data", "Datum"))
  292. Text1.Text = x
  293. lbldate.Caption = ConvertDate(Text1)
  294. x = decrypt(txtKeyPhrase.Text, GetIni(txtKeyFile.Text, "data", "WWW"))
  295. txtwww.Text = x
  296. x = decrypt(txtKeyPhrase.Text, GetIni(txtKeyFile.Text, "data", "Email"))
  297. txtepost.Text = x
  298. End Sub
  299. Private Sub lblmail_Click()
  300. epost = Shell("start.exe mailto:" & txtepost, 0)
  301. End Sub
  302. Private Sub lblwww_Click()
  303. www = Shell("start.exe " & txtwww, 0)
  304. End Sub
  305. Private Sub mnuabout_Click()
  306. frmAbout.Show
  307. End Sub
  308.