• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Thêm mục vào hộp thoại RUN

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Thêm mục vào hộp thoại RUN

Gửi bàigửi bởi QuangHoa » T.Ba 06/05/2008 11:59 am

Thủ thuật: Thêm mục vào hộp thoại RUN
Tác giả: Võ Quang Hòa
Mô tả: Thêm một file, một chưong trình để có thể mở nhanh trong hộp thoại RUN


Cái này đã làm một phần mềm rồi nhưng với hi vọng được vào VBLIB nên hôm nay Pos đoạn mã đã được làm gọn.
Trong form hãy thêm một Command1 rồi chép mã vào. :>

Mã: Chọn hết

  1.  
  2. ' CODE by Võ Quang Hòa
  3. Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _
  4.     ByVal hkey As Long, ByVal lpsubkey As String, phkResult As Long) As Long
  5. Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
  6.     ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
  7.     ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
  8. Private Declare Function RegCloseKey Lib "advapi32" (ByVal hkey As Long) As Long
  9. Dim duongdan As String
  10. Dim tengoi As String
  11.  
  12. Private Sub Command1_Click()
  13.         RegCreateKey &H80000002, "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" & tengoi & ".exe", hkey
  14.         RegSetValueEx hkey, "", 0&, 1, ByVal duongdan, Len(duongdan)
  15.         RegCloseKey hkey
  16.     msgbox "Da them thanh cong"
  17. End Sub
  18.  
  19. Private Sub Form_Load()
  20. duongdan = "C:\Program Files\Windows Media Player\wmplayer.exe"
  21. tengoi = "nghenhac"
  22. End Sub
  23.  


rất đơn giản !


朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4763
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 518 time

Re: Thêm mục vào hộp thoại RUN

Gửi bàigửi bởi truongphu » T.Ba 06/05/2008 3:26 pm

Tặng bạn quanghoa để quen thêm với VBScript: thay vì "nghe nhạc", bạn chỉ gõ "zz"

Mã: Chọn hết

  1. Set Ðangky = CreateObject("WScript.Shell")
  2. Ðangky.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\ZZ.EXE\", _
  3. "C:\Program Files\Windows Media Player\wmplayer.exe", "REG_SZ"
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

HaiPT
VIP
VIP
Bài viết: 252
Ngày tham gia: T.Tư 07/09/2005 4:02 pm
Đến từ: Hải Phòng
Has thanked: 1 time
Been thanked: 12 time
Liên hệ:

Re: Thêm mục vào hộp thoại RUN

Gửi bàigửi bởi HaiPT » T.Ba 06/05/2008 4:23 pm

Bác phú không nên lạm dụng WinScript , nó có rất nhiều hạn chế
+ Không tận dụng được chức năng gợi nhớ code của IDE
+ Chạy chậm hơn rất nhiều so với cách gọi thông thường , vì phải làm thêm bước tạo đối tượng script và nhờ đối tượng này run hộ, đồng thời cách truy xuất đối tượng cũng là liên kết muộn( late bound) ,các đối tượng chỉ đến lúc chạy mới biết được type làm chậm thêm khá nhiều và đồng thời gây khó khăn khi gỡ rối
+ Chỉ làm việc với kiểu variant rất dễ gây lỗi và khó dò lỗi khi thao tác với số lượng lớn mã lệnh
Có thể trong 1 số trường hợp dùng script đúng là tiện ích, nhỏ gọn..nhưng sẽ bị trả giá đắt về tốc độ thi hành , phát triển và bảo trì về sau...
Phạm Hải
Quản trị dự án ,Chuyên gia đào tạo
Đại học FPT


Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách