Coder 15 tuổi ôm tham vọng tự làm hệ điều hành

Mấy bữa nay thấy tin này nhiều mà chưa thấy mặt em nó, cơ mà khỏi nhìn mặt cũng biết đẹp trai rồi…

Ảnh chân dung đây :

Ngưỡng mộ quá, nhân tài IT Việt

NodeJs hân hạnh tài trợ chương trình này. KTOS build trên OS.js

https://osjsv2.0o.no/
:v what the máy ảo

mình chỉ nhớ mỗi phần này trong phần giới thiệu thôi.
"trình duyệt 100% do người việt tự làm từ a-z. kt browser không sao chép mã nguồn của chromium, chỉ lấy 1 phần, còn lại lấy ở cái khác "

Em nó gỡ xuống rồi :333 mấy bác đừng làm căng :))

em nó chém gió hay lều báo chém gió đây nhiều khi không biết báo có biết mình đang viết cái gì nữa :))

hãy để em nó phát triển dần, đừng nâng lên cao quá hay thần thánh hóa, tương lai còn dài mà, kiến thức ngoài kia như đại dương ý, em nó giỏi thì mình vẫn tiếp thu nhưng mỹ từ quá sẽ gây tác dụng ngược.

thế bác cho em hỏi ý thế là sao bác mong baccs giải thích rõ hơn à

Em biết nhiều mà không biết sâu. Nên luyện tập thêm chứ thuật toán hôm qua em post bên voz thấy kinh quá

Đâu, KTOS bị gỡ xuống hồi nào???

Còn KTBrowser thì do vi phạm bản quyền bên WebExpress nên tạm thời gỡ xuống, phiên bản 6.0 hoàn thiện thì có ngay mà.

KTBrowser sử dung 3 lõi lận đó, còn tích hợp mấy thứ linh tinh lan tan nữa

13620116_365237400266625_7132702528524981253_n.png896x636 26.5 KB

Bạn có thể gửi link cho mình xem với được không?

   ExtractArchive(EPath & "Update.zip", InstallTo)
        Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut
        Dim DesktopFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)
        MyShortcut = CType(WshShell.CreateShortcut(DesktopFolder & "\KT Browser.lnk"), IWshRuntimeLibrary.IWshShortcut)
        MyShortcut.Description = "Trình duyệt Web KT Browser."
        MyShortcut.WorkingDirectory = InstallTo
        MyShortcut.TargetPath = InstallTo & "\KT Browser.exe"
        MyShortcut.Save()
        If CheckBox1.Checked = True Then
            MaterialLabel1.Text = "xíu nữa - đang đăng kí với ngen..."
            Dim f4 As String = Path.GetFullPath(Environment.SystemDirectory + "\..\Microsoft.NET\Framework\v4.0.30319\ngen.exe")
            Shell(f4 & " install " & """" & InstallTo & "\KT Browser.exe" & """", AppWinStyle.Hide, True)
        End If
        MaterialLabel1.Text = "đang tạo khóa..."
        My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\KT Browser")
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\KT Browser", "DisplayName", "KT Browser")
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\KT Browser", "DisplayIcon", InstallTo & "\KT Browser.exe,0")
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\KT Browser", "HelpLink", "mailto:khoaakt@gmail.com")
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\KT Browser", "Publisher", "KTTECH - Nguyễn Anh Khoa")
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\KT Browser", "UninstallString", InstallTo & "\Uninstall.exe")
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\KT Browser", "URLInfoAbout", "kt-browser.com")
        If Microsoft.Win32.Registry.LocalMachine.GetValue("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", "KT Browser.exe", Nothing) Is Nothing Then
            Dim Version = FileVersionInfo.GetVersionInfo(Environment.SystemDirectory & "\ieframe.dll")
            If Version.FileMajorPart = 8 Then
                Dim regKey As RegistryKey
                regKey = Registry.LocalMachine.OpenSubKey("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", True)
                regKey.SetValue("KT Browser.exe", "8000", RegistryValueKind.DWord)
                regKey.Close()
            ElseIf Version.FileMajorPart = 9 Then
                Dim regKey As RegistryKey
                regKey = Registry.LocalMachine.OpenSubKey("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", True)
                regKey.SetValue("KT Browser.exe", "9000", RegistryValueKind.DWord)
                regKey.Close()
            ElseIf Version.FileMajorPart = 10 Then
                Dim regKey As RegistryKey
                regKey = Registry.LocalMachine.OpenSubKey("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", True)
                regKey.SetValue("KT Browser.exe", "10000", RegistryValueKind.DWord)
                regKey.Close()
            ElseIf Version.FileMajorPart = 11 Then
                Dim regKey As RegistryKey
                regKey = Registry.LocalMachine.OpenSubKey("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", True)
                regKey.SetValue("KT Browser.exe", "11000", RegistryValueKind.DWord)
                regKey.Close()
            Else
                Dim regKey As RegistryKey
                regKey = Registry.LocalMachine.OpenSubKey("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", True)
                regKey.SetValue("KT Browser.exe", "9000", RegistryValueKind.DWord)
                regKey.Close()
            End If
        End If

Ý mình là gửi link tới bài viết của bạn ấy bên voz ấy

https://vozforums.com/showthread.php?t=5103913&page=26

3 lõi hay 300 lõi cũng chả quan tâm, tôi là người dùng cuối, dùng không thấy thoải mái là tôi phản ánh lại

Hình như em đang quá đánh giá cái “3 lõi” của trình duyệt của em rồi đấy
Trình duyệt của em tại sao ko mở mã nguồn để mọi người cùng phát triển, như vậy thì trình duyệt sẽ nhanh hoàn thiện hơn Em rất giỏi nhưng ko phải giỏi nhất, hay share cho cộng đồng cùng phát triển như vậy tốt hơn nhiều
Cái cuối cùng là anh khuyên em bỏ cái “3 lõi” đi, nó khá vớ vẩn, 1 là kết hợp 3 lõi tạo thành 1 lõi mới, 2 là chỉ nên phát triển trên 1 lõi thôi

Cái này là sản phẩm của bạn @khoaakt cơ .
Có gì bạn inbox cho anh ấy hoặc inbox ở đây https://www.facebook.com/ktbrowser/?fref=ts