VB 关机待机重启 代码.docx

VB 关机待机重启 代码.docx

《VB 关机待机重启 代码.docx》由会员分享，可在线阅读，更多相关《VB 关机待机重启 代码.docx（24页珍藏版）》请在冰豆网上搜索。

VB关机待机重启代码

VB制作网页自动填表

VB制作简单模拟器教程入门版

第一讲　如何用VB编程打开一个网页：

　　由于是为做模拟器做铺垫，所以就不介绍别的方法，只介绍一种最简单的用webbrowser控件实现（实际是其他的方法我还没有学会）。

　　下面我们就开始步入模拟器的大门了：

　　一、先打开VB新建一个工程

　　二、在工具条上点右键选部件（我用的是中文版VB）或者选工程菜单，点部件

　　三、找到MicrosoftInternetControls，在前面打挑，然后确认就可以看到在工具条上多出来一个地球样的图标，我们以后的实现就都围绕着他来进行了。

　　四、添加一个WebBrowser1到Form1中，再添加一个command1到Form1中

　　五、在Form1中添加如下代码：

'－－－－－－－－－－开始－－－－－－－－－－－

PrivateSubCommand1_Click（）

WebBrowser1.Navigate""

EndSub

PrivateSubForm_Load（）

WebBrowser1.Navigate"[url][/url]";

EndSub

'－－－－－－－－－－结束－－－－－－－－－－－

　　六、当然就是测试了，点运行按钮，我们可以看到，我们的webbrowser打开了网络人家的主页，然后再点按钮，我们可爱的webbrowser就把我们带到了模拟之家BBS了。

　　好了，先写这么多，下次我们看一下怎么用webbrowser提交一个含有用户名和密码的网页。

VB制作简单模拟器教程入门版

（二）

第二讲　如何用VB的webbrowser提交一个含有用户名和密码的网页

　　上次我们知道了怎样打开一个网页，今天我们就来看看怎样迈开赚钱的第一步。

　　下面我们就开始迈步了：

　　一、先打开VB新建一个工程

　　二、在工具条上点右键选部件（我用的是中文版VB）或者选工程菜单，点部件

　　三、找到MicrosoftInternetControls，在前面打挑，然后确认就可以看到在工具条上多出来一个地球样的图标，我们以后的实现就都围绕着他来进行了。

　　四、添加一个WebBrowser1到Form1中，再添加一个command1到Form1中

　　五、在Form1中添加如下代码：

（以上都是我们上一讲里说过的，应该很熟悉了吧）

'－－－－－－－－－－开始－－－－－－－－－－－

PrivateSubCommand1_Click（）

DimvDoc,vTag

DimiAsInteger

SetvDoc=WebBrowser1.Document

Fori=0TovDoc.All.length-1'检测所有标签

IfUCase（vDoc.All（i）.tagName）="INPUT"Then'找到input标签

SetvTag=vDoc.All（i）

IfvTag.Type="text"OrvTag.Type="password"Then'看看是不是我们需要的

SelectCasevTag.Name'按标签的名字,对号操做

Case"EMAILADD"

vTag.Value="[email]myemail@[/email]"'这里写入你的e-mail

Case"PASSWD"

vTag.Value="password"'这里写入你的密码

EndSelect

ElseIfvTag.Type="submit"AndvTag.Name="SUB"AndvTag.Value="订阅"Then

'找到提交按钮

vTag.Select'也可以没有这个

vTag.Click'点击提交了，一切都OK了

EndIf

EndIf

Nexti

EndSub

PrivateSubForm_Load（）

WebBrowser1.Navigate""

EndSub

'－－－－－－－－－－结束－－－－－－－－－－－

　　六、当然就是测试了，点运行按钮，我们可以看到，我们的webbrowser打开了[url][/url]，等网页基本下载结束再点command1按钮，我们可爱的webbrowser就把我们刚刚输入的e-mail和密码都提交到网页上了，看到订阅成功了吗？

那个就是胜利的标志。

好了，先写这么多，下次我们看一下怎么用webbrowser找到一个网页中的超连接，对应的就是赚钱连接啊。

附录（相关资料）：

大家也可以看出来，这次我们是拿[url][/url]上的那个订阅邮件列表开刀，下面就是这段网页的源代码：

E-mail:

密　码:

里面带input的那些标签都是接受输入的，我们这讲的主要任务就是找到他们，并且对他们进行操做。

VB制作简单模拟器教程入门版（三）

第三讲　如何用VB的webbrowser找到一个网页中的超连接

　　以前我们已经说过了怎样打开一个网页，怎样提交一个网页，今天我们来看看如何找到一个网页中URL等元素。

　　一、先打开VB新建一个工程

　　二、在工具条上点右键选部件（我用的是中文版VB）或者选工程菜单，点部件

　　三、找到MicrosoftInternetControls，在前面打挑，然后确认就可以看到在工具条上多出来一个地球样的图标，我们的实现就都围绕着他来进行了。

　　四、添加一个WebBrowser1到Form1中，再添加一个command1到Form1中，添加一个list1到form1中（这个list1适当的放宽一点，一会我们把找到的合格URL都放到这个里）

　　五、在Form1中添加如下代码：

（以上都是我们以前说过的，应该很熟悉了吧）

'－－－－－－－－－－开始－－－－－－－－－－－

PrivateSubCommand1_Click（）

DimvTag,vDoc

DimAllcount,i

List1.Clear

SetvDoc=WebBrowser1.Document.All

Allcount=vDoc.length

Fori=0ToAllcount-1

IfUCase（vDoc.Item（i）.TagName）="A"Then'找到URL

vTag=vDoc.Item（i）.href

IfInStr（vTag,""）Then'检测URL中是否含有[url][/url]

List1.AddItemvDoc.Item（i）.href'如果有,则添加到list1中

EndIf

EndIf

Nexti

EndSub

PrivateSubForm_Load（）

WebBrowser1.Navigate""

EndSub

'－－－－－－－－－－结束－－－－－－－－－－－

　　六、当然就是测试了，点运行按钮，我们可以看到，我们的webbrowser打开了[url][/url]，等网页基本下载结束再点command1按钮，我们可爱的webbrowser就把找到的含有[url][/url]的URL都加入到list1中了。

有了这些我们就可以开始做自己的模拟器了，当然更多的技巧，更多的方法还要靠你来实现。

我的意思是:

它提交的过程是类似这样的判断各个标签是否对应，对应就填写，提交

PrivateSubCmdSubmit_Click（）

DimvDoc,vTag

DimiAsInteger,jAsInteger

DimsAsString

SetvDoc=Browser.Document

Fori=0TovDoc.All.length-1'检测所有标签

DoEvents

s=vDoc.All（i）.tagname

Ifs<>"INPUT"Ands<>"TEXTAREA"ThenGoTolNext

SetvTag=vDoc.All（i）

Ifs="INPUT"AndvTag.Type="text"AndvTag.Name="topic"Andj=0Then

vTag.Value="灌水实验"

j=1

ElseIfs="TEXTAREA"AndvTag.Name="content"Andj=1Then'写发言内容

vTag.Value="灌水100"

j=2

ElseIfs="INPUT"AndvTag.Type="submit"AndvTag.Value="OK_！

发表"Andj=2Then'找到发表按钮。

vTag.Select

vTag.Click'点击提交

j=3

ExitFor

EndIf

lNext:

Next

Ifj<3Then

MsgBox"html未下载完或标签不匹配,状态值为"&Str（j）&"!

",vbInformation,"提示"

Else

MsgBox"灌水成功.正在提交...",vbInformation,"提示"

EndIf

EndSub

---------------------------------------------------

网易邮箱登录程序研制成功！

这是核心代码！

PrivateSubimg_login_Click（）

Dimid,psw,exe,URLAsString

'************用户名***********

id=Txtid.Text

'************密码***********

psw=Txtpsw.Text

'************向邮箱服务器提交的URL地址***********

URL="&id&"&password="&psw&"&submit=%B5%C7%A1%A1%C2%BC"

exe="C:

\ProgramFiles\InternetExplorer\IEXPLORE.EXE"

'************向浏览器提交地址,进行登录***********

Shellexe+Space

（1）+URL,1

EndSub

PrivateSubCommand2_Click（）

Text2.Text=WebBrowser1.Document.body.innertext

EndSub

PrivateSubCommand3_Click（）

End

EndSub

PrivateSubCommand4_Click（）

End

EndSub

'PrivateSubcommand1_click（）

'/＊载入Form＊/

'PrivateSubForm_Load（）

'/＊程序装入后进入IE设定的起始页＊/

'WebBrowser1.GoHome

'EndSub

'/＊改变Form尺寸＊/

PrivateSubForm_Resize（）

'/＊改变窗口大小后同时改变控件的大小＊/

'‘WebBrowser1.Width=Form1.ScaleWidth

'WebBrowser1.Height=Form1.ScaleHeight-900

'Label1.Width=Form1.ScaleWidth

'Label1.Top=Form1.ScaleHeight-300

WebBrowser1.Navigate（Text1.Text）

农产品报价.Caption="正在获取最新价格数据，请稍候！

"

EndSub

PrivateSubBackButton_Click（）

'/＊返回上一个页面＊/

WebBrowser1.GoBack

EndSub

PrivateSubForwardButton_Click（）

'/＊进入下一个页面＊/

WebBrowser1.GoForward

EndSub

PrivateSubGoButton_Click（）

'/＊浏览输入的页面＊/

WebBrowser1.Navigate（Text1.Text）

EndSub

PrivateSubStopButton_Click（）

'/＊停止浏览＊/

WebBrowser1.Stop

EndSub

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

'/＊输入地址后进行浏览＊/

IfKeyAscii=13Then

WebBrowser1.Navigate（Text1.Text）

EndIf

EndSub

PrivateSubWebBrowser1_BeforeNavigate（ByValURLAsString,ByValFlagsAsLong,ByValTargetFrameNameAsString,PostDataAsVariant,ByValHeadersAsString,CancelAsBoolean）

'/＊将当前显示的页面的URL地址显示在Text1上＊/Text1.Text=URL

EndSub

PrivateSubWebBrowser1_StatusTextChange（ByValTextAsString）

'/＊Label1显示当前页面装入情况＊/

Label1.Caption=Text

IfLabel1.Caption="完成"Then

Kill"d:

\价格.txt"

Text2.Text=WebBrowser1.Document.body.innertext

DimzhuceAsNewScripting.FileSystemObject

DimshujuAsTextStream

DimjiluAsString

Setshuju=zhuce.OpenTextFile（"d:

\价格.txt",ForAppending,True）

shuju.WriteLineText2.Text

农产品报价.Caption="已经获取最新价格数据，可以关闭本程序！

"

Command4.Visible=True

EndIf

EndSub

------------------------------------------

网页代码：

top.frm_Right.switchLeft（）;">

glow（Color=#4d4d4d）;>业务工作

如何使用vb触发网页中的文字链接？

ForEachXInWebBrowser1.Document.All

IfX.Name="Image1"Then

X.Click

ExitSub

EndIf

Next

'直接载入网址就是点击链接了

PrivateSubXdoc我要上传（）

DimvDoc,vTag,All,varempty

DimiAsInteger

'点[我要上传]

Delay10

SetvDoc=WebBrowser1.Document

SetAll=vDoc.links

L=All.Length

Fori=0ToL-1

SetVarl=All.Item（i,varempty）

IfVarl.href="http:

//www.XThen

WebBrowser1.Navigate"http:

//www.X

EndIf

SetVarl=Nothing

Nexti

SetAll=Nothing

SetvDoc=Nothing

EndSub

-------------------------------------------------

VBWebBrowser1怎么防止网页中的弹出窗口

试过了，网上说的其他办法都不行，还是弹出后自动关闭它最好，尤其是网页上提交成功后的页面，根本就判断不到。

。

经过测试，目前只有弹出后自己关闭它。

。

PrivateSubTimer1_Timer（）

iii=iii+1

Ifiii>=0Then

DimdlghwndAsLong

DimbuttonhwndAsLong

dlghwnd=FindWindow（"#32770","MicrosoftInternetExplorer"）

buttonhwnd=GetDlgItem（dlghwnd,2）'其中的2，用spy++获得

SendMessagebuttonhwnd,BM_CLICK,0&,ByVal0&

EndIf

EndSub

---------------------------------------------

VBWebbrowser控件使用方法

提交表单form1

PrivateSubCommand1_Click（）

WebBrowser1.Document.Forms（"form1"）.submit

EndSub

将form1中的名为u的属性设为不可用：

PrivateSubCommand2_Click（）

WebBrowser1.Document.Forms（"form1"）.u.setAttribute"disabled","disabled"

EndSub

将form1中的名为u的Text框中的内容设为abc：

PrivateSubCommand2_Click（）

WebBrowser1.Document.Forms（"form1"）.u.setAttribute"value","abc"

EndSub

1获得浏览器信息:

PrivateSubCommand1_Click（）

WebBrowser1.Navigate""

EndSub

PrivateSubCommand2_Click（）

DimoWindow

DimoNav

SetoWindow=WebBrowser1.Document.parentWindow

SetoNav=oWindow.navigator

Debug.PrintoNav.userAgent

SetoWindow=Nothing

SetoNav=Nothing

EndSub

点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。

2弹出Webbrowser消息窗口

DimoWindow

SetoWindow=WebBrowser1.Document.parentWindow

oWindow.confirm"abcd"

VB调用webbrowser技巧集2

向Webbrowser中写入HTML内容的几种方法

首先在Form_Load中加入

WebBrowser1.Navigate"about:

blank"

确保Webbrowser1可用

方法1：

DimsAsString

DimstreamAsIStream

s=""

s=s+""

s=s+""

s=s+"helloworld"

s=s+""

s=s+""

WebBrowser1.Document.Writes

方法2：

Dimo

Seto=WebBrowser1.Document.selection.createrange

Debug.Printo

If（NotoIsNothing）Then

o.pasteHTML"哈哈"

Seto=Nothing

EndIf

方法3：

''插入文本框

Dim