Youtube yeni sunucu IP adresleri

Youtube yeni sunucular açmıştı. Bazı videolar erişilemez hatası vermeye başladığında host dosyamı güncellemeye başladım. Sonradan bu sunucuların bazılarının IP adresi tekrar değişti. Yeni eklenen sunucuların düzenli hali aşağıda yer alıyor. (daha&helliip;)

Acrobat 8 pro yüklemesi çalışmıyor

Nedenini anlayamadım ama yükleme pakatini açması gereken program kapanıyor. Manuel olarak yükleme dosyalarının açılmasını şu şekilde komut isteminden sağlayabilirsiniz.

AcroPro80_efg.exe -nos_ne -nos_o”D:\FEAD_Extracted”I can’t recognize it but installer which is extract orginal installer files can’t work. You can extract original installer files using above command in command promt.

http://www.schooltechnician.co.uk/knowledge_base/general/netopsystems_-_fead_optimizer_-_command_line.html

Kendi proxy server’ınızı oluşturun

Son dönemde firmalarda ve devlet kuruluşlarında bir çok siteye giriş engellenmiş durumda. Ancak rapidshare gibi bazı siteler lazım oluyor, bu durumda yana yakıla bir proxy server arıyorsunuz. Proxy siteleride koruma kapsamında engelleniyor yada bulduğunuz proxy hizmeti üzerinden çalışmıyor.Bu durumda kendi proxy serverınızı kurabilirsiniz. Eğer bir hostinginiz varsa (php ve phyton destekliyorsa tabi) phpproxy programını kullanabilirsiniz. Cgi versiyonlarıda bol miktarda bulunuyor.

http://idea.hosting.lv/a/phpproxy/

Ayarlarını nasıl yapılacağınız Readme dosyasından okuyabilirsiniz. Aslında phpproxy’i kurmanız web tabanlı bir proxy server elde etmenizi sağlıyor, anca başka programları bu proxy üzerinden kullanamak isterseniz yine vermiş olduğum adresteki phpproxy.py.exe-0.6.zip programını yine readme dosyasındaki ayarları yaparak çalıştırığınızda gerçek bir proxy server elde edeceksiniz.Unutmayın bu sistem kendi hostunuzdaki kotadan yiyecektir.

Not: kodlar global değişken koruması olmadığı varsayılarak yazılmış, phpproxy.php dosyasında yer alan $REQUEST_METHOD değişkenini $_SERVER[‘REQUEST_METHOD’] olarak düzeltebilirsiniz.

VBS (VBScript) Dosyaları isimlendirmek

Bazen bilgisayar ortamında halletmeniz gereken basit ancak çokluğu nedeniyle insanı üşendiren bir durumla karşılaşabilirsiniz. Bu durumda genelde bilgisayar programı yazarız. Kullanabileceğimiz bir çok dil var ancak bu editörleri açmak bazen sıkıcı oluyor, bazende fazlaca vakit alıyor. Ayırca yeni birşeyler eklemek için tekrardan açıp derlemek işkenceye dönüşüyor.

ADF (automatik document feeder – otomatik döküman besleyici) ile taramış olduğum bir sürü evrak için dosya isimlendirmesi yapmam gerekiyordu. Evraklar arkalı önlüydü. Bu nedenle bir yüzünü taradığımda sayfa numaraları 1-3-5 şeklinde giderken sırasını bozmadan kağıtları çevirip tekrar cihaza koyduğımda sayfa numaraları tersten 12-10-8 gibi ilerliyordu. Total Commander ile bu şekilde bir numaralandırma yapmak imkansızdı. Elimin altında bulunan Delphi ve VS C# bu iş için biraz büyük kalacaktı. Bende Excel ve Word içinde bol bol kullandığımızdan VBS ile yapmaya karar verdim.

Tek numaraları sıralayan kod aşağıda:

Dim fso, folder, files, NewsFile,sFolder
Set fso = CreateObject("Scripting.FileSystemObject")
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
sFolder = currentDirectory
Set folder = fso.GetFolder(sFolder)
Set files = folder.Files

Set sFiles = CreateObject("System.Collections.ArrayList")
For each folderIdx In files
If Right(folderIdx.Name, 3) = "JPG" then
sFiles.Add folderIdx.Name
End If
Next
SFiles.Sort()

iSayac = 1
Set NewFile = fso.CreateTextFile(sFolder&"\FileList.txt", True)
for each file in sFiles
sYeniIsim = sFolder & "Sayfa-" & String(3 - Len(Cstr(iSayac)), "0") & Cstr(iSayac) & ".JPG"
iSayac = iSayac + 2
NewFile.WriteLine(sYeniIsim & " " & file)
fso.MoveFile sFolder & file, sYeniIsim
Next
NewFile.Close

Tersten giden çift numaralar için ise:

Dim fso, folder, files, NewsFile,sFolder
Set fso = CreateObject("Scripting.FileSystemObject")
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
sFolder = currentDirectory
Set folder = fso.GetFolder(sFolder)
Set files = folder.Files

Set sFiles = CreateObject("System.Collections.ArrayList")
For each folderIdx In files
If Right(folderIdx.Name, 3) = "JPG" then
sFiles.Add folderIdx.Name
End If
Next
SFiles.Sort()
SFiles.Reverse()

iSayac = 2
Set NewFile = fso.CreateTextFile(sFolder&"\FileList.txt", True)
for each file in sFiles
sYeniIsim = sFolder & "Sayfa-" & String(3 - Len(Cstr(iSayac)), "0") & Cstr(iSayac) & ".JPG"
iSayac = iSayac + 2
NewFile.WriteLine(sYeniIsim & " " & file)
fso.MoveFile sFolder & file, sYeniIsim
Next
NewFile.Close

Bu kodların çalışabilmesi için sisteminizde .Net Framework kurulu olması gerekiyor. Çünkü Set sFiles = CreateObject(“System.Collections.ArrayList” komutu ile oluşturmuş olduğum sFiles nesnesi .net içinde yer alıyor.Bunu yapma nedenim dosya isimlerini sıralamak istememdi. Sıfırdan bir metin sıralama fonksiyonu yazmak yerine SFiles.Sort() komutunu kullanmak daha kolay geldi. Metin listesini tersten sıralamak içinse SFiles.Sort() komutundan sonra SFiles.Reverse() komutunu kullanmak yeterli.

iSayac değişkeninin başlangıç değerini değiştirerek istediğiniz rakamdan başlamasını sağlayabilirsiniz.

Kodlarda görebileceğiniz NewFile nesnesi FileList.txt dosyasına dosyaların yeni adlarını ve eski adlarını kaydetmektedir. Böylece bir yanlışlık olduğunda geri gönebilmemizi sağlayacaktır.

Bu kodları bir metin editörüne yapıştırdıktan sonra vbs uzantılı olarak kayhdetmeniz yeterli olacaktır.

SAP Nedir?

SAP için verilen eğitimler genelde kullanıcı eğitimidir. Birde danışmanlık eğitimleri vardır. Eğitim sonunda SAP Türkiye tarafından yapılan sınavı geçebilirseniz uluslararası geçerliliğe sahip bir sertifika edinebilirsiniz. Danışmanlık eğitimleri çok pahallı, 2500€-3000€.

SAP’ın Client kısmı C ortamında ABAP için yazılmış bir derleyiciden ibaret, bu nedenle multiplatform sayılabilir. Veritabanı olarak Oracle, MSSQL, MySQL gibi birçok veri tabanını kullanabilir. Yazılan Abap kodlarını derleyip çalıştıran birde Application Server kısmı mevcuttur.Tüm SAP, Abap ile yazılmıştır, kodlarını inceleyebiliyor, debug edebiliyorsunuz. Kodlar içerisine müdehale edilebiliecek alanlar (user-exit, enhancement, badi) bırakılmış durumdadır. Bu alanlara kod ekleyebiliyorsunuz. Kendiniz sıfırdan bir ekran oluşturabilirsiniz, yada izin verilmişse yeni alanlar ekleyebilirsiniz. Eğer kurallara uyarak kodlarınızı geliştirirseniz SAP güncelleme sonucunda, programlarınızda bir aksaklık olmayacağını garanti eder, bu nedenlede hızla büyüyor.

SAP’a eklediğiniz herşey Z harfi ile başlamalıdır, bu nedenle üzerinde çok fazla kod yazılan SAP’a ZAP derler.

Sertifikanızı aldıktan sonra bir firmada junior olarak çalışmaya başlarsınız, sizi ekip olarak işlere gönderirler. Ne zaman sizi tek başınıza işe gönderirlerse senior oldunuz sayılır. Bu süre azminize göre değişmekle birlikte 1,5-2 yıl sürer. Senior olduktan sonra paraya artık dolar diyebilirsiniz.

SAP bünyesinde çalışabileceğiniz birden fazla alan vardır:

Basis: genel donanım, veri tabanı, işletim sistemi, application server hataları ve optimizasyonu gibi işleri yaparlar.

Danışman: Modüllerin parametreleri vardır, her firmanın çalışma sistemine göre programın uyarlanabilmesi için bu parametrelerden yararlanılır. Danışmanlar parametreleri iyi bilirler.

Abap: Parametrelerin yetersiz kaldığı yerde abap kodları ile sorunlara çözüm üretirler, danışmanlarla birlikte çalışırlar.

SAP içinde aşağıdaki ana modüller bulunur. Her bir danışman bu modüllerden birinde uzmanlaşır, çünkü her bir modül çok kapsamlıdır. Abapçılar bir yada daha fazla modüle hakim olabilir, çünkü danışmanlardan yardım alabilmektedirler.

  • SD = Satış ve Dağıtım Modülü
  • MM = Malzeme Yönetimi Modülü
  • PP = Üretim Planlama Modülü
  • QM = Kalite Yönetimi Modülü
  • PM = Fabrika Yönetimi Modülü
  • HR = İnsan Kaynaları Modülü
  • FI = Finans Modülü
  • CO = Finans Kontrol Modülü
  • AM = Varlık Yönetim Modülü
  • PS = Proje Modülü
  • WF = İş Akışı Modülü
  • IS = Sanayi Çözümleri Modülü
    • IS-U = Enerji Dağıtım
    • IS-R = Parakende

Tüm modüllerin listesi için buradan bakabilirsiniz.

Ayrıntılı bilgi için aşağıdaki adresleri ziyaret edebilirsiniz.

http://en.wikipedia.org/wiki/SAP_R/3http://www.sapdocs.info

User Exist

SMODUser existlerin listelendiği ekrandır.Örneğin SUSR0001, kullanıcıların giriş yaptıktan sonra çalışan user exist’tir.User-existleri bulmak için firmalar özel programlar kullanırlar, SMOD içinden arama yaparak yada mevcut ekranların kodları incelenerek user-existler bulunabilir ancak yorucu olabilir.

Excel – Hücre değerlerini topla ve birleştir

Sum cells and merge 

Toplam = 0
    For i = 1 To Selection.Rows.Count
      Toplam = Toplam + Selection.Cells(i, 1)
      Selection.Cells(i, 1).Clear
    Next i
    With Selection
        .Merge
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Selection.Cells(1, 1) = Toplam