從文本中讀取線路並提交信息？

我想知道是否有可能有一個的.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

從文本中讀取線路並提交信息？

回答

相關問題