| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1108 人关注过本帖
标题:自动下载TXT文本并且执行TXT内的命令如何实现?
只看楼主 加入收藏
a9989
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-6-14
收藏
 问题点数:0 回复次数:6 
自动下载TXT文本并且执行TXT内的命令如何实现?
自动下载TXT文本并且执行TXT内的命令如何实现?
假如txt文本里有ipconfig这命令
VB读取txt内容,并且去执行ipconfig
搜索更多相关主题的帖子: 文本 命令 TXT 自动 
2008-06-14 03:32
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
收藏
得分:0 
最简单的方法用shell

/images/2011/147787/2011051411021524.jpg" border="0" />
2008-06-14 08:01
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
因该就根连接数据库差不多
2008-06-14 08:16
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
'先下载文件
Private Declare Function DeleteUrlCacheEntry Lib "wininet" _
   Alias "DeleteUrlCacheEntryA" _
  (ByVal lpszUrlName As String) As Long
'下载文件
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    DELCOOKIES URL    '下载前先删除IE缓存中可能己有的文件
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then
        DownloadFile = True
        DELCOOKIES URL    '下载完成后删除Cookies,以绝后患
    End If
End Function
Public Sub DELCOOKIES(FileName As String)  '删除Cookies
    DeleteUrlCacheEntry (FileName)
End Sub


'调用DownloadFile下载到文件,然后用open打开并读取文件中的数据
'然后用shell执行
2008-06-14 11:29
a9989
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-6-14
收藏
得分:0 
SHELL text1.text ????  好像不可以吧
2008-06-15 16:10
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
SHELL text1.text 是没问题的。
先把文件内容载到text1中
2008-06-15 16:38
luzechao
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2008-4-21
收藏
得分:0 
楼主要搞下载者吧??
2008-06-15 20:57
快速回复:自动下载TXT文本并且执行TXT内的命令如何实现?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018231 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved