㈠ vb 命令行 ftp
把你的VB程序拷贝到BAT和TXT文件的目录下就行了,或者修改你的FTP.BAT,在里面有FTP.TXT文件的地方加上全路径名即可。
加入你原来的FTP.BAT有下面一行:
FTP -I FTP.TXT
那么可以修改为:
FTP -I D:\DATA\FTP.TXT
㈡ 怎样用VB在网络中下载文件
如果是页面文件(竟服务器解析过的HTML代码的话),有很多,可以用XMLHTTP,browser对象等,写起来相对都比较简单,如果想下载服务器源码(程序原代码),那要看对方网站服务器是否支持了(或者说有这方面的漏洞或提供源代码开放式下载)
---------------------------------------------------------------
XML HTTP的,在工程中引用XML类型库即可,返回值就是源代码
================================================================
你需要引用你需要在工程->引用中,选择Microsoft XML类型库,最好选6.0
,代码刚做了个修改,多了个strUrl=""语句,我刚测试正常,如果需要可以传给你,就是下边的代码:
public function getData(byval strUrl as string) as string
Dim objHttp As MSXML2.ServerXMLHTTP
Set objHttp = New MSXML2.ServerXMLHTTP
getData=""
On Error GoTo 0
On Error GoTo ErrSubmit
objHttp.open "GET", strUrl, False
objHttp.send
getData = Trim$(Replace(objHttp.responseText, vbCrLf, ""))
exit function
ErrSubmit:
Msgbox err.description
set objHttp= Nothing
end function
==================================
在命令按钮的CLICK事件中写如下代码:
dim strData as string
strData=trim(Text1.text)
text2.Text=getData(strData)
㈢ VB程序通过命令行运行
是vb6的话,可以这么做
添加一个模块,加入代码
Sub
Main()
If
Command
=
"/2"
Then
Form2.Show
Else
Form1.Show
End
If
End
Sub
菜单的工程属性里的启动对象改为Sub
Main
㈣ 如何在命令行编译vb程序
有vbp文件了么··那你直接菜单: 文件 -> 生成工程 就好了··不知道命令行编译成exe是什么意思···一般都是这么生成的啊···
㈤ vb调用迅雷下载文件
确实会有这样的情况,但最终也没找到办法啊
我用的是VB6
最终解决啦~ 用的是迅雷地址
下边是把普通地址加密为迅雷地址的函数,试试吧,我是成功啦
Public Function Base64Encode(strSource As String) As String '迅雷加密
On Error Resume Next
If UBound(arrBase64) = -1 Then
arrBase64 = Split(StrConv(cstBase64, vbUnicode), vbNullChar)
End If
Dim arrB() As Byte, bTmp(2) As Byte, bT As Byte
Dim I As Long, J As Long
arrB = StrConv(strSource, vbFromUnicode)
J = UBound(arrB)
For I = 0 To J Step 3
Erase bTmp
bTmp(0) = arrB(I + 0)
bTmp(1) = arrB(I + 1)
bTmp(2) = arrB(I + 2)
bT = (bTmp(0) And 252) / 4
Base64Encode = Base64Encode & arrBase64(bT)
bT = (bTmp(0) And 3) * 16
bT = bT + bTmp(1) \ 16
Base64Encode = Base64Encode & arrBase64(bT)
bT = (bTmp(1) And 15) * 4
bT = bT + bTmp(2) \ 64
If I + 1 <= J Then
Base64Encode = Base64Encode & arrBase64(bT)
Else
Base64Encode = Base64Encode & "="
End If
bT = bTmp(2) And 63
If I + 2 <= J Then
Base64Encode = Base64Encode & arrBase64(bT)
Else
Base64Encode = Base64Encode & "="
End If
Next
End Function
㈥ 在VB中,如何调用命令行的命令
使用SHELL()
SHELL语句用法心得
一. 调用系统“创建快捷方式”向导
是否为VB不支持创建快捷方式而于着急呢?虽然 您可以调用vb5stkit.Dll中的fCreateShellLink函 数,但它是为安装程序设计的,快捷方式的默认路径 总是从当前用户的“\Start Menu\Programs”开始,也 就是说,如果您的Windows95装在C盘上,您无法通过 fCreateShellLink函数把快捷方式创建到D盘上去。
现在,给大家介绍一种极为方便、巧妙的方法: 用Shell语句调用系统“创建快捷方式”向导。
新建一个项目,在窗体上放一个按钮,双击此按 钮,加入以下代码:
Private Sub Command1_Click()
Open App.Path & "\temp.lnk" For Output As #1
Close #1 '以上两句在程序所在目录建立一 个临时文件
Shell "Rundll32.exe AppWiz.Cpl,NewLinkHere
"& App.Path & "\temp.lnk"
End Sub
(注意:Shell语句中NewLinkHere后面跟着一个 空格才是引号,否则将出错。)
运行程序,按一下命令按钮,怎么样?“创建快 捷方式”向导出现了,如果创建成功,快捷方式将取 代临时文件temp.lnk的位置,如果选取消,temp.lnk 也会自动消失。当然,您可以在硬盘的任意位置建立 temp.lnk。好,现在又可以为您的程序增添一项新功 能了。Enjoy!
二. Rundll32.exe的用途
我们知道,用Shell语句只能调用可执行文件,即 exe、com、bat和pif文件,有时我们想要调用其他一 些系统功能该怎么办呢?此时,Windows提供的 Rundll32.exe可大显身手了。下面我们来认识一下这 些用法,也许会给您带来一点惊喜。
1.要打开设置系统时间的控制面板文件 (Timedate.cpl),只需运行如下代码:
Shell "Rundll32.exe
Shell32.dll,Control_RunDLL Timedate.cpl"
至于打开其他控制面板文件,相信您一定能够举 一反三,尝试一下,换个文件名就成了。
2.要运行某一快捷方式(*.lnk)则可以用以下 代码:
She11 "Rundll32.exe url.dll, FileProtocolHandler X" (X代表要运行的文件,包括 路径,下同。
3. 也可以这样写来打开ActiveMovie控制:
Shell "RUNDLL32.EXE amovie.ocx,Rundll",1
而用Shell "RUNDLL32.EXE amovie.ocx,Rundll /play X",1 将直接播放媒体文件。
4. Shell "rundll32.exe desk.cpl,InstallScreenSaver X”当然是安装屏幕保 护啦,如果你写了一个屏幕保护程序,那么可以在安 装程序中写上它,而不一定要装到system目录下。顺 便提一下,VB不是自捞一个“Application Setup Wizard”么?它的VB源代码都在安装目录下的 “\setupkit\setup1”中放着呢,好好把它研究一下。 你完全能做出富有个性的安装程序来。
5.按住shift键,右击某一文件,菜单中会出现 “打开方式”选项,这也许已不是什么秘密。但现在, 用shell "rundll32.exe shell32.dll OpenAs_RunDLL X" 便能直接调用“打开方式”框。
6. 甚至能用这样一句来打印文件(包括HTML所 支持的所有文本与图像格式):
Shell "rundll32.exe MSHTML.DLL,PrintHTML X”, 1
怎么样?是不是小有收获呢?这下,您一定会对 Rundll32.exe这个平时不起眼的文件另眼相待了,它 可是系统运行必不可少的部件呢!其实 Shell+Rundll32还能调用其他许多系统功能,比如关 于NetMeeting和Telnet方面的。如果您有兴趣,可以 到往册表的“我的电脑\HKEY_CLASSES_ROOT\”或“我 的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下 去看看,本文的内容大都是从那里“抄”来的。只要 有足够的决心、信心、耐心,您一定能发现更多有价 值的东西。Good luck!
㈦ vb用INET1,从FTP下TXT文件
1、INET打开FTP服务需要时间,所以不推荐在with块中执行Execute
2、Execute "ftp://1234:[email protected]", "get" & strInspectPanelId & ".txt c:\" & strInspectPanelId & ".txt"
中的get后面应该有个空格!
3、不需要写成Execute "ftp://1234:[email protected]", "get" & strInspectPanelId & ".txt c:\" & strInspectPanelId & ".txt"
写成Execute "", "get " & strInspectPanelId & ".txt c:\" & strInspectPanelId & ".txt"就行了!
㈧ vb 命令行
用bat文件
先写一个bat文件,把要执行的命令写在其中
然后shell bat文件路径
如果想得到命令执行的结果,在命令后加 >文件名,就可以把执行的结果输出到文件中。
例如:dir >a.txt
文件的读写我就不说了。
㈨ VB 通过命令行获取多个文件路径
问
dimx'x是任意
setx=createobject("WScript.Shell")'x=wscript
x.run"cmd/c。。。。"'运行相关命令,注意加/c
对了,提一下,你搞这个不用AUTOEXEC,那是DOS用的。。
㈩ 用VB如何编写程序使打开命令提示符,同时能在命令提示符里面写下东西。
看你用来干什么了如何在XP中使用“命令提示符”
对于一些还需要使用DOS程序的人来说,Windows XP中提供了一个类似Win9X的“MS-DOS方式”,现在又叫“命令提示符”,它在“开始/所有程序/附件”中。利用它我们就可以启动许多程序,同时还提供了一个专门在DOS状态下启动程序的命令Start,它启动单独的“命令提示符”窗口来运行指定程序或命令。如果在没有参数的情况下使用,start将打开第二个命令提示符窗口。start命令有许多参数,它的各个参数的含义如下:
"title" 指定在“命令提示符”窗口标题栏中显示的标题。
/dPath 指定启动目录。
/i 将 Cmd.exe 启动环境传送到新的“命令提示符”窗口。
/min 启动新的最小化“命令提示符”窗口。
/max 启动新的最大化“命令提示符”窗口。
/separate 在单独的内存空间启动 16 位程序。
/shared 在共享的内存空间启动 16 位程序。
/low 以空闲优先级启动应用程序。
/normal 以一般优先级启动应用程序。
/high 以高优先级启动应用程序。
/realtime 以实时优先级启动应用程序。
/abovenormal 以超出常规优先级的方式启动应用程序。
/belownormal 以低出常规优先级的方式启动应用程序。
/wait 启动应用程序,并等待其结束。
/b 启动应用程序时不必打开新的“命令提示符”窗口。除非应用程序启用CTRL+C,否则将忽略 CTRL+C操作。使用 CTRL+BREAK 中断应用程序。
其实,用start命令可以启动任意的Windows程序,比如你要启动 Notepad(记事本程序),而又在附件中找不到的话,在开始的运行菜单中键入start notepad,Windows XP就会打开记事本。