iamlaosong文
用VB编写一个小工具,用来抓取网页信息。正常情况下网址是固定的,但有时需要改变,作为一个小工具,做个配置文件吧,用起来就不方便,因为EXE文件还得拖个配置文件,所以就想到用命令行参数的方式,如果没有参数,就用默认网址,否则,怎使用命令行带的网址。VB获取命令行参数的函数是Command函数,使用起来很简单,即:
CmdLine = Command()
这样CmdLine变量就取得了命令行参数的内容,然后可以通过对CmdLine内容的处理完成各种功能。
下面看一个简单的示例,就是用命令行中的网址取代默认网址:
Private Sub Form_Load()
WebBrowser1.Visible = True
http = Command()
If Len(http) = 0 Then
http = "http://10.3.20.83/ems/"
Else
MsgBox "将访问网址:" & http, vbOKOnly + vbInformation, "iamlaosong"
End If
We