用VB6写简单程序 让电骡自动关机

来源：eNet硅谷动力 作者：李赫元 出处：巧巧读书 2006-08-09 进入讨论组

• 关 键 词：
• windows xp
• microsoft
• 自动关机
• 解决方案
• adsl

上一页 1 2 3 

　　Do While Not EOF(1)

　　Line Input #1, str '一行行读取直至到文件尾端

　　If Mid(str, 4, 5) = ".part" Then

　　List1.AddItem Left(str, InStr(str, ".part") + 4) + " 第" & Left(str, InStr(str, ".part") - 1) & "个文件"

　　End If

　　If Left(str, 8) = chktxt Then '将当前行与被选定监视的那项任务的文件名进行比对。chktxt为字符变量，存储了被监视文件的临时文件名

　　fileoneover = False '只要有一行匹配，该变量值为False，即该任务还没有完成

　　End If

　　Loop

　　Close #1

　　If fileoneover = True Then '只有当downloads.txt没有与被监控文件名相同的记录时，才判断该任务下载完成

　　Call oneover '执行用户选定的任务

　　End If

　　End Sub

　　单任务下载完成后调用的oneover过程与allover大同小异，不再列出。

　　四、提升

　　本程序只将形如001.part的临时文件名写入了ListBox框，而电骡eD2K link中实际包含的最终文件名并没有写入ListBox，为什么不写入最终文件名呢？这是因为当链接中有中文字符时，电骡会在Downloads.txt中用Unicode代替中文字符，用VB直接读取就会有“乱码”。有兴趣的朋友可以研究一下如何把Unicode转化为中文。

　　五、小结

　　大家可能已经发现，本文力求在实现功能的前提下让编程更加简洁直观，比如监视电骡是否下载完，很多“高手”可能会用消息监视的API函数，而本文用了简单的文件夹大小判断。再如关闭程序这个操作，以往多是用几行API来实现，这里调用了Windows Xp命令行自带的命令。我想，编程最终的目的是使用。不管是菜鸟还是高手，都不必把编程想的那么复杂，其实有的时候绕个弯，我们就能找到更简单的解决方案，希望这个想法对大家有所启示。

　　本程序在WindowsXp（SP2）、VB6（SP6）、eMule 0.47a VeryCD Build 0518、ADSL下调试成功。观看地址： http://www.qqread.com/vb/d196699.html 更多内容请看电骡eMule专题，或进入讨论组讨论。

上一页 1 2 3 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：vb更多的语法特性

较新的文章：用VB6.0在Vista下实现全磨砂玻璃窗口