• 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

Tạo Shortcut

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ệ:

Tạo Shortcut

Gửi bàigửi bởi QuangHoa » T.Tư 21/05/2008 1:54 pm

Thủ thuật: Tạo Shortcut
Tác giả: Võ Quang Hòa
Mô tả: Tạo một Shortcut bằng code một cách đơn giản


1 Tới Website

Mã: Chọn hết

  1.  
  2. Private Sub Form_Load()
  3. Open "C:\Caulacbovb.url" For Output As #1
  4. Print #1, "[InternetShortcut]"
  5. Print #1, "URL=http://www.caulacbovb.com/"
  6. 'Print #1, "IconIndex = 0"
  7. 'Print #1, "IconFile=C:\WINDOWS\explorer.exe"
  8. Close #1
  9. End Sub


2 Shortcut đến Email

Mã: Chọn hết

  1.  
  2. Private Sub Form_Load()
  3. Open "C:\mail.url" For Output As #1
  4. Print #1, "[InternetShortcut]"
  5. Print #1, "URL=mailto:voquanghoa@gmail.com"
  6. 'Print #1, "IconIndex = 0"
  7. 'Print #1, "IconFile=C:\WINDOWS\explorer.exe"
  8. Close #1
  9. End Sub

3 Shortcut đến Thư mục

Mã: Chọn hết

  1.  
  2. Private Sub Form_Load()
  3. Open "C:\Shortcut to new folder.url" For Output As #1
  4. Print #1, "[InternetShortcut]"
  5. Print #1, "URL=D:\New folder"
  6. Print #1, "IconIndex = 3"
  7. Print #1, "IconFile=%SystemRoot%\system32\SHELL32.dll"
  8. Close #1
  9. End Sub


4 Shortcut đến file .exe

Mã: Chọn hết

  1.  
  2. Private Sub Form_Load()
  3. Open "C:\Shortcut to project1.url" For Output As #1
  4. Print #1, "[InternetShortcut]"
  5. Print #1, "URL=D:\Project1.exe"
  6. Print #1, "IconIndex = 0"
  7. Print #1, "IconFile=D:\Project1.exe"
  8. Close #1
  9. End Sub


GOOD LUCK !
Sửa lần cuối bởi QuangHoa vào ngày T.Sáu 23/05/2008 8:37 am với 5 lần sửa.


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

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Tạo Shortcut cho Website

Gửi bàigửi bởi clarkkent » T.Tư 21/05/2008 2:06 pm

Trời ! sao mà nó gọn thế... :D
Vậy tạo shortcut ở desktop có thể làm gọn như thế được không ...? :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

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ệ:

Re: Tạo Shortcut cho Website

Gửi bàigửi bởi QuangHoa » T.Tư 21/05/2008 2:31 pm

Đổi cái này lại thành đường dẫn của DESKOP là được

Mã: Chọn hết

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

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Tạo Shortcut cho Website

Gửi bàigửi bởi clarkkent » T.Tư 21/05/2008 2:36 pm

Không ý mình hỏi là shortcut của 1 chương trình... :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

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ệ:

Re: Tạo Shortcut cho Website

Gửi bàigửi bởi QuangHoa » T.Tư 21/05/2008 2:41 pm

Không vì Shortcut của chưong trình là .lnk rất khác với .url nên không xài cách này được, về nguyên tắc thì thực chất nó đều là file nên có thể ghi được, nhưng .url thì nó hiển thị thế còn bên .lnk thì khá phức tạp.
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

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ệ:

Re: Tạo Shortcut

Gửi bàigửi bởi QuangHoa » T.Sáu 23/05/2008 8:36 am

Vậy là đã ổn, mặc dù không hay lắm vì phải dùng file .url vì nguyên tắc là .lnk cơ nhưng mà không sao, vấn đề đã được giải quyết xong.
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Tạo Shortcut

Gửi bàigửi bởi clarkkent » T.Sáu 23/05/2008 11:14 am

Good ! Thanhks... :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

Hình đại diện của người dùng
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 531
Ngày tham gia: T.Tư 02/04/2008 2:08 pm
Đến từ: RGames Team
Has thanked: 3 time
Been thanked: 17 time
Liên hệ:

Re: Tạo Shortcut

Gửi bàigửi bởi Dang Minh Du » T.Bảy 24/05/2008 3:11 pm

Gắn Shortcut Key cho nó luôn được hôn anh :-/
~°Dòng Sông Mùa Thu°~
Studying...!

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ệ:

Re: Tạo Shortcut

Gửi bàigửi bởi QuangHoa » T.Bảy 24/05/2008 8:06 pm

Không hiểu, có phải là tổ hợp phím tắt không. Nếu vậy thì thêm câu lệnh này thôi

Mã: Chọn hết

  1.  
  2. print #1,"Hotkey=840"
  3.  

Là Key của tổ hợp phím Shift + Ctrl + A
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
Dang Minh Du
Thành viên ưu tú
Thành viên ưu tú
Bài viết: 531
Ngày tham gia: T.Tư 02/04/2008 2:08 pm
Đến từ: RGames Team
Has thanked: 3 time
Been thanked: 17 time
Liên hệ:

Re: Tạo Shortcut

Gửi bàigửi bởi Dang Minh Du » CN 25/05/2008 3:01 pm

Anh hỉu đúng vấn đề rồi :D
Hay là anh nghiên cứu rồi Post bài viết lnk luôn đi, cho mọi người cùng tham khảo :D
~°Dòng Sông Mùa Thu°~
Studying...!

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ệ:

Re: Tạo Shortcut

Gửi bàigửi bởi QuangHoa » T.Hai 26/05/2008 7:39 am

Lnk phức tạp chứ không đơn giản chỉ là ghi vài thứ đâu, em cái này hơi khó ! Nhưng không sao, hình như trong VBLIB cũng có hướng dẫn làm Shortcut thì phải, anh cũng mới để ý ra, em xem xem !
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。


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.2 khách