VB获取QQ2011安装路径
2011年05月23日
VB获取QQ2011安装路径说白了就是获取注册表。。。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
On Error Resume Next
Shell (Text1.Text & "\QQ.exe")'运行QQ程序
End Sub
Private Sub Command2_Click()
Dim 路径 As String
路径 = Text1.Text
ShellExecute Me.hwnd, vbNullString, 路径, vbNullString, vbNullString, 1 'API函数打开文件夹
' Shell "cmd.exe /c start " & Text1.Text, vbMaximizedFocus 'cmd打开文件夹
End Sub
Private Sub Command3_Click()
On Error Resume Next
Text1.Text = CreateObject("Wscript.Shell").regread("HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ2009\Install") + "\bin\"
End Sub
Private Sub Form_Load()
On Error Resume Next
Text1.Text = CreateObject("Wscript.Shell").regread("HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ2009\Install") + "\bin\"
End Sub
发表评论
-
在 Android 平台上应用 Berkeley DB 11gR2 SQL(drop-in模式)(转http://www.cnmsdn.com/html/201004/1270362092ID3134.html)
2012-01-20 01:03 996在 Android 平台上应用 Ber ... -
在 C# 中通过 P/Invoke 调用Win32 DLL
2012-01-20 01:03 490在 C# 中通过 P/Invoke 调用Win32 DLL ... -
用IIS发布网站
2012-01-20 01:03 599用IIS发布网站 2010年07月15日 1,安装iis ... -
我的ATL/ADO编程的曲折经历
2012-01-20 01:03 577我的ATL/ADO编程的曲折经 ... -
深入探究 Win32 PE 文件格式
2012-01-20 01:03 674深入探究 Win32 PE 文件格 ... -
中国各地男人之最的分析
2012-01-19 08:52 1220中国各地男人之最的分 ... -
第七十三章 暗杀
2012-01-19 08:52 542第七十三章 暗杀 2011年06月10日 丰含笑又等了 ... -
我的见解
2012-01-19 08:52 504我的见解 2011年08月20日 上等美女只存在两个地方 ... -
“网店模特”成新兴职业 大学生兼职居多
2012-01-19 08:52 605“网店模特”成新兴职 ... -
HTC G2 超级新手教程之最终版
2012-01-17 01:22 531HTC G2 超级新手教程之最 ... -
System32下每个DLL的作用
2012-01-17 01:22 1632System32下每个DLL的作用 ... -
轻松编译google chrome浏览器最新稳定版源代码
2012-01-17 01:22 1032轻松编译google chrome浏览器最新稳定版源代码 2 ... -
从零开始- Android刷机指南<二>
2012-01-17 01:22 617从零开始- Android刷机指 ... -
c# 语音功能入门
2012-01-17 01:22 939c# 语音功能入门 2011年10月09日 ... -
一个简单破解excelvba工程密码方法
2012-01-15 20:04 1320一个简单破解excelvba工程密码方法 2010年02月2 ... -
转 Windows API 函数在VFP中的运用
2012-01-15 20:04 563转 Windows API 函数在VFP中的运用 2010年 ... -
VB关机程序
2012-01-15 20:03 744VB关机程序 2009年12月26日 这是我以前写的一个 ... -
VB窗口图表化
2012-01-15 20:03 599VB窗口图表化 2011年04月20日 '本模块为实现托 ... -
rome制作rss服务
2012-01-11 12:13 595rome制作rss服务 2011年04月01日 最近用 ... -
jspSmartUpload下载
2012-01-11 12:13 566jspSmartUpload下载 2011年04月01日 ...
相关推荐
VB获取System和Windows路径
获得windows和system路径程序(VB6.0代码编写) 获得windows和system路径,可以快查看自己电脑是32位系统还是64位系统。 并显示其路径。 QQ223857666勾月
API获取全部系统路径参数 DoFiileDownload实现软件下载 GetComputerNameEx获取NetBIOS名,DNS主机名 Internet Transfer InternetAttemptConnect有bug试图连接InterNet InternetCheckConnection连接到指定网站 ...
本程序可以在已正常安装QQ的电脑里自动获取QQ安装路径。 加密模块请看模块部分有。 其实也很简单,就是MD5+BASE64,要问16还是32的MD5,其实是32的,只不过加密后的32位长的字符串要把他看成另一个字符串的HEX...
获取word文档本地路径,通过以上方法,转化成html文档并在网页上显示
' 增加了得到应用程序路径的函数AppName ' 增加了得到应用程序启动参数的函数AppCommandLine ' V1.5 增加了窗口最大最小化,隐藏显示正常的几个函数 2013/06/06 ' 增加了获取控件相关函数是否使用正则的参数...
vb群发消息软件源码,本程序是用vb6在clswindow2.1基础上开发的,是对微信客户端进行自动化处理的,完全模拟手工操作,稳定且绝度安全,不会被封。懂代码的可以稍微修改变成定时群发,批量指定目标人群群发。绝对物...
clsWindow是VB6环境下使用的一个操作外部程序窗口的类,比如得到窗口句柄,得到窗口里某个文本框的内容。非常方便,使用它可以让您脱身于一堆api函数,功能强大使用简单! 这个类楼主很早就开始封装了,原本打算做...
' 增加了得到应用程序路径的函数AppName ' 增加了得到应用程序启动参数的函数AppCommandLine ' V1.5 增加了窗口最大最小化,隐藏显示正常的几个函数 2013/06/06 ' 增加了获取控件相关函数是否使用正则的参数...
' V1.2 增加属性Caption,可以获取或设置当前标题栏 2013/05/29 ' V1.3 增加了方法Focus,可以激活当前窗口 2013/06/01 ' 增加了方法Left,Top,Width,Height,Move,处理窗口位置等 ' V1.4 增加了窗口位置调整的几个...
'QQ :171977759 '版 本:V1.0 初版 2012/12/03 ' V1.1 修正了几个正则相关的函数,调整了部分类结构 2013/05/28 ' V1.2 增加属性Caption,可以获取或设置当前标题栏 2013/05/29 ' V1.3 增加了方法Focus,可以...
XPath中相对路径和绝对路径 XPath 简单语法 Asp.Net(C#)利用XPath解析XML文档示例 XSL .Net框架下的XSLT转换技术简介 一个XSLT的简单例子 XSLXSLT板主题整理 xsl入门的好文章 新手学习XSL的好东西 XSL语法介绍 XSL...
获取win10锁屏壁纸的脚本,路径已经写成环境变量不用修改,双击就能用,获取后的图片路径在 windows的图片目录
'QQ :171977759 '版 本:V1.0 初版 2012/12/03 ' V1.1 修正了几个正则相关的函数,调整了部分类结构 2013/05/28 ' V1.2 增加属性Caption,可以获取或设置当前标题栏 2013/05/29 ' V1.3 增加了方法Focus,可以激活...
vista 样式 透明窗体 自绘控件 vc vb delphi 编程 源码 代码 例子 磨沙 半透明 开发包 免费 破解 button dialog frame XP 下载 自绘按钮 菜单 标题栏 滚动条 listctrl treeview listview scrollbar menu QQ界面 ...
' 增加了得到应用程序路径的函数AppName ' 增加了得到应用程序启动参数的函数AppCommandLine ' V1.5 增加了窗口最大最小化,隐藏显示正常的几个函数 2013/06/06 ' 增加了获取控件相关函数是否使用正则的参数...