MEMBUAT DESKTOP SHORTCUTS MENGGUNAKAN VISUAL BASIC

Setelah Visual Basic 6.0 pengembang meninggalkan array akrab fitur dan layanan yang ditawarkan oleh lingkungan Visual Basic dan oleh model obyek yang lebih umum digunakan (seperti DAO, ADO, atau lebih umum digunakan Microsoft Office model obyek), belajar bagaimana melakukan tugas tertentu dan memilih teknologi yang tepat untuk melakukannya sering menjadi membingungkan. Hal ini terutama berlaku untuk membuat cara pintas desktop. Pada artikel ini, kita akan mempelajari bagaimana Anda dapat menggunakan Visual Basic untuk membuat cara pintas desktop program (bila aplikasi Anda atau komponen berjalan) dan sebagai bagian dari program instalasi (menggunakan Paket dan Deployment Wizard disertakan dengan VB6).

Microsoft menawarkan dua teknologi bahwa pengembang Visual Basic dapat digunakan untuk membuat jalan pintas. Yang pertama adalah Perpustakaan Shell, koleksi benda-benda otomatisasi COM dan / standar C C fungsi yang ditemukan di shell32.dll. Perpustakaan, bagaimanapun, adalah benar-benar diarahkan terhadap pengembang C / C. Jauh lebih mudah diakses dan mudah adalah Windows Scripting Host Objek Library (wshom.dll), yang dalam hal ini, hanya membungkus antarmuka IShellLink dari shell32.dll. Meskipun Windows Script Host (WSH) yang paling sering disebut oleh bahasa scripted, seperti VBScript atau JScript, sebagian besar model objeknya juga dapat diakses dari Visual Basic. WSH memiliki keuntungan menjadi sangat "datar" model objek, Anda tidak harus menavigasi melalui hirarki luas objek baik instantiate atau mengambil obyek di mana Anda tertarik.

WSH menawarkan dua objek yang berbeda yang dapat digunakan dalam menciptakan cara pintas desktop. Yang pertama adalah objek WshShortcut, yang merupakan cara pintas ke objek sistem berkas pada komputer lokal atau jaringan. Yang kedua adalah obyek WshURLShortcut, yang merupakan cara pintas ke sumber daya internet. Salah satu dari dua benda dikembalikan dengan metode CreateShortcut dari objek Shell WSH. CreateShortcut membutuhkan argumen tunggal, PathLink, path dan nama file dari file link yang akan dibuat atau diambil. Jadi, kode umum yang diperlukan untuk instantiate objek pintas adalah:

Dim sShortcutPath As String
Dim oShortcut Sebagai Obyek Gunakan terlambat mengikat untuk mengakomodasi kedua
'WshShortcut dan objek WshURLShortcut
Dim WshShell oShell Seperti Baru

sShortcutPath = <path dan nama file link>
Set Osh = oScr.CreateShortcut (fn)

Perhatikan bahwa kode ini menggunakan terlambat mengikat (oShortcut ini dinyatakan sebagai tipe Objek, tipe objek generik Visual Basic's, daripada WshShortcut lebih spesifik atau WshURLShortcut), karena kita tidak tahu terlebih dahulu apakah kita akan membuat jalan pintas atau jalan pintas Internet. Jika Anda tahu sebelumnya apa jenis shortcut kode Anda akan menangani, Anda bisa, tentu saja, gunakan awal mengikat. Atau, Anda hanya dapat menentukan objek Anda untuk menjadi WshShortcut jenis dan menghubungkannya baik ke sumber daya sistem file lokal atau ke sumber daya internet, karena target objek WshShortcut dapat didefinisikan baik dengan jalur sistem file lokal atau dengan suatu URL Internet .

Apakah CreateShortcut mengembalikan sebuah objek WshShortcut atau benda WshURLShortcut tergantung pada ekstensi file yang disertakan dengan argumen PathLink. . Jika ekstensi file adalah lnk, CreateShortcut mengembalikan sebuah objek WshShortcut;. Jika url, ia mengembalikan objek WshURLShortcut. Setiap ekstensi file lainnya menghasilkan kesalahan otomatisasi. (Anda dapat, kebetulan, ekstrak ekstensi file dengan mudah dengan menggunakan metode GetExtensionName dari object FileSystemObject, ditemukan dalam Microsoft Scripting Runtime Perpustakaan, scrrun.dll. Jadi, Anda bisa menentukan jenis link Anda bekerja dengan dengan menggunakan kode seperti berikut:

Dim sShortcutPath As String, sExtension As String
Dim fs Sebagai FileSystemObject Baru
Dim WshShell oShell Seperti Baru

sShortcutPath = InputBox ("Masukkan path dan nama file link file:")
Jika sShortcutPath <> "" Lalu
   sExtension = fs.GetExtensionName (sShortcutPath)
   Pilih Kasus sExtension
      Case "lnk"
         Dim oShortcut Sebagai WshShortcut
         Set oShortcut = oShell.CreateShortcut (sShortcutPath)
      Case "url"
Dim oURLShortcut Sebagai WshURLShortcut
         Set oURLShortcut = oShell.CreateShortcut (sShortcutPath)
      Case Else
         'Input pengguna jalur valid atau nama file; menampilkan kesalahan dan
         'Exit
         Exit Sub
   End Select
End If

Jika argumen yang diberikan ke objek CreateShortcut adalah path dan nama file yang sudah ada, maka nilai properti dari WshShortcut atau objek WshURLShortcut akan diperbarui dari file yang ada. Jika tidak, file yang baru dibuat. Obyek WshShortcut memiliki anggota yang ditunjukkan pada Tabel 1.

Table 1. Members of the WshShortcut Object

Nama Anggota	Tipe Data	Deskripsi
Argumen Properti	String	Setiap argumen baris perintah yang akan dilewatkan ke executable (didefinisikan oleh properti TargePath). Menjadi berarti, target harus mampu mengenali argumen atau argumen.
Description Property	String	Sebuah deskripsi teks dari file. Hal ini ditampilkan dalam textbox Komentar dialog Properties file link.
FullName Property	String	Read-only. Path dan nama file dari file link. Nilai properti ditentukan oleh parameter PathLink dari Membuat Shortcut metode objek WshShell itu.
Hotkey Property	String	Kombinasi tombol yang secara otomatis akan memanggil link. Ini biasanya terdiri dari tombol khusus (Alt, Ctrl, Shift), tanda tambah, dan sebuah kunci biasa atau fungsi tombol (F1, F2, dll).
IconLocation Property	String	Path dan nama file sumber daya ikon dalam link library dieksekusi atau dinamis, bersama dengan nol indeks = berbasis dalam exe atau.. dll. Sebagai contoh, kode berikut memberikan ikon ketiga di shell32.dll untuk menghubungkan file: oShortcut.IconLocation = "C: \ Windows \ System32 \ shell32.dll, 2 Perhatikan bahwa nilai dari properti IconLocation tidak bisa menjadi ikon (ico.) Atau berkas grafis. Jika nilai tidak secara eksplisit diberikan kepada properti IconLocation, standarnya ke ikon pertama dalam aplikasi ditentukan oleh properti TargetPath atau aplikasi yang terkait dengan data file yang didefinisikan oleh properti TargetPath. Jika tidak ada ikon hadir, default ke ikon yang ditemukan di shell32.dll, 0.
Load Method	None	A, metode tersembunyi pribadi. Selama Instansiasi, Load disebut secara otomatis dengan metode CreateShortcut jika PathLink menunjuk file yang ada. Mencoba untuk memanggil metode dalam kode menghasilkan kesalahan kompiler.
RelativePath Property	String	Write-only. Write-saja. Mendefinisikan sebuah jalan target dan nama file yang relatif terhadap lintasan shortcut.
Save Method	None	Menyimpan nilai saat ini dari file link. Sintaks-nya adalah: WshShortcut.Save ()
TargetPath Property	String	Target link. Artinya, path dan nama file, executable, atau folder yang mengacu pintas. Untuk cara pintas desktop, ini biasanya aplikasi ini diluncurkan ketika pengguna mengklik shortcut.
WindowStyle Property	Long	Integer yang mendefinisikan gaya jendela target. Ini juga dapat menjadi anggota dipilih dari pencacahan WshWindowStyle.

Sangat penting untuk dicatat bahwa, setelah Anda mengubah nilai properti yang ada jalan pintas atau memberikan nilai properti untuk shortcut baru, nilai shortcut baru properti tidak benar-benar ditulis ke file shortcut sampai Anda memanggil metode Simpan.

Posted in: vb