Leaderboard

Ashampoo Burning Studio 19.0.1.6 (5310) Lite | 28MB

Çalışmada Orijinal MSDN ISO lar kullanılmıştır. Sistem orijinaldir Windows Home, SL, Education, Pro ve Enterprise sürümlerini içerir Sistemin UEFI desteği mevcuttur (ESD sıkıştırma yapılmıştır). Netframework 3.5 kurulu gelir. Windows Defender ve Kötü Amaçlı Yazılım Algılama Güncellemeleri hariç güncelleme çıkmaz. Kurulum yaptığınız bilgisayarda biosa gömülü lisansınız varsa sürüm seçme penceresi gelmeden doğrudan kuruluma geçer Not: Sadece orijinal x64 bit sistem yapıyorum lütfen aktivasyonlu, Office entegreli veya eklemeli-çıkarmalı windows isteğinde bulunmayınız bu isteklere cevap verilmeyecektir. İşine gelen indirip kullansın. MD5: 75C8F12ACA5149C2C567B626E300FEAB https://drive.google.com/open?id=1hxUhZQU-Cva5sWzWE4ZVO_p3Ys5qWJNd

Product Key programı ile Sistemdeki hem gömülü CD Keyi hemde Eğer Crack yaptıysan crakli Keyi görebilirsin. Link aşağıda https://yadi.sk/d/v10d8yAR3RLb9e Toplam 96 K lık RAR lı dosyadır. Sağ tık klasöre aç. Portabledir. (Kurulumsuzdur) NOT : Herkesin elinin altında bulunmasında fayda vardır. Düzeltme : Acaba ben şöyle mi anladım. Elindeki bilgisayarda Orijinal Win 8.1 yüklü. Sen bunun içindeki Orijinal Win 8.1 CD Keyi alacaksın. Ve bu bilgisayara Crakli Win 10 yükleyeceksin. Aldığın Win 8.1 Orijinal CD Keyide başka bir bilgisayarda kullanacaksın. Öylemi. Eğer öyleyse bu mümkün değil.

KMPlayer 4.2.2.6 Final Türkçe Yönetici olarak Çalıştırın. "Kurulum Tamamlandı!" uyarısı çıkana kadar bekleyin. Açılıştaki reklam engellendi. MD5:CC4E4B8E382BD1F1FF003EC719B8F6EF (35,68 Mb) http://turbobit.net/ziy8gyleehnl.html https://userscloud.com/wi13e8tdfxjx

lisans sıl exe ıle mevcut urun anahtarını sıl http://s7.dosya.tc/server/h213sv/Lisans_sil.exe.html wındows 7 nı bunla lısansla http://s7.dosya.tc/server/n47m2y/Kur7.exe.html

Apache OpenOffice 4.1.6 Türkçe | Katılımsız OpenOffice.org, açık kaynak kodlu, gelişmiş, dünya çapında yüzbinlerce kurum ve milyonlarca kişi tarafından kullanılan bir ofis yazılımıdır. Kullanıcı arayüzü, diğer ofis yazılımlarına oldukça benzer. Yönetici olarak Çalıştırın. "Kurulum Tamamlandı!" uyarısı çıkana kadar bekleyin. MD5:CBB309DCAF0CDD60ACF81D2CEBA6F0EF (77,72 Mb) http://turbobit.net/1rao5rqmbcp6.html https://userscloud.com/j1zlr5jxkqvt

SpeedyFox 2.0.23.128 | Download SpeedyFox, Firefox, Skype, Chrome, Chromium, Thunderbird programlarının ilk açılış ve sonrasındaki hızlarını 3 kata kadar artırmayı amaçlayan ücretsiz bir programdır. SpeedyFox ilgili programların profil veritabanlarında zamanla oluşan bölünmeleri (fragmantasyon) güvenli bir şekilde tekrar elden geçirerek (birleştirerek) çalışma performanslarını artırır.

Dostum sen 2 sefer sordun. Ama inan ben tam olarak ne sorduğunu anlamadım. Anladıklarımı kendi kendime cevaplamaya çalışayım. Bilgisayarların BIOS unda bulunan Orijinal CD Key hiç bir şekilde silinemez. BIOS unda Win 8.1 CD Keyi yüklü bulunan bir bilgisayara ister terfi yoluyla istersen format atma yoluyla Win 10 yüklesen bile BIOS taki Win 8.1 CD Keyi silinmez. Windows 10 u ister format atma yoluyla istersen terfi yoluyla etkinleştirsen bile BIOS taki Win 8.1 CD Key silinmez. Product Key programı ile Hem bilgisayarın BIOS undaki (gömülü) CD Keyi hemde Bilgisayarda yüklü bulunan sisteme ait CD Keyi görebilirsin. (Bu cümle biraz karışık gibi gelebilir ama BIOS taki Key ile yüklü sistemin Keyi farklı olabilir.) BIOS unda Windows 8.1 yüklü bir bilgisayara aynı türdeki Windows 10 u yüklemen gerekir. Yani BIOS unda Win 8.1 pro yüklü bir bilgisayara Win 10 pro yüklemen gerekir. Aynı şekilde Win 8.1 Home Single Language yüklü bir bilgisayara Win 10 Home Single Language yüklemen gerekir. Product Key programı ile BIOS a yüklü ve Sisteme yüklü CD Keyleri görebilirsin. Aşağıdaki örnek resimlere bakabilirsiniz. https://i.hizliresim.com/XP2mRj.jpg https://i.hizliresim.com/vjYrvD.jpg

Skype ile etkinleştirme yapamayanlar WebAct by Ratiborus uygulamasını kullansın. Açmadan önce DNS adresininizi Yandex olarak değiştirin. http://www.solidfiles.com/v/jedadLGR7LgDD

Burada ki videodan faydalanabilirsin. Office 2016 Pro Plus Volume License MAK Key: Office 2016 Standard Volume License MAK Keys: Office 2016 Project STD Volume License MAK Keys: Office 2016 Visio Pro Phone Activation Retail Key: Office 2016 Project Pro Phone Activation Retail Key: Office 2016 Access Phone Activation Retail Key: Office 2016 Outlook Phone Activation Retail Key: Office 2016 Word Phone Activation Retail Key:

GOOGLE CHROME AÇILIŞINA ŞİFRE KOYAR Set password for your browser v.6.4 Bu uzantı, kullanıcıların yetkisiz erişimi önlemek için tarayıcı için şifre belirlemelerine olanak tanır. Chrome başlatıldığında şifre sorar Bu ultra hafif eklenti, kullanıcıların uzantıyı yükledikten sonra ayarlaması gereken, krom başlangıçta şifre isteyecektir ...

eyvallah hocam rs3 update lerinin boyutunun biraz artmasını bekledim zira ufak boyutlu bir güncelleme için uğraşmak zaman kaybı oluyor

autoitte veritabanı bağlantı vs eksiğim çok acces vt ile vb.net ile yaptım kullanici admin , sifre admin ücretsiz lisansız isterseniz data adlı olan uzantısını sildiğim acces dosyası adodb referanslardan ekleyin acces bağlantısı için Windows mediaplayer referanslardan ekleyin mp3 leri çalmak için FrmLogin.vb adında bir form oluşturun kodlar aşağıda Option Explicit On Public Class FrmLogin Private Sub GiriS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GiriS.Click Dim key As String On Error GoTo err_Renamed Dim no As Short BaGlaN() rS = cNn.Execute("select count(sn) from giris where (kullanici_adi='" & UseR.Text & "') and (sifre='" & PassworD.Text & "')") 'sayi değişkenine varianta giriş tablosundaki kullanici ad sifre yetki degerlerini tanımladım If rS.Fields(0).Value = 0 Then MsgBox("Kullanıcı Adı Şifenizi Kontrol Edin!", , "Kullanıcı") Exit Sub Else Me.Hide() FrmAjanDa.Show() End If err_Renamed: End Sub Private Sub password_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles PassworD.KeyPress Dim KeyAscii As Short = Asc(eventArgs.KeyChar) If KeyAscii = 13 Then Call GiriS_Click(GiriS, New System.EventArgs()) 'enter tuşlanırsa ara butonuna tıkla End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim s As String Dim substring As String Dim sp() As String s = "this \text\ box \contains \value \(08:00-17:41).mp3" sp = s.Split("\") For Each substring In sp TextBox1.Text = substring Next End Sub Private Sub ipTaL_Click(sender As Object, e As EventArgs) Handles ipTaL.Click Application.Exit() End Sub End Class Frm.Ajanda.vb adında bir form oluşturun kodlar aşağıda Option Explicit On Imports WMPLib Public Class FrmAjanDa Dim appPath As String = Application.StartupPath() Dim WithEvents Player As New WMPLib.WindowsMediaPlayer Private Sub FrmAjanDa_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Application.Exit() End Sub Private Sub CmdRandevu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdRandevu.Click Dim saatS As String If ListBox1.SelectedItem IsNot Nothing = False Then MsgBox("Zil Sesi Seçin.") Exit Sub End If If ComboBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then SaatKontrol() saatS = TextBox2.Text & ":" & TextBox3.Text sQl = "INSERT INTO randevu(adi,tarih,saat) VALUES('" & ListBox1.SelectedItem.ToString & "','" & ComboBox1.Text & "','" & saatS & "')" cNn.Execute(sQl) rS = Nothing MsgBox("Zil Saati Kaydedildi.") RanDevuGetir() TextBox2.Text = "" TextBox3.Text = "" Else MsgBox("Eksik Bilgi Girişi.") End If End Sub Private Sub TextBox2_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress Dim KeyAscii As Short = Asc(eventArgs.KeyChar) If Not rakam(KeyAscii) Then KeyAscii = 0 eventArgs.KeyChar = Chr(KeyAscii) If KeyAscii = 0 Then eventArgs.Handled = True End If End Sub Private Sub SaatKontrol() If TextBox2.Text = "1" Then TextBox2.Text = "01" If TextBox2.Text = "2" Then TextBox2.Text = "02" If TextBox2.Text = "3" Then TextBox2.Text = "03" If TextBox2.Text = "4" Then TextBox2.Text = "04" If TextBox2.Text = "5" Then TextBox2.Text = "05" If TextBox2.Text = "6" Then TextBox2.Text = "06" If TextBox2.Text = "7" Then TextBox2.Text = "07" If TextBox2.Text = "8" Then TextBox2.Text = "08" If TextBox2.Text = "9" Then TextBox2.Text = "09" If TextBox3.Text = "1" Then TextBox3.Text = "01" If TextBox3.Text = "2" Then TextBox3.Text = "02" If TextBox3.Text = "3" Then TextBox3.Text = "03" If TextBox3.Text = "4" Then TextBox3.Text = "04" If TextBox3.Text = "5" Then TextBox3.Text = "05" If TextBox3.Text = "6" Then TextBox3.Text = "06" If TextBox3.Text = "7" Then TextBox3.Text = "07" If TextBox3.Text = "8" Then TextBox3.Text = "08" If TextBox3.Text = "9" Then TextBox3.Text = "09" End Sub Private Sub TextBox1_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Dim KeyAscii As Short = Asc(eventArgs.KeyChar) Call buyut(KeyAscii) eventArgs.KeyChar = Chr(KeyAscii) If KeyAscii = 0 Then eventArgs.Handled = True End If End Sub Private Sub List1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List1.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y 'MsgBox("The X Position is " & xPos & " The Y Position is " & yPos) If List1.FocusedItem.Selected Then i = List1.FocusedItem.Index If MsgBox(List1.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List1.FocusedItem.SubItems(2).Text & ")") 'List1.Items(i).Remove() RanDevuGetir() End If End If End Sub Private Sub List2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List2.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List2.FocusedItem.Selected Then i = List2.FocusedItem.Index If MsgBox(List2.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List2.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List3.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List3.FocusedItem.Selected Then i = List3.FocusedItem.Index If MsgBox(List3.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List3.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List4.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List4.FocusedItem.Selected Then i = List4.FocusedItem.Index If MsgBox(List4.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List4.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List5.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List5.FocusedItem.Selected Then i = List5.FocusedItem.Index If MsgBox(List5.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List5.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List6_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List6.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List6.FocusedItem.Selected Then i = List6.FocusedItem.Index If MsgBox(List6.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List6.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List7_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List7.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List7.FocusedItem.Selected Then i = List7.FocusedItem.Index If MsgBox(List7.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List7.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub FrmAjanDa_Load(sender As Object, e As EventArgs) Handles Me.Load RanDevuGetir() ListFiles() Button2.Text = "||" Button1.Text = "|>" Label11.Text = Format(Now, "HH:mm:ss") Label12.Text = Format(Now, "dddd") Label13.Text = Format(Now, "dd.MM.yyyy") End Sub Private Sub ListFiles() Dim folderPath As String ListBox1.Items.Clear() folderPath = appPath.ToString & "\Mp3\" Dim fileNames = My.Computer.FileSystem.GetFiles( folderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.mp3") For Each fileName As String In fileNames ListBox1.Items.Add(fileName) Next End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If ListBox1.SelectedItem IsNot Nothing = False Then MsgBox("Zil Sesi Seçin.") Exit Sub End If Player.URL = ListBox1.SelectedItem.ToString Player.controls.play() 'Player.controls.play() End Sub Sub Deve() Dim i As Integer If Label12.Text = "Pazartesi" Then For i = 0 To List1.Items.Count - 1 If List1.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List1.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Salı" Then For i = 0 To List2.Items.Count - 1 If List2.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List2.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Çarşamba" Then For i = 0 To List3.Items.Count - 1 If List3.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List3.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Perşembe" Then For i = 0 To List4.Items.Count - 1 If List4.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List4.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Cuma" Then For i = 0 To List5.Items.Count - 1 If List5.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List5.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Cumartesi" Then For i = 0 To List6.Items.Count - 1 If List6.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List6.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Pazar" Then For i = 0 To List7.Items.Count - 1 If List7.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List7.Items(i).SubItems(1).Text Player.controls.play() End If Next End If End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Timer1.Interval = 1000 Label11.Text = Format(Now, "HH:mm:ss") Label12.Text = Format(Now, "dddd") Label13.Text = Format(Now, "dd.MM.yyyy") Deve() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Player.controls.stop() End Sub End Class ayar.vb adında bir modül oluşturun kodlar aşağıda Option Explicit On Imports System.Timers Module ayar Public cNn As New ADODB.Connection Public rS As New ADODB.Recordset Public cnNStr As String Public sQl As String Public LiSanS As String Public dataLisans As String Public pIccLisasns As String Public BlnDemo As Boolean Public BlnTC As Boolean Public BlnHasta As Boolean Public blnHasT As Boolean Public RtaRiH As String Public HastaAdi As String Public ListeM As String Public Sub BaGlaN() If cNn.State = 1 Then cNn.Close() cnNStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data;User ID=Admin;Jet OLEDB:Database;" cNn.Open(cnNStr) End Sub Public Sub buyut(ByRef tus As Short) '-------türkçe karakterler için küçükten büyük harfe---------------------- If (tus = 231) Then tus = 199 ' Ç harfi If (tus = 253) Then tus = 73 ' I harfi If (tus = 105) Then tus = 221 ' İ harfi If (tus = 254) Then tus = 222 ' Ş harfi If (tus = 240) Then tus = 208 ' Ğ harfi If (tus = 252) Then tus = 220 ' Ü harfi If (tus = 246) Then tus = 214 ' Ö harfi Exit Sub ElseIf tus >= 97 And tus <= 122 Then 'Diğer karakterler tus = tus - 32 End If End Sub Public Function rakam(ByRef KeyAscii As Short) As Boolean If KeyAscii <> 44 And KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then ' delete ve numara ve enter değilse rakam = False Else rakam = True End If End Function Public Sub RanDevuGetir() FrmAjanDa.List1.Items.Clear() FrmAjanDa.List2.Items.Clear() FrmAjanDa.List3.Items.Clear() FrmAjanDa.List4.Items.Clear() FrmAjanDa.List5.Items.Clear() FrmAjanDa.List6.Items.Clear() FrmAjanDa.List7.Items.Clear() RtaRiH = "PAZARTESİ" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List1.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List1.Items.Count > 0 Then FrmAjanDa.List1.Enabled = True Else FrmAjanDa.List1.Enabled = False End If '2. liste RtaRiH = "SALI" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List2.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List2.Items.Count > 0 Then FrmAjanDa.List2.Enabled = True Else FrmAjanDa.List2.Enabled = False End If '3. liste RtaRiH = "ÇARŞAMBA" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List3.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List3.Items.Count > 0 Then FrmAjanDa.List3.Enabled = True Else FrmAjanDa.List3.Enabled = False End If '4. liste RtaRiH = "PERŞEMBE" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List4.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List4.Items.Count > 0 Then FrmAjanDa.List4.Enabled = True Else FrmAjanDa.List4.Enabled = False End If '5. liste RtaRiH = "CUMA" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List5.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List5.Items.Count > 0 Then FrmAjanDa.List5.Enabled = True Else FrmAjanDa.List5.Enabled = False End If '6. liste RtaRiH = "CUMARTESİ" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List6.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List6.Items.Count > 0 Then FrmAjanDa.List6.Enabled = True Else FrmAjanDa.List6.Enabled = False End If '7. liste RtaRiH = "PAZAR" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List7.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List7.Items.Count > 0 Then FrmAjanDa.List7.Enabled = True Else FrmAjanDa.List7.Enabled = False End If End Sub End Module OkulZilProgrami.exe içinde şimdi farkettim ajanda programı yapmıştım ondan kalan gereksiz bir kaç değişken kalmış sorun olmaz istersen silebilirsin. Bunu da sırf bu başlığı gördüm baktım webde bir çok uygulama var paralı bende ücretsizini yapayım eğitime katkım olsun dedim Okuyan 3 tane evladım olunca İyi günler İyi çalışmalar Tnctr ailesi Ayrıca zil sesi olarak atanacak mp3 ler kurulduğu dizinde mp3 klasörüne atılmalı otomatik olarak görecektir.

http://www.hepsiburada.com/benq-xl2411-24-1ms-analog-dvi-d-hdmi-144hz-full-hd-oyuncu-monitor-p-HBV000001ZJW7?magaza=Gameekstra&utm_source=pc&utm_medium=akakce&utm_campaign=c&utm_content=c&utm_term=k&wt_pc=akakce.c.k.pc&v=1.86.9 BenQ tavsiye ederim.

VMware Workstation Pro v14.1.1 Build 7528167 VMWare trial http://download3.vmware.com/software/wkst/file/VMware-workstation-full-14.1.1-7528167.exe License Keys AZ1XK-46X86-4801Z-ZPZET-QKH92 veya YA112-2LZ56-0812P-5NQGE-WAUZA yada UA39K-F8D84-H85QZ-VGZ7C-WYHY0 ========================================= VMware Workstation Pro v14.1.1 X64 Incl Keygen-AMPED https://userscloud.com/os5i30b54kj0 https://userscloud.com/jherbi7ewstr https://userscloud.com/qze8zl77mw5m https://userscloud.com/abbbtuiii984 http://suprafiles.net/zbkp0wwjletq http://suprafiles.net/zfwklnad7tf3 http://cloudyfiles.com/11umuqgh89q0 https://sendit.cloud/ygkfumh4hrye http://fileflares.com/yuuoi4i10pdk http://up.media1fire.com/n21xtwtzswma http://www.mexashare.com/62bbdvse5i9i/VMware.Workstation.Pro.v14.1.1.X64.Incl.Keygen-AMPED.rar https://dailyuploads.net/20jrnfyqlocf http://uploadgig.com/file/download/5b8cA95D37D8f858/VMware.Wo http://rapidgator.net/file/dba92d9f4ccdb25ce6b67f96a723cc18 http://rapidgator.net/file/97c988ca6281569bc35818c6d9c2bca4/VMware http://rapidgator.net/file/4fb7be010bf34611a8fc5b50c84c0fd4/VMware.Workstation.Pro.v14.1.1.X64.Incl.Keygen-AMPED.rar.html https://rg.to/file/3cb3a4ffe3ef4e458ddf9f151954426a/VMware.Workstation.Pro.v14.1.1.X64.Incl.Keygen-AMPED.rar.html

Microsoft, meldown ve spectre işlemci açığını kapatan bir yama yayınladı ve anladığım kadarıyla bu çalışmaya güncellemelerle birlikte dahil edildi. Özellikle yeni işlemci ve windows 10 kullananlar ya güncelleme yapsınlar ya da bu iso ile sıfırdan kurulum yapsınlar. İşlemci hızlarını arttırmaya yönelik çalışmalar sebebiyle işlemcilere uzaktan komut verilebilme açığı oluşmuş, yani bilgisayarlarımız saldırılara karşı savunmasız durumda. Yalnız yeni yamayla birlikte işlemci hızlarında biraz düşüş olabileceği söyleniyor, onu da çok fazla hissetmeyiz sanırım. Güvenliğe önem verenler için açıklama gereği hissettim, umarım anlatabilmişimdir.

Ashampoo Burning Studio 19.0.16 Türkçe Varsa önceki sürümü kaldırın. Yönetici olarak Çalıştırın. "Kurulum Tamamlandı!" uyarısı çıkana kadar bekleyin. MD5:C2EB9C7DB71FDC9663BFAFBE683BB705 (111,58 Mb) http://turbobit.net/mqr1kcqt3p05.html https://userscloud.com/743quqpmryik

Glary Utilities Pro 5.91.0.112 TR Final Yönetici olarak Çalıştırın. "Kurulum Tamamlandı!" uyarısı çıkana kadar bekleyin. MD5:07930281B5DD406FF7BD9FED64AEE842 (16,71 Mb) http://turbobit.net/qektdwghgyfm.html https://userscloud.com/ib6srbcyksrn

TeamViewer Corporate 13.0.6447 | Update: 19Aralık2017

Merhabalar, biraz aradan sonra tekrar güzel bir komutla karşınızdayım. Nedense cmd ekranından yapılan bu tarz işlemlere bayılıyor ve sizlerle de paylaşmak istiyorum. Bu seferki sihirli komutumuz net user. Ne yapar bu komut derseniz bilgisayardaki kullanıcı hesapları ile ilgili bir çok işlemi yapabilirsiniz. Domain ve local kullanıcılar hakkında şifre verme değiştirme vb. bir çok işlemi yapabilirsiniz. Öncelikle direkt kök komutu yazalım. Bu bize bilgisayarımızdaki local kullanıcıların listesini verecek; Bilgisayarımızda Guest, pc ve tplocal isminde 3 local user mevcutmuş. Çok basit işe yarayacak bir iki şey daha verip tüm komutları açıklayalım. Mesela bir admin hesabı var ama listede çıkmadı, disable durumda bu administrator hesabını etkinleştirmek için; Komutunu yazmamız yeterli olacaktır. Tabi cmd ekranını da yönetici olarak çalıştırabildiysek hata almadan işlemi gerçekleştirmiş oluruz. Bu Administrator hesabının parolasını değiştirmek istersek Sondaki Abc123 vereceğimiz şifre. Şimdi de kullanabileceğimiz bu mucize komutun diğer parametrelerini verelim; Komut satırından kullanıcı eklerken tam yetki verme ya da localgrup kullanıcısı için; /help = Detaylı bilgi edinmek için bu komutu kullanabilirsiniz, kullanım şekli: net help user. /add = Yeni kullanıcı eklemek için kullanılır. /domain = Yerel kullanıcı yerine domaine kullanıcı eklemeye zorlar. /delete = Kullanıcıyı siler. /active:{yes | no} = Kullanıcıyı aktifleştirmek veya pasifleştirmek için kullanılır. Bu komutu kullanmadığınızda otomatik olarak kullanıcı aktifleştirilir. /comment:”text” = Kullanıcıya açıklama girmek için kullanılır. En fazla 48 karakteri destekler. /countrycode:nnn = Ülke kodu yani dili belirlemek için kullanılır. Girilmediğinde otomatik olarak: 000. /expires:{date | never} = İptal olma süresini belirler. Hiçbir şey girilmezse hiçbir zaman hesap iptal olmaz. /fullname:”name” = Kullanıcının gerçek adını girmek için kullanılır. /homedir:pathname = Kullanıcı dosyalarının yeri. /passwordchg:{yes | no} = Kullanıcının kendi şifresini değiştirip değiştirememesi. Varsayılan evet. /logonpasswordchg:{yes | no} = Kullanıcının ilk girişinde şifresini değiştirmesinin istenmesi. Girilmezse varsayılan olarak seçili değildir. Windows XP de çalışmaz. /profilepath:pathname = Kullanıcı logon profil dosyaları. /scriptpath:pathname = Kullanıcı logon script dosyaları. Tekrar güzel paylaşımlarda bulunmak dileğiyle, sağlıkla kalın...