VB 关机待机重启 代码Word文件下载.docx
- 文档编号:16896002
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:24
- 大小:27.10KB
VB 关机待机重启 代码Word文件下载.docx
《VB 关机待机重启 代码Word文件下载.docx》由会员分享,可在线阅读,更多相关《VB 关机待机重启 代码Word文件下载.docx(24页珍藏版)》请在冰豆网上搜索。
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"
看看是不是我们需要的
SelectCasevTag.Name'
按标签的名字,对号操做
Case"
EMAILADD"
vTag.Value="
[email]myemail@[/email]"
'
这里写入你的e-mail
PASSWD"
这里写入你的密码
EndSelect
ElseIfvTag.Type="
submit"
AndvTag.Name="
SUB"
AndvTag.Value="
订阅"
Then
找到提交按钮
vTag.Select'
也可以没有这个
vTag.Click'
点击提交了,一切都OK了
EndIf
Nexti
EndSub
PrivateSubForm_Load()
WebBrowser1.Navigate"
六、当然就是测试了,点运行按钮,我们可以看到,我们的webbrowser打开了[url][/url],等网页基本下载结束再点command1按钮,我们可爱的webbrowser就把我们刚刚输入的e-mail和密码都提交到网页上了,看到订阅成功了吗?
那个就是胜利的标志。
好了,先写这么多,下次我们看一下怎么用webbrowser找到一个网页中的超连接,对应的就是赚钱连接啊。
附录(相关资料):
大家也可以看出来,这次我们是拿[url][/url]上的那个订阅邮件列表开刀,下面就是这段网页的源代码:
<
formmethod="
post"
action="
>
palign="
center"
fontsize="
2"
inputtype="
hidden"
name="
USERID"
value="
dhunter"
E-mail:
你的E-mail"
br>
密 码:
******"
/font>
退订"
UNSUB"
/p>
/form>
里面带input的那些标签都是接受输入的,我们这讲的主要任务就是找到他们,并且对他们进行操做。
VB制作简单模拟器教程入门版(三)
第三讲 如何用VB的webbrowser找到一个网页中的超连接
以前我们已经说过了怎样打开一个网页,怎样提交一个网页,今天我们来看看如何找到一个网页中URL等元素。
三、找到MicrosoftInternetControls,在前面打挑,然后确认就可以看到在工具条上多出来一个地球样的图标,我们的实现就都围绕着他来进行了。
四、添加一个WebBrowser1到Form1中,再添加一个command1到Form1中,添加一个list1到form1中(这个list1适当的放宽一点,一会我们把找到的合格URL都放到这个里)
(以上都是我们以前说过的,应该很熟悉了吧)
DimvTag,vDoc
DimAllcount,i
List1.Clear
SetvDoc=WebBrowser1.Document.All
Allcount=vDoc.length
Fori=0ToAllcount-1
IfUCase(vDoc.Item(i).TagName)="
A"
找到URL
vTag=vDoc.Item(i).href
IfInStr(vTag,"
)Then'
检测URL中是否含有[url][/url]
List1.AddItemvDoc.Item(i).href'
如果有,则添加到list1中
六、当然就是测试了,点运行按钮,我们可以看到,我们的webbrowser打开了[url][/url],等网页基本下载结束再点command1按钮,我们可爱的webbrowser就把找到的含有[url][/url]的URL都加入到list1中了。
有了这些我们就可以开始做自己的模拟器了,当然更多的技巧,更多的方法还要靠你来实现。
我的意思是:
它提交的过程是类似这样的判断各个标签是否对应,对应就填写,提交
PrivateSubCmdSubmit_Click()
DimiAsInteger,jAsInteger
DimsAsString
SetvDoc=Browser.Document
DoEvents
s=vDoc.All(i).tagname
Ifs<
INPUT"
Ands<
TEXTAREA"
ThenGoTolNext
Ifs="
AndvTag.Type="
text"
topic"
Andj=0Then
灌水实验"
j=1
ElseIfs="
content"
Andj=1Then'
写发言内容
灌水100"
j=2
submit"
OK_!
发表"
Andj=2Then'
找到发表按钮。
vTag.Select
点击提交
j=3
ExitFor
lNext:
Next
Ifj<
3Then
MsgBox"
html未下载完或标签不匹配,状态值为"
&
Str(j)&
!
"
vbInformation,"
提示"
Else
灌水成功.正在提交..."
---------------------------------------------------
网易邮箱登录程序研制成功!
这是核心代码!
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
PrivateSubCommand2_Click()
Text2.Text=WebBrowser1.Document.body.innertext
PrivateSubCommand3_Click()
End
PrivateSubCommand4_Click()
PrivateSubcommand1_click()
/*载入Form*/
/*程序装入后进入IE设定的起始页*/
WebBrowser1.GoHome
/*改变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="
正在获取最新价格数据,请稍候!
PrivateSubBackButton_Click()
/*返回上一个页面*/
WebBrowser1.GoBack
PrivateSubForwardButton_Click()
/*进入下一个页面*/
WebBrowser1.GoForward
PrivateSubGoButton_Click()
/*浏览输入的页面*/
PrivateSubStopButton_Click()
/*停止浏览*/
WebBrowser1.Stop
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
/*输入地址后进行浏览*/
IfKeyAscii=13Then
PrivateSubWebBrowser1_BeforeNavigate(ByValURLAsString,ByValFlagsAsLong,ByValTargetFrameNameAsString,PostDataAsVariant,ByValHeadersAsString,CancelAsBoolean)
/*将当前显示的页面的URL地址显示在Text1上*/Text1.Text=URL
PrivateSubWebBrowser1_StatusTextChange(ByValTextAsString)
/*Label1显示当前页面装入情况*/
Label1.Caption=Text
IfLabel1.Caption="
完成"
Kill"
d:
\价格.txt"
DimzhuceAsNewScripting.FileSystemObject
DimshujuAsTextStream
DimjiluAsString
Setshuju=zhuce.OpenTextFile("
ForAppending,True)
shuju.WriteLineText2.Text
已经获取最新价格数据,可以关闭本程序!
Command4.Visible=True
------------------------------------------
网页代码:
Aonmouseout="
mm_swapimgrestore()"
herf="
javascript:
top.frm_Right.switchLeft();
IMGid="
Image1"
name="
src="
/>
Fontstyle="
FILTER:
glow(Color=#4d4d4d);
业务工作<
/Font>
/A>
如何使用vb触发网页中的文字链接?
ForEachXInWebBrowser1.Document.All
IfX.Name="
X.Click
ExitSub
Next
直接载入网址就是点击链接了
PrivateSubXdoc我要上传()
DimvDoc,vTag,All,varempty
点[我要上传]
Delay10
SetAll=vDoc.links
L=All.Length
Fori=0ToL-1
SetVarl=All.Item(i,varempty)
IfVarl.href="
http:
//www.XThen
//www.X
SetVarl=Nothing
SetAll=Nothing
SetvDoc=Nothing
-------------------------------------------------
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&
---------------------------------------------
VBWebbrowser控件使用方法
提交表单form1
WebBrowser1.Document.Forms("
form1"
).submit
将form1中的名为u的属性设为不可用:
PrivateSubCommand2_Click()
).u.setAttribute"
disabled"
将form1中的名为u的Text框中的内容设为abc:
value"
abc"
1获得浏览器信息:
DimoWindow
DimoNav
SetoWindow=WebBrowser1.Document.parentWindow
SetoNav=oWindow.navigator
Debug.PrintoNav.userAgent
SetoWindow=Nothing
SetoNav=Nothing
点击Command1浏览网页,点击Command2在立即窗口中输出浏览器信息。
2弹出Webbrowser消息窗口
DimoWindow
SetoWindow=WebBrowser1.Document.parentWindow
oWindow.confirm"
abcd"
VB调用webbrowser技巧集2
向Webbrowser中写入HTML内容的几种方法
首先在Form_Load中加入
about:
blank"
确保Webbrowser1可用
方法1:
DimsAsString
DimstreamAsIStream
s="
s=s+"
helloworld"
WebBrowser1.Document.Writes
方法2:
Dimo
Seto=WebBrowser1.Document.selection.createrange
Debug.Printo
If(NotoIsNothing)Then
o.pasteHTML"
哈哈"
Seto=Nothing
EndIf
方法3:
插入文本框
Dim
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 关机待机重启 代码 关机 待机
![提示](https://static.bdocx.com/images/bang_tan.gif)