怎麼用VB開啟電腦的應用程式

時間 2021-09-13 06:12:35

1樓:

用vb開啟電腦的應用程式是呼叫api函式來修改或增加登錄檔中的值,這樣在系統啟動時就會自動執行。

option explicit

const reg_sz as long = 1

'建立登錄檔項

private declare function regcreatekey lib "advapi32.dll" alias _

"regcreatekeya" (byval hkey as long, byval lpsubkey as string, _

phkresult as long) as long

'設定登錄檔項中的值

private declare function regsetvalueex lib "advapi32.dll" alias _

"regsetvalueexa" (byval hkey as long, byval lpvaluename as string, _

byval reserved as long, byval dwtype as long, lpdata as any, _

byval cbdata as long) as long

'開啟登錄檔中的項

private declare function regopenkeyex lib "advapi32.dll" alias _

"regopenkeyexa" (byval hkey as long, byval lpsubkey as string, _

byval uloptions as long, byval samdesired as long, phkresult as long) as long

'獲取子項

private declare function regqueryvalueex lib "advapi32.dll" alias _

"regqueryvalueexa" (byval hkey as long, byval lpvaluename as string, _

byval lpreserved as long, lptype as long, lpdata as any, lpcbdata as long) as long

const reg_dword = 4

private sub form_load()

'為text1設定預設路徑程式

text1.text = "c:\program files\****\****.exe"'請修改自動啟動程式的路徑。

end sub

private sub command1_click()

'設定開機啟動

dim hkey as long

dim myexe as string

dim myint as integer

myint = len(text1.text) - instrrev(text1.text, "\")'取得應用程式檔名字串的位元組數,含副檔名

myexe = right(text1.text, myint)'取得應用程式檔名字串,含副檔名

if text1.text <> "" then

regcreatekey hkey_local_machine, "software\microsoft\windows\currentversion\run", hkey

'"hkey_local_machine\software\microsoft\windows\currentversion\run"是登錄檔中的路徑

regsetvalueex hkey, myexe, 0, reg_sz, byval text1.text, 255

'myexe是上面登錄檔路徑中新增的項,text1.text是該項的資料。

end if

msgbox "設定完成,請您重新啟動計算機!" & vbcrlf & vbcrlf & "你設定的程式將開機自動執行!", 64, "提示資訊"

end sub

private sub command2_click()

'查詢自動啟動的程式

dhk1.dialogtitle = "選擇程式"'注意開啟對話方塊的名稱是dhk1

dhk1.filter = "應用程式(*.exe)|*.exe"

dhk1.showopen

if len(dhk1.filename) then

text1.text = dhk1.filename

end if

end sub

5private sub command3_click()

endend sub

2樓:未來讀書會

private sub command1_click()dim stname as string

stname = "c:\program files\tencent\tm2009\bin\tm.exe"

shell stname, 1

end sub

把"c:\program files\tencent\tm2009\bin\tm.exe"

換成qq飛車的路徑就行了。

怎麼用c語言開啟應用程式,怎麼用C語言開啟一個應用程式

吉祥二進位制 c語言中開啟一個應用程式可以呼叫system 也可以呼叫作業系統的api函式,比如windows系統可以呼叫createprocess shellexecuteex 等函式來開啟一個應用程式。include include int main 安徽新華電腦專修學院 fopen函式用來開啟...

電腦ie瀏覽器開啟提示找不到應用程式怎麼辦?

搜尋金山網盾,第一個連結就是,安裝金山網盾後是有一鍵修復即可解決此問題。掃一掃你會有意外發現,因為你的系統問題肯定不止單單主頁被修改這麼簡單。肯定行!謝謝!親 您好,您的問題我看了請您耐心等待一下我馬上為您整理答案。這種情況是應用隱藏了 並不是消失了還是可以開啟的 在電腦桌面上開啟此電腦 電腦找不到...

電腦出現應用程式錯誤

這是顯示桌面的程式,出現錯誤之後肯定會出現你所說的情況,這個問題在win7 下面也時有發生。很經常出現的話,就要考慮是系統問題了。可先通過除塵和散熱 排除硬體引起的軟體故障 看是否能解決問題,如果問題依舊可直接安裝新系統就可解決該問題,開啟360安全衛士 使用 系統修復 中的 常規修復 應該可以搞掂...