从文本中读取线路并提交信息？

我想知道是否有可能有一个的.txt文件有一堆话，如：从文本中读取线路并提交信息？

Gaming 
Programs 
Home 
Select

，并让这些话通过价值上跑这里来一一：

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 

    If Not number_of_ticks > NumericUpDown1.Value Then 
     number_of_ticks += 1 
     If ((WebBrowser1.IsBusy)) Then 
     Else 
      If WebBrowser1.Url.ToString = "https://live.xbox.com/en-US/ChangeGamertag" Then 


       WebBrowser1.Document.GetElementById("NewGamertag").SetAttribute("value", txtTurbo.Text) 

       WebBrowser1.Document.GetElementById("claimIt").InvokeMember("Click") 
      Else 

       WebBrowser1.Navigate("https://live.xbox.com/en-US/ChangeGamertag") 

      End If 
     End If 

    Else 
     'number_of_ticks has exceed the maximum amount of allowed ticks 
     Timer1.Enabled = False 
     WebBrowser1.Refresh() 

     number_of_ticks = 0 
     Timer1.Enabled = True 

    End If 

End Sub

所以第一行会在这个“游戏”的值，而不是通过文本框（txtTurbo.text）的值会

WebBrowser1.Document.GetElementById("NewGamertag").SetAttribute("value", txtTurbo.Text)

并通过这个提交后即可：

WebBrowser1.Navigate("https://live.xbox.com/en-US/ChangeGamertag")

值更改为“程序”，等等等等，直到它到达的.TXT文件所有行的末尾。我该如何解决这个问题，因为我从来没有从Visual Basic中读取.txt文件。

来源

2013-04-04 Jack C.

这是一个客户端脚本这个

Dim FILE_NAME As String = "path.txt" Dim TextLine As String If System.IO.File.Exists(path) = True Then Dim objReader As New System.IO.StreamReader(path) Do While objReader.Peek() <> -1 TextLine = TextLine & objReader.ReadLine() & vbNewLine Loop txtturbo.Text = TextLine Else MsgBox("File Does Not Exist") End If

变化？ – 2013-04-04 06:53:31

你的代码太混乱了 – Kasnady 2013-04-04 07:04:08

要阅读的文本文件，你将需要此代码

Imports System.IO 
Imports System.Text 
Public Class Form2 

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     Dim line As String 

     ' Create new StreamReader instance. 
     Dim reader As StreamReader = New StreamReader("c:\\temp\cid.txt") 
     ' Read one line from file 
     line = reader.ReadLine 
     ' Write the line we read from "cid.txt" 
     MessageBox.Show(line) 
    End Sub 
End Class

但是，对于读一行行，我必须再次尝试，导致你的代码混淆阅读。

UPDATE

因为你的问题不明确，所以也许我猜像下面给你想要

WebBrowser1.Navigate("https://live.xbox.com/en-US/" & txtturbo.text)

来源

2013-04-04 07:04:30 Kasnady

从文本中读取线路并提交信息？

回答

相关问题