۩۞–»Diễn đàn 08K1 «–۞۩

Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
۩۞–»Diễn đàn 08K1 «–۞۩

Latest topics

» Cách log 2 Acc Shaiya, Gunny, webgame, programs ... một lúc - Sử Dụng Sandbox, zBinz, Auto bow, auto click shaiya
by Pony Fri Nov 14, 2014 9:32 am

» [Share] Code Tuyết rơi cho Website, Forum cực cool!
by phathiendenhat Mon Nov 04, 2013 11:08 am

» Nghe nhạc mọi định dạng trên máy cấu hình yếu - Media Player Classic
by downloadfree Fri Jun 21, 2013 2:10 pm

» Tạo form cập nhật dữ liệu trong foxpro 9
by Pony Mon Feb 25, 2013 3:12 pm

» Một số đề thi Kế toán Tài Chính 3
by cobexabong Wed Jan 23, 2013 4:19 pm

» Công thức Thị trường chứng khoán
by tuanctd Thu Jan 10, 2013 11:04 am

» Tạo đĩa cứu hộ máy tính cực nhanh - DLC Boot 2013 v1.0 (Boot đa năng với Mini Windows XP & Mini Windows 7)
by Pony Mon Dec 17, 2012 7:34 pm

» Bình chọn Clip SV2012 - thứ 5 quay thưởng lấy quà nào!!!
by hoanglongspkt Wed Nov 28, 2012 1:01 pm

» Đề thi tốt nghiệp Kế toán tài chính có giải
by cherrybj Wed Oct 24, 2012 3:32 pm

» [PTS] Nắng hạ nè! ^^
by Pony Sun Oct 07, 2012 10:35 am

» Ai cần tham khảo bài làm FOXPRO thì vào đây !
by winky1306 Mon Oct 01, 2012 3:15 pm

» Tặng mặt nạ dưỡng chất khi mua ví cầm tay tại Eropi
by eropi1308 Sat Sep 22, 2012 11:33 am

» Điểm nhấn cho phong cách thời trang của bạn- Mua lắc tay nhận quà tặng hấp dẫn
by eropi1308 Sat Sep 22, 2012 11:29 am

» got mat tham my
by kenhsieuthi.com Wed Aug 29, 2012 11:39 pm

» Trung Quốc lộ “nanh vuốt” trong tranh chấp Biển Đông
by Pony Sun Aug 12, 2012 12:12 am

» Hãy Cho Anh Cơ Hội [Tặng Kua Ha Long]
by panettin Mon Jul 30, 2012 3:04 am

» [Clip] Lời anh muốn nói - Design by Pony - For My Love
by Pony Tue Jul 10, 2012 8:50 pm

» Kua Ha Long
by panettin Sat Jun 30, 2012 11:23 pm

» [Đề thi] Kế toán tài chính 1, 2, 3
by Pony Fri Jun 15, 2012 11:33 am

» Foxit Reader 2.3 đọc file pdf không cần cài. Chỉ bằng cú click chuột
by Pony Fri Jun 15, 2012 11:27 am


    Thay đổi thông tin trong System Properties máy tính

    Pony
    Pony
    V.I.P
    V.I.P


    Tên : Nguyễn Tuấn Vũ
    Tâm Trạng : Đang Yêu
    Đến từ : Góc Khuất của tâm hồn !
    Nghề nghiệp : Kết Nối ...
    Posts : 2622
    Points : 9239
    Thanked : 4205
    Châm NgônThà một phút cười rồi bị đánh.
    Còn hơn ngồi rầu rĩ cả trăm năm.
    Giới tính : Nam

    Thay đổi thông tin trong System Properties máy tính Empty Thay đổi thông tin trong System Properties máy tính

    Bài gửi by Pony Tue Dec 07, 2010 4:07 pm

    Đây là cách thay đổi thông tin trong system properties của bạn!
    Good luck!
    Tải về và sửa những file đó và dán vào: C:\WINDOWS\system32
    file logo thì bắt buộc là có tên và đuôi Oemlogo.bmp còn file info thì bắt buộc có tên: Oeminfo.ini
    Thay đổi thông tin trong System Properties máy tính 295642
    Attachments
    Thay đổi thông tin trong System Properties máy tính Attachmentwww.08k1.8forum.net----ChangeDisplay.zip
    Thay đổi thông tin trong System Properties máy tính
    You don't have permission to download attachments.
    (48 Kb) Downloaded 55 times
    Pony
    Pony
    V.I.P
    V.I.P


    Tên : Nguyễn Tuấn Vũ
    Tâm Trạng : Đang Yêu
    Đến từ : Góc Khuất của tâm hồn !
    Nghề nghiệp : Kết Nối ...
    Posts : 2622
    Points : 9239
    Thanked : 4205
    Châm NgônThà một phút cười rồi bị đánh.
    Còn hơn ngồi rầu rĩ cả trăm năm.
    Giới tính : Nam

    Thay đổi thông tin trong System Properties máy tính Empty Re: Thay đổi thông tin trong System Properties máy tính

    Bài gửi by Pony Wed Dec 08, 2010 9:00 am

    Trong đó có file ChangeDisplay.vbs

    Option Explicit

    Set ws = WScript.CreateObject("WScript.Shell")
    Dim ws, t, p1, p2, n, g, cn, cg
    Dim itemtype

    p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion"

    n = ws.RegRead(p1 & "RegisteredOwner")
    g = ws.RegRead(p1 & "RegisteredOrganization")
    t = "Change Owner and Organization Utility"
    cn = InputBox("Type new Owner and click OK", t, n)
    If cn <> "" Then
    ws.RegWrite p1 & "RegisteredOwner", cn
    End If

    cg = InputBox("Type new Organization and click OK.", t, g)
    If cg <> "" Then
    ws.RegWrite p1 & "RegisteredOrganization", cg
    End If
    Lưu lại với tên là changeinfouser.vbs và chạy nó. Một hộp thoại sẽ yêu cầu bạn nhập tên mới cho máy tính. Nhập xong, bạn có thể vào lại System Properties để kiểm tra những thay đổi.

      Hôm nay: Sun Apr 28, 2024 1:29 pm