Youtube auto viewer with proxy setting Vb 2008

Yang perlu dipersiapkan adalah:
4 label
2 textbox
1 shockwave plugin
1 timer interval 1000
1 listbox dan 3 button

ini source codenya:

Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Text
Public Class Form1

    Dim op As New OpenFileDialog()

#Region "Using Proxy"
    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
      Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function

    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure

    Private Sub UseProxy(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Const INTERNET_OPEN_TYPE_PROXY As Integer = 3

        Dim struct_IPI As Struct_INTERNET_PROXY_INFO

        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")

        Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))

        Marshal.StructureToPtr(struct_IPI, intptrStruct, True)

        Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub
#End Region


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        web.Navigate("http://www.youtube.com/embed/" + TextBox1.Text + "?autoplay=1")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        web.Navigate("http://www.youtube.com/embed/MrUvwAZdWCw?autoplay=1")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        op.Filter = "TXT FILES|*.txt"
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then
            ListBox1.Items.AddRange(IO.File.ReadAllLines(op.FileName))
            Label2.Text = 1
            Timer1.Enabled = True
        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label2.Text -= 1
        If ListBox1.SelectedIndex > ListBox1.Items.Count Then
            Timer1.Enabled = False
        End If
        If Label2.Text = 0 Then
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
            Label2.Text = 100
            TextBox2.Text = ListBox1.Text
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim s As String = ListBox1.Text
        UseProxy(s)
        If TextBox1.Text = "" Then
            web.Navigate("http://www.youtube.com/embed/MrUvwAZdWCw?autoplay=1")
        Else
            web.Navigate("http://www.youtube.com/embed/" + TextBox1.Text + "?autoplay=1")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show()
    End Sub


End Class

untuk form 2 yang dipersiapkan adalah
1 label
1 timer dan 1 webbrowser

ini code untuk form 2 nya:

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Label1.Text = 0 Then
            WebBrowser1.Navigate("cmyip.com")
        End If
    End Sub
End Class

Link Download aplikasi:
Download disini

Aang Radio Player vb6

Aang Radio Player versi 1.0 ini dibuat memakai vb6 dan terkoneksi ke database ms access 2007 makanya biar software ini bisa berjalan dikomputer anda harus sudah terinstall microsoft access 2007, software Aang Radio Player ini sudah dites di windows xp SP2 dan berjalan lancar.

kalau ada yang butuh source codenya silahkan dicopy paste saja:
1. module1

Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Sub main()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.ace.oledb.12.0;data source=radio.accdb;persist security info=false;"
cn.Open
Form1.Show

End Sub

2. form1

Private Sub Command1_Click()
wmp.URL = Text1
End Sub

Private Sub Command2_Click()
wmp.Controls.stop
End Sub

Private Sub Command3_Click()
nama = InputBox("Masukkan Nama radio yang akan di ADD", "Nama Radio", "Masukkan Nama Radionya")
Dim str As String
Dim rs As New ADODB.Recordset
str = "insert into list (URL,Nama)values('" & Text1 & "','" & nama & "')"
Set rs = cn.Execute(str)
Set rs = Nothing
MsgBox "sukses"
Call lihat
End Sub

Sub lihat()
Dim str As String
Dim rs As New ADODB.Recordset
str = "select * from list order by ID DESC"
Set rs = cn.Execute(str)
List1.Clear
Do While Not rs.EOF
List1.AddItem (rs!nama)
rs.MoveNext
Loop
Set rs = Nothing

End Sub

Private Sub Form_Load()
Text1 = "http://216.239.136.8:8000"
Call lihat
End Sub

Private Sub List1_DblClick()
Dim str As String
Dim rs As New ADODB.Recordset
str = "select * from list where Nama='" & List1.Text & "'"
Set rs = cn.Execute(str)
wmp.URL = rs!URL
Text1 = "Playing: " & rs!nama
Set rs = Nothing
End Sub

yang dibutuhkan adalah 1 windows media player component, 1 texbox, 3 button dan 1 listbox.
rename windows media player menjadi wmp

Download Aplikasinya Disini

Youtube media Player V 1.0.02 vb 2008

Jika anda malas untuk membuka youtube melalui web browser mungkin karena ribet atau bagaimana anda sekarang saya buatin youtube media playernya.

ni code sourcenya

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If c1.Checked = True Then
            Dim value1 As String = TextBox1.Text
            sock.Movie = value1.Replace("watch?v=", "v/")
            sock.Play()
        ElseIf c2.Checked = True Then
            sock.Movie = TextBox1.Text
            sock.Play()
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        brw.Navigate("http://www.youtube.com/results?search_query=" & TextBox2.Text)
    End Sub

    Private Sub brw_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles brw.ProgressChanged
        Dim el As HtmlElementCollection = brw.Document.All
        For Each dt As HtmlElement In el
            ComboBox1.Items.Add(dt.GetAttribute("href"))
            ComboBox1.Items.Remove("http://s.ytimg.com/yts/cssbin/www-core-vflo845xA.css")
            ComboBox1.Items.Remove("http://www.youtube.com/opensearch?locale=en_US")
            ComboBox1.Items.Remove("http://s.ytimg.com/yts/img/favicon-vfldLzJxy.ico")
            ComboBox1.Items.Remove("//s.ytimg.com/yts/img/favicon_32-vflWoMFGx.png")
            ComboBox1.Items.Remove("http://www.youtube.com/")
            ComboBox1.Items.Remove("http://www.youtube.com/upload")
            ComboBox1.Items.Remove("http://www.youtube.com/chanels")
            ComboBox1.Items.Remove("http://www.youtube.com/sport")
            ComboBox1.Items.Remove("http://www.youtube.com/sports")
            ComboBox1.Items.Remove("http://www.youtube.com/music")
            ComboBox1.Items.Remove("http://www.youtube.com/gaming")
            ComboBox1.Items.Remove("http://m.youtube.com/results?search_query=" & TextBox2.Text)
            ComboBox1.Items.Remove("http://s.ytimg.com/yts/cssbin/www-results-vflQeXgfX.css")
            ComboBox1.Items.Remove("https://accounts.google.com/ServiceLogin?passive=true&amp;continue=http%3A%2F%2Fwww.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26feature%3Dsign_in_button%26hl%3Den_US%26next%3D%252Fresults%253Fsearch_query%253D")
        Next

    End Sub

    Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        Dim val As String = ComboBox1.Text
        sock.Movie = val.Replace("watch?v=", "v/")
        sock.Play()
    End Sub

    Private Sub c1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles c1.CheckedChanged
        c2.Checked = False
    End Sub

    Private Sub c2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles c2.CheckedChanged
        c1.Checked = False
    End Sub


    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        Me.Close()
    End Sub


End Class

download filenya disini