Xhamster Video Player & Downloader vb2008 express edtion
Ringkasan ini tidak tersedia. Harap
klik di sini untuk melihat postingan.
HTTP Proxy Setting VB 2008
2 label
2 button
1 textbox dan 1 webbrowser
dan ini source codenya:
Imports System.Runtime.InteropServices
Public Class Form1
#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
UseProxy(TextBox1.Text)
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Label2.Text = WebBrowser1.Document.All("content").InnerText
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Navigate("http://ip-score.com")
End Sub
End Class
Dan ini aplikasinya
Download disini
Youtube auto viewer with proxy setting Vb 2008
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
Internet File Downloader vb 2008
ok dibawah ini adalah kode pembuatan internet file downloader, dengan menu yang sangat simple sekali.
Imports System.Net
Imports System.Net.NetworkInformation
Public Class Form1
Public WithEvents dl As New WebClient
Dim BytesAlreadySent As Single
Delegate Sub ChangeTextsSafe(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
Dim sv As New SaveFileDialog
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> "" AndAlso TextBox1.Text.StartsWith("http://") Then
sv.FileName = TextBox1.Text.Split("/"c)(Me.TextBox1.Text.Split("/"c).Length - 1)
If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
dl = New WebClient
dl.DownloadFileAsync(New Uri(TextBox1.Text), sv.FileName)
End If
End If
End Sub
Private Sub dl_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles dl.DownloadFileCompleted
MsgBox("Download SUCCESS!")
TextBox1.Text = ""
ProgressBar1.Value = 0
End Sub
Private Sub dl_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles dl.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
If e.TotalBytesToReceive > 1000 Then
Label8.Text = FormatNumber((e.TotalBytesToReceive / 1000000) - (e.BytesReceived / 1000000), 2) & " MB / " & 100 - e.ProgressPercentage & " %"
Label12.Text = FormatNumber(e.TotalBytesToReceive / 1000000, 2) & " MB"
ElseIf e.TotalBytesToReceive > 1000000 Then
Label8.Text = FormatNumber((e.TotalBytesToReceive / 1000000000) - (e.BytesReceived / 1000000000), 2) & " GB / " & 100 - e.ProgressPercentage & " %"
Label12.Text = FormatNumber(e.TotalBytesToReceive / 1000000000, 2) & " GB"
ElseIf e.TotalBytesToReceive > 1000000000 Then
MsgBox("File Too Large")
End If
If e.BytesReceived > 1000 Then
Label4.Text = FormatNumber(e.BytesReceived / 1000000, 2) & " MB / "
ElseIf e.BytesReceived > 1000000 Then
Label4.Text = FormatNumber(e.BytesReceived / 1000000000, 2) & " GB / "
End If
If TextBox1.Text <> "" AndAlso TextBox1.Text.StartsWith("http://") Then
Label9.Text = TextBox1.Text.Split("/"c)(Me.TextBox1.Text.Split("/"c).Length - 1)
End If
Label6.Text = e.ProgressPercentage & "%"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & My.Computer.Clipboard.GetText
End Sub
End Class
Imports System.Net.NetworkInformation
Public Class Form1
Public WithEvents dl As New WebClient
Dim BytesAlreadySent As Single
Delegate Sub ChangeTextsSafe(ByVal length As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)
Dim sv As New SaveFileDialog
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> "" AndAlso TextBox1.Text.StartsWith("http://") Then
sv.FileName = TextBox1.Text.Split("/"c)(Me.TextBox1.Text.Split("/"c).Length - 1)
If sv.ShowDialog = Windows.Forms.DialogResult.OK Then
dl = New WebClient
dl.DownloadFileAsync(New Uri(TextBox1.Text), sv.FileName)
End If
End If
End Sub
Private Sub dl_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles dl.DownloadFileCompleted
MsgBox("Download SUCCESS!")
TextBox1.Text = ""
ProgressBar1.Value = 0
End Sub
Private Sub dl_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles dl.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
If e.TotalBytesToReceive > 1000 Then
Label8.Text = FormatNumber((e.TotalBytesToReceive / 1000000) - (e.BytesReceived / 1000000), 2) & " MB / " & 100 - e.ProgressPercentage & " %"
Label12.Text = FormatNumber(e.TotalBytesToReceive / 1000000, 2) & " MB"
ElseIf e.TotalBytesToReceive > 1000000 Then
Label8.Text = FormatNumber((e.TotalBytesToReceive / 1000000000) - (e.BytesReceived / 1000000000), 2) & " GB / " & 100 - e.ProgressPercentage & " %"
Label12.Text = FormatNumber(e.TotalBytesToReceive / 1000000000, 2) & " GB"
ElseIf e.TotalBytesToReceive > 1000000000 Then
MsgBox("File Too Large")
End If
If e.BytesReceived > 1000 Then
Label4.Text = FormatNumber(e.BytesReceived / 1000000, 2) & " MB / "
ElseIf e.BytesReceived > 1000000 Then
Label4.Text = FormatNumber(e.BytesReceived / 1000000000, 2) & " GB / "
End If
If TextBox1.Text <> "" AndAlso TextBox1.Text.StartsWith("http://") Then
Label9.Text = TextBox1.Text.Split("/"c)(Me.TextBox1.Text.Split("/"c).Length - 1)
End If
Label6.Text = e.ProgressPercentage & "%"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & My.Computer.Clipboard.GetText
End Sub
End Class
Atau download programnya disini
Perbedaan Penulisan Pada VB6 dan VB 2008/2010
Banyak sekali perbedaan penulisan pada vb6 dan 2008/2010 tergantung anda semua menilainya yang mana yang lebih simple dan lebih gampang tentunya, dibawah ini saya kasih beberapa contoh perbedaan penulisan pada vb6 dan vb2008/2010.
a.Penulisan Tanggal
Penulisan tanggal pada vb6 seperti ini saya kasih contoh ketika tanggal akan ditampilkan di label1
label1 = Date
berbeda dengan penulisan tanggal pada vb 2008/2010 yang memakai
label1.text = Date.Today
Kalau dilihat vb6 lebih simple dibanding vb 2008/2010
b. Penulisan ADD items pada combobox
dalam hal ini saya akan memberikan contoh memasukkan tanggal kedalam combobox vb6 dan vb 2008/2010.
pada vb6 :
Combo1.additem(Date)
pada vb2008/2010
Combobox1.items.add(Date.Today)
Kali ini vb6 juga masih lebih simpel dibanding vb2008 hehe, lah terus apa kelebihan vb 2008 dari vb6, itu nanti saya bahas di tempat yang berbeda.
c. Penulisan String Replace
Ini mungkin contoh yang terakhir yang saya kasihkan, karenabanyak banget perbedaan penulisan pada vb6 dan vb 2008/2010 ini mas bro.
disini saya akan membuat sebuah form yang isinya 1 textbox 1 label dan 1 button
ok pada vb6:
doubleklik button dan kode replacenya seperti ini:
Dim str As String
str = Text1
Label1 = Replace(str, "Aku", "Aang")
Jadi ketika anda mengetikkan misalnya "Aku ganteng banget" pada textbox dan anda klik buttonnya maka pada label1 akan keluar kata-kata seperti ini "Aang ganteng banget".
sekarang pada vb2008/2010
Dim str As String = Textbox1.Text
Label1.Text = str.Replace("Aku", "Aang")
maka hasilnya akan sama dengan vb6 mas bro, hehe
sudah dulu yah kebanyakan contoh ntar ga mau nyari sendiri hahahaha.
a.Penulisan Tanggal
Penulisan tanggal pada vb6 seperti ini saya kasih contoh ketika tanggal akan ditampilkan di label1
label1 = Date
berbeda dengan penulisan tanggal pada vb 2008/2010 yang memakai
label1.text = Date.Today
Kalau dilihat vb6 lebih simple dibanding vb 2008/2010
b. Penulisan ADD items pada combobox
dalam hal ini saya akan memberikan contoh memasukkan tanggal kedalam combobox vb6 dan vb 2008/2010.
pada vb6 :
Combo1.additem(Date)
pada vb2008/2010
Combobox1.items.add(Date.Today)
Kali ini vb6 juga masih lebih simpel dibanding vb2008 hehe, lah terus apa kelebihan vb 2008 dari vb6, itu nanti saya bahas di tempat yang berbeda.
c. Penulisan String Replace
Ini mungkin contoh yang terakhir yang saya kasihkan, karenabanyak banget perbedaan penulisan pada vb6 dan vb 2008/2010 ini mas bro.
disini saya akan membuat sebuah form yang isinya 1 textbox 1 label dan 1 button
ok pada vb6:
doubleklik button dan kode replacenya seperti ini:
Dim str As String
str = Text1
Label1 = Replace(str, "Aku", "Aang")
Jadi ketika anda mengetikkan misalnya "Aku ganteng banget" pada textbox dan anda klik buttonnya maka pada label1 akan keluar kata-kata seperti ini "Aang ganteng banget".
sekarang pada vb2008/2010
Dim str As String = Textbox1.Text
Label1.Text = str.Replace("Aku", "Aang")
maka hasilnya akan sama dengan vb6 mas bro, hehe
sudah dulu yah kebanyakan contoh ntar ga mau nyari sendiri hahahaha.
Langganan:
Postingan (Atom)