'' 建立開始選單快捷方式
option explicit
private sub command1_click()
createprogmangroup me, "測試", "test.grp"
createprogmanitem me, "d:/ghost.exe", "ghost"
createprogmanitem me, "d:/setupqq.exe", "qq"
end sub
sub createprogmangroup(x as form, groupname$, grouppath$)
dim i as integer
x.label1.linktopic = "progman|progman"
x.label1.linkmode = 2
rem 空迴圈使dde有時間執行
for i = 1 to 10
doevents
next
x.label1.linktimeout = 100
rem linkexecute 是在dde通道中傳送這樣的命令
'──建立乙個名為groupname $的程式組。
x.label1.linkexecute "[ creategroup (" + groupname$ + chr$(44) + grouppath$ + ") ]"
x.label1.linktimeout = 50 '恢復label1 的屬性值
x.label1.linkmode = 0
end sub
sub createprogmanitem(x as form, cmdline$, icontitle$)
dim i as integer
x.label1.linktopic = "progman|progman"
x.label1.linkmode = 2
for i = 1 to 10
doevents
next
x.label1.linktimeout = 100
x.label1.linkexecute "[additem(" + cmdline$ + chr$(44) + icontitle$ + chr$(44) + ", ,) ]"
x.label1.linktimeout = 50 '恢復label1 的屬性值
x.label1.linkmode = 0
screen.mousepointer = 0
end sub
' 將程式建立成「啟動」資料夾的捷徑
text1.linktopic = "progman|progman"
text1.linkmode = 2 '手動
text1.linkexecute "[showgroup(啟動, 4)]"
text1.linkexecute "[additem(可執行檔案完整路徑, 捷徑名稱)]"
' 假設我們想把「c:/vb5db/myprog.exe」建立成「啟動」資料夾名稱為「我的程式」的捷徑，則最後一行的 linkexecute 應該如下：
text1.linkexecute "[additem(c:/vb5db/myprog.exe, 我的程式)]"
' 在桌面上新增程式的快捷方式
' 假如程式為c:/program files/myprog/prog.exe，需加引數/para
' 新鍵乙個專案，新增命令按鈕和標籤各乙個，把下面的**加上去，一執行，你將如願以償！
'option explicit
private sub command1_click()
creategroup "myprog", "", "", 2, true
creategroup "myprog", "c:/programfiles/myprog/prog.exe/para", _
"para", 3, true
end sub
sub creategroup(byval strgroup as string, byval strcmd as string, byval _
strtitle as string, byval intdde as integer, byval flog as boolean)
const strcomma$ = ","
const strrestore$ = ", 1)]"
const stractivate$ = ", 5)]"
const strendcmd$ = ")]"
const strshowgrp$ = "[showgroup("
const straddgrp$ = "[creategroup("
const strreplitem$ = "[replaceitem("
const stradditem$ = "[additem("
dim i as integer
dim sourcefile as string, destinationfile as string
form1.label1.linkmode = 0
for i% = 1 to 20
on error resume next
form1.label1.linktopic = "progman|progman" '設定傳送端應用程式和主題
if err = 0 then exit for
doevents
next
form1.label1.linkmode = 2 '採用手動方式建立連線
for i% = 1 to 10
doevents
next
form1.label1.linktimeout = 100 '設定等待 dde 響應訊息的時間。
if err = 0 then
select case intdde
case 1 '建立程式項
form1.label1.linkexecute straddgrp & strgroup & strendcmd
form1.label1.linkexecute stradditem & strcmd & strcomma & _
strtitle & string$(3, strcomma) & strendcmd
case 2 '建立程式組
form1.label1.linkexecute straddgrp & strgroup & strendcmd
form1.label1.linkexecute strshowgrp & strgroup & strrestore
case 3 '建立程式項，並複製乙份新增到桌面
form1.label1.linkexecute straddgrp & strgroup & strendcmd
form1.label1.linkexecute stradditem & strcmd & strcomma & _
strtitle & string$(3, strcomma) & strendcmd
sourcefile = "c:/windows/start menu/programs/" & strgroup & _
"/" & strtitle & ".lnk" ' 指定源檔名。
destinationfile = "c:/windows/desktop/" & strtitle & ".lnk"
'指定目的檔名。
filecopy sourcefile, destinationfile
end select
end if
'斷開dde聯接
form1.label1.linkmode = 0
form1.label1.linktopic = ""
end sub
用VB建立FTP元件 get
基本步驟 1 用乙個internetopen呼叫設定環境。2 呼叫internetconnect 函式與主機連線。3 呼叫ftpgetfile 達到檔案。4 關閉第1 2步建立的控制代碼，用internetclosehandle 函式。現在來仔細看看每一步 1 通過呼叫internetopen 函式...
deepin ubuntu等建立桌面快捷方式
建立乙個桌面圖示字尾名為.desktop touch mydesktop.desktop 修改檔案許可權 sudo chmod 775 mydesktop.desktop 編輯檔案 vim mydesktop.desktop 新增內容 ps 新增時請去掉注釋 新增時請去掉注釋 新增時請去掉注釋 de...
Ubuntu 建立 Pycharm 桌面快捷方式
1.安裝 pycharm,我的執行目錄是 opt pycharm 2019.2.4 bin desktop entry encoding utf 8 name pycharm comment pycharm exec opt pycharm 2019.2.4 bin pycharm.sh icon ...