BASIC SCRIPT 8Share Traffic Exchange Sila kreditkan kepada si penjual aiskrim dan si thaqif #VB #dotNET Learn By Yourself Atas sekali :- Imports System.Net Imports System.IO Bawah Public Class :- Private counter As Integer = 0 Load Links :- Dim address As String = ciba/link.txt Dim client As New WebClient Dim reader As New StreamReader(client.OpenRead(address)) Do While Not reader.EndOfStream Me.ListBox1.Items.Add(reader.ReadLine) Loop reader.Close() Label4.Text = Links Loaded Browse Links (di timer) : - Label4.Text = Browsing... If counter > ListBox1.Items.Count - 1 Then counter = 0 browsetimer.Enabled = False Else WebBrowser1.Navigate(ListBox1.Items(counter)) End If Increment at the end to get element(0) counter = counter + 1
Posted on: Mon, 04 Aug 2014 15:23:22 +0000
Trending Topics
Recently Viewed Topics
© 2015