Question

VB的复制、剪切

先用打开按扭打开某个文本文档（假如，该文档的名字为1.txt ）然后复制或剪切该文档的第一行，然后将他们粘贴到打开的网页里面。我想要实现的是，当我点击登陆按扭时，复制文本文档的第一行空格前的数据 到用户名 。空格后的数据到密码。然后就可以自动登陆上去。

Answer 1

添加部件。。internet controls
多了个地球图标，拉一个放窗体上
再拉一个command，，
复制代码则可直接登陆163.com
1.txt放到c盘
1.txt的内容为
mail.163.com a123456789 a123456
'===================代码
Dim vDoc, vTag
Dim i As Integer
Dim a() As String

Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Name
Case "username"
vTag.Value = a(1) '用户名
End Select
End If
If vTag.Type = "password" Then
Select Case vTag.Name
Case "password"
vTag.Value = a(2) '密码
End Select
End If
If vTag.Name = "remUser" Then '如果不要记住用户名，此句删除
vTag.Click
End If
If vTag.Type = "submit" Then '如果不要点击按钮登陆，把此if的代码删除
vTag.Click
End If
End If
Next i
End Sub
Private Sub Form_Load()
Dim t As String
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, t
If t <> "" Then a = Split(t, " ")
Loop

WebBrowser1.Navigate a(0)
End Sub

Answer 2

你的浏览器部分是webbrowser?

dim s1,s2() as string
open "c:\1.txt" for input as #1
do while not eof(1)
line input #1,s1
s2()=slpit(s1," ")
'这里把值给你的网页的那两个框，控件名自己改把(包括inputName和Pwd)
WebBrowser1.Document.Forms("对应网页的form名").inputName.setAttribute("value",s2(0))
WebBrowser1.Document.Forms("对应网页的form名").inputPwd.setAttribute("value",s2(1))
loop
close #1

Answer 3

读取难道不行？
非要复制？