VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "آدرس ياب"
   ClientHeight    =   1440
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   5955
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   178
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   MaxButton       =   0   'False
   MinButton       =   0   'False
   RightToLeft     =   -1  'True
   ScaleHeight     =   1440
   ScaleWidth      =   5955
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command3 
      Caption         =   "خروج"
      Height          =   375
      Left            =   120
      RightToLeft     =   -1  'True
      TabIndex        =   4
      Top             =   480
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "رفتن به سايت"
      Height          =   375
      Left            =   1800
      RightToLeft     =   -1  'True
      TabIndex        =   3
      Top             =   480
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "جستجو"
      Height          =   375
      Left            =   3120
      RightToLeft     =   -1  'True
      TabIndex        =   2
      Top             =   480
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      Alignment       =   1  'Right Justify
      Height          =   315
      Left            =   120
      RightToLeft     =   -1  'True
      TabIndex        =   0
      Top             =   120
      Width           =   4095
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "طراحي و برنامه نويسي : کامبيز دهقاني"
      Height          =   195
      Left            =   3120
      RightToLeft     =   -1  'True
      TabIndex        =   6
      Top             =   1080
      Width           =   2745
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Site : www.20script.ir"
      Height          =   195
      Left            =   120
      RightToLeft     =   -1  'True
      TabIndex        =   5
      Top             =   1080
      Width           =   2100
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "جديدترين آدرس سايت :"
      Height          =   195
      Left            =   4275
      RightToLeft     =   -1  'True
      TabIndex        =   1
      Top             =   120
      Width           =   1590
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim s As String
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
Private Sub Command1_Click()
Text1.Text = ""
s = GetUrlSource("http://www.20script.ir/wp-content/uploads/link.txt")
Text1.Text = s
End Sub
Private Sub Command2_Click()
ShellExecute Me.hwnd, vbNullString, Text1.Text, vbNullString, "C:\", SW_SHOWNORMAL
End Sub
Private Sub Command3_Click()
End
End Sub
