用VB应用程序从记事本中读取线条并提交信息

因此，我最近创建了一个登录到各种网站（如Twitter，Xbox，YouTube）的脚本，并检查“用户名”是否空闲。这些社交网络服务大部分在经过这么长时间之后，会删除不活动的帐户并允许这些帐户被要求。因此，只要用户名“John391”处于非活动状态，就可以获得用户名“John”，然后网络将释放它。所以我的脚本登录到这些网站，并允许你输入一个你想要的用户名的文本框，然后点击提交。当程序变得可用时，程序会不断尝试声明它。 BUT，而不是使用一个文本框，我想使用列表记事本，所以是这样的：用VB应用程序从记事本中读取线条并提交信息

John 
Achilles 
Richard 
Logan

等之后它试图要求约翰（如果约翰仍不可用），它然后去阿喀琉斯等等。所以这里是我的脚本到目前为止，我有一个计时器和一个完成大部分工作的按钮。定时器是用来不断地检查文本框内的内容，并且按钮只是让程序启动。我还必须提到，当我第一次开始这样做时，我的程序继续超时，我发现解决这个问题的唯一方法就是暂停声明并刷新页面，但这很好。不管怎么说，让我解释一下我的脚本：

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

正如你可以看到这里的计时器，它会检查number_of_ticks以确定何时页面应该刷新。这由使用该程序的人员设定。通常它是250，所以它试图声称直到250，然后刷新。它也有一点保护，我注意到它会导致程序无响应，如果它试图声明页面没有加载时，所以我抛出了一对夫妇，如果语句来解决这个问题。当然，该按钮只是具有使定时器能够工作&一些其他次要功能的命令。

现在，我正在尝试做的是，而不是使用文本框txtTurbo来允许一遍又一遍的声明，我想要一个记事本以列出要声明的内容。所以，据我了解，这个值也会莫名其妙地被改变：

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

，它将被制作成流媒体记事本/ txt文件要求哪些阅读，以后每隔声称它应该改变到下一行的记事本/ txt文件。但是，我没有阅读文本文件的经验，直到一个月前我才知道这是可能的。我想知道有没有人能带领我走向正确的方向？

来源

2013-04-14 Jack C.

我很困惑： P你是否想从文本文件中读取？ – Kraxed

如果您试图从文本文件中读取，这是一个好方法。我创建了4个不同的字符串（val1-4），我读取了我制作的测试文本文件中的所有行（Testt.txt）。然后指定文本文件的值对应的字符串

Dim val1 As String 
Dim val2 As String 
Dim val3 As String 
Dim val4 As String 

Dim lines = System.IO.File.ReadAllLines("C:/testt.txt") 
val1 = lines(0) 
val2 = lines(1) 
val3 = lines(2) 
val4 = lines(3)

在你的情况VAL1将等于约翰，VAL2将等于跟腱等..

来源

2013-04-14 01:04:44 Kraxed

用VB应用程序从记事本中读取线条并提交信息

回答

相关问题