首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vbs请,看看

2012-01-16 
vbs求助:请各位高手,大虾看看谁能帮忙测试下:要求:点击“点击弹出新窗口”可以 弹出新窗口链接,最好能解决在

vbs求助:请各位高手,大虾看看
谁能帮忙测试下:

要求:点击“点击弹出新窗口”可以 弹出新窗口链接,最好能解决在vbs里放置html

Dim ie,Pobj 
Tlen = 1000 
MsgX = 190 
MsgY = 650
Const HTML ="<center><b>Welcome To My Compe</b></center>左边<P><div align=right>右边<P><div align=right><a target=blank href=(在html里要加上")tencent://message/?uin=437299619&Site=阿城守候(ACity)&Menu=yes(在html里要加上")><img border=0 SRC=http://wpa.qq.com/pa?p=1:437299619:4 alt=联系阿城>点击弹出新窗口</a>"
Call IsIe() 
Call Effect(0) 
While Tlen 
WScript.Sleep 10
Tlen = Tlen - 1 
Wend 
Call Effect(MsgY) 
ie.Quit 
Sub IsIe() 
Set ie = CreateObject("InternetExplorer.Application") 
ie.NaviGate "about:blank" 
ie.Width = ie.Document.ParentWindow.Screen.Width 
ie.Height = ie.Document.ParentWindow.Screen.Height 
Set Pobj = ie.Document.parentWindow.CreatePopup 
Pobj.Document.Body.InnerHTML = HTML 
End Sub 
Sub Effect(Tval) 
For i = 0 To MsgY 
Pobj.show ie.Width,ie.Height,MsgX,Abs(i-Tval) 
Next 
End Sub 
超链接在http://前要加上"才能实现跳转,但vbs里一行代码只能使用两个"(一个开始和一个结束)除了使用&  
请各位高手,大虾看看



[解决办法]
字符串里两个连续的"表示输出一个",比如
s = "lksadjf""slkajf""saljf"
表达的是lksadjf"slkajf"saljf
或者Chr(34)也是双引号s = "kljsdf" & Chr(34) & "lksjdf"
另外,html的属性也可以用单引号,比如
s = "<a href='http://xxxxx'>aaa</a>"
[解决办法]

探讨

字符串里两个连续的"表示输出一个",比如
s = "lksadjf""slkajf""saljf"
表达的是lksadjf"slkajf"saljf
或者Chr(34)也是双引号s = "kljsdf" &amp; Chr(34) &amp; "lksjdf"
另外,html的属性也可以用单引号,比如
s = "<a href='http://xxxxx'>aaa</a>"

[解决办法]
帮顶....
[解决办法]
造成“不能点击”的原因,应该是WScript.Sleep或 For循环中,不能响应其它消息吧?

热点排行