phpeproject.ir
چهارشنبه 11 اردیبهشت 1392, 19:07 عصر
برای دوستان
Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
Dim sMain As String, iSi, iEi As Integer
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
Try
TextBox1.Text = WebBrowser1.DocumentText
sMain = TextBox1.Text '// your html.source.
iSi = sMain.IndexOf(Label1.Text) '// locate your start.point.
iEi = sMain.IndexOf("</div>", iSi) '// locate end.point.
TextBox2.Text = sMain.Substring(iSi, iEi - iSi)
Dim frist As String
Dim last As String
frist = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'" + _
"'http://www.w3.org/TR/html4/loose.dtd'>" + _
"<html>" + vbCrLf + _
"<head>" + vbCrLf + _
"<title></title>" + vbCrLf + _
"<link rel='stylesheet' href='http://phpeproject.ir/assets/css/temp.css'>" + vbCrLf + _
"<style>" + vbCrLf + _
".inbndata{font-family: 'BYekan';}" + vbCrLf + _
"li{font-family: 'BYekan';}" + vbCrLf + _
"a{font-family: 'BYekan';}" + vbCrLf + _
"</style>" + vbCrLf + _
"<script type='text/javascript' src='http://phpeproject.ir/assets/js/jquery.js'></script>" + vbCrLf + _
"<script type='text/javascript' src='http://phpeproject.ir/assets/js/jquery.li-scroller.1.0.js'></script>" + vbCrLf + _
"<script type='text/javascript'>" + vbCrLf + _
"$(document).ready(function() {" + vbCrLf + _
"$(function(){" + _
"$('ul').liScroll();" + vbCrLf + _
"});" + vbCrLf + _
"});" + vbCrLf + _
"</script>" + vbCrLf + _
"</head>" + vbCrLf + _
"<body>" + vbCrLf + _
"<div class='spotlight'>" + _
"<h6 class='spotlight-title' style='font-family: 'OpenSans';'>Varzesh3</h6>" + vbCrLf + _
"<div class='tickercontainer'><div class='mask'>"
last = "</div>" + vbCrLf + _
"</div>" + vbCrLf + _
"</div>" + vbCrLf + _
"</body>" + vbCrLf + _
"</html>"
Try
Dim HtmlWrite As New System.IO.StreamWriter("c:\page.html", False, System.Text.Encoding.UTF8)
HtmlWrite.WriteLine(frist + TextBox2.Text + last)
HtmlWrite.Close()
WebBrowser2.Navigate("c:/page.html")
Catch ex As Exception
Dim HtmlWrite As New System.IO.StreamWriter("d:\page.html", False, System.Text.Encoding.UTF8)
HtmlWrite.WriteLine(frist + TextBox2.Text + last)
HtmlWrite.Close()
WebBrowser2.Navigate("d:/page.html")
End Try
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate("http://www.page.com/")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://www.page.com/")
End Sub
End Class
Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
Dim sMain As String, iSi, iEi As Integer
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
Try
TextBox1.Text = WebBrowser1.DocumentText
sMain = TextBox1.Text '// your html.source.
iSi = sMain.IndexOf(Label1.Text) '// locate your start.point.
iEi = sMain.IndexOf("</div>", iSi) '// locate end.point.
TextBox2.Text = sMain.Substring(iSi, iEi - iSi)
Dim frist As String
Dim last As String
frist = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'" + _
"'http://www.w3.org/TR/html4/loose.dtd'>" + _
"<html>" + vbCrLf + _
"<head>" + vbCrLf + _
"<title></title>" + vbCrLf + _
"<link rel='stylesheet' href='http://phpeproject.ir/assets/css/temp.css'>" + vbCrLf + _
"<style>" + vbCrLf + _
".inbndata{font-family: 'BYekan';}" + vbCrLf + _
"li{font-family: 'BYekan';}" + vbCrLf + _
"a{font-family: 'BYekan';}" + vbCrLf + _
"</style>" + vbCrLf + _
"<script type='text/javascript' src='http://phpeproject.ir/assets/js/jquery.js'></script>" + vbCrLf + _
"<script type='text/javascript' src='http://phpeproject.ir/assets/js/jquery.li-scroller.1.0.js'></script>" + vbCrLf + _
"<script type='text/javascript'>" + vbCrLf + _
"$(document).ready(function() {" + vbCrLf + _
"$(function(){" + _
"$('ul').liScroll();" + vbCrLf + _
"});" + vbCrLf + _
"});" + vbCrLf + _
"</script>" + vbCrLf + _
"</head>" + vbCrLf + _
"<body>" + vbCrLf + _
"<div class='spotlight'>" + _
"<h6 class='spotlight-title' style='font-family: 'OpenSans';'>Varzesh3</h6>" + vbCrLf + _
"<div class='tickercontainer'><div class='mask'>"
last = "</div>" + vbCrLf + _
"</div>" + vbCrLf + _
"</div>" + vbCrLf + _
"</body>" + vbCrLf + _
"</html>"
Try
Dim HtmlWrite As New System.IO.StreamWriter("c:\page.html", False, System.Text.Encoding.UTF8)
HtmlWrite.WriteLine(frist + TextBox2.Text + last)
HtmlWrite.Close()
WebBrowser2.Navigate("c:/page.html")
Catch ex As Exception
Dim HtmlWrite As New System.IO.StreamWriter("d:\page.html", False, System.Text.Encoding.UTF8)
HtmlWrite.WriteLine(frist + TextBox2.Text + last)
HtmlWrite.Close()
WebBrowser2.Navigate("d:/page.html")
End Try
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate("http://www.page.com/")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://www.page.com/")
End Sub
End Class