vb怎么卸载软件下载 VB卸载指定软件怎么实现

‘给你代码部分，不懂的问！控件需要自己加！

PrivateSubForm_Click()
OnErrorResumeNext'这句容错，更省事
FolName="C:\Myphoto\201205HK"
Setfso=CreateObject("Scripting.FileSystemObject")
IfDir(FolName,vbDirectory)<>""Then
fso.DeleteFolder(FolName),True'删除
EndIf
Setfso=Nothing
EndSub
PrivateSubCommand1_Click()
pa2=ForFolder(hwnd,"请选择目录")
IfRight(pa2,1)<>"\"Thenpa2=pa2+"\"
Text1.Text=pa2
EndSub
'模块部分
'=================模块说明
'浏览文件夹模块
'=========================
'浏览文件夹-----------------------------------------------------------------------------------------
PublicTypeBrowseInfo
hwndOwnerAsLong
pIDLRootAsLong
pszDisplayNameAsLong
lpszTitleAsLong
ulFlagsAsLong
lpfnCallbackAsLong
lParamAsLong
iImageAsLong
EndType
PublicConstBIF_RETURNONLYFSDIRS=1
PublicConstMAX_PATH=260
PublicDeclareSubCoTaskMemFreeLib"ole32.dll"(ByValhMemAsLong)
PublicDeclareFunctionlstrcatLib"kernel32"Alias"lstrcatA"(ByVallpString1AsString,ByVallpString2AsString)AsLong
PublicDeclareFunctionSHBrowseForFolderLib"shell32"(lpbiAsBrowseInfo)AsLong
PublicDeclareFunctionSHGetPathFromIDListLib"shell32"(ByValpidListAsLong,ByVallpBufferAsString)AsLong
PublicFunctionForFolder(hwndOwnerAsLong,sPromptAsString)AsString
'declarevariablestobeused
DimiNullAsInteger
DimlpIDListAsLong
DimlResultAsLong
DimsPathAsString
DimudtBIAsBrowseInfo
'initialisevariables
WithudtBI
.hwndOwner=hwndOwner
.lpszTitle=lstrcat(sPrompt,"")
.ulFlags=BIF_RETURNONLYFSDIRS
EndWith
'CallthebrowseforfolderAPI
lpIDList=SHBrowseForFolder(udtBI)
'gettheresultingstringpath
IflpIDListThen
sPath=String$(MAX_PATH,0)
lResult=SHGetPathFromIDList(lpIDList,sPath)
CallCoTaskMemFree(lpIDList)
iNull=InStr(sPath,vbNullChar)
IfiNullThensPath=Left$(sPath,iNull-1)
EndIf
'Ifcancelwaspressed,sPath=""
ForFolder=sPath
EndFunction
抱歉，我可能之前提问的时候没有说清楚，现在已经补充好了，因为我用的是VS，可能VB的部分语法不通用
抱歉，Vs真心帮不了你，但是很多地方和VB通用，你稍微改改就行了
VB仿WINDOWS 卸载程序获取已安装软件列表
ConstHKLM=&H80000002
uninst="SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
SetoReg=GetObject("winmgmts:\\.\root\DEFAULT:StdRegProv")
oReg.EnumKeyHKLM,uninst,ks
ForEachkInks
IfLeft(k,2)<>"KB"Then
IfoReg.getStringValue(HKLM,uninst&"\"&k,"DisplayName",v)=0Then
Printv
EndIf
EndIf
Next
我安装了VB软件，可是卸载的时候卸不下来了，怎么办？
用优化大师里的智能卸载吧
很有用
如何删除并重装VB6.0？
删除并重装VB6.0步骤：
运行安装包中的ACMBOOT.EXE程序。
点全部删除-对话框中点是按钮，执行删除。
删除完成后再次运行安装包中的ACMBOOT.EXE程序，重新安装，直至完成。
下载的软件怎么卸载不了？
你好，楼主，你可以从控制面板找到该软件卸载，或者你可以找到你安装的路径卸载就可以。你也可以使用第三方软件卸载，推荐你安装个腾讯电脑管家，在电脑管家有软件管理--软件卸载，找要卸载软件，一键卸载就可以了，并且你可以清理下系统垃圾和缓存注册表之类的，简单方便，希望能帮到你
如何用VB编写卸载程序
在所有kill执行完毕以后输出一个批处理文件，用途是删除卸载程序，在退出时调用它。
Private Sub Command1_Click()
Open App.Path + "\1.bat" For Binary As #1
Put #1, , "del " + App.EXEName + ".exe" & vbCrLf
Put #1, , "del 1.bat"
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell App.Path + "\1.bat"
End Sub
VB在哪卸载？软件里找不到，烦死了，控制面板也没有，VB出了问题，文件打不开，只是想重下一下，怎么
能远程看下不？朋友。更多
怎么弄远程
上扣我二八一六五二五一二
加了
转载请注明出处51数据库 » vb怎么卸载软件下载 VB卸载指定软件怎么实现