Proje 4 : TheWayEnd Altın Borsası

Dim altin As String

Private Sub Form_Load()

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Option6.Value = False

Option8.Value = False

End Sub



Private Sub Label6_Click()

Shell ("explorer.exe https://accesstr.net")

End Sub



Private Sub Option1_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

guncel = Trim(Mid(altin, InStr(altin, "ctl00_ContentPlaceHolder1_lb_time") + 35, 19))

Label2.Caption = guncel

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaral22 = Trim(Mid(altin, InStr(altin, "22 Ayar Bilezik") + 208, 7))

ayarsat22 = Trim(Mid(altin, InStr(altin, "22 Ayar Bilezik") + 416, 7))

Text1.Text = ayaral22

Text2.Text = ayarsat22

End Sub

Private Sub Option2_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaral18 = Trim(Mid(altin, InStr(altin, "18 Ayar") + 225, 7))

ayarsat18 = Trim(Mid(altin, InStr(altin, "18 Ayar") + 451, 7))

Text1.Text = ayaral18

Text2.Text = ayarsat18

End Sub

Private Sub Option3_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaral14 = Trim(Mid(altin, InStr(altin, "14 Ayar") + 207, 7))

ayarsat14 = Trim(Mid(altin, InStr(altin, "14 Ayar") + 415, 7))

Text1.Text = ayaral14

Text2.Text = ayarsat14

End Sub

Private Sub Option4_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaralce = Trim(Mid(altin, InStr(altin, "eyrek") + 221, 7))

ayarsatce = Trim(Mid(altin, InStr(altin, "eyrek") + 446, 7))

Text1.Text = ayaralce

Text2.Text = ayarsatce

End Sub



Private Sub Option6_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaralcum = Trim(Mid(altin, InStr(altin, "Cumhuriyet") + 201, 7))

ayarsatcum = Trim(Mid(altin, InStr(altin, "Cumhuriyet") + 408, 7))

Text1.Text = ayaralcum

Text2.Text = ayarsatcum

End Sub





Private Sub Option8_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaralgr = Trim(Mid(altin, InStr(altin, "Gram") + 204, 7))

ayarsatgr = Trim(Mid(altin, InStr(altin, "Gram") + 412, 7))

Text1.Text = ayaralgr

Text2.Text = ayarsatgr

End Sub