{"id":388,"date":"2010-10-21T22:27:07","date_gmt":"2010-10-21T19:27:07","guid":{"rendered":"http:\/\/www.notsayfam.com\/?p=388"},"modified":"2018-06-12T17:22:22","modified_gmt":"2018-06-12T15:22:22","slug":"vb-net-ile-web-sayfalari-uzerinde-get-post-istekleri-yapmak-ve-excel-islemleri","status":"publish","type":"post","link":"https:\/\/www.notsayfam.com\/?p=388","title":{"rendered":"Vb.net \u0130le Web Sayfalar\u0131 \u00fczerinde Get-Post istekleri yapmak ve Excel i\u015flemleri"},"content":{"rendered":"

G\u00fczel bir programla\/notlarla yeni bir post.<\/p>\n

Program\u0131n,notlar\u0131n i\u015flemleri;
\nVb.net kullanarak Web sayfalar\u0131n\u0131 getirmek veya web sayfalar\u0131na de\u011ferler post ederek gelen de\u011ferleri almak. Al\u0131nan verileri excel dosyas\u0131 olu\u015fturup ilgili s\u00fct\u00fcn\/sat\u0131rlara yaz\u0131p bi\u00e7imlendirmeleri (h\u00fccre birle\u015ftirme,renklendirme) yap\u0131p kay\u0131t etmek.<\/p>\n

Program\u0131n yapt\u0131klar\u0131;
\n1-\u0130zmir metro seferlerini www.izmir.bel.tr adresinden Get ile al\u0131p kaynak kodunu temizledikten sonra excele aktar\u0131p kay\u0131t etmek
\n2-\u0130zmir banliyo seferlerini www.izban.com.tr adresinden al\u0131p kay\u0131t etmek.
\n3-Vapur seferlerini www.izmir.bel.tr ula\u015f\u0131mdaki vapur alan\u0131nda bulunan kalk\u0131\u015f ve var\u0131\u015f comboboxlar\u0131 i\u00e7erisindeki de\u011ferlerin hepsini tek tek post ederek gelen de\u011ferlere g\u00f6re sefer varsa excele atmak
\n4-Otob\u00fcs numaralar\u0131n\u0131 kullanarak www.eshot.gov.tr sitesinden her bir otob\u00fcs numaras\u0131 i\u00e7in g\u00fczergah,saatlerini al\u0131p excele kay\u0131t etmek.<\/p>\n

K\u0131saca izmir offline ula\u015f\u0131m rehberi. (21 Ekim 2010)
\n
\nProgram\u0131n tam proje dosyas\u0131n\u0131 indirmek i\u00e7in t\u0131klay\u0131n\u0131z<\/a> (vs 2005)<\/p>\n

\"\"<\/a><\/p>\n


\nImports System.Net
\nImports System.Text
\nImports System.IO
\nImports Microsoft.Office.Core
\nImports System.Threading
\nImports System.Runtime.InteropServices
\nPublic Class Form1
\nShared threadcount As Integer = 0
\nShared path As String = \"\"
\nDim bitti As Boolean = False
\nShared sonalinan As String = \"\"
\nPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
\nControl.CheckForIllegalCrossThreadCalls = False
\nEnd Sub<\/code><\/p>\n

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnotobus.Click
\nIf IsNumeric(txtotobusilk.Text) And IsNumeric(txtotobusson.Text) Then
\nIf Val(txtotobusilk.Text) > Val(txtotobusson.Text) Then
\nMsgBox(“\u0130lk otob\u00fcs son otob\u00fcs numaras\u0131ndan b\u00fcy\u00fck olamaz”)
\nExit Sub
\nEnd If
\nElse
\nMsgBox(“L\u00fctfen otob\u00fcs numaras\u0131 alanlar\u0131na rakam giriniz”)
\nExit Sub
\nEnd If
\nDirectoryCheck()
\npath = txtpath.Text
\nDim thbaslat As Thread
\nDim thkbaslat As New ThreadStart(AddressOf OtobusTaramaBaslat)
\nthbaslat = New Thread(thkbaslat)
\nthbaslat.Start()
\nEnd Sub
\nPrivate Sub OtobusTaramaBaslat()
\nbitti = False
\nDim thistatistik As Thread
\nDim thkistatistik As New ThreadStart(AddressOf SbIstatistik)
\nthistatistik = New Thread(thkistatistik)
\nthistatistik.Start()
\nDim alinansayisi As Integer = 0
\nbtnotobus.Enabled = False
\nSystem.IO.Directory.CreateDirectory(path & “\\Otobus”)
\nFor i As Integer = Val(txtotobusilk.Text) To Val(txtotobusson.Text)
\nlblcalisilan.Text = i.ToString
\ntekrar:
\nIf threadcount >= Val(txtmaxthread.Text) Then
\nThread.Sleep(500)
\nGoTo tekrar
\nEnd If<\/p>\n

Dim otobusclass As New OtobusTara
\notobusclass.otobusno = i
\nDim thsoft As New Thread(AddressOf otobusclass.Otobusbulyaz)
\nthsoft.IsBackground = True
\nthsoft.Priority = ThreadPriority.Normal
\nthsoft.Start()
\nInterlocked.Increment(threadcount)
\nThread.Sleep(500)
\nNext
\nbitti = True
\nbtnotobus.Enabled = True
\n‘Call ProcessKill()
\nlblsondurum.Text = “Sefer al\u0131m threadlar\u0131 tamamland\u0131” & vbCrLf & _
\n“\u00c7al\u0131\u015fan threadlar\u0131n sonlanmas\u0131 bekleniyor”
\nEnd Sub
\nPrivate Sub SbIstatistik()
\nbas:
\nIf threadcount = 0 And bitti = True Then
\nlblthreadcount.Text = threadcount
\nlblsondurum.Text = “Sefer Al\u0131mlar\u0131 Tamamland\u0131” & vbCrLf & _
\n“Baz\u0131 excel prosesleri tak\u0131l\u0131 kalm\u0131\u015f olabilir” & vbCrLf & _
\n“Biraz bekledikten sonra excel i\u015flemlerini sonland\u0131rabilirsiniz”
\nExit Sub
\nElse
\nlblalinan.Text = sonalinan
\nlblthreadcount.Text = threadcount
\nThread.Sleep(100)
\nGoTo bas
\nEnd If
\nEnd Sub
\nPublic Class OtobusTara
\nPublic otobusno As Integer
\nPublic Sub Otobusbulyaz()
\nDim kaynakkodu As String = “”
\nDim kaynak As String = “”
\nDim guzergah As String = “”
\nTry
\nDim istek As HttpWebRequest = HttpWebRequest.Create(“http:\/\/www.eshot.gov.tr\/otobushareket\/OtobusSaatleri.aspx?hatno=” & otobusno.ToString)
\nDim cevap As HttpWebResponse = istek.GetResponse
\nDim sr As IO.StreamReader = New IO.StreamReader(cevap.GetResponseStream())
\nkaynak = sr.ReadToEnd()
\nCatch ex As WebException
\nMsgBox(“Web sayfas\u0131 al\u0131n\u0131rken sorun olu\u015ftu” & vbCrLf & ex.Message)
\nGoTo cikis
\nEnd Try<\/p>\n

If Not (InStr(kaynak, “Hat No”) > 0) Then
\n‘Otob\u00fcs yok
\nGoTo cikis
\nEnd If
\nDim baslangictext As String = “<th scope=””col””>”
\nDim bitistext As String = “<input type=””hidden”””
\nDim tablobas As Integer = InStr(kaynak, baslangictext)
\nIf tablobas = 0 Then
\n‘Otob\u00fcs yok
\nGoTo cikis
\nEnd If
\nDim guzergahbas As Integer = InStr(kaynak, “<span id=””lbGuzergah””>”) + 22
\nDim guzergahson As String = InStr(kaynak, “<div id=””aciklamaDiv”””) – (InStr(kaynak, “<span id=””lbGuzergah””>”) + 61)
\nguzergah = Mid(kaynak, guzergahbas, guzergahson)<\/p>\n

Dim tabloson As Integer = InStr(Mid(kaynak, tablobas, Len(kaynak) – tablobas), bitistext) – 20
\nkaynakkodu = Mid(kaynak, tablobas, tabloson)
\nkaynakkodu = Replace(kaynakkodu, Chr(13), “”)
\nkaynakkodu = Replace(kaynakkodu, Chr(10), “”)
\nkaynakkodu = Replace(kaynakkodu, ” “, “”)
\nkaynakkodu = Replace(kaynakkodu, ” “, “”)
\nkaynakkodu = Replace(kaynakkodu, “<th scope=””col””>”, “”)
\nkaynakkodu = Replace(kaynakkodu, “<\/td><td align=””center””>”, “;”)
\nkaynakkodu = Replace(kaynakkodu, “<\/td><\/tr><tr style=””background-color:White;””><td align=””center””>”, Chr(13))
\nkaynakkodu = Replace(kaynakkodu, “<\/td><\/tr><tr style=””background-color:#EDEDED;””><td align=””center””>”, Chr(13))
\nkaynakkodu = Replace(kaynakkodu, “<\/td><\/tr><\/table><\/div><\/td><td valign=””top””><div><table cellspacing=””0″” cellpadding=””4″” border=””0″” id=””grid3″” style=””color:#333333;width:150px;border-collapse:collapse;””><tr style=””color:White;background-color:#616161;font-weight:bold;””>”, Chr(13))
\nkaynakkodu = Replace(kaynakkodu, “<\/td><\/tr><\/table><\/div><\/td><td valign=””top””><div><table cellspacing=””0″” cellpadding=””4″” border=””0″” id=””grid2″” style=””color:#333333;width:150px;border-collapse:collapse;””><tr style=””color:White;background-color:#616161;font-weight:bold;””>”, Chr(13))
\nkaynakkodu = Replace(kaynakkodu, “<\/th><\/tr><tr style=””background-color:#EDEDED;””><td align=””center””>”, Chr(13))
\nkaynakkodu = Replace(kaynakkodu, “<\/th>”, “;”)
\nkaynakkodu = Replace(kaynakkodu, “<\/td><\/tr><\/table><\/div><\/td><\/tr><\/table> “, “”)<\/p>\n

kaynakkodu = Replace(kaynakkodu, “\u00c7”, “C”)
\nkaynakkodu = Replace(kaynakkodu, “\u00dc”, “U”)
\nkaynakkodu = Replace(kaynakkodu, “\u0131”, “i”)
\nkaynakkodu = Replace(kaynakkodu, “\u015f”, “s”)
\nkaynakkodu = Replace(kaynakkodu, “\u00d6”, “\u00d6”)
\nkaynakkodu = Replace(kaynakkodu, “G?zergah”, “Guzergah”)
\nkaynakkodu = Replace(kaynakkodu, “KAR?”, “KARS”)
\nkaynakkodu = Replace(kaynakkodu, “\u015f”, “s”)
\nkaynakkodu = Replace(kaynakkodu, ” “, ” “)<\/p>\n

Dim oXL As Excel.Application
\nDim oWB As Excel.Workbook
\nDim oSheet As Excel.Worksheet<\/p>\n

oXL = CreateObject(“Excel.Application”)
\noXL.Visible = False<\/p>\n

oWB = oXL.Workbooks.Add
\noSheet = oWB.ActiveSheet<\/p>\n

Dim satirlar() As String = Split(kaynakkodu, Chr(13))
\nDim cumartesi As Boolean = False
\nDim pazar As Boolean = False
\nDim cumartesisayisi As Integer = 0
\nDim pazarsayisi As Integer = 0
\noSheet.Cells(1, 1) = guzergah
\nFor i As Integer = 0 To satirlar.Length – 1
\nDim satir As String = satirlar(i).ToString
\nDim ogeler() As String = Split(satir, “;”)
\nIf ogeler.Length < 2 Then Exit For
\nIf InStr(ogeler(0), “Kalk\u0131\u015f”) And i > 5 And cumartesi = True Then
\ncumartesi = False
\npazar = True
\nEnd If
\nIf InStr(ogeler(0), “Kalk\u0131\u015f”) And i > 5 And cumartesi = False And pazar = False Then
\ncumartesi = True
\nEnd If
\nIf cumartesi = True Then
\noSheet.Cells(cumartesisayisi + 2, 3) = ogeler(0)
\noSheet.Cells(cumartesisayisi + 2, 4) = ogeler(1)
\ncumartesisayisi += 1
\nEnd If
\nIf pazar = True Then
\noSheet.Cells(pazarsayisi + 2, 5) = ogeler(0)
\noSheet.Cells(pazarsayisi + 2, 6) = ogeler(1)
\npazarsayisi += 1
\nEnd If
\nIf cumartesi = False And pazar = False Then
\noSheet.Cells(i + 2, 1) = ogeler(0)
\noSheet.Cells(i + 2, 2) = ogeler(1)
\nEnd If
\nNext
\nIf cumartesisayisi > 0 Then
\n‘ E\u011fer cumartesi g\u00fcn\u00fc sefer varsa C2 den ba\u015flay\u0131p
\n‘ Cumartesi g\u00fcn\u00fc sonuna kadar renklendirelim
\nWith oSheet.Range(“C2”, “D” & cumartesisayisi + 1)
\n‘.Font.Bold = True
\n.Interior.ColorIndex = 17
\n.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
\nEnd With
\nEnd If
\nWith oSheet.Range(“A1”, “F1”)
\n‘ Otob\u00fcs guzergah\u0131n\u0131 bi\u00e7imlendirelim
\n.Merge()
\n.Font.Size = 7
\n.Font.Bold = True
\n.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
\nEnd With
\nWith oSheet.Range(“A2”, “F2”)
\n‘ Ba\u015fl\u0131k bilgilerini bi\u00e7imlendirelim
\n.WrapText = True
\n.ColumnWidth = 10
\n.Font.Size = 7
\n.Font.Bold = True
\n.Interior.ColorIndex = 13
\n.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
\n.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
\n.EntireColumn.AutoFit()
\nEnd With
\nWith oSheet.Range(“A3”, “F253”)
\n.Font.Size = 9
\n.EntireColumn.AutoFit()
\n.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
\n.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
\nEnd With<\/p>\n

Dim dosyaadi As String = otobusno & “-” & Replace(oSheet.Cells(2, 1).Value.ToString, ” Kalk\u0131\u015f”, “”) & “-” & Replace(oSheet.Cells(2, 2).value.ToString, ” Kalk\u0131\u015f”, “”) & “(” & guzergah & “)” & “.xls”
\nIf Len(dosyaadi) > 150 Then
\ndosyaadi = otobusno & “-” & Replace(oSheet.Cells(2, 1).Value.ToString, ” Kalk\u0131\u015f”, “”) & “-” & Replace(oSheet.Cells(2, 2).value.ToString, ” Kalk\u0131\u015f”, “”) & “(” & Mid(guzergah, 1, 100) & “)” & “.xls”
\nEnd If
\nIf System.IO.File.Exists(path + “\\Otobus\\” + dosyaadi) Then
\nDim cvp = MessageBox.Show(“Kay\u0131t edilmeye \u00e7al\u0131\u015f\u0131lan dosya mevcut \u00fczerine yaz\u0131ls\u0131n m\u0131?” & vbCrLf & “Dosyaad\u0131:” & path + “\\Otobus\\” + dosyaadi, “Dosya Mevcut”, MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
\nIf cvp = vbYes Then
\nsilveuzerineyaz:
\n‘Dosya mevcutsa eski dosyay\u0131 silelim
\nTry
\nSystem.IO.File.Delete(path + “\\Otobus\\” + dosyaadi)
\nCatch ex As IOException
\nMsgBox(“Dosya \u00fczerine yaz\u0131l\u0131rken hata olu\u015ftu” & vbCrLf & ex.Message)
\nExit Sub
\nEnd Try
\nElse
\nDim yenidosyaadi As String = “”
\nyenidosyaadi = InputBox(“Dosya Ad\u0131n\u0131 Giriniz iptal demeniz durumunda dosya kay\u0131t edilmeyecektir”, “Yeni Ad\u0131 Gir”, dosyaadi)
\nIf yenidosyaadi = “” Or yenidosyaadi = dosyaadi Then
\nGoTo cikis
\nElseIf yenidosyaadi <> dosyaadi Then
\nIf InStr(yenidosyaadi, “.xls”) = 0 Then yenidosyaadi += “.xls”
\ndosyaadi = yenidosyaadi
\nEnd If
\nEnd If
\nEnd If
\noSheet.SaveAs(path + “\\Otobus\\” + dosyaadi)
\noWB.Close(False)
\noXL.Workbooks.Close()
\noXL.Quit()
\nsonalinan = otobusno
\ncikis:
\nInterlocked.Decrement(threadcount)
\nEnd Sub<\/p>\n

End Class<\/p>\n

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvapur.Click
\nDirectoryCheck()
\npath = txtpath.Text
\nDim thbaslat As Thread
\nDim thkbaslat As New ThreadStart(AddressOf VapurTara)
\nthbaslat = New Thread(thkbaslat)
\nthbaslat.Start()
\nEnd Sub<\/p>\n

Private Sub VapurTara()
\nSystem.IO.Directory.CreateDirectory(path & “\\Vapur”)
\nbtnvapur.Enabled = False
\n‘ Program\u0131n \u00e7al\u0131\u015fma a\u015famalar\u0131
\n‘ \u0130zmir belediyesinin vapur.asp sayfas\u0131na ba\u011flan\u0131p
\n‘ Kalk\u0131\u015f ve var\u0131\u015f comboboxlar\u0131ndaki de\u011ferler al\u0131nd\u0131ktan sonra.
\n‘ Her kalk\u0131\u015f noktas\u0131ndan her var\u0131\u015f noktas\u0131 i\u00e7in
\n‘ de\u011ferleri post edip gelen de\u011ferlere g\u00f6re e\u011fer vapur var ise
\n‘ kalk\u0131\u015f ve var\u0131\u015f noktalar\u0131na g\u00f6re xls dosyas\u0131 olu\u015fturmakta.
\nDim kaynak As String = “”
\nDim kalkis As String = “”
\nDim varis As String = “”
\nTry
\nDim istek As HttpWebRequest = HttpWebRequest.Create(“http:\/\/www.izmir.bel.tr\/vapur.asp”)
\nDim cevap As HttpWebResponse = istek.GetResponse
\nDim sr As IO.StreamReader = New IO.StreamReader(cevap.GetResponseStream(), Encoding.GetEncoding(“windows-1254”))
\nkaynak = sr.ReadToEnd()
\nCatch ex As WebException
\nMsgBox(“Web sayfas\u0131 al\u0131n\u0131rken sorun olu\u015ftu” & vbCrLf & ex.Message)
\nGoTo cikis
\nEnd Try<\/p>\n

Dim baslangictext As String = “<select class=””frm”” name=””kal””>”
\nDim bitistext As String = “<\/select>”
\nDim tablobas As Integer = InStr(kaynak, baslangictext) + 40
\nIf tablobas = 0 Then
\n‘Ana web sayfas\u0131 i\u00e7erisindeki comboboxlardaki de\u011ferleri alal\u0131m
\nGoTo cikis
\nEnd If
\nDim tabloson As Integer = InStr(Mid(kaynak, tablobas, Len(kaynak) – tablobas), bitistext) – 25<\/p>\n

kalkis = Mid(kaynak, tablobas, tabloson)
\nkalkis = Replace(kalkis, Chr(13), “”)
\nkalkis = Replace(kalkis, Chr(10), “”)
\nkalkis = Replace(kalkis, ” “, “”)
\nkalkis = Replace(kalkis, ” “, “”)
\nkalkis = Replace(kalkis, ” “, “”)
\nkalkis = Replace(kalkis, ” <option value=”””, “”)
\nkalkis = Replace(kalkis, “<option value=”””, “”)
\nkalkis = Replace(kalkis, “”” >”, “;”)
\nkalkis = Replace(kalkis, “<\/option>”, Chr(13))
\nDim kalkislar() As String = Split(kalkis, Chr(13))
\n‘ Her bir sat\u0131r i\u00e7in bir dizi olu\u015ftural\u0131m<\/p>\n

baslangictext = “<select class=””frm”” name=””Var””>”
\nbitistext = “<select class=””frm”” name=””gun””>”
\ntablobas = InStr(kaynak, baslangictext) + 40
\ntabloson = InStr(Mid(kaynak, tablobas, Len(kaynak) – tablobas), bitistext) – 115
\nvaris = Mid(kaynak, tablobas, tabloson)
\nvaris = Replace(varis, Chr(13), “”)
\nvaris = Replace(varis, Chr(10), “”)
\nvaris = Replace(varis, ” “, “”)
\nvaris = Replace(varis, ” “, “”)
\nvaris = Replace(varis, ” “, “”)
\nvaris = Replace(varis, ” <option value=”””, “”)
\nvaris = Replace(varis, “<option value=”””, “”)
\nvaris = Replace(varis, “”” >”, “;”)
\nvaris = Replace(varis, “<\/option>”, Chr(13))
\nvaris = Replace(varis, Chr(13) + Chr(32), “”)
\nDim varislar() As String = Split(varis, Chr(13))
\n‘ Her bir sat\u0131r i\u00e7in bir dizi olu\u015ftural\u0131m<\/p>\n

For i As Integer = 0 To kalkislar.Length – 1
\nFor y As Integer = 0 To varislar.Length – 1
\nIf InStr(kalkislar(i), “;”) = 0 Then GoTo sonraki
\nIf InStr(varislar(y), “;”) = 0 Then GoTo sonraki<\/p>\n

Dim strkalkis As String = Mid(kalkislar(i), 1, InStr(kalkislar(i), “;”) – 1)
\nDim strvaris As String = Mid(varislar(y), 1, InStr(varislar(y), “;”) – 1)
\nIf strkalkis <> strvaris Then
\nDim strkalkispost As String = strkalkis
\nDim strvarispost As String = strvaris
\n‘ T\u00fcrk\u00e7e karakterler post edilirken
\n‘ a\u015fa\u011f\u0131daki \u015fekilde d\u00f6n\u00fc\u015ft\u00fcrmeleri gerekiyor.
\nstrkalkispost = Replace(strkalkispost, ” “, “+”)
\nstrkalkispost = Replace(strkalkispost, “(“, “%28”)
\nstrkalkispost = Replace(strkalkispost, “)”, “%29”)
\nstrkalkispost = Replace(strkalkispost, “\u00dc”, “%DC”)
\nstrkalkispost = Replace(strkalkispost, “\u00c7”, “%C7”)
\nstrkalkispost = Replace(strkalkispost, “\u015e”, “%DE”)
\nstrkalkispost = Replace(strkalkispost, “\u00d6”, “%D6″)
\nstrvarispost = Replace(strvarispost, ” “, “+”)
\nstrvarispost = Replace(strvarispost, “(“, “%28”)
\nstrvarispost = Replace(strvarispost, “)”, “%29”)
\nstrvarispost = Replace(strvarispost, “\u00dc”, “%DC”)
\nstrvarispost = Replace(strvarispost, “\u00c7”, “%C7”)
\nstrvarispost = Replace(strvarispost, “\u015e”, “%DE”)
\nstrvarispost = Replace(strvarispost, “\u00d6”, “%D6”)
\nlblsondurum.Text = “Al\u0131n\u0131yor : ” & strkalkis & “-” & strvaris
\n‘Her vapur i\u00e7in hafta i\u00e7i,c.tesi ve pazar\u0131 deneyelim
\nDim z As Integer
\nDim oXL As Excel.Application
\nDim oWB As Excel.Workbook
\nDim oSheet As Excel.Worksheet
\nDim vapurungunsayisi As Integer = 0
\nDim vapurhareketsayisi As Integer = 0
\nFor z = 0 To 2
\nDim oWeb As New System.Net.WebClient()
\noWeb.Headers.Add(“Content-Type”, “application\/x-www-form-urlencoded”)
\nDim bytRetData As Byte()<\/p>\n

Dim bytArguments As Byte()
\nIf z = 0 Then
\nbytArguments = System.Text.Encoding.GetEncoding(“windows-1254”).GetBytes(“guncek=0&kal=” & strkalkispost & “&var=” & strvarispost & “&gun=H&cek=1”)
\nElseIf z = 1 Then
\nbytArguments = System.Text.Encoding.GetEncoding(“windows-1254”).GetBytes(“guncek=1&kal=” & strkalkispost & “&var=” & strvarispost & “&gun=C&cek=1”)
\nElse
\nbytArguments = System.Text.Encoding.GetEncoding(“windows-1254”).GetBytes(“guncek=2&kal=” & strkalkispost & “&var=” & strvarispost & “&gun=P&cek=1”)
\nEnd If
\nTry
\nbytRetData = oWeb.UploadData(“http:\/\/www.izmir.bel.tr\/vapur.asp?idd=2”, “POST”, bytArguments)
\nCatch ex As WebException
\nMsgBox(“Web sayfas\u0131 al\u0131n\u0131rken hata olu\u015ftu” & vbCrLf & ex.Message)
\nExit Sub
\nEnd Try
\nkaynak = System.Text.Encoding.GetEncoding(“windows-1254”).GetString(bytRetData)
\nIf InStr(kaynak, “Bu kriterlere uygun vapur”) Then
\n‘GoTo sonraki
\n‘E\u011fer sorgulara kar\u015f\u0131l\u0131k olarak sayfa i\u00e7eri\u011finde
\n‘ Bu kriterlere uygun vapur bulunamad\u0131 yer alm\u0131yorsa
\n‘ a\u015fa\u011f\u0131daki i\u015flemleri yap\u0131yoruz
\nElse
\nvapurungunsayisi += 1
\nIf z = 0 Then
\noXL = CreateObject(“Excel.Application”)
\noXL.Visible = False
\noWB = oXL.Workbooks.Add
\noSheet = oWB.ActiveSheet
\nEnd If
\noSheet.Cells(1, 3) = “Hafta \u0130\u00e7i”
\noSheet.Cells(1, 5) = “Cumartesi”
\noSheet.Cells(1, 7) = “Pazar”
\nbaslangictext = “<table width=””565″” border=””0″” cellspacing=””0″” cellpadding=””0″”>”
\nbaslangictext = “<td width=””135″” height=””12″” align=””center””><b>Kalk\u0131\u015f<\/b><\/td>”
\nbitistext = “<\/table>”
\ntablobas = 0
\ntablobas = InStr(kaynak, baslangictext)
\ntabloson = 0
\ntabloson = InStr(Mid(kaynak, tablobas, Len(kaynak) – tablobas), bitistext) – 20
\nDim vapurseferleri As String = Mid(kaynak, tablobas, tabloson)
\nvapurseferleri = Replace(vapurseferleri, “\u00c7”, “C”)
\nvapurseferleri = Replace(vapurseferleri, “\u00dc”, “U”)
\nvapurseferleri = Replace(vapurseferleri, “\u0131”, “i”)
\nvapurseferleri = Replace(vapurseferleri, “\u015f”, “s”)
\nvapurseferleri = Replace(vapurseferleri, “G?zergah”, “Guzergah”)
\nvapurseferleri = Replace(vapurseferleri, “KAR?”, “KARS”)
\nvapurseferleri = Replace(vapurseferleri, “\u015f”, “s”)
\nvapurseferleri = Replace(vapurseferleri, ” “, ” “)
\nvapurseferleri = Replace(vapurseferleri, ” “, “”)
\nvapurseferleri = Replace(vapurseferleri, ” “, “”)
\nvapurseferleri = Replace(vapurseferleri, ” “, “”)
\nvapurseferleri = Replace(vapurseferleri, Chr(10), “”)
\nvapurseferleri = Replace(vapurseferleri, Chr(13), “”)
\nvapurseferleri = Replace(vapurseferleri, “<td width=””135″” height=””12″” align=””center””><b>”, “”)
\nvapurseferleri = Replace(vapurseferleri, “<\/b><\/td><td width=””101″” height=””12″” align=””center””><b>”, “;”)
\nvapurseferleri = Replace(vapurseferleri, “<\/b><\/td><td width=””101″” height=””12″” align=””center””><b>”, “;”)
\nvapurseferleri = Replace(vapurseferleri, “<\/b><\/td><td width=””225″” height=””12″” align=””center””><b>”, “;”)
\nvapurseferleri = Replace(vapurseferleri, “<\/b><\/td><td width=””54″” height=””12″” align=””center””><b>”, “;”)
\nvapurseferleri = Replace(vapurseferleri, “<tr bgcolor=””#FFFFFF””><td width=””135″” align=””center”” height=””22″”>”, “”)
\nvapurseferleri = Replace(vapurseferleri, “<\/td><td align=””center”” width=””101″”>”, “;”)
\nvapurseferleri = Replace(vapurseferleri, “<\/td><td width=””225″”> “, “;”)
\nvapurseferleri = Replace(vapurseferleri, “<\/td><td width=””225″”>”, “;”)
\nvapurseferleri = Replace(vapurseferleri, “<\/td><td align=””center”” width=””54″”>”, “;”)
\nvapurseferleri = Replace(vapurseferleri, “<\/td><\/tr>”, Chr(13))
\nvapurseferleri = Replace(vapurseferleri, “<\/b>”, “”)<\/p>\n

Dim seferler() As String = Split(vapurseferleri, Chr(13))
\n‘ En fazla ka\u00e7 sat\u0131r \u00e7\u0131km\u0131\u015f onu excel renklendirme i\u00e7in alal\u0131m
\nIf seferler.Length > vapurhareketsayisi Then vapurhareketsayisi = seferler.Length
\nFor p As Integer = 0 To seferler.Length – 1
\nDim satir As String = seferler(p).ToString
\nDim ogeler() As String = Split(satir, “;”)
\n‘ Daha \u00f6nce ; ile ay\u0131rd\u0131\u011f\u0131m\u0131z de\u011ferler par\u00e7alay\u0131p ilkgili h\u00fccrelere yazal\u0131m
\nIf ogeler.Length < 3 Then Exit For
\nIf z = 0 Then
\noSheet.Cells(p + 2, 1) = ogeler(0)
\noSheet.Cells(p + 2, 2) = ogeler(1)
\noSheet.Cells(p + 2, 3) = ogeler(2)
\noSheet.Cells(p + 2, 4) = ogeler(3)
\nElseIf z = 1 Then
\noSheet.Cells(p + 2, 5) = ogeler(2)
\noSheet.Cells(p + 2, 6) = ogeler(3)
\nElse
\noSheet.Cells(p + 2, 7) = ogeler(2)
\noSheet.Cells(p + 2, 8) = ogeler(3)
\nEnd If
\nNext
\nEnd If ‘Vapur bulundu\/bulunamad\u0131
\nNext ‘z 0 dan 3 e kadar g\u00fcnler i\u00e7in
\nIf vapurungunsayisi > 0 Then
\nWith oSheet.Range(“A1”, “A2”)
\n.Merge()
\nEnd With
\nWith oSheet.Range(“B1”, “B2”)
\n.Merge()
\nEnd With
\nWith oSheet.Range(“C1”, “D1”)
\n.Merge()
\nEnd With
\nWith oSheet.Range(“E1”, “F1”)
\n.Merge()
\nEnd With
\nWith oSheet.Range(“G1”, “H1”)
\n.Merge()
\nEnd With
\nWith oSheet.Range(“A1”, “H1”)
\n.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
\n.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
\nEnd With
\nWith oSheet.Range(“A2”, “H253”)
\n‘.WrapText = True
\n‘.ColumnWidth = 10
\n.Font.Size = 9
\n.EntireColumn.AutoFit()
\n.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
\n.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
\nEnd With
\noSheet.Range(“D1”, “D90”).ColumnWidth = 6
\noSheet.Range(“D1”, “D90”).WrapText = True
\noSheet.Range(“F1”, “F90”).ColumnWidth = 6
\noSheet.Range(“F1”, “F90”).WrapText = True
\noSheet.Range(“H1”, “H90”).ColumnWidth = 6
\noSheet.Range(“H1”, “H90”).WrapText = True
\noSheet.Range(“E3”, “F” & vapurhareketsayisi).Interior.ColorIndex = 17
\noSheet.SaveAs(path & “\\Vapur\\” & strkalkis & “-” & strvaris & “.xls”)
\noWB.Close()
\noXL.Quit()
\nEnd If<\/p>\n

End If ‘kalk\u0131\u015f ile var\u0131\u015f farkl\u0131ysa<\/p>\n

sonraki:<\/p>\n

Next
\nNext
\ncikis:
\nlblsondurum.Text = “Vapur Listeleme Sona Erdi” & vbCrLf & “Baz\u0131 excel uygulamalar\u0131 kapanmam\u0131\u015f olabilir elle sonland\u0131rabilirsiniz..”
\nbtnvapur.Enabled = True
\nEnd Sub<\/p>\n

Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txtpath.MouseClick
\nobjfolder.ShowNewFolderButton = True
\nbas:
\nobjfolder.ShowDialog()
\nIf objfolder.SelectedPath <> “” Then
\ntxtpath.Text = objfolder.SelectedPath
\nEnd If
\nIf Not System.IO.Directory.Exists(txtpath.Text) Then
\nMsgBox(“Dosyalar\u0131n kay\u0131t edilece\u011fi klas\u00f6r mevcut de\u011fil”)
\nGoTo bas
\nEnd If
\nEnd Sub<\/p>\n

Private Sub ProcessKill()
\nDim isleyenprocess As Integer = 0
\nFor Each proc As Process In Process.GetProcessesByName(“Excel”)
\nisleyenprocess += 1
\nNext proc
\ntekrarsonlandir:
\nFor y As Integer = 0 To isleyenprocess
\nDim objProcess As New Process()
\nobjProcess.StartInfo.UseShellExecute = False
\nobjProcess.StartInfo.RedirectStandardOutput = True
\nobjProcess.StartInfo.CreateNoWindow = True
\nobjProcess.StartInfo.RedirectStandardError = True
\nobjProcess.StartInfo.FileName() = “taskkill.exe”
\nobjProcess.StartInfo.Arguments() = “\/im:excel.exe \/f”
\nobjProcess.Start()
\nNext
\nThread.Sleep(5000)
\nisleyenprocess = 0
\nFor Each proc As Process In Process.GetProcessesByName(“Excel”)
\nisleyenprocess += 1
\nNext proc
\nIf isleyenprocess > 0 Then
\nGoTo tekrarsonlandir
\nEnd If
\nEnd Sub<\/p>\n

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
\nDirectoryCheck()<\/p>\n

path = txtpath.Text
\nDim thbaslat As Thread
\nDim thkbaslat As New ThreadStart(AddressOf BanliyoTara)
\nthbaslat = New Thread(thkbaslat)
\nthbaslat.Start()<\/p>\n

End Sub
\nPrivate Sub BanliyoTara()
\nlblsondurum.Text = “Banliyo seferleri al\u0131n\u0131yor…”
\nSystem.IO.Directory.CreateDirectory(path & “\\Banliyo”)
\nDim kaynakkodu As String = “”
\nDim kaynak As String = “”
\nTry
\nDim istek As HttpWebRequest = HttpWebRequest.Create(“http:\/\/www.izban.com.tr\/Sayfalar\/Single.aspx?Page=33”)
\nDim cevap As HttpWebResponse = istek.GetResponse
\nDim sr As IO.StreamReader = New IO.StreamReader(cevap.GetResponseStream(), Encoding.GetEncoding(“windows-1254”))
\nkaynak = sr.ReadToEnd()
\nCatch ex As WebException
\nMsgBox(“Web sayfas\u0131 al\u0131n\u0131rken sorun olu\u015ftu” & vbCrLf & ex.Message)
\nGoTo cikis
\nEnd Try<\/p>\n

If Not (InStr(kaynak, “Alsancak”) > 0) Then
\n‘Banliyo Yok
\nGoTo cikis
\nEnd If
\nDim baslangictext As String = “<tbody>”
\nDim bitistext As String = “<\/tbody>”
\nDim tablobas As Integer = InStr(kaynak, baslangictext)
\nIf tablobas = 0 Then
\n‘tablo bulunamad\u0131
\nGoTo cikis
\nEnd If
\nDim tabloson As Integer = InStr(Mid(kaynak, tablobas, Len(kaynak) – tablobas), bitistext) – 20
\nkaynakkodu = Mid(kaynak, tablobas, tabloson)
\nkaynakkodu = Replace(kaynakkodu, Chr(13), “”)
\nkaynakkodu = Replace(kaynakkodu, Chr(10), “”)
\nkaynakkodu = Replace(kaynakkodu, ” “, “”)
\nkaynakkodu = Replace(kaynakkodu, ” “, “”)
\nkaynakkodu = Replace(kaynakkodu, “<\/tr>”, Chr(13))
\nkaynakkodu = Replace(kaynakkodu, “<font face=””Calibri”” color=””#000080″” size=””5″”>”, “”)
\nkaynakkodu = Replace(kaynakkodu, “<font color=””#000080″” size=””5″” face=””Calibri””>”, “”)
\nkaynakkodu = Replace(kaynakkodu, “<font color=””#ff0000″” size=””5″” face=””Calibri””>”, “”)
\nkaynakkodu = Replace(kaynakkodu, “<\/font>”, “”)
\nDim satirlar() As String = Split(kaynakkodu, Chr(13))<\/p>\n

Dim oXL As Excel.Application
\nDim oWB As Excel.Workbook
\nDim oSheet As Excel.Worksheet<\/p>\n

oXL = CreateObject(“Excel.Application”)
\noXL.Visible = False<\/p>\n

oWB = oXL.Workbooks.Add
\noSheet = oWB.ActiveSheet
\noSheet.Cells(1, 1) = “Alsancak Kalk\u0131\u015f”
\noSheet.Cells(1, 2) = “Cumaovas\u0131 Kalk\u0131\u015f”
\nFor i As Integer = 1 To satirlar.Length – 1
\nDim ilkhucre As String = “”
\nDim sonhucre As String = “”
\nDim s As String = satirlar(i)
\ntablobas = InStr(s, “<strong>”) + 8
\ntabloson = InStr(s, “<\/strong>”)
\nilkhucre = Mid(s, tablobas, tabloson – tablobas)
\ns = Mid(s, tabloson + 20, s.Length – tabloson)
\ntablobas = InStr(s, “<strong>”) + 8
\ntabloson = InStr(s, “<\/strong>”)
\nIf tabloson = 0 Then
\nsonhucre = ” ”
\nElse
\nsonhucre = Mid(s, tablobas, tabloson – tablobas)
\nEnd If<\/p>\n

oSheet.Cells(i + 1, 1) = ilkhucre
\noSheet.Cells(i + 1, 2) = sonhucre
\nNext
\nWith oSheet.Range(“A1”, “B253”)
\n.WrapText = True
\n.ColumnWidth = 10
\n.Font.Size = 9
\n.EntireColumn.AutoFit()
\n.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
\n.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
\nEnd With
\nIf System.IO.File.Exists(path & “\\Banliyo\\Seferler.xls”) Then
\nDim cvp = MessageBox.Show(“Banliyo seferleri daha \u00f6nce kay\u0131t edilmi\u015f?” & vbCrLf & “Dosyaad\u0131:” + path & “\\Banliyo\\Seferler.xls”, “Dosya Mevcut”, MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
\nIf cvp = vbYes Then
\nsilveuzerineyaz:
\n‘Dosya mevcutsa eski dosyay\u0131 silelim
\nTry
\nSystem.IO.File.Delete(path & “\\Banliyo\\Seferler.xls”)
\nCatch ex As IOException
\nMsgBox(“Dosya \u00fczerine yaz\u0131l\u0131rken hata olu\u015ftu” & vbCrLf & ex.Message)
\nlblsondurum.Text = “Banliyo seferleri yaz\u0131lamad\u0131”
\noWB.Close()
\noXL.Quit()
\nExit Sub
\nEnd Try
\nEnd If
\nEnd If
\noWB.SaveAs(path & “\\Banliyo\\Seferler.xls”)
\noWB.Close()
\noXL.Quit()<\/p>\n

cikis:
\nlblsondurum.Text = “Banliyo seferleri al\u0131m\u0131 tamamland\u0131…”
\nEnd Sub<\/p>\n

Private Sub btnmetro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmetro.Click
\nDirectoryCheck()
\npath = txtpath.Text
\nDim thbaslat As Thread
\nDim thkbaslat As New ThreadStart(AddressOf MetroTara)
\nthbaslat = New Thread(thkbaslat)
\nthbaslat.Start()
\nEnd Sub
\nPrivate Sub MetroTara()
\nlblsondurum.Text = “Metro seferleri al\u0131n\u0131yor…”
\nSystem.IO.Directory.CreateDirectory(path & “\\Metro”)
\nDim kaynakkodu As String = “”
\nDim kaynak As String = “”
\nTry
\nDim istek As HttpWebRequest = HttpWebRequest.Create(“http:\/\/www.izmir.bel.tr\/metro.asp”)
\nDim cevap As HttpWebResponse = istek.GetResponse
\nDim sr As IO.StreamReader = New IO.StreamReader(cevap.GetResponseStream(), Encoding.GetEncoding(“windows-1254”))
\nkaynak = sr.ReadToEnd()
\nCatch ex As WebException
\nMsgBox(“Web sayfas\u0131 al\u0131n\u0131rken sorun olu\u015ftu” & vbCrLf & ex.Message)
\nGoTo cikis
\nEnd Try<\/p>\n

If InStr(kaynak, “SEFER SIKLIKLARI”) = 0 Then
\n‘Sayfada gerekli veri yok
\nGoTo cikis
\nEnd If
\nDim baslangictext As String = “<td colspan=””2″” bgcolor=””#BCCAD2″”>”
\nDim tablobas As Integer = InStr(kaynak, baslangictext)
\nIf tablobas = 0 Then
\n‘tablo bulunamad\u0131
\nGoTo cikis
\nEnd If<\/p>\n

Dim bitistext As String = “<\/table><\/td><\/tr> <\/table><br>”
\nDim tabloson As Integer = InStr(Mid(kaynak, tablobas, Len(kaynak) – tablobas), bitistext) – 36
\nkaynakkodu = Mid(kaynak, tablobas + 35, tabloson)
\nkaynakkodu = Replace(kaynakkodu, Chr(13), “”)
\nkaynakkodu = Replace(kaynakkodu, Chr(10), “”)
\nkaynakkodu = Replace(kaynakkodu, ” “, “”)
\nkaynakkodu = Replace(kaynakkodu, ” “, “”)
\nkaynakkodu = Replace(kaynakkodu, “<\/tr> “, Chr(13))
\nkaynakkodu = Replace(kaynakkodu, “<\/tr>”, Chr(13))
\nkaynakkodu = Replace(kaynakkodu, “<tr bgcolor=””#FFFFFF””> <td width=””17%”” height=””20″”>”, “”)
\nkaynakkodu = Replace(kaynakkodu, “<\/td><td width=””16%”” bgcolor=””#FFFFFF””>”, “;”)
\nkaynakkodu = Replace(kaynakkodu, “<\/td><td width=””19%””>”, “;”)
\nkaynakkodu = Replace(kaynakkodu, “<div align=””center””><b>”, “”)
\nkaynakkodu = Replace(kaynakkodu, “<\/b><\/div><\/td><td colspan=””2″” bgcolor=””#D8E0E5″”> “, “;;”)
\nkaynakkodu = Replace(kaynakkodu, “<\/b><\/div><\/td><td colspan=””2″” bgcolor=””#EEF1F3″”>”, “;;”)
\nkaynakkodu = Replace(kaynakkodu, “<tr bgcolor=””#FFFFFF””> <td width=””17%””><font size=””1″”><b>”, “”)
\nkaynakkodu = Replace(kaynakkodu, “<\/b><\/font><\/td><td width=””16%””><font size=””1″”><b>”, “;”)
\nkaynakkodu = Replace(kaynakkodu, “<\/b><\/font><font size=””1″”><b>”, “”)
\n‘ kaynakkodu = Replace(kaynakkodu, “<td colspan=””2″” bgcolor=””#EEF1F3″”> “, “;;”)
\n‘kaynakkodu = Replace(kaynakkodu, “<td colspan=””2″” bgcolor=””#D8E0E5″”> “, “;;”)
\nkaynakkodu = Replace(kaynakkodu, “<\/td><td width=””16%””>”, “;”)
\nkaynakkodu = Replace(kaynakkodu, “<\/td>”, “”)
\nkaynakkodu = Replace(kaynakkodu, “<\/b><\/div>”, “”)
\nkaynakkodu = Replace(kaynakkodu, “<\/b><\/font>”, “”)
\nkaynakkodu = Replace(kaynakkodu, “<font size=””1″”><b>”, “”)<\/p>\n

Dim satirlar() As String = Split(kaynakkodu, Chr(13))<\/p>\n

Dim oXL As Excel.Application
\nDim oWB As Excel.Workbook
\nDim oSheet As Excel.Worksheet<\/p>\n

oXL = CreateObject(“Excel.Application”)
\noXL.Visible = False<\/p>\n

oWB = oXL.Workbooks.Add
\noSheet = oWB.ActiveSheet
\noSheet.Range(“A1”, “B1”).Merge()
\noSheet.Range(“C1”, “D1”).Merge()
\noSheet.Range(“E1”, “F1”).Merge()
\noSheet.Cells(1, 1) = “Hafta \u0130\u00e7i”
\noSheet.Cells(1, 3) = “Cumartesi”
\noSheet.Cells(1, 5) = “Pazar”
\nFor i As Integer = 1 To satirlar.Length – 1
\nDim ogeler() As String = Split(satirlar(i), “;”)
\nIf ogeler.Length > 4 Then
\noSheet.Cells(i + 1, 1) = Trim(ogeler(0))
\noSheet.Cells(i + 1, 2) = Trim(ogeler(1))
\noSheet.Cells(i + 1, 3) = Trim(ogeler(2))
\noSheet.Cells(i + 1, 4) = Trim(ogeler(3))
\noSheet.Cells(i + 1, 5) = Trim(ogeler(4))
\noSheet.Cells(i + 1, 6) = Trim(ogeler(5))
\nEnd If<\/p>\n

Next
\nWith oSheet.Range(“A1”, “F253”)
\n.WrapText = True
\n.ColumnWidth = 12
\n.Font.Size = 9
\n.EntireColumn.AutoFit()
\n.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
\n.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
\nEnd With
\nIf System.IO.File.Exists(path & “\\Metro\\Seferler.xls”) Then
\nDim cvp = MessageBox.Show(“Banliyo seferleri daha \u00f6nce kay\u0131t edilmi\u015f?” & vbCrLf & “Dosyaad\u0131:” + path & “\\Banliyo\\Seferler.xls”, “Dosya Mevcut”, MessageBoxButtons.YesNo, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
\nIf cvp = vbYes Then
\nsilveuzerineyaz:
\n‘Dosya mevcutsa eski dosyay\u0131 silelim
\nTry
\nSystem.IO.File.Delete(path & “\\Metro\\Seferler.xls”)
\nCatch ex As IOException
\nMsgBox(“Dosya \u00fczerine yaz\u0131l\u0131rken hata olu\u015ftu” & vbCrLf & ex.Message)
\nlblsondurum.Text = “Metro seferleri yaz\u0131lamad\u0131”
\noWB.Close()
\noXL.Quit()
\nExit Sub
\nEnd Try
\nEnd If
\nEnd If
\noWB.SaveAs(path & “\\Metro\\Seferler.xls”)
\noWB.Close()
\noXL.Quit()<\/p>\n

cikis:
\nlblsondurum.Text = “Metro seferleri al\u0131m\u0131 tamamland\u0131…”
\nEnd Sub<\/p>\n

Private Sub DirectoryCheck()
\nbas:
\nIf Not System.IO.Directory.Exists(txtpath.Text) Then
\nMsgBox(“Dosyalar\u0131n kay\u0131t edilece\u011fi klas\u00f6re eri\u015filemiyor”)
\nobjfolder.ShowDialog()
\ntxtpath.Text = objfolder.SelectedPath
\nGoTo bas
\nEnd If
\nEnd Sub<\/p>\n

End Class<\/p>\n

 <\/p>\n

Program\u0131n tam proje dosyas\u0131n\u0131 indirmek i\u00e7in t\u0131klay\u0131n\u0131z<\/a> (vs 2005)<\/p>\n","protected":false},"excerpt":{"rendered":"

Vb.net kullanarak threading,get,post ve excel i\u015flemleri<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11,13],"tags":[],"class_list":["post-388","post","type-post","status-publish","format-standard","hentry","category-programlama","category-vb-net"],"_links":{"self":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/388","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=388"}],"version-history":[{"count":15,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/388\/revisions"}],"predecessor-version":[{"id":572,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/388\/revisions\/572"}],"wp:attachment":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=388"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=388"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=388"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}