2014/9/3
VBS搜尋SharePoint人員
IE 裡面,工具→網際網路選項→進階,「永遠將 URL 傳送成 UTF-8」
URL 含中文路徑名稱解法參考
http://blog.urdada.net/2005/09/08/24/
=====VSB===============================
Dim GIE
Dim x , AA
Set GIE = CreateObject("InternetExplorer.Application")
With GIE
.Left = 0
.Top = 0
.Height = 800
.Width = 900
.MenuBar = 1
.Toolbar = 1
.addressbar = 1
.StatusBar = 1
.Visible = 1
.navigate "http://center.com.tw"
End With
a=Array("聶風","步驚雲")
'Wscript.Echo a(0)
Do While GIE.busy: x = x + 1: Loop
'x = 0
Wscript.Sleep 1000
FOR x = LBOUND(a) TO UBOUND(a)
GIE.navigate
"http://center.com.tw/SearchCenter/Pages/peopleresults.aspx?k=" & a(x)
Wscript.Sleep 1500
NEXT
GIE.QUIT
Set GIE = Nothing
URL 含中文路徑名稱解法參考
http://blog.urdada.net/2005/09/08/24/
=====VSB===============================
Dim GIE
Dim x , AA
Set GIE = CreateObject("InternetExplorer.Application")
With GIE
.Left = 0
.Top = 0
.Height = 800
.Width = 900
.MenuBar = 1
.Toolbar = 1
.addressbar = 1
.StatusBar = 1
.Visible = 1
.navigate "http://center.com.tw"
End With
a=Array("聶風","步驚雲")
'Wscript.Echo a(0)
Do While GIE.busy: x = x + 1: Loop
'x = 0
Wscript.Sleep 1000
FOR x = LBOUND(a) TO UBOUND(a)
GIE.navigate
"http://center.com.tw/SearchCenter/Pages/peopleresults.aspx?k=" & a(x)
Wscript.Sleep 1500
NEXT
GIE.QUIT
Set GIE = Nothing
2014/8/11
訂閱:
文章 (Atom)