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
发表评论
-
Flex 与java 通信,通过BlazeDS
2012-01-20 01:26 587Flex 与java 通信,通过BlazeDS 2010年0 ... -
Flex 动态datagrid的应用
2012-01-20 01:26 484Flex 动态datagrid的应用 2 ... -
有意思的flex网站
2012-01-20 01:26 628有意思的flex网站 2010年12月22日 flex ... -
Flex学习收藏资料
2012-01-20 01:26 525Flex学习收藏资料 2010年09月16日 1、《Fl ... -
flex 自定义可视化组件的超级基类的属性设置
2012-01-20 01:26 985flex 自定义可视化组件 ... -
VB 两小时
2012-01-19 09:16 487VB 两小时 2011年09月25日 Option Ex ... -
使用 Shell 属性及方法
2012-01-19 09:16 894使用 Shell 属性及方法 2 ... -
VB关机代码
2012-01-19 09:16 666VB关机代码 2011年07月20日 .首先在Form1 ... -
VB 打开网络连接
2012-01-19 09:16 816VB 打开网络连接 2011年10月29日 Option ... -
opengl
2012-01-17 01:49 666opengl 2010年11月17日 ... -
转载:OpenGL显示文字
2012-01-17 01:49 578转载:OpenGL显示文字 2010年07月03日 本课 ... -
C#程序实现动态调用DLL的研究
2012-01-17 01:48 671C#程序实现动态调用DLL的研究 2011年04月26日 ... -
VC编译器配置及编译选项
2012-01-17 01:47 541VC编译器配置及编译选 ... -
WinCE驱动开发问题精华集锦
2012-01-17 01:47 592WinCE驱动开发问题精华 ... -
编译Touchlib出现问题(仍然尚未解决!)
2012-01-15 20:59 793编译Touchlib出现问题(仍然尚未解决!) 2009年1 ... -
摘嵌入式教案2
2012-01-15 20:59 567摘嵌入式教案2 2009年12 ... -
程序工具
2012-01-15 20:58 425程序工具 2010年10月15日 开发(Developm ... -
各种计算机语言的盘点
2012-01-15 20:58 519各种计算机语言的盘点 2010年01月28日 转自:ht ... -
arm linux 编译环境建立(文摘)
2012-01-15 20:58 553arm linux 编译环境建立(文摘) 2011年02月2 ...
相关推荐
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 ' 增加了获取控件相关函数是否使用正则的参数...