itshares
Thành viên
- Tham gia ngày
- 04/04/2014
- Bài viết
- 163
Lần đầu tiên post bài nên chúc tất cả anh em CPN có nhiều sức khỏe để ăn 
ngon miệng. (ăn 3 lần/tuần sẽ giúp "ấy" tốt hơn 
)
Đối với các phòng máy còn sử dụng GHB crack xxx và dùng các image có client khác version của server nên không tận dụng được hết các phần hỗ trợ từ tool của các phần mềm đó, ví dụ như tool change wallpaper chẳng hạn. Với lại 1 số anh em không thích dùng các phần mềm đó như em thì hôm nay em xin share với các cô các chú vài code mà em đang dùng tại phòng máy của em.
Đầu tiên là client, sau khi các bác chỉnh sửa hết image cho hoàn hảo theo ý các bác rồi thì tới bước của em. Đầu tiên mở notepad copy dòng lệnh sau rồi lưu lại thành file vbs, theo em thì sẽ lưu là Run.vbs đem vào ổ C:\. Các bác muốn đem vào đâu thì tùy.
WScript.Sleep 3000
CreateObject("WScript.Shell").Run "D:\soft\Index.vbs"
Sau đó các bác vào run gõ gpedit.msc và tìm theo đường dẫn Computer Config.../Admin Temp.../System/Logon => Run these programs at user logon => Enable rồi thêm C:\Run.vbs.
Lúc này khi windows khởi động thì nó sẽ chạy câu lệnh Run này.
Tiếp theo là tạo 1 file vbs khác lưu trên ổ game trong 1 thư mục ẩn, theo của em là D:\soft\index.vbs
Nội dung trong vbs thế nào em sẽ nói tiếp bên dưới.
File Run.vbs sẽ nằm ở client và cố định, em thêm thời gian 3000 là tương đương 3s, đối với phòng máy bác nào nhận ổ game chậm thì nên tăng thời gian lên tầm 5 đến 8s, nếu không nó chưa kịp nhận ổ game mà file run nó chạy sẽ báo lỗi.
Còn file index.vbs các bác muốn chạy cái gì thì chèn code vào trong đó, nó có thể chạy tất tần tật mọi thứ nếu như tìm được code thích hợp. Những code em share bên dưới đều chạy tốt trên nền windows 7, còn khác windows 7 thì em chưa thử nên chưa biết có chạy hay không.
Code Index.vbs
1. Mở trang web bất kỳ khi khởi động
Set WshShell = WScript.CreateObject("WScript.Shell")
Command = " E-Sport Center NET 4K"
WshShell.Run Command
Facebook trên là của net em đang làm.
2. Mở 1 chương trình khi khởi động
Dim WShell
Set WShell = CreateObject("WScript.Shell")
WShell.Run """D:\Game Online\Garena\Garena\Garena.exe""", 0
Set WShell = Nothing
Phòng em thường chơi liên minh nên em cho khách chỉ cần mở máy và login vào chơi thôi khỏi lăn tăn tìm cái biểu tượng game nó nằm ở đâu.
3. Thêm shortcut game hoặc chương trình ra ngoài desktop
Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\Public\Desktop\Word 2010.LNK")
lnk.TargetPath = "D:\Portable\Office2010\Word2010.exe"
lnk.Arguments = ""
lnk.Description = "Microsoft Word 2010"
lnk.HotKey = ""
lnk.IconLocation = "D:\Portable\Office2010\Word.ico"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "D:\Portable\Office2010\"
lnk.Save
Set lnk = Nothing
Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\Public\Desktop\Excel 2010.LNK")
lnk.TargetPath = "D:\Portable\Office2010\Excel2010.exe"
lnk.Arguments = ""
lnk.Description = "Microsoft Excel 2010"
lnk.HotKey = ""
lnk.IconLocation = "D:\Portable\Office2010\Excel.ico"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "D:\Portable\Office2010\"
lnk.Save
Set lnk = Nothing
Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\Public\Desktop\Vo Lam 2.LNK")
lnk.TargetPath = "D:\Game Online\Vo Lam 2\autoupdate.exe"
lnk.Arguments = ""
lnk.Description = "Vo lam 2"
lnk.HotKey = ""
lnk.IconLocation = "D:\Game Online\Vo Lam 2\autoupdate.exe"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "D:\Game Online\Vo Lam 2\"
lnk.Save
Set lnk = Nothing
Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\Public\Desktop\Garena.LNK")
lnk.TargetPath = "D:\Game Online\Garena\Garena\Garena.exe"
lnk.Arguments = ""
lnk.Description = "Garena"
lnk.HotKey = ""
lnk.IconLocation = "D:\Game Online\Garena\Garena\Garena.exe"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "D:\Game Online\Garena\Garena\"
lnk.Save
Set lnk = Nothing
Các bác nhìn vào chắc cũng hiểu, khỏi giải thích nha.
4. Khắc phục bị mở trang chủ quảng cáo khi mở web của phần mềm csm.
Các bác đừng cài trình duyệt vào image, cứ chạy portable cho em, đây là cách bị set link trang chủ không mong muốn và bị lưu lịch sử web trên phần mềm csm. Phòng của em chặn trực tiếp coccoc, firefox chỉ cho tụi nó xài chrome thôi. Cách này mình có thể set trang chủ theo ý mình muốn, thêm cái ẩn danh cho tụi nó khỏi lo mất pass rồi đỗ thừa net mình. Nhớ chừa dòng WScript.Sleep 3000 để tránh phần mềm csm nó set lại link trang chủ.
WScript.Sleep 3000
Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\Public\Desktop\Google Chrome.LNK")
lnk.TargetPath = "D:\Portable\GoogleChrome\GoogleChromePortable.exe"
lnk.Arguments = " E-Sport Center NET 4K -incognito -start-maximized"
lnk.Description = "Browser"
lnk.HotKey = ""
lnk.IconLocation = "D:\Portable\GoogleChrome\App\Chrome-bin\chrome.exe"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "D:\Portable\GoogleChrome\"
lnk.Save
Set lnk = Nothing
5. Change wallpaper (thay đổi hình nền desktop) cho máy trạm có ổ cứng hoặc SSD đóng băng bằng phần mềm có loại trừ.
Đối với bootrom không sử dụng được cách này.
Ví dụ cứ lâu lâu có dịp lễ hội gì đó mà muốn thay đổi hình nền desktop máy trạm cho nó vui vui nhưng ngại mở băng từng máy để thay đổi hình. Đầu tiên là các bác tạo 1 thư mục trên máy tính tiền đặt là wallpaper hay gì đó tùy, rồi share nó. Sau đó code này sẽ lấy ảnh từ trong thư mục share này set cho client.
Trên máy trạm tạo 1 thư mực nào đó rồi set phần mềm đóng băng không đóng băng nó, thường là chức năng loại trừ. Thường em sử dụng TimeFreeze có thể đóng băng được ổ GPT. Phòng máy em sử dụng SSD 60GB cài win GPT boot win tầm 15s.
Để nó lấy được hình làm hình nền desktop, trên máy trạm các bác vào gpedit set đường dẫn cho nó. Lưu ý, nó chỉ lấy hình trên local disk, nếu các bác chọn trực tiếp từ thư mục share thì nó sẽ bị màn hình đen bởi vì không lấy được hình, nguyên do là mạng khởi động không kịp để cho nó lấy hình set làm hình nền.
Const DestinationFile = "C:\OUT\wallpaper.jpg"
Const SourceFile = "\\Maytinhtien\Wallpaper\wallpaper.jpg"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(DestinationFile) Then
If Not fso.GetFile(DestinationFile).Attributes And 1 Then
fso.CopyFile SourceFile, "C:\OUT\", True
Else
fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes - 1
fso.CopyFile SourceFile, "C:\OUT\", True
fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes + 1
End If
Else
fso.CopyFile SourceFile, "C:\OUT\", True
End If
Set fso = Nothing
Trên đây là vài code sưu tầm của em, các bác có thắc mắc gì cứ comment bên dưới
ngon miệng. (ăn 3 lần/tuần sẽ giúp "ấy" tốt hơn )Đối với các phòng máy còn sử dụng GHB crack xxx và dùng các image có client khác version của server nên không tận dụng được hết các phần hỗ trợ từ tool của các phần mềm đó, ví dụ như tool change wallpaper chẳng hạn. Với lại 1 số anh em không thích dùng các phần mềm đó như em thì hôm nay em xin share với các cô các chú vài code mà em đang dùng tại phòng máy của em.
Đầu tiên là client, sau khi các bác chỉnh sửa hết image cho hoàn hảo theo ý các bác rồi thì tới bước của em. Đầu tiên mở notepad copy dòng lệnh sau rồi lưu lại thành file vbs, theo em thì sẽ lưu là Run.vbs đem vào ổ C:\. Các bác muốn đem vào đâu thì tùy.
WScript.Sleep 3000
CreateObject("WScript.Shell").Run "D:\soft\Index.vbs"
Sau đó các bác vào run gõ gpedit.msc và tìm theo đường dẫn Computer Config.../Admin Temp.../System/Logon => Run these programs at user logon => Enable rồi thêm C:\Run.vbs.
Lúc này khi windows khởi động thì nó sẽ chạy câu lệnh Run này.
Tiếp theo là tạo 1 file vbs khác lưu trên ổ game trong 1 thư mục ẩn, theo của em là D:\soft\index.vbs
Nội dung trong vbs thế nào em sẽ nói tiếp bên dưới.
File Run.vbs sẽ nằm ở client và cố định, em thêm thời gian 3000 là tương đương 3s, đối với phòng máy bác nào nhận ổ game chậm thì nên tăng thời gian lên tầm 5 đến 8s, nếu không nó chưa kịp nhận ổ game mà file run nó chạy sẽ báo lỗi.
Còn file index.vbs các bác muốn chạy cái gì thì chèn code vào trong đó, nó có thể chạy tất tần tật mọi thứ nếu như tìm được code thích hợp. Những code em share bên dưới đều chạy tốt trên nền windows 7, còn khác windows 7 thì em chưa thử nên chưa biết có chạy hay không.
Code Index.vbs
1. Mở trang web bất kỳ khi khởi động
Set WshShell = WScript.CreateObject("WScript.Shell")
Command = " E-Sport Center NET 4K"
WshShell.Run Command
Facebook trên là của net em đang làm.
2. Mở 1 chương trình khi khởi động
Dim WShell
Set WShell = CreateObject("WScript.Shell")
WShell.Run """D:\Game Online\Garena\Garena\Garena.exe""", 0
Set WShell = Nothing
Phòng em thường chơi liên minh nên em cho khách chỉ cần mở máy và login vào chơi thôi khỏi lăn tăn tìm cái biểu tượng game nó nằm ở đâu.
3. Thêm shortcut game hoặc chương trình ra ngoài desktop
Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\Public\Desktop\Word 2010.LNK")
lnk.TargetPath = "D:\Portable\Office2010\Word2010.exe"
lnk.Arguments = ""
lnk.Description = "Microsoft Word 2010"
lnk.HotKey = ""
lnk.IconLocation = "D:\Portable\Office2010\Word.ico"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "D:\Portable\Office2010\"
lnk.Save
Set lnk = Nothing
Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\Public\Desktop\Excel 2010.LNK")
lnk.TargetPath = "D:\Portable\Office2010\Excel2010.exe"
lnk.Arguments = ""
lnk.Description = "Microsoft Excel 2010"
lnk.HotKey = ""
lnk.IconLocation = "D:\Portable\Office2010\Excel.ico"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "D:\Portable\Office2010\"
lnk.Save
Set lnk = Nothing
Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\Public\Desktop\Vo Lam 2.LNK")
lnk.TargetPath = "D:\Game Online\Vo Lam 2\autoupdate.exe"
lnk.Arguments = ""
lnk.Description = "Vo lam 2"
lnk.HotKey = ""
lnk.IconLocation = "D:\Game Online\Vo Lam 2\autoupdate.exe"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "D:\Game Online\Vo Lam 2\"
lnk.Save
Set lnk = Nothing
Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\Public\Desktop\Garena.LNK")
lnk.TargetPath = "D:\Game Online\Garena\Garena\Garena.exe"
lnk.Arguments = ""
lnk.Description = "Garena"
lnk.HotKey = ""
lnk.IconLocation = "D:\Game Online\Garena\Garena\Garena.exe"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "D:\Game Online\Garena\Garena\"
lnk.Save
Set lnk = Nothing
Các bác nhìn vào chắc cũng hiểu, khỏi giải thích nha.
4. Khắc phục bị mở trang chủ quảng cáo khi mở web của phần mềm csm.
Các bác đừng cài trình duyệt vào image, cứ chạy portable cho em, đây là cách bị set link trang chủ không mong muốn và bị lưu lịch sử web trên phần mềm csm. Phòng của em chặn trực tiếp coccoc, firefox chỉ cho tụi nó xài chrome thôi. Cách này mình có thể set trang chủ theo ý mình muốn, thêm cái ẩn danh cho tụi nó khỏi lo mất pass rồi đỗ thừa net mình. Nhớ chừa dòng WScript.Sleep 3000 để tránh phần mềm csm nó set lại link trang chủ.
WScript.Sleep 3000
Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\Public\Desktop\Google Chrome.LNK")
lnk.TargetPath = "D:\Portable\GoogleChrome\GoogleChromePortable.exe"
lnk.Arguments = " E-Sport Center NET 4K -incognito -start-maximized"
lnk.Description = "Browser"
lnk.HotKey = ""
lnk.IconLocation = "D:\Portable\GoogleChrome\App\Chrome-bin\chrome.exe"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "D:\Portable\GoogleChrome\"
lnk.Save
Set lnk = Nothing
5. Change wallpaper (thay đổi hình nền desktop) cho máy trạm có ổ cứng hoặc SSD đóng băng bằng phần mềm có loại trừ.
Đối với bootrom không sử dụng được cách này.
Ví dụ cứ lâu lâu có dịp lễ hội gì đó mà muốn thay đổi hình nền desktop máy trạm cho nó vui vui nhưng ngại mở băng từng máy để thay đổi hình. Đầu tiên là các bác tạo 1 thư mục trên máy tính tiền đặt là wallpaper hay gì đó tùy, rồi share nó. Sau đó code này sẽ lấy ảnh từ trong thư mục share này set cho client.
Trên máy trạm tạo 1 thư mực nào đó rồi set phần mềm đóng băng không đóng băng nó, thường là chức năng loại trừ. Thường em sử dụng TimeFreeze có thể đóng băng được ổ GPT. Phòng máy em sử dụng SSD 60GB cài win GPT boot win tầm 15s.
Để nó lấy được hình làm hình nền desktop, trên máy trạm các bác vào gpedit set đường dẫn cho nó. Lưu ý, nó chỉ lấy hình trên local disk, nếu các bác chọn trực tiếp từ thư mục share thì nó sẽ bị màn hình đen bởi vì không lấy được hình, nguyên do là mạng khởi động không kịp để cho nó lấy hình set làm hình nền.
Const DestinationFile = "C:\OUT\wallpaper.jpg"
Const SourceFile = "\\Maytinhtien\Wallpaper\wallpaper.jpg"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(DestinationFile) Then
If Not fso.GetFile(DestinationFile).Attributes And 1 Then
fso.CopyFile SourceFile, "C:\OUT\", True
Else
fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes - 1
fso.CopyFile SourceFile, "C:\OUT\", True
fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes + 1
End If
Else
fso.CopyFile SourceFile, "C:\OUT\", True
End If
Set fso = Nothing
Trên đây là vài code sưu tầm của em, các bác có thắc mắc gì cứ comment bên dưới
