Jump to content

ozanaus

Üye
  • Posts

    2413
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by ozanaus

  1. karadurak, 04.07.2017 - 22:05 yazdı:

    Tatile çıkmadan son bi güncelleme yayınlıyorum. Sabaha hazır olur. 1 ay kadar yokum ama online olurum ara sıra :) 

    sshot-1.thumb.png.11d0711ef29d6bebebe5a5e3847a27d2.png

    karadurak hocam merhaba

    güncellemeyi yaptım, flashın içindeki sources klasorune: uefili iso içerisindeki wimleri,  install78664.wim ve install108664.wim olarak isimlendirip attım

    ayrıca _win klasorunun içindeki 7aio klasorune 7aio.iso dosyasını attım, ama yukardakı menulerden hangısıne bastıysam ne ıso nede wın doylarını acılmadı yanı kuruluma gecmedı

    eskı surumde  sources klasorune  install78664.wim ve install108664.wim dosylarını atmıstım ve menu ılgılı sısteme tıklayınca kuruluma gecmıstı,

    sımdı wim + win7+win10 isolarını nereye atmalıyımmı yukardakı menulere tıklayınca kurluma gecsın

    tşkler

  2. 9 saat önce, nous yazdı:

    UltraISO Premium Edition 9.7.0.3476 TR

      Reveal hidden contents

    Mvbg19.jpg

    • Yönetici olarak Çalıştırın.
    • "Kurulum Tamamlandı!" uyarısı çıkana kadar bekleyin.

    MD5:CA7DA852809F9DBA280C463526EFEB4D

    (4,81 Mb)

    mBSnI.gif

     

    
    http://turbobit.net/qexqcmmsm0t5.html
    https://userscloud.com/fx6n8gxng59r

     

    hash degerleri tutmuyor

    CRC32: 1DEA1049
    MD5: 8909D822460F05C454364B962B5A8CFB
    SHA-1: D95CCCADD57445B5C54D2ABE32F168293B2F1265
     

  3. On 08.06.2017 at 17:01, awengers44 yazdı:

    @karadurakEline sağlık gerçekten çok farklı bir çalışma olmuş :)  

    Dosya olarak eklemek istedim ama sürekli imza hatası aldım o yüzden sadece nasıl yapılır yolunu tarif ediyorum belki daha sonra arkadaş kendisi klasör değişkenliği için gerekli dosyaları hazırlar verir ancak o zamana kadar kullanmak isteyen yada boot dizini sorunu olmayan arkadaşlar için altta grub2 ve grub4dos için çalıştırma kodunu veriyorum. Öncelikle grldr dosyamızı adını krldr yapıp Boot dizinine atıyoruz burdaki amaç başka grldr isteyen yazılım olursa engel olmasın. Bcd ayarlarında yapılacak değişikliği anlatmama gerek varmı bilmiyorum. 1.Boot\bcd - 2.efi\boot\microsoft\boot\bcd , bootice.exe ile gerekli eklenti ve değişiklikler yapılır.

    Grub2

    
    ### Start WinPE 10 Karadurak
    if [ "$pc" ]; then
    menuentry " >> Karadurak WinPE 10 x86x64 " --hotkey=s {
    	ntldr /Boot/krldr
    }
    fi
    ### End Start WinPE 10 Karadurak

    Grub4dos

    
    title >> WinPe 10 x64x86 Karadurak
    find --set-root --ignore-floppies --ignore-cd /Boot/Bootmgr || rootnoverify (hd0) && chainloader +1 && boot
    map () (hd0) && map (hd0) () && map --rehook
    find --set-root --devices=h /Boot/Bootmgr
    chainloader /Boot/Bootmgr

    peki KM10PETR iso içeriğini flashın ana dizinine mi atacaz yoksa direkiso olarak mı atacaz

  4. 3 MAYMUNLAR


     Dünyaya nizam intizam vermeye çalışan bilim adamları, bakmışlar ki, muz cumhuriyetinde nizam intizam yok, öğretmeye karar vermişler, rastgele üç maymun seçmişler, kafese koymuşlar, kafesin tavanına da muz asmışlar... Muzu gören maymunlar tellere tırmanıp uzanmış ki, vermişler tazyikli suyu, nerden geldiğini şaşırmış zavallılar, paldır küldür yere yuvarlanmışlar, kafa göz haşat... Uslu uslu oturmaya başlamışlar, sırılsıklam.

     *

     Bakmışlar ki, bunlar öğrendi, ıslak maymunlardan birini çıkarıp, yerine kuru bi maymun koymuşlar... Kuru maymun tellere hamle yaptığında, tazyikli suya gerek kalmamış, ıslak maymunlar yapışmış kuru maymunun ayağına, vermişler sopayı, başımızı belaya mı sokacaksın diye... Böylece, o da öğrenmiş, oturmuşlar uslu uslu, ikisi yaş, biri kupkuru.

     *

     Sonra, ıslak maymunlardan birini daha çıkarıp, yeni bi kuru maymun koymuşlar kafese, bu sefer, ıslak olanı tazyikli su korkusuyla, kıdemli kuru olanı kanun böyle diye, girişmişler tekme tokat tecrübesiz kuru maymuna... Oturmuşlar uslu uslu, ikisi kuru, biri sırılsıklam.

     *

     Ardından, son ıslak maymunu dışarı alıp, üçüncü kuru maymunu ittirmişler içeri, garibim muza teşebbüs edince, esaslı sopa yemiş öbür kuru maymunlardan, bilhassa ilk kurunun böbreğe böbreğe çalıştığı görülmüş... Netice itibariyle, neden dövdüğünü bilmeyen iki kuruyla, neden dövüldüğünü anlamayan bir kuru maymun elde edilmiş. Oturmuşlar uslu uslu.

     *

     “Sebepsiz kader” deniyor buna... Tek tek öğreniliyor.

     *

     Korkaklıkla ahmaklık birbirine karışınca... İlla kuru’nun yanında yaş’ın da yanmadığını, yaş’ın yanında kuru’nun da yanabildiğini kanıtlıyor.

     *

     Belki ilk kez okudunuz hikâyelerini ama, posterleri bile var, dünyaca meşhurdur muz cumhuriyetinin o üç maymunu... 

     Aslında yürekleri pırpır eder, içleri gider ama, sanki hiç oralı değillermiş gibi, görmedim, duymadım, konuşmadım deyip, otururlar uslu uslu...

    • Like 1
  5. On 06.06.2017 at 10:51, ozanaus yazdı:

    awengers44

     

    slm kardesım, rahatsız ediyorum, sımdı falshı anlattıgın gibi hazırladım, uefili isoları entegre ttim, flash uefili olmuş mu peki?

    bu açıklaman kafamı karıştırdı

    Qemu ekranında gösterdiğin UEFI isimli sistemler aslında Legacy,dir

      Hide contents

    59365eb3abf04_EkranAlnts.PNG.6f12c8a32332529b088cb5a687c6ad57.PNG

     

     

     

     

    • Like 1
  6. Home sürümü sürümü yüklersen internete bağlandığı gibi otomatik etkinleşir

     

    lisans yedekleme

    altaki kodu bir metin belgesine yapıstırp farklı kaydek, uzantısını vbs yap

    ornek lisansyedek.vbs

    ardından calıstır lisansın bı yeree yedeklemıs olursun

     

     

    Spoiler

     

    ' Düzenleyen: Nonpasaran
    ' http://enpedi.com/
    ' İlgili makale: http://8.enpedi.com/2014/08/windows-8-ve-81-lisans-anahtarn-bulmak.html


    'Option Explicit
    On Error Resume Next
    Dim OEM , objWMIService , colItems , objItem , verItems, ver , name
    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
    Set verItems = objWMIService.ExecQuery( _
        "SELECT * FROM Win32_OperatingSystem",,48) 
    For Each objItem in verItems 
        ver = objItem.Version
        name = Replace (objItem.Caption,"Microsoft ","")
    Next

    Set colItems = objWMIService.ExecQuery( _
        "SELECT * FROM SoftwareLicensingService",,48) 
    For Each objItem in colItems 
        OEM = objItem.OA3xOriginalProductKey
    Next
    If OEM = "" Then 
        If CLng(Replace(ver,".","")) < 630000 Then
            OEM = Ad & " Desteklenmiyor"
        Else    
            OEM = "Anahtar BIOS'da bulunamadı"
        End If
    End If

    Set WshShell = CreateObject("WScript.Shell")
    Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
    DigitalID = WshShell.RegRead(key & "DigitalProductId")

    ProductName = "İşletim sistemi sürümü: " & vbTab & WshShell.RegRead(Key & "ProductName") & vbNewLine
    ProductID = "Ürün Kimliği: " & vbTab & WshShell.RegRead(Key & "ProductID") & vbNewLine
    ProductKey = "Geçerli Anahtar: " & vbTab & ConvertToKey(DigitalID)
    Product = ProductName & ProductID & ProductKey & vbNewLine & "OEM Anahtar:   " & vbTab & OEM


    If vbYes = MsgBox(Product & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "Kaydetmek istiyor musunuz?", vbYesNo + vbInformation, "Lisans Anahtarımı göster! by Nonpasaran") then
       Save Product
    End if

    Function ConvertToKey(Key)
        Const KeyOffset = 52
        isWin8 = (Key(66) \ 6) And 1
        Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
        i = 24
        Chars = "BCDFGHJKMPQRTVWXY2346789"
        Do
            Cur = 0
            X = 14
            Do
                Cur = Cur * 256
                Cur = Key(X + KeyOffset) + Cur
                Key(X + KeyOffset) = (Cur \ 24)
                Cur = Cur Mod 24
                X = X -1
            Loop While X >= 0
            i = i -1
            KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
            Last = Cur
        Loop While i >= 0
        If (isWin8 = 1) Then
            keypart1 = Mid(KeyOutput, 2, Last)
            insert = "N"
            KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
            If Last = 0 Then KeyOutput = insert & KeyOutput
        End If
        a = Mid(KeyOutput, 1, 5)
        b = Mid(KeyOutput, 6, 5)
        c = Mid(KeyOutput, 11, 5)
        d = Mid(KeyOutput, 16, 5)
        e = Mid(KeyOutput, 21, 5)
        ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
    End Function

    Function Save(Data)
        Const ForWRITING = 2
        Const asASCII = 0
        Dim fso, f, fName, ts
        fName = "Windows Lisans anahtarı.txt"
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.CreateTextFile fName
        Set f = fso.GetFile(fName)
        Set f = f.OpenAsTextStream(ForWRITING, asASCII)
        f.Writeline Data
        f.Close
    End Function

     

    • Like 1
  7. awengers44

    yardımcı olduğun için tşkr ederim

    bi kaç sorum olacak, win7 uefi entegre ederken, flasha W8.1x64 olarak kaydetti, kurulum menusunde win7efi yazıyor sıkıntı yok

    Spoiler

    59365eb3abf04_EkranAlnts.PNG.6f12c8a32332529b088cb5a687c6ad57.PNG

     

    + ilk açılış ekranı welcome to Aio boot

    direk kurulum ekranı gelecek sekılde ayarlamak mumkun mü

    tekrar tşkler

    Spoiler

    59365ed6ce89d_EkranAlnts2.PNG.9836789a27ba9be54ee54c8c5ce4dd6d.PNG

     

    • Like 2
×
×
  • Create New...