[vid tut] how to make a webbrowser that can download.
[vid tut] how to make a webbrowser that can download.
Link:
Code:
http://www.youtube.com/watch?v=SqrmEqIDKQg
Right under public class form1 put:
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Code:
Private Function Download(ByVal sFileRemote As String, ByVal sFileLocal As String, Optional ByRef errMessage As String = "") As Boolean Dim ret As Boolean = False Dim wc As New System.Net.WebClient() Try 'here is where download of file occurs wc.DownloadFile(sFileRemote, sFileLocal) ret = True Catch ex As Exception errMessage = ex.Message Return ret End Try Return ret End Function
Code:
Dim sErr, myPath As String 'setup some vars sErr = "" : myPath = My.Application.Info.DirectoryPath Dim droppedLink As String = "http://www.born63.com/index.html"
If Not myPath.EndsWith("\") Then 'hey what if installed in root? myPath &= "\" End If
Dim sLocalFile As String = myPath & "index.html"
If Not Download(droppedLink, sLocalFile, sErr) Then If sErr <> "" Then 'just tailoring error without really checking the error object for types of error. just a general error message MsgBox("Unable to accomplish file download due to following error:" & vbCrLf & sErr & vbCrLf & "Please examine this error and see if you can correct the problem. Then try to download " & droppedLink & " again.", MsgBoxStyle.Critical) Else MsgBox("Unable to accomplish file download due to unknown error:" & vbCrLf & sErr, MsgBoxStyle.Critical) End If
End If End If
Code:
Dim starthotkey As Boolean starthotkey = GetAsyncKeyState(Keys.f1) If starthotkey = True Then
Code:
webbrowser1.gohome
Code:
webbrowser1.stop
Code:
webbrowser1.refresh
Code:
webbrowser1.goback
Code:
webbrowser1.goforward
Code:
WebBrowser1.Navigate(TextBox1.Text)
if the video doesn't show up can someone tell me how to fix it or a mod fix it for me plz.
.Just try posting a link
Or send me the link and I'll add it
Or send me the link and I'll add it
Originally Posted by trevor206
Add 7 buttons a webbrowser and a timer. enable the timer and set the interval to 50.
Right under public class form1 put:
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Code:
Private Function Download(ByVal sFileRemote As String, ByVal sFileLocal As String, Optional ByRef errMessage As String = "") As Boolean Dim ret As Boolean = False Dim wc As New System.Net.WebClient() Try 'here is where download of file occurs wc.DownloadFile(sFileRemote, sFileLocal) ret = True Catch ex As Exception errMessage = ex.Message Return ret End Try Return ret End Function
Code:
Dim sErr, myPath As String 'setup some vars sErr = "" : myPath = My.Application.Info.DirectoryPath Dim droppedLink As String = "http://www.born63.com/index.html"
If Not myPath.EndsWith("\") Then 'hey what if installed in root? myPath &= "\" End If
Dim sLocalFile As String = myPath & "index.html"
If Not Download(droppedLink, sLocalFile, sErr) Then If sErr <> "" Then 'just tailoring error without really checking the error object for types of error. just a general error message MsgBox("Unable to accomplish file download due to following error:" & vbCrLf & sErr & vbCrLf & "Please examine this error and see if you can correct the problem. Then try to download " & droppedLink & " again.", MsgBoxStyle.Critical) Else MsgBox("Unable to accomplish file download due to unknown error:" & vbCrLf & sErr, MsgBoxStyle.Critical) End If
End If End If
Code:
Dim starthotkey As Boolean starthotkey = GetAsyncKeyState(Keys.f1) If starthotkey = True Then
Code:
webbrowser1.gohome
Code:
webbrowser1.stop
Code:
webbrowser1.refresh
Code:
webbrowser1.goback
Code:
webbrowser1.goforward
Code:
WebBrowser1.Navigate(TextBox1.Text)
if the video doesn't show up can someone tell me how to fix it or a mod fix it for me plz.
.
This thread is closed for replies.
